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

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