Esope source files

   1 : C CMISC2    SOURCE    PV        11/03/07    21:15:34     6885           
   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 :       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 :       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 :       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 :       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 :       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 :       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 :       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 :       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 :       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 :       SEGDES MLREEL
 137 : 
 138 :       RETURN
 139 :       END
 140 : 
 141 :  
 142 :  
 143 :  
 144 :