C DIMEN9    SOURCE    CHAT      05/01/12    22:50:54     5004
      SUBROUTINE DIMEN9 (IPOINT,LDIM)
C
C     DIMENSION D UN OBJET CHARGEME
C      e' il numero totale di oggetti CHARGEME
C
C      Ispra vr-lp Giu92
C
      IMPLICIT INTEGER(I-N)
-INC SMCHARG
C
      MCHARG=IPOINT
      SEGACT MCHARG
      LDIM=KCHARG(/1)
      SEGDES MCHARG
C
      RETURN
      END