Télécharger la plaquette Cast3M


fr en

Télécharger cmisc2.eso

Retour à la liste

Numérotation des lignes : 

cmisc2

  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