Télécharger la plaquette Cast3M


fr en

Télécharger mode11.eso

Retour à la liste

Numérotation des lignes : 

mode11

  1. C MODE11    SOURCE    JK148537  23/10/23    21:15:07     11769          
  2.       SUBROUTINE MODE11(LESPRO,NBPRO,LESTEF,NBTEF,N1MAX,N2MAX)
  3. C-----------------------------------------------------------------------
  4. C Definition des noms de proprietes de materiau et du noms de
  5. C type d'elements fini dans le cas d'une formulation NAVIER_STOKES
  6. C-----------------------------------------------------------------------
  7. C
  8. C---------------------------
  9. C Parametres Entree/Sortie :
  10. C---------------------------
  11. C
  12. C  /S LESPRO  : Noms des proprietes du materiau autorises
  13. C  /S NBPRO   : Nombre de noms contenus dans LESPRO.
  14. C  /S LESTEF  : Noms des types d'elements finis autorises
  15. C  /S NBTEF   : Nombre de noms contenus dans LESTEF.
  16. C E/  N1MAX   : Taille maximale du vecteur LESPRO.
  17. C E/  N2MAX   : Taille maximale du vecteur LESTEF.
  18. C
  19. C----------------------
  20. C Variables en COMMON :
  21. C----------------------
  22. C
  23. C     IDIM    : Dimension de l'espace (2 en 2D, 3 en 3D)
  24. C
  25. C-----------------------------------------------------------------------
  26. C
  27. C Langage : FORTRAN77
  28. C
  29. C Auteurs :
  30. C
  31. C-----------------------------------------------------------------------
  32.       IMPLICIT INTEGER(I-N)
  33.  
  34. -INC PPARAM
  35. -INC CCOPTIO
  36. C
  37.       CHARACTER*16 LESPRO(*)
  38.       CHARACTER*4  LESTEF(*)
  39. *
  40. *= Noms des proprietes de materiau autorisees
  41. *
  42.       NBPRO = 4
  43.       IF (NBPRO.GT.N1MAX) THEN
  44.          GOTO 100
  45.       ELSE
  46.          LESPRO(1) = 'NEWTONIEN'
  47.          LESPRO(2) = 'BINGHAM'
  48.          LESPRO(3) = 'VISCOPLASTIQUE'
  49.          LESPRO(4) = 'NLIN'
  50.       ENDIF
  51. *
  52. *= Noms des types d'elements finis autorises
  53. *
  54.          NBTEF = 4
  55.             LESTEF(1) = 'LINE'
  56.             LESTEF(2) = 'MACR'
  57.             LESTEF(3) = 'QUAF'
  58.             LESTEF(4) = 'LINB'
  59. *
  60.       RETURN
  61. *
  62. *= ERREUR : Taille d'un des vecteurs LES... insuffisante.
  63. *
  64.  100  CALL ERREUR(5)
  65.       RETURN
  66.       END
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  

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