Télécharger comcri.eso

Retour à la liste

Numérotation des lignes :

  1. C COMCRI SOURCE BP208322 17/03/01 21:16:05 9325
  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. * temps -> 2
  21. * jluc = 2
  22. * mocomp = jnomid
  23. * lscont = jilnec
  24. * call COMCRE(iqmod,ipcon,indeso,mocomp,lscont,
  25. * & IPMINT,insupp,iwrk53,jluc,iretou)
  26. * caracteristiques materiau -> 13
  27. jluc = 13
  28. mocomp = liluc(jluc,1)
  29. lscont = liluc(jluc,2)
  30. call COMCRE(iqmod,ipcon,indeso,mocomp,lscont,
  31. & IPMINT,insupp,iwrk53,jluc,iretou)
  32. * caracteristiques geometriques -> 14
  33. jluc = 14
  34. mocomp = liluc(jluc,1)
  35. lscont = liluc(jluc,2)
  36. call COMCRE(iqmod,ipcon,indeso,mocomp,lscont,
  37. & IPMINT,insupp,iwrk53,jluc,iretou)
  38. * temperature -> 15
  39. * jluc = 15
  40. * mocomp = jnomid
  41. * lscont = jilnec
  42. * call COMCRE(iqmod,ipcon,indeso,mocomp,lscont,
  43. * & IPMINT,insupp,iwrk53,jluc,iretou)
  44. * -> 26 et + : Cas pouvant arriver ?
  45. IF(LILUC(/1).GT.25) THEN
  46. jluc = 26
  47. mocomp = liluc(jluc,1)
  48. lscont = liluc(jluc,2)
  49. call COMCRE(iqmod,ipcon,indeso,mocomp,lscont,
  50. & IPMINT,insupp,iwrk53,jluc,iretou)
  51. ENDIF
  52. *-------------------------------------------------
  53. if (FORMOD(1).EQ.'MECANIQUE'.OR.
  54. & FORMOD(1).EQ.'POREUX') then
  55.  
  56. * contraintes -> 11
  57. jluc = 11
  58. mocomp = liluc(jluc,1)
  59. lscont = liluc(jluc,2)
  60. call COMCRE(iqmod,ipcon,indeso,mocomp,lscont,
  61. & IPMINT,insupp,iwrk53,jluc,iretou)
  62. * deformations -> 12
  63. jluc = 12
  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. * variables internes -> 20
  69. jluc = 20
  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. * deformations inelastiques -> 24
  75. jluc = 24
  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. *--------------------------------------------
  81. ELSE if (formod(1).eq.'LIAISON') then
  82. jluc = 20
  83. mocomp = liluc(jluc,1)
  84. lscont = liluc(jluc,2)
  85. call COMCRE(iqmod,ipcon,indeso,mocomp,lscont,
  86. & IPMINT,insupp,iwrk53,jluc,iretou)
  87. *--------------------------------------------
  88. ELSE if (formod(1).eq.'MELANGE') then
  89. *--------------------------------------------
  90. ELSE if (formod(1).eq.'DIFFUSION') then
  91. * courant
  92. jluc = 11
  93. mocomp = liluc(jluc,1)
  94. lscont = liluc(jluc,2)
  95. call COMCRE(iqmod,ipcon,indeso,mocomp,lscont,
  96. & IPMINT,insupp,iwrk53,jluc,iretou)
  97. * gradient
  98. jluc = 12
  99. mocomp = liluc(jluc,1)
  100. lscont = liluc(jluc,2)
  101. call COMCRE(iqmod,ipcon,indeso,mocomp,lscont,
  102. & IPMINT,insupp,iwrk53,jluc,iretou)
  103. * force
  104. jluc = 7
  105. mocomp = liluc(jluc,1)
  106. lscont = liluc(jluc,2)
  107. call COMCRE(iqmod,ipcon,indeso,mocomp,lscont,
  108. & IPMINT,insupp,iwrk53,jluc,iretou)
  109.  
  110. jluc = 20
  111. mocomp = liluc(jluc,1)
  112. lscont = liluc(jluc,2)
  113. call COMCRE(iqmod,ipcon,indeso,mocomp,lscont,
  114. & IPMINT,insupp,iwrk53,jluc,iretou)
  115. *--------------------------------------------
  116. ELSE
  117. *--------------------------------------------
  118. endif
  119.  
  120. return
  121. END
  122.  
  123.  
  124.  
  125.  
  126.  
  127.  

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