Télécharger nbel.eso

Retour à la liste

Numérotation des lignes :

  1. C NBEL SOURCE BP208322 16/11/18 21:19:31 9177
  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. IF (LISOUS(/1).NE.0) SEGDES IPT1
  27. 2 CONTINUE
  28. SEGDES MELEME
  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 6
  47. 5 CONTINUE
  48. 6 IF (LISOUS(/1).NE.0) SEGDES IPT1
  49. 4 CONTINUE
  50. SEGDES MELEME,MLENTI,MLMOTS
  51. CALL ECROBJ('LISTENTI',MLENTI)
  52. RETURN
  53. END
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  

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