Télécharger comcri.eso

Retour à la liste

Numérotation des lignes :

  1. C COMCRI SOURCE CB215821 18/09/13 21:15:13 9917
  2.  
  3. SUBROUTINE COMCRI(iqmod,ipcon,IPMINT,indeso,ipil,
  4. & insupp,iwrk53,iretou)
  5. *
  6. * cree les melval produits par le modele
  7. * cree les deche associes
  8. * range dans les pilnec qui conviennent
  9. *----------------------------------------------------------------
  10. IMPLICIT INTEGER(I-N)
  11. IMPLICIT REAL*8(A-H,O-Z)
  12. -INC CCOPTIO
  13. -INC SMMODEL
  14. -INC SMCHAML
  15. -INC DECHE
  16.  
  17. imodel = iqmod
  18. liluc = ipil
  19.  
  20. if (formod(1).EQ.'METALLURGIE ') then
  21. * variables internes -> 20 (Proportions des phases)
  22. jluc = 20
  23. mocomp = liluc(jluc,1)
  24. lscont = liluc(jluc,2)
  25. call COMCRE(iqmod,ipcon,indeso,mocomp,lscont,
  26. & IPMINT,insupp,iwrk53,jluc,iretou)
  27. return
  28. endif
  29.  
  30.  
  31. * caracteristiques materiau -> 13
  32. jluc = 13
  33. mocomp = liluc(jluc,1)
  34. lscont = liluc(jluc,2)
  35. call COMCRE(iqmod,ipcon,indeso,mocomp,lscont,
  36. & IPMINT,insupp,iwrk53,jluc,iretou)
  37. * caracteristiques geometriques -> 14
  38. jluc = 14
  39. mocomp = liluc(jluc,1)
  40. lscont = liluc(jluc,2)
  41. call COMCRE(iqmod,ipcon,indeso,mocomp,lscont,
  42. & IPMINT,insupp,iwrk53,jluc,iretou)
  43.  
  44. * temperature -> 15
  45. * jluc = 15
  46. * mocomp = jnomid
  47. * lscont = jilnec
  48. * call COMCRE(iqmod,ipcon,indeso,mocomp,lscont,
  49. * & IPMINT,insupp,iwrk53,jluc,iretou)
  50. * -> 26 et + : Cas pouvant arriver ?
  51. IF(LILUC(/1).GT.25) THEN
  52. jluc = 26
  53. mocomp = liluc(jluc,1)
  54. lscont = liluc(jluc,2)
  55. call COMCRE(iqmod,ipcon,indeso,mocomp,lscont,
  56. & IPMINT,insupp,iwrk53,jluc,iretou)
  57. ENDIF
  58. *-------------------------------------------------
  59. if(FORMOD(1).EQ.'MECANIQUE ' .OR.
  60. & FORMOD(1).EQ.'POREUX ') then
  61.  
  62. * contraintes -> 11
  63. jluc = 11
  64. mocomp = liluc(jluc,1)
  65. lscont = liluc(jluc,2)
  66. call COMCRE(iqmod,ipcon,indeso,mocomp,lscont,
  67. & IPMINT,insupp,iwrk53,jluc,iretou)
  68. * deformations -> 12
  69. jluc = 12
  70. mocomp = liluc(jluc,1)
  71. lscont = liluc(jluc,2)
  72. call COMCRE(iqmod,ipcon,indeso,mocomp,lscont,
  73. & IPMINT,insupp,iwrk53,jluc,iretou)
  74. * variables internes -> 20
  75. jluc = 20
  76. mocomp = liluc(jluc,1)
  77. lscont = liluc(jluc,2)
  78. call COMCRE(iqmod,ipcon,indeso,mocomp,lscont,
  79. & IPMINT,insupp,iwrk53,jluc,iretou)
  80. * deformations inelastiques -> 24
  81. jluc = 24
  82. mocomp = liluc(jluc,1)
  83. lscont = liluc(jluc,2)
  84. call COMCRE(iqmod,ipcon,indeso,mocomp,lscont,
  85. & IPMINT,insupp,iwrk53,jluc,iretou)
  86. *--------------------------------------------
  87. ELSE if (formod(1).eq.'LIAISON ') then
  88. * variables internes -> 20
  89. jluc = 20
  90. mocomp = liluc(jluc,1)
  91. lscont = liluc(jluc,2)
  92. call COMCRE(iqmod,ipcon,indeso,mocomp,lscont,
  93. & IPMINT,insupp,iwrk53,jluc,iretou)
  94. *--------------------------------------------
  95. ELSE if (formod(1).eq.'MELANGE ') then
  96. *--------------------------------------------
  97. ELSE if (formod(1).eq.'DIFFUSION ') then
  98. * courant
  99. jluc = 11
  100. mocomp = liluc(jluc,1)
  101. lscont = liluc(jluc,2)
  102. call COMCRE(iqmod,ipcon,indeso,mocomp,lscont,
  103. & IPMINT,insupp,iwrk53,jluc,iretou)
  104. * gradient
  105. jluc = 12
  106. mocomp = liluc(jluc,1)
  107. lscont = liluc(jluc,2)
  108. call COMCRE(iqmod,ipcon,indeso,mocomp,lscont,
  109. & IPMINT,insupp,iwrk53,jluc,iretou)
  110. * force
  111. jluc = 7
  112. mocomp = liluc(jluc,1)
  113. lscont = liluc(jluc,2)
  114. call COMCRE(iqmod,ipcon,indeso,mocomp,lscont,
  115. & IPMINT,insupp,iwrk53,jluc,iretou)
  116.  
  117. * variables internes -> 20
  118. jluc = 20
  119. mocomp = liluc(jluc,1)
  120. lscont = liluc(jluc,2)
  121. call COMCRE(iqmod,ipcon,indeso,mocomp,lscont,
  122. & IPMINT,insupp,iwrk53,jluc,iretou)
  123. *--------------------------------------------
  124. ENDIF
  125. *--------------------------------------------
  126.  
  127. return
  128. END
  129.  
  130.  
  131.  

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