Sources Esope | Cast3M

dimen8
C DIMEN8    SOURCE    CHAT      05/01/12    22:50:51     5004
C DIMEN8    SOURCE    PETI      88/02/25    21:08:22
      SUBROUTINE DIMEN8 (IPOINT,LDIM)
C
C     DIMENSION D UN OBJET EVOLUTIO
C     C EST LE NOMBRE TOTAL DE  COURBES DANS L'OBJET EVOLUTIO
C
C     PAUROBALLY    14/12/88
C
      IMPLICIT INTEGER(I-N)
-INC SMEVOLL
C
      MEVOLL=IPOINT
      SEGACT MEVOLL
      LDIM=IEVOLL(/1)
      SEGDES MEVOLL
C
      RETURN
      END