Télécharger mode18.eso

Retour à la liste

Numérotation des lignes :

  1. C MODE18 SOURCE AM 17/04/20 21:15:20 9407
  2.  
  3. C=======================================================================
  4. C= Objet MODELE - Cas de la formulation 'DIFFUSION' =
  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 MODE18 (LESPRO,NBPRO,LESTEF,NBTEF,N1MAX,N2MAX)
  11.  
  12. IMPLICIT INTEGER(I-N)
  13. IMPLICIT REAL*8 (A-H,O-Z)
  14.  
  15.  
  16. -INC PPARAM
  17. -INC CCOPTIO
  18.  
  19. CHARACTER*16 LESPRO(*)
  20. CHARACTER*4 LESTEF(*)
  21.  
  22. C 1 - Noms de MODELES
  23. C ---------------------
  24. IF (IDIM.EQ.1) THEN
  25. NBPRO=6
  26. IF (NBPRO.GT.N1MAX) GOTO 99
  27. LESPRO(1)='ISOTROPE '
  28. LESPRO(2)='FICK '
  29. LESPRO(3)='SORET '
  30. LESPRO(4)='UTILISATEUR '
  31. LESPRO(5)='DISSIPATION '
  32. LESPRO(6)='AFFINE '
  33. ELSE
  34. NBPRO=9
  35. IF (NBPRO.GT.N1MAX) GOTO 99
  36. LESPRO(1)='ISOTROPE '
  37. LESPRO(2)='ORTHOTROPE '
  38. LESPRO(3)='ANISOTROPE '
  39. LESPRO(4)='FICK '
  40. LESPRO(5)='SORET '
  41. LESPRO(6)='UTILISATEUR '
  42. LESPRO(7)='DISSIPATION '
  43. LESPRO(8)='AFFINE '
  44. LESPRO(9)='VISQUEUSE '
  45. ENDIF
  46.  
  47. C 2 - Noms de types d'ELEMENTS FINIS
  48. C ------------------------------------
  49. IF (IDIM.EQ.1) THEN
  50. NBTEF=2
  51. IF (NBTEF.GT.N2MAX) GOTO 99
  52. C* En DIMEnsion 1, on s'appuie sur les elements mecaniques.
  53. LESTEF(1)='M1D2'
  54. LESTEF(2)='M1D3'
  55. ELSE IF (IDIM.EQ.2) THEN
  56. NBTEF=7
  57. IF (NBTEF.GT.N2MAX) GOTO 99
  58. LESTEF(1)='TRI3'
  59. LESTEF(2)='TRI6'
  60. LESTEF(3)='QUA4'
  61. LESTEF(4)='QUA8'
  62. LESTEF(5)='POLY'
  63. LESTEF(6)='COQ2'
  64. LESTEF(7)='BARR'
  65. C* ELSE IF (IDIM.EQ.3) THEN
  66. ELSE
  67. NBTEF=13
  68. IF (NBTEF.GT.N2MAX) GOTO 99
  69. LESTEF(1)='CUB8'
  70. LESTEF(2)='CU20'
  71. LESTEF(3)='PRI6'
  72. LESTEF(4)='PR15'
  73. LESTEF(5)='TET4'
  74. LESTEF(6)='TE10'
  75. LESTEF(7)='PYR5'
  76. LESTEF(8)='PY13'
  77. LESTEF(9) ='COQ3'
  78. LESTEF(10)='COQ4'
  79. LESTEF(11)='COQ6'
  80. LESTEF(12)='COQ8'
  81. LESTEF(13)='BARR'
  82.  
  83. ENDIF
  84. RETURN
  85.  
  86. C 3 - Traitement des ERREURS
  87. C ----------------------------
  88. 99 CALL ERREUR(5)
  89. RETURN
  90.  
  91. END
  92.  
  93.  
  94.  

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