Télécharger nbel.eso

Retour à la liste

Numérotation des lignes :

  1. C NBEL SOURCE CB215821 19/08/20 21:20:00 10287
  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
  12. CALL LIROBJ('MAILLAGE',MELEME,1,IRETOU)
  13. IF (IERR.NE.0) RETURN
  14. CALL LIROBJ('LISTMOTS',MLMOTS,0,ISPRA)
  15. SEGACT MELEME
  16. *
  17. IF(ISPRA.NE.0) GO TO 3
  18. NBL=0
  19. IPT1=MELEME
  20. DO 2 I=1,MAX(1,LISOUS(/1))
  21. IF (LISOUS(/1).NE.0) THEN
  22. IPT1=LISOUS(I)
  23. SEGACT IPT1
  24. ENDIF
  25. NBL=NBL+IPT1.NUM(/2)
  26. 2 CONTINUE
  27. CALL ECRENT(NBL)
  28. RETURN
  29. *
  30. 3 CONTINUE
  31. SEGACT MLMOTS
  32. JG=MOTS(/2)
  33. SEGINI MLENTI
  34. IPT1=MELEME
  35. DO 4 I=1,MAX(1,LISOUS(/1))
  36. IF (LISOUS(/1).NE.0) THEN
  37. IPT1=LISOUS(I)
  38. SEGACT IPT1
  39. ENDIF
  40. LETYP=NOMS(IPT1.ITYPEL)
  41. DO 5 IJ=1,JG
  42. IF(LETYP.NE.MOTS(IJ)) GO TO 5
  43. LECT(IJ)=LECT(IJ)+IPT1.NUM(/2)
  44. GO TO 4
  45. 5 CONTINUE
  46. 4 CONTINUE
  47. SEGACT MLENTI
  48. CALL ECROBJ('LISTENTI',MLENTI)
  49. END
  50.  
  51.  
  52.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales