Télécharger la plaquette Cast3M


fr en

Télécharger melnel.eso

Retour à la liste

Numérotation des lignes : 

melnel

  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