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