C NBEL      SOURCE    CB215821  19/08/20    21:20:00     10287          
C   REND LE NOMBRE D'ELEMENTS D'UN OBJET
C
      SUBROUTINE NBEL
      IMPLICIT INTEGER(I-N)

-INC PPARAM
-INC CCOPTIO
-INC CCGEOME
-INC SMELEME
-INC SMLMOTS
-INC SMLENTI
      CHARACTER*4 LETYP
      CALL LIROBJ('MAILLAGE',MELEME,1,IRETOU)
      IF (IERR.NE.0) RETURN
      CALL LIROBJ('LISTMOTS',MLMOTS,0,ISPRA)
      SEGACT MELEME
*
      IF(ISPRA.NE.0) GO TO 3
      NBL=0
      IPT1=MELEME
      DO 2 I=1,MAX(1,LISOUS(/1))
      IF (LISOUS(/1).NE.0) THEN
       IPT1=LISOUS(I)
       SEGACT IPT1
      ENDIF
      NBL=NBL+IPT1.NUM(/2)
   2  CONTINUE
      CALL ECRENT(NBL)
      RETURN
*
   3  CONTINUE
      SEGACT MLMOTS
      JG=MOTS(/2)
      SEGINI MLENTI
      IPT1=MELEME
      DO 4 I=1,MAX(1,LISOUS(/1))
        IF (LISOUS(/1).NE.0) THEN
         IPT1=LISOUS(I)
         SEGACT IPT1
        ENDIF
        LETYP=NOMS(IPT1.ITYPEL)
        DO 5 IJ=1,JG
          IF(LETYP.NE.MOTS(IJ)) GO TO 5
          LECT(IJ)=LECT(IJ)+IPT1.NUM(/2)
          GO TO 4
   5    CONTINUE
   4  CONTINUE
      SEGACT MLENTI
      CALL ECROBJ('LISTENTI',MLENTI)
      END