Télécharger actmel.eso

Retour à la liste

Numérotation des lignes :

  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. -INC CCOPTIO
  27. -INC SMELEME
  28. POINTEUR MAIL.MELEME
  29. POINTEUR SOUMAI.MELEME
  30. *
  31. INTEGER INBSOU,NBSOUS
  32. *
  33. * Executable statements
  34. *
  35. SEGACT MAIL
  36. NBSOUS=MAIL.LISOUS(/1)
  37. IF (NBSOUS.NE.0) THEN
  38. DO 1 INBSOU=1,NBSOUS
  39. SOUMAI=MAIL.LISOUS(INBSOU)
  40. SEGACT SOUMAI
  41. 1 CONTINUE
  42. ENDIF
  43. *
  44. * Normal termination
  45. *
  46. RETURN
  47. *
  48. * End of subroutine ACTMEL
  49. *
  50. END
  51.  
  52.  
  53.  
  54.  

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