Esope source files

   1 : C DIMEN9    SOURCE    CHAT      05/01/12    22:50:54     5004           
   2 :       SUBROUTINE DIMEN9 (IPOINT,LDIM)
   3 : C
   4 : C     DIMENSION D UN OBJET CHARGEME
   5 : C      e' il numero totale di oggetti CHARGEME
   6 : C
   7 : C      Ispra vr-lp Giu92
   8 : C
   9 :       IMPLICIT INTEGER(I-N)
  10 : -INC SMCHARG
  11 : C
  12 :       MCHARG=IPOINT
  13 :       SEGACT MCHARG
  14 :       LDIM=KCHARG(/1)
  15 :       SEGDES MCHARG
  16 : C
  17 :       RETURN
  18 :       END
  19 :  
  20 :