Télécharger cmisc2.eso

Retour à la liste

Numérotation des lignes :

  1. C CMISC2 SOURCE PV 17/12/08 21:16:09 9660
  2.  
  3. SUBROUTINE CMISC2 (WRK52,WRK53,
  4. . NPDILT,NPNBRE,NPCOHI,NPECOU,NPEDIR,
  5. . NPRVCE,NPECRX,NPDVDI,NPCROI,NPINCR,
  6. . WR13)
  7.  
  8. C=======================================================================
  9. C= Ce sous-programme est utilise par le modele MISTRAL (INPLAS=94). =
  10. C= Il est appele par coml7.eso et range dans des tableaux les valeurs =
  11. C= des composantes materielles non lineaires fournies sous forme de =
  12. C= listes de reels dans l'operateur MATERIAU. =
  13. C=======================================================================
  14. C= Entrees :
  15. C= ---------
  16. C= WRK52 = pointeur sur le segment ACTIF contenant le tableau XMAT qui
  17. C= contient, outre les proprietes elastiques instanciees et
  18. C= quelques autres trucs, les pointeurs sur les listes de reels
  19. C= representant chacune une serie de proprietes materielles
  20. C= non lineaires et correspondant chacune a une composante non
  21. C= lineaire du materiau
  22. C= NMATR = nombre de composantes materielles obligatoires du modele
  23. C= MISTRAL (composantes lineaires et non lineaires)
  24. C= variable contenue dans le segment WRK53 (ACTIF)
  25. C= NPDILT, NPNBRE, NPCOHI, NPECOU, NPEDIR, NPRVCE, NPECRX, NPDVDI,
  26. C= NPCROI, NPINCR = dimensions des tableaux a remplir (cf. CMISC1.eso)
  27. C=
  28. C= Sortie :
  29. C= --------
  30. C= WR13 = pointeur sur le segment ACTIF contenant les 10 tableaux que
  31. C= l'on cherche a remplir, chaque tableau contenant la serie de
  32. C= proprietes materielles
  33. C=======================================================================
  34.  
  35. IMPLICIT INTEGER(I-N)
  36. IMPLICIT REAL*8(A-H,O-Z)
  37.  
  38. -INC SMLREEL
  39. -INC DECHE
  40.  
  41. SEGMENT WR13
  42. REAL*8 PDILT(NPDILT),PNBRE(NPNBRE),PCOHI(NPCOHI),PECOU(NPECOU)
  43. REAL*8 PEDIR(NPEDIR),PRVCE(NPRVCE),PECRX(NPECRX),PDVDI(NPDVDI)
  44. REAL*8 PCROI(NPCROI),PINCR(NPINCR)
  45. ENDSEGMENT
  46.  
  47. C ===
  48. C 1 - Remplissage du tableau des coefficients de dilatation thermique
  49. C ===
  50. MLREEL=nint(XMAT(NMATR-9))
  51. SEGACT MLREEL
  52. DO J=1,NPDILT
  53. PDILT(J)=PROG(J)
  54. END DO
  55. C SEGDES MLREEL
  56. C ===
  57. C 2 - Remplissage du tableau relatif aux nombres de deformations inelastiques prises en compte
  58. C ===
  59. MLREEL=nint(XMAT(NMATR-8))
  60. SEGACT MLREEL
  61. DO J=1,NPNBRE
  62. PNBRE(J)=PROG(J)
  63. END DO
  64. C SEGDES MLREEL
  65. C ===
  66. C 3 - Remplissage du tableau des coefficients de Hill
  67. C ===
  68. MLREEL=nint(XMAT(NMATR-7))
  69. SEGACT MLREEL
  70. DO J=1,NPCOHI
  71. PCOHI(J)=PROG(J)
  72. END DO
  73. C SEGDES MLREEL
  74. C ===
  75. C 4 - Remplissage du tableau relatif a l'ecoulement viscoplastique
  76. C ===
  77. MLREEL=nint(XMAT(NMATR-6))
  78. SEGACT MLREEL
  79. DO J=1,NPECOU
  80. PECOU(J)=PROG(J)
  81. END DO
  82. C SEGDES MLREEL
  83. C ===
  84. C 5 - Remplissage du tableau realtif a la contrainte seuil
  85. C ===
  86. MLREEL=nint(XMAT(NMATR-5))
  87. SEGACT MLREEL
  88. DO J=1,NPEDIR
  89. PEDIR(J)=PROG(J)
  90. END DO
  91. C SEGDES MLREEL
  92. C ===
  93. C 6 - Remplissage du tableau relatif aux lois des deformations equivalentes
  94. C ===
  95. MLREEL=nint(XMAT(NMATR-4))
  96. SEGACT MLREEL
  97. DO J=1,NPRVCE
  98. PRVCE(J)=PROG(J)
  99. END DO
  100. C SEGDES MLREEL
  101. C ===
  102. C 7 - Remplissage du tableau relatif aux lois des contraintes internes
  103. C ===
  104. MLREEL=nint(XMAT(NMATR-3))
  105. SEGACT MLREEL
  106. DO J=1,NPECRX
  107. PECRX(J)=PROG(J)
  108. END DO
  109. C SEGDES MLREEL
  110. C ===
  111. C 8 - Remplissage du tableau relatif au durcissement sous irradiation
  112. C ===
  113. MLREEL=nint(XMAT(NMATR-2))
  114. SEGACT MLREEL
  115. DO J=1,NPDVDI
  116. PDVDI(J)=PROG(J)
  117. END DO
  118. C SEGDES MLREEL
  119. C ===
  120. C 9 - Remplissage du tableau relatif a la croissance
  121. C ===
  122. MLREEL=nint(XMAT(NMATR-1))
  123. SEGACT MLREEL
  124. DO J=1,NPCROI
  125. PCROI(J)=PROG(J)
  126. END DO
  127. C SEGDES MLREEL
  128. C ====
  129. C 10 - Remplissage du tableau des increments maximaux autorises
  130. C ====
  131. MLREEL=nint(XMAT(NMATR))
  132. SEGACT MLREEL
  133. DO J=1,NPINCR
  134. PINCR(J)=PROG(J)
  135. END DO
  136. C SEGDES MLREEL
  137.  
  138. RETURN
  139. END
  140.  
  141.  
  142.  
  143.  
  144.  
  145.  
  146.  
  147.  
  148.  
  149.  

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