Télécharger nbno.eso

Retour à la liste

Numérotation des lignes :

  1. C NBNO SOURCE PV 20/03/30 21:21:31 10567
  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(nbpts)
  10. CALL LIROBJ('MAILLAGE',MELEME,1,IRETOU)
  11. CALL ACTOBJ('MAILLAGE',MELEME,1)
  12. IF (IERR.NE.0) RETURN
  13.  
  14. SEGINI ICPR
  15. DO 1 I=1,ICPR(/1)
  16. ICPR(I)=0
  17. 1 CONTINUE
  18. IPT1=MELEME
  19. DO 3 I=1,MAX(1,LISOUS(/1))
  20. IF (LISOUS(/1).NE.0) IPT1=LISOUS(I)
  21.  
  22. NBNN =IPT1.NUM(/1)
  23. NBELEM=IPT1.NUM(/2)
  24. DO 5 K=1,NBELEM
  25. DO 4 J=1,NBNN
  26. L=IPT1.NUM(J,K)
  27. ICPR(L)=1
  28. 4 CONTINUE
  29. 5 CONTINUE
  30. 3 CONTINUE
  31. NBN=0
  32. DO 6 I=1,ICPR(/1)
  33. NBN=NBN+ICPR(I)
  34. 6 CONTINUE
  35. SEGSUP ICPR
  36.  
  37. CALL ECRENT(NBN)
  38. END
  39.  
  40.  
  41.  
  42.  

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