Télécharger la plaquette Cast3M


fr en

Télécharger remail.eso

Retour à la liste

Numérotation des lignes : 

remail

  1. C REMAIL    SOURCE    CB215821  23/06/20    21:15:05     11684          
  2.       SUBROUTINE REMAIL()
  3.       IMPLICIT REAL*8 (A-H,O-Z)
  4.       IMPLICIT INTEGER (I-N)
  5. C***********************************************************************
  6. C NOM         : REMAIL
  7. C DESCRIPTION : Remaille suivante un algorithme d'optimisation 
  8. C     topologique anisotrope dû à T. Coupez
  9. C               Voir procédure MAILTOPO qui fait le travail      
  10. C               avec l'opérateur OPTO
  11. C
  12. C LANGAGE     : ESOPE
  13. C AUTEUR      : Stephane GOUNAND (CEA/DES/ISAS/DM2S/SEMT/LTA)
  14. C               mel : gounand@semt2.smts.cea.fr
  15. C***********************************************************************
  16. C APPELES          : 
  17. C APPELES (E/S)    : 
  18. C APPELES (BLAS)   :
  19. C APPELES (CALCUL) :
  20. C APPELE PAR       :
  21. C***********************************************************************
  22. C SYNTAXE GIBIANE    :
  23. C ENTREES            :
  24. C ENTREES/SORTIES    :
  25. C SORTIES            :
  26. C***********************************************************************
  27. C VERSION    : v1, 09/04/2021, version initiale
  28. C HISTORIQUE : v1, 09/04/2021, creation
  29. C HISTORIQUE :
  30. C HISTORIQUE :
  31. C***********************************************************************
  32. -INC SMTEXTE
  33. -INC PPARAM
  34. *
  35.       SEGINI,MTEXTE
  36.       MTEXTE.MTEXT ='MAILTOPO REMA'
  37.       MTEXTE.NCART = 13
  38.       SEGACT,MTEXTE
  39.  
  40.       CALL ECROBJ('TEXTE',MTEXTE)
  41.       RETURN
  42. *
  43. * End of subroutine REMAIL
  44. *
  45.       END
  46.  
  47.  
  48.  
  49.  

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