Télécharger nbno.eso

Retour à la liste

Numérotation des lignes :

  1. C NBNO SOURCE CHAT 05/01/13 01:56:15 5004
  2. C RAMENE LE NOMBRE DE NOEUDS D'UN OBJET (ELEMENT)
  3. C
  4. SUBROUTINE NBNO
  5. IMPLICIT INTEGER(I-N)
  6. -INC CCOPTIO
  7. -INC SMELEME
  8. -INC SMCOORD
  9. SEGMENT ICPR(XCOOR(/1)/(IDIM+1))
  10. CALL LIROBJ('MAILLAGE',MELEME,1,IRETOU)
  11. IF (IERR.NE.0) RETURN
  12. SEGACT MELEME
  13. SEGINI ICPR
  14. DO 1 I=1,ICPR(/1)
  15. ICPR(I)=0
  16. 1 CONTINUE
  17. IPT1=MELEME
  18. DO 3 I=1,MAX(1,LISOUS(/1))
  19. IF (LISOUS(/1).NE.0) THEN
  20. IPT1=LISOUS(I)
  21. SEGACT IPT1
  22. ENDIF
  23. NBNN=IPT1.NUM(/1)
  24. NBELEM=IPT1.NUM(/2)
  25. DO 4 J=1,NBNN
  26. DO 4 K=1,NBELEM
  27. L=IPT1.NUM(J,K)
  28. ICPR(L)=1
  29. 4 CONTINUE
  30. IF (LISOUS(/1).NE.0) SEGDES IPT1
  31. 3 CONTINUE
  32. SEGDES MELEME
  33. NBN=0
  34. DO 6 I=1,ICPR(/1)
  35. NBN=NBN+ICPR(I)
  36. 6 CONTINUE
  37. SEGSUP ICPR
  38. CALL ECRENT(NBN)
  39. RETURN
  40. END
  41.  
  42.  

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