Télécharger mode19.eso

Retour à la liste

Numérotation des lignes :

  1. C MODE19 SOURCE MB234859 16/10/13 21:15:15 9126
  2. SUBROUTINE MODE19(LESPRO,NBPRO,LESTEF,NBTEF,N1MAX,N2MAX)
  3. C=======================================================================
  4. C= Objet MODELE - Cas de la formulation 'CHARGEMENT' =
  5. C= =
  6. C= Definition des noms de modeles de CHARGEMENT =
  7. C= et des noms de types d'ELEMENTS FINIS =
  8. C=======================================================================
  9. C
  10. IMPLICIT INTEGER(I-N)
  11. IMPLICIT REAL*8 (A-H,O-Z)
  12. C
  13.  
  14. -INC PPARAM
  15. -INC CCOPTIO
  16. C
  17. CHARACTER*16 MOMODL(100)
  18. CHARACTER*16 LESPRO(*)
  19. CHARACTER*4 LESTEF(*)
  20. C
  21. C NOMS DES MODELES DE CHARGEMENT
  22. C -------------------------------
  23. CALL MOCHAR(MOMODL,NMOD)
  24. DO 1 I=1,NMOD
  25. LESPRO(I)=MOMODL(I)
  26. 1 CONTINUE
  27. NBPRO=NMOD
  28. C
  29. IF(NBPRO.GT.N1MAX) GO TO 99
  30. C
  31. C NOMS DE TYPES D'ELEMENTS FINIS
  32. C ------------------------------
  33. C DIMENSION 1 :
  34. C ---------------
  35. IF (IDIM.EQ.1) THEN
  36. NBTEF=2
  37. IF (NBTEF.GT.N2MAX) GOTO 99
  38. LESTEF(1)='M1D2'
  39. LESTEF(2)='M1D3'
  40. C DIMENSION 2 :
  41. C ---------------
  42. C Les EF sont definis suivant la valeur de IFOUR
  43. ELSE IF (IDIM.EQ.2) THEN
  44. IF (IFOUR.EQ.0.OR.IFOUR.EQ.1) THEN
  45. NBTEF=6
  46. IF (NBTEF.GT.N2MAX) GOTO 99
  47. LESTEF(1)='TRI3'
  48. LESTEF(2)='TRI6'
  49. LESTEF(3)='QUA4'
  50. LESTEF(4)='QUA8'
  51. LESTEF(5)='COQ2'
  52. LESTEF(6)='BARR'
  53. ELSE
  54. NBTEF=9
  55. IF (NBTEF.GT.N2MAX) GOTO 99
  56. LESTEF(1)='TRI3'
  57. LESTEF(2)='TRI6'
  58. LESTEF(3)='QUA4'
  59. LESTEF(4)='QUA8'
  60. LESTEF(5)='COQ2'
  61. LESTEF(6)='BARR'
  62. LESTEF(7)='POI1'
  63. LESTEF(8)='TIMO'
  64. LESTEF(9)='POUT'
  65. ENDIF
  66. C DIMENSION 3 :
  67. C ---------------
  68. ELSE IF (IDIM.EQ.3) THEN
  69. NBTEF=19
  70. IF (NBTEF.GT.N2MAX) GOTO 99
  71. LESTEF( 1)='CUB8'
  72. LESTEF( 2)='CU20'
  73. LESTEF( 3)='PRI6'
  74. LESTEF( 4)='PR15'
  75. LESTEF( 5)='TET4'
  76. LESTEF( 6)='TE10'
  77. LESTEF( 7)='COQ3'
  78. LESTEF( 8)='COQ4'
  79. LESTEF( 9)='COQ6'
  80. LESTEF(10)='COQ8'
  81. LESTEF(11)='DKT '
  82. LESTEF(12)='BARR'
  83. LESTEF(13)='POUT'
  84. LESTEF(14)='TUYA'
  85. LESTEF(15)='DST '
  86. LESTEF(16)='TUYO'
  87. LESTEF(17)='TIMO'
  88. LESTEF(18)='POI1'
  89. LESTEF(19)='JOI1'
  90. ENDIF
  91. RETURN
  92. C
  93. C Traitement des ERREURS
  94. C -----------------------------
  95. 99 CALL ERREUR(5)
  96. RETURN
  97. END
  98.  
  99.  
  100.  
  101.  
  102.  
  103.  
  104.  

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