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

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