Sources Esope | Cast3M

dimen7
C DIMEN7    SOURCE    CHAT      05/01/12    22:50:48     5004
      SUBROUTINE DIMEN7 (IPOINT,LDIM)
C
C     DIMENSION D UN OBJET TABLE
C     C EST LE NOMBRE D INDICES DANS LA TABLE
C
C     M.PETIT 24/2/88
C
      IMPLICIT INTEGER(I-N)
-INC SMTABLE
C
      MTABLE=IPOINT
      SEGACT MTABLE
      LDIM=MLOTAB
      SEGDES MTABLE
C
      RETURN
      END