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.  
  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) = 'ISOTROPE'
  47. LESPRO(2) = 'ORTHOTROPE'
  48. LESPRO(3) = 'ANISOTROPE'
  49. ENDIF
  50. *
  51. *= Noms des types d'elements finis autorises
  52. *
  53. IF (IDIM.EQ.2) THEN
  54. NBTEF = 2
  55. IF (NBTEF.GT.N2MAX) THEN
  56. GOTO 100
  57. ELSE
  58. LESTEF(1) = 'HYT3'
  59. LESTEF(2) = 'HYQ4'
  60. ENDIF
  61. ELSE
  62. NBTEF = 3
  63. IF (NBTEF.GT.N2MAX) THEN
  64. GOTO 100
  65. ELSE
  66. LESTEF(1) = 'HYT4'
  67. LESTEF(2) = 'HYP6'
  68. LESTEF(3) = 'HYC8'
  69. ENDIF
  70. ENDIF
  71. *
  72. RETURN
  73. *
  74. *= ERREUR : Taille d'un des vecteurs LES... insuffisante.
  75. *
  76. 100 CALL ERREUR(5)
  77. RETURN
  78. END
  79.  
  80.  

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