Esope source files

   1 : C DIMEN7    SOURCE    CHAT      05/01/12    22:50:48     5004           
   2 :       SUBROUTINE DIMEN7 (IPOINT,LDIM)                                           
   3 : C                                                                               
   4 : C     DIMENSION D UN OBJET TABLE                                                
   5 : C     C EST LE NOMBRE D INDICES DANS LA TABLE                                   
   6 : C                                                                               
   7 : C     M.PETIT 24/2/88                                                           
   8 : C                                                                               
   9 :       IMPLICIT INTEGER(I-N)
  10 : -INC SMTABLE                                                                    
  11 : C                                                                               
  12 :       MTABLE=IPOINT                                                             
  13 :       SEGACT MTABLE                                                             
  14 :       LDIM=MLOTAB                                                               
  15 :       SEGDES MTABLE                                                       
  16 : C                                                                               
  17 :       RETURN                                                                    
  18 :       END                                                                       
  19 :  
  20 :