Télécharger la plaquette Cast3M


fr en

Télécharger actmel.eso

Retour à la liste

Numérotation des lignes : 

actmel

  1. C ACTMEL    SOURCE    CHAT      05/01/12    21:16:52     5004
  2.       SUBROUTINE ACTMEL(MAIL)
  3.       IMPLICIT INTEGER(I-N)
  4.       IMPLICIT REAL*8 (A-H,O-Z)
  5. C***********************************************************************
  6. C NOM         : ACTMEL
  7. C DESCRIPTION : Active un maillage et ses sous-maillages
  8. C LANGAGE     : ESOPE
  9. C AUTEUR      : Stéphane GOUNAND (CEA/DRN/DMT/SEMT/TTMF)
  10. C               mél : gounand@semt2.smts.cea.fr
  11. C***********************************************************************
  12. C APPELE PAR       : PONBPO
  13. C***********************************************************************
  14. C ENTREES/SORTIES    : MAIL
  15. C CODE RETOUR (IRET) : = 0 si tout s'est bien passé
  16. C***********************************************************************
  17. C VERSION    : v1, 12/05/99, version initiale
  18. C HISTORIQUE : v1, 12/05/99, création
  19. C HISTORIQUE :
  20. C HISTORIQUE :
  21. C***********************************************************************
  22. C Prière de PRENDRE LE TEMPS de compléter les commentaires
  23. C en cas de modification de ce sous-programme afin de faciliter
  24. C la maintenance !
  25. C***********************************************************************
  26.  
  27. -INC PPARAM
  28. -INC CCOPTIO
  29. -INC SMELEME
  30.       POINTEUR MAIL.MELEME
  31.       POINTEUR SOUMAI.MELEME
  32. *
  33.       INTEGER INBSOU,NBSOUS
  34. *
  35. * Executable statements
  36. *
  37.       SEGACT MAIL
  38.       NBSOUS=MAIL.LISOUS(/1)
  39.       IF (NBSOUS.NE.0) THEN
  40.          DO 1 INBSOU=1,NBSOUS
  41.             SOUMAI=MAIL.LISOUS(INBSOU)
  42.             SEGACT SOUMAI
  43.  1       CONTINUE
  44.       ENDIF
  45. *
  46. * Normal termination
  47. *
  48.       RETURN
  49. *
  50. * End of subroutine ACTMEL
  51. *
  52.       END
  53.  
  54.  
  55.  
  56.  

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