Télécharger model1.eso

Retour à la liste

Numérotation des lignes :

  1. C MODEL1 SOURCE PASCAL 19/11/19 21:15:26 10384
  2.  
  3. C=======================================================================
  4. C= Objet MODELE - Cas de la formulation 'THERMIQUE' =
  5. C= =
  6. C= Definition des noms de modeles de MATERIAU =
  7. C= et des noms de types d'ELEMENTS FINIS =
  8. C=======================================================================
  9.  
  10. SUBROUTINE MODEL1 (LESPRO,NBPRO,LESTEF,NBTEF,N1MAX,N2MAX)
  11.  
  12. IMPLICIT INTEGER(I-N)
  13. IMPLICIT REAL*8 (A-H,O-Z)
  14.  
  15. -INC PPARAM
  16. -INC CCOPTIO
  17.  
  18. CHARACTER*16 LESPRO(*)
  19. CHARACTER*4 LESTEF(*)
  20.  
  21. C 1 - Noms de MODELES
  22. C ---------------------
  23. IF (IDIM.EQ.1) THEN
  24. NBPRO=6
  25. IF (NBPRO.GT.N1MAX) GOTO 99
  26. LESPRO(1)='ISOTROPE'
  27. LESPRO(2)='CONDUCTION'
  28. LESPRO(3)='PHASE'
  29. LESPRO(4)='CONVECTION'
  30. LESPRO(5)='RAYONNEMENT'
  31. LESPRO(6)='SOURCE'
  32. ELSE
  33. NBPRO=9
  34. IF (NBPRO.GT.N1MAX) GOTO 99
  35. LESPRO(1)='ISOTROPE'
  36. LESPRO(2)='ORTHOTROPE'
  37. LESPRO(3)='ANISOTROPE'
  38. LESPRO(4)='PHASE'
  39. LESPRO(5)='CONVECTION'
  40. LESPRO(6)='RAYONNEMENT'
  41. LESPRO(7)='ADVECTION'
  42. LESPRO(8)='CONDUCTION'
  43. LESPRO(9)='SOURCE'
  44. ENDIF
  45.  
  46. C 2 - Noms de types d'ELEMENTS FINIS
  47. C ------------------------------------
  48. IF (IDIM.EQ.1) THEN
  49. NBTEF=2
  50. IF (NBTEF.GT.N2MAX) GOTO 99
  51. LESTEF(1)='T1D2'
  52. LESTEF(2)='T1D3'
  53. ELSE IF (IDIM.EQ.2) THEN
  54. NBTEF=12
  55. IF (NBTEF.GT.N2MAX) GOTO 99
  56. LESTEF(1)='SEG2'
  57. LESTEF(2)='SEG3'
  58. LESTEF(3)='TRI3'
  59. LESTEF(4)='TRI6'
  60. LESTEF(5)='QUA4'
  61. LESTEF(6)='QUA8'
  62. LESTEF(7)='COQ2'
  63. LESTEF(8)='BARR'
  64. LESTEF(9)='BAR3'
  65. LESTEF(10)='POLY'
  66. LESTEF(11)='TUY2'
  67. LESTEF(12)='TUY3'
  68.  
  69. C* ELSE IF (IDIM.EQ.3) THEN
  70. ELSE
  71. NBTEF=16
  72. IF (NBTEF.GT.N2MAX) GOTO 99
  73. LESTEF( 1)='CUB8'
  74. LESTEF( 2)='CU20'
  75. LESTEF( 3)='PRI6'
  76. LESTEF( 4)='PR15'
  77. LESTEF( 5)='TET4'
  78. LESTEF( 6)='TE10'
  79. LESTEF( 7)='PYR5'
  80. LESTEF( 8)='PY13'
  81. LESTEF( 9)='COQ3'
  82. LESTEF(10)='COQ4'
  83. LESTEF(11)='COQ6'
  84. LESTEF(12)='COQ8'
  85. LESTEF(13)='BARR'
  86. LESTEF(14)='BAR3'
  87. LESTEF(15)='TUY2'
  88. LESTEF(16)='TUY3'
  89. ENDIF
  90. RETURN
  91.  
  92. C 3 - Traitement des ERREURS
  93. C ----------------------------
  94. 99 CALL ERREUR(5)
  95. RETURN
  96.  
  97. END
  98.  
  99.  
  100.  
  101.  
  102.  
  103.  
  104.  

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