Télécharger la plaquette Cast3M


fr en

Télécharger melvid.eso

Retour à la liste

Numérotation des lignes : 

melvid

  1. C MELVID    SOURCE    GOUNAND   25/03/17    21:15:04     12207          
  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 :     11/09/2018, le SEGMENT est rendu SEGACT*NOMOD au lieu de SEGDES
  21. C HISTORIQUE :     14/03/2025, le SEGMENT est rendu tel quel
  22. C     SEGACT*NOMOD est mieux fait en sortie d'opérateur car besoin d'un lock
  23. C     (source : Clement Berthinier)
  24. C
  25. C HISTORIQUE :
  26. C***********************************************************************
  27.  
  28. -INC PPARAM
  29. -INC CCOPTIO
  30. -INC CCGEOME
  31. -INC SMELEME
  32.  
  33.       ityel =ityp
  34.       if (ityel.eq.0) ityel=max(1,ilcour)
  35.       NBREF =0
  36.       NBNN  =NBNNE(ityel)
  37.       NBELEM=0
  38.       NBSOUS=0
  39.       SEGINI,MELEME
  40.       ITYPEL=ityel
  41.       RETURN
  42.       END
  43.  
  44.  

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