1 : C NBEL SOURCE CHAT 07/10/29 21:24:55 5940 2 : C REND LE NOMBRE D'ELEMENTS D'UN OBJET 3 : C 4 : SUBROUTINE NBEL 5 : IMPLICIT INTEGER(I-N) 6 : -INC CCOPTIO 7 : -INC CCGEOME 8 : -INC SMELEME 9 : -INC SMLMOTS 10 : -INC SMLENTI 11 : CHARACTER*4 LETYP 11 : CALL LIROBJ('MAILLAGE',MELEME,1,IRETOU) 12 : IF (IERR.NE.0) RETURN 12 : CALL LIROBJ('LISTMOTS',MLMOTS,0,ISPRA) 13 : SEGACT MELEME 14 : * 15 : IF(ISPRA.NE.0) GO TO 3 16 : NBL=0 17 : IPT1=MELEME 18 : DO 2 I=1,MAX(1,LISOUS(/1)) 19 : IF (LISOUS(/1).NE.0) THEN 20 : IPT1=LISOUS(I) 21 : SEGACT IPT1 22 : ENDIF 23 : NBL=NBL+IPT1.NUM(/2) 24 : IF (LISOUS(/1).NE.0) SEGDES IPT1 25 : 2 CONTINUE 26 : SEGDES MELEME 26 : CALL ECRENT(NBL) 27 : RETURN 28 : * 29 : 3 CONTINUE 30 : SEGACT MLMOTS 31 : JG=MOTS(/2) 32 : SEGINI MLENTI 33 : IPT1=MELEME 34 : DO 4 I=1,MAX(1,LISOUS(/1)) 35 : IF (LISOUS(/1).NE.0) THEN 36 : IPT1=LISOUS(I) 37 : SEGACT IPT1 38 : ENDIF 39 : LETYP=NOMS(IPT1.ITYPEL) 40 : DO 5 IJ=1,JG 41 : IF(LETYP.NE.MOTS(IJ)) GO TO 5 42 : LECT(IJ)=LECT(IJ)+IPT1.NUM(/2) 43 : GO TO 6 44 : 5 CONTINUE 45 : 6 IF (LISOUS(/1).NE.0) SEGDES IPT1 46 : 4 CONTINUE 47 : SEGDES MELEME,MLENTI,MLMOTS 47 : CALL ECROBJ('LISTENTI',MLENTI) 48 : RETURN 49 : END 50 : 51 : 52 : 53 : 54 : 55 : 56 :
© Cast3M 2003 - All rights reserved.
Disclaimer