Télécharger model7.eso

Retour à la liste

Numérotation des lignes :

  1. C MODEL7 SOURCE CHAT 05/01/13 01:48:37 5004
  2. SUBROUTINE MODEL7(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 DARCY
  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 : F.DABBENE 08/93
  30. C
  31. C-----------------------------------------------------------------------
  32. IMPLICIT INTEGER(I-N)
  33. -INC CCOPTIO
  34. C
  35. CHARACTER*16 LESPRO(*)
  36. CHARACTER*4 LESTEF(*)
  37. *
  38. *= Noms des proprietes de materiau autorisees
  39. *
  40. NBPRO = 3
  41. IF (NBPRO.GT.N1MAX) THEN
  42. GOTO 100
  43. ELSE
  44. LESPRO(1) = 'ISOTROPE'
  45. LESPRO(2) = 'ORTHOTROPE'
  46. LESPRO(3) = 'ANISOTROPE'
  47. ENDIF
  48. *
  49. *= Noms des types d'elements finis autorises
  50. *
  51. IF (IDIM.EQ.2) THEN
  52. NBTEF = 2
  53. IF (NBTEF.GT.N2MAX) THEN
  54. GOTO 100
  55. ELSE
  56. LESTEF(1) = 'HYT3'
  57. LESTEF(2) = 'HYQ4'
  58. ENDIF
  59. ELSE
  60. NBTEF = 3
  61. IF (NBTEF.GT.N2MAX) THEN
  62. GOTO 100
  63. ELSE
  64. LESTEF(1) = 'HYT4'
  65. LESTEF(2) = 'HYP6'
  66. LESTEF(3) = 'HYC8'
  67. ENDIF
  68. ENDIF
  69. *
  70. RETURN
  71. *
  72. *= ERREUR : Taille d'un des vecteurs LES... insuffisante.
  73. *
  74. 100 CALL ERREUR(5)
  75. RETURN
  76. END
  77.  
  78.  

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