Télécharger melnel.eso

Retour à la liste

Numérotation des lignes :

  1. C MELNEL SOURCE CHAT 05/01/13 01:42:23 5004
  2. SUBROUTINE MELNEL(IEL,MELEME,IPT1,NEL0,IACT)
  3. C
  4. CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  5. C
  6. C RECHERCHE LE BON SOUS MAILLAGE POUR L ELEMENT IEL
  7. C NEL0 NOMBRE D ELEMENTS AVANT LE SOUS MAILLAGE A CONSIDERER
  8. C
  9. C IACT = 0 TOUS LES SEGMENTS DU MAILLAGE SAUF IPT1
  10. C SONT DESACTIVES EN SORTI
  11. C IACT = 1 TOUS LES SEGMENTS DU MAILLAGE SONT ACTIFS EN SORTI
  12. CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  13. C
  14. IMPLICIT INTEGER(I-N)
  15. IMPLICIT REAL*8 (A-H,O-Z)
  16. -INC SMELEME
  17. C
  18. SEGACT MELEME
  19. NEL0=0
  20. IPT1=MELEME
  21. NBSOUS=LISOUS(/1)
  22. IF(NBSOUS.NE.0)THEN
  23. DO 10 ISOU=1,NBSOUS
  24. IPT1=LISOUS(ISOU)
  25. SEGACT IPT1
  26. NEL=IPT1.NUM(/2)
  27. IF(NEL+NEL0.GE.IEL)GO TO 15
  28. NEL0=NEL+NEL0
  29. IF(IACT.EQ.0)SEGDES IPT1
  30. 10 CONTINUE
  31. ENDIF
  32. 15 CONTINUE
  33. END
  34.  
  35.  

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