Télécharger cmaxtb.eso

Retour à la liste

Numérotation des lignes :

  1. C CMAXTB SOURCE BP208322 17/03/01 21:15:47 9325
  2. SUBROUTINE CMAXTB(WRK52,WRK53,WRK54,WR12,NWA,NCHAIN)
  3. C MAXTRB SOURCE AM 00/12/13 21:38:55 4045
  4. * SUBROUTINE MAXTRB(WTRAV,WRK1,WRK5,WR12,NWA,NSTRS,NCHAIN,CMATE)
  5. *
  6. * MODELE DE MAXWELL : RECUPERATION DES VARIABLES INTERNES
  7. * APRES ECOULEMENT
  8. *
  9. IMPLICIT INTEGER(I-N)
  10. IMPLICIT REAL*8(A-H,O-Z)
  11. *
  12. -INC CCOPTIO
  13. -INC SMEVOLL
  14. -INC SMLREEL
  15. -INC CCHAMP
  16. -INC DECHE
  17. *
  18. *
  19. SEGMENT WR12
  20. REAL*8 EM0(2,NWA(1)),EM1(2,NWA(2)),EM2(2,NWA(3))
  21. REAL*8 EM3(2,NWA(4)),EM4(2,NWA(5)),EM5(2,NWA(6))
  22. REAL*8 EM6(2,NWA(7)),EM7(2,NWA(8)),EM8(2,NWA(9))
  23. REAL*8 SM0(NSTRS),SM1(NSTRS),SM2(NSTRS),SM3(NSTRS)
  24. REAL*8 SM4(NSTRS),SM5(NSTRS),SM6(NSTRS),SM7(NSTRS)
  25. REAL*8 SM8(NSTRS)
  26. ENDSEGMENT
  27. *
  28.  
  29. DIMENSION NWA(9)
  30.  
  31. *
  32. * ON SE REMET DANS LES BONS AXES SI BESOIN
  33. *
  34. *
  35. ******* CAS D'UNE FORMULATION UNIDIRECTIONNELLE
  36. *
  37. IF(CMATE.EQ.'UNIDIREC') THEN
  38. ICAS=2
  39. CALL CMAXR2(wrk52,wrk53,wrk54,ICAS,WR12,NCHAIN)
  40. IF(IERR.NE.0) RETURN
  41. ENDIF
  42.  
  43. *
  44. * ON CREE LES PROGS ASSOCIES AUX VARIABLES INTERNES
  45. *
  46. DO JC=1,NCHAIN
  47. * zzzzzzzz il faudra modifier le test sur var0
  48.  
  49.  
  50. JG=NSTRS
  51. SEGINI MLREEL
  52. VARF(JC+1)=DBLE(MLREEL)
  53. IF(JC.EQ.1) THEN
  54. DO JD=1,NSTRS
  55. PROG(JD)=SM0(JD)
  56. END DO
  57. ELSE IF(JC.EQ.2) THEN
  58. DO JD=1,NSTRS
  59. PROG(JD)=SM1(JD)
  60. END DO
  61. ELSE IF(JC.EQ.3) THEN
  62. DO JD=1,NSTRS
  63. PROG(JD)=SM2(JD)
  64. END DO
  65. ELSE IF(JC.EQ.4) THEN
  66. DO JD=1,NSTRS
  67. PROG(JD)=SM3(JD)
  68. END DO
  69. ELSE IF(JC.EQ.5) THEN
  70. DO JD=1,NSTRS
  71. PROG(JD)=SM4(JD)
  72. END DO
  73. ELSE IF(JC.EQ.6) THEN
  74. DO JD=1,NSTRS
  75. PROG(JD)=SM5(JD)
  76. END DO
  77. ELSE IF(JC.EQ.7) THEN
  78. DO JD=1,NSTRS
  79. PROG(JD)=SM6(JD)
  80. END DO
  81. ELSE IF(JC.EQ.8) THEN
  82. DO JD=1,NSTRS
  83. PROG(JD)=SM7(JD)
  84. END DO
  85. ELSE IF(JC.EQ.9) THEN
  86. DO JD=1,NSTRS
  87. PROG(JD)=SM8(JD)
  88. END DO
  89. ENDIF
  90. SEGDES MLREEL
  91.  
  92. END DO
  93. DO JC=NCHAIN+1,9
  94. JG=0
  95. SEGINI MLREEL
  96. VARF(JC+1)=DBLE(MLREEL)
  97. SEGDES MLREEL
  98. END DO
  99. *
  100. RETURN
  101. END
  102.  
  103.  
  104.  
  105.  
  106.  
  107.  
  108.  
  109.  
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.  
  127.  
  128.  
  129.  
  130.  
  131.  

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