Télécharger mode11.eso

Retour à la liste

Numérotation des lignes :

  1. C MODE11 SOURCE CHAT 05/01/13 01:47:45 5004
  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 = 3
  43. IF (NBPRO.GT.N1MAX) THEN
  44. GOTO 100
  45. ELSE
  46. LESPRO(1) = 'NEWTONIEN'
  47. LESPRO(2) = 'BINGHAM'
  48. LESPRO(3) = 'VISCOPLASTIQUE'
  49. ENDIF
  50. *
  51. *= Noms des types d'elements finis autorises
  52. *
  53. NBTEF = 4
  54. LESTEF(1) = 'LINE'
  55. LESTEF(2) = 'MACR'
  56. LESTEF(3) = 'QUAF'
  57. LESTEF(4) = 'LINB'
  58. *
  59. RETURN
  60. *
  61. *= ERREUR : Taille d'un des vecteurs LES... insuffisante.
  62. *
  63. 100 CALL ERREUR(5)
  64. RETURN
  65. END
  66.  
  67.  
  68.  
  69.  
  70.  

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