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