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. -INC CCOPTIO
  14. C
  15. CHARACTER*16 MOMODL(100)
  16. CHARACTER*16 LESPRO(*)
  17. CHARACTER*4 LESTEF(*)
  18. C
  19. C NOMS DES MODELES DE CHARGEMENT
  20. C -------------------------------
  21. CALL MOCHAR(MOMODL,NMOD)
  22. DO 1 I=1,NMOD
  23. LESPRO(I)=MOMODL(I)
  24. 1 CONTINUE
  25. NBPRO=NMOD
  26. C
  27. IF(NBPRO.GT.N1MAX) GO TO 99
  28. C
  29. C NOMS DE TYPES D'ELEMENTS FINIS
  30. C ------------------------------
  31. C DIMENSION 1 :
  32. C ---------------
  33. IF (IDIM.EQ.1) THEN
  34. NBTEF=2
  35. IF (NBTEF.GT.N2MAX) GOTO 99
  36. LESTEF(1)='M1D2'
  37. LESTEF(2)='M1D3'
  38. C DIMENSION 2 :
  39. C ---------------
  40. C Les EF sont definis suivant la valeur de IFOUR
  41. ELSE IF (IDIM.EQ.2) THEN
  42. IF (IFOUR.EQ.0.OR.IFOUR.EQ.1) THEN
  43. NBTEF=6
  44. IF (NBTEF.GT.N2MAX) GOTO 99
  45. LESTEF(1)='TRI3'
  46. LESTEF(2)='TRI6'
  47. LESTEF(3)='QUA4'
  48. LESTEF(4)='QUA8'
  49. LESTEF(5)='COQ2'
  50. LESTEF(6)='BARR'
  51. ELSE
  52. NBTEF=9
  53. IF (NBTEF.GT.N2MAX) GOTO 99
  54. LESTEF(1)='TRI3'
  55. LESTEF(2)='TRI6'
  56. LESTEF(3)='QUA4'
  57. LESTEF(4)='QUA8'
  58. LESTEF(5)='COQ2'
  59. LESTEF(6)='BARR'
  60. LESTEF(7)='POI1'
  61. LESTEF(8)='TIMO'
  62. LESTEF(9)='POUT'
  63. ENDIF
  64. C DIMENSION 3 :
  65. C ---------------
  66. ELSE IF (IDIM.EQ.3) THEN
  67. NBTEF=19
  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)='COQ3'
  76. LESTEF( 8)='COQ4'
  77. LESTEF( 9)='COQ6'
  78. LESTEF(10)='COQ8'
  79. LESTEF(11)='DKT '
  80. LESTEF(12)='BARR'
  81. LESTEF(13)='POUT'
  82. LESTEF(14)='TUYA'
  83. LESTEF(15)='DST '
  84. LESTEF(16)='TUYO'
  85. LESTEF(17)='TIMO'
  86. LESTEF(18)='POI1'
  87. LESTEF(19)='JOI1'
  88. ENDIF
  89. RETURN
  90. C
  91. C Traitement des ERREURS
  92. C -----------------------------
  93. 99 CALL ERREUR(5)
  94. RETURN
  95. END
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102.  

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