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