Télécharger melvid.eso

Retour à la liste

Numérotation des lignes :

  1. C MELVID SOURCE GOUNAND 16/12/01 21:15:10 9228
  2. SUBROUTINE MELVID(ityp,meleme)
  3. IMPLICIT REAL*8 (A-H,O-Z)
  4. IMPLICIT INTEGER (I-N)
  5. C***********************************************************************
  6. C NOM : MELVID
  7. C DESCRIPTION : Génère un maillage vide du type donné
  8. C
  9. C
  10. C LANGAGE : ESOPE
  11. C AUTEUR : Stéphane GOUNAND (CEA/DEN/DM2S/SFME/LTMF)
  12. C mél : gounand@semt2.smts.cea.fr
  13. C***********************************************************************
  14. C ENTREES : ityp
  15. C ENTREES/SORTIES :
  16. C SORTIES : meleme (Maillage inactif)
  17. C***********************************************************************
  18. C VERSION : v1, 06/10/2016, version initiale
  19. C HISTORIQUE : v1, 06/10/2016, création
  20. C HISTORIQUE :
  21. C HISTORIQUE :
  22. C***********************************************************************
  23. -INC CCOPTIO
  24. -INC CCGEOME
  25. -INC SMELEME
  26. *
  27. * Executable statements
  28. *
  29. ityel=ityp
  30. if (ityel.eq.0) ityel=max(1,ilcour)
  31. NBREF=0
  32. NBNN=NBNNE(ityel)
  33. NBELEM=0
  34. NBSOUS=0
  35. SEGINI MELEME
  36. ITYPEL=ityel
  37. SEGDES MELEME
  38. *
  39. * Normal termination
  40. *
  41. RETURN
  42. *
  43. * End of subroutine MELVID
  44. *
  45. END
  46.  
  47.  
  48.  

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