Télécharger mode23.eso

Retour à la liste

Numérotation des lignes :

  1. C MODE23 SOURCE PASCAL 19/11/19 21:15:25 10384
  2. SUBROUTINE MODE23(LESPRO,NBPRO,LESTEF,NBTEF,N1MAX,N2MAX)
  3.  
  4. C=======================================================================
  5. C= Objet MODELE - Cas de la formulation 'SOURCE' =
  6. C= =
  7. C= Definition des noms de modeles de MATERIAU =
  8. C= et des noms de types d'ELEMENTS FINIS =
  9. C=======================================================================
  10.  
  11. IMPLICIT INTEGER(I-N)
  12. IMPLICIT REAL*8 (A-H,O-Z)
  13.  
  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. NBPRO=3
  24. IF (NBPRO.GT.N1MAX) GOTO 99
  25. LESPRO(1)='GAUSSIENNE'
  26. LESPRO(2)='ISOTROPE'
  27. LESPRO(3)='ISOTROPE_TRANSVE'
  28.  
  29. C 2 - Noms de types d'ELEMENTS FINIS :
  30. C --------------------------------------
  31. IF (IDIM.EQ.1) THEN
  32. NBTEF=2
  33. IF (NBTEF.GT.N2MAX) GOTO 99
  34. LESTEF(1)='T1D2'
  35. LESTEF(2)='T1D3'
  36. ELSE IF (IDIM.EQ.2) THEN
  37. NBTEF=12
  38. IF (NBTEF.GT.N2MAX) GOTO 99
  39. LESTEF(1)='SEG2'
  40. LESTEF(2)='SEG3'
  41. LESTEF(3)='TRI3'
  42. LESTEF(4)='TRI6'
  43. LESTEF(5)='QUA4'
  44. LESTEF(6)='QUA8'
  45. LESTEF(7)='COQ2'
  46. LESTEF(8)='BARR'
  47. LESTEF(9)='BAR3'
  48. LESTEF(10)='POLY'
  49. LESTEF(11)='TUY2'
  50. LESTEF(12)='TUY3'
  51. C* ELSE IF (IDIM.EQ.3) THEN
  52. ELSE
  53. NBTEF=16
  54. IF (NBTEF.GT.N2MAX) GOTO 99
  55. LESTEF( 1)='CUB8'
  56. LESTEF( 2)='CU20'
  57. LESTEF( 3)='PRI6'
  58. LESTEF( 4)='PR15'
  59. LESTEF( 5)='TET4'
  60. LESTEF( 6)='TE10'
  61. LESTEF( 7)='PYR5'
  62. LESTEF( 8)='PY13'
  63. LESTEF( 9)='COQ3'
  64. LESTEF(10)='COQ4'
  65. LESTEF(11)='COQ6'
  66. LESTEF(12)='COQ8'
  67. LESTEF(13)='BARR'
  68. LESTEF(14)='BAR3'
  69. LESTEF(15)='TUY2'
  70. LESTEF(16)='TUY3'
  71. ENDIF
  72. RETURN
  73.  
  74. C 3 - Traitement des ERREURS
  75. C ----------------------------
  76. 99 CALL ERREUR(5)
  77. RETURN
  78.  
  79. END
  80.  
  81.  
  82.  
  83.  
  84.  
  85.  

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