Esope source files

   1 : C DIMEN8    SOURCE    CHAT      05/01/12    22:50:51     5004           
   2 : C DIMEN8    SOURCE    PETI      88/02/25    21:08:22                            
   3 :       SUBROUTINE DIMEN8 (IPOINT,LDIM)                                           
   4 : C                                                                               
   5 : C     DIMENSION D UN OBJET EVOLUTIO                                             
   6 : C     C EST LE NOMBRE TOTAL DE  COURBES DANS L'OBJET EVOLUTIO                   
   7 : C                                                                               
   8 : C     PAUROBALLY    14/12/88                                                    
   9 : C                                                                               
  10 :       IMPLICIT INTEGER(I-N)
  11 : -INC SMEVOLL                                                                    
  12 : C                                                                               
  13 :       MEVOLL=IPOINT                                                             
  14 :       SEGACT MEVOLL                                                             
  15 :       LDIM=IEVOLL(/1)                                                           
  16 :       SEGDES MEVOLL                                                       
  17 : C                                                                               
  18 :       RETURN                                                                    
  19 :       END                                                                       
  20 :