C CMISC2 SOURCE PV 17/12/08 21:16:09 9660 SUBROUTINE CMISC2 (WRK52,WRK53, . NPDILT,NPNBRE,NPCOHI,NPECOU,NPEDIR, . NPRVCE,NPECRX,NPDVDI,NPCROI,NPINCR, . WR13) C======================================================================= C= Ce sous-programme est utilise par le modele MISTRAL (INPLAS=94). = C= Il est appele par coml7.eso et range dans des tableaux les valeurs = C= des composantes materielles non lineaires fournies sous forme de = C= listes de reels dans l'operateur MATERIAU. = C======================================================================= C= Entrees : C= --------- C= WRK52 = pointeur sur le segment ACTIF contenant le tableau XMAT qui C= contient, outre les proprietes elastiques instanciees et C= quelques autres trucs, les pointeurs sur les listes de reels C= representant chacune une serie de proprietes materielles C= non lineaires et correspondant chacune a une composante non C= lineaire du materiau C= NMATR = nombre de composantes materielles obligatoires du modele C= MISTRAL (composantes lineaires et non lineaires) C= variable contenue dans le segment WRK53 (ACTIF) C= NPDILT, NPNBRE, NPCOHI, NPECOU, NPEDIR, NPRVCE, NPECRX, NPDVDI, C= NPCROI, NPINCR = dimensions des tableaux a remplir (cf. CMISC1.eso) C= C= Sortie : C= -------- C= WR13 = pointeur sur le segment ACTIF contenant les 10 tableaux que C= l'on cherche a remplir, chaque tableau contenant la serie de C= proprietes materielles C======================================================================= IMPLICIT INTEGER(I-N) IMPLICIT REAL*8(A-H,O-Z) -INC SMLREEL -INC DECHE SEGMENT WR13 REAL*8 PDILT(NPDILT),PNBRE(NPNBRE),PCOHI(NPCOHI),PECOU(NPECOU) REAL*8 PEDIR(NPEDIR),PRVCE(NPRVCE),PECRX(NPECRX),PDVDI(NPDVDI) REAL*8 PCROI(NPCROI),PINCR(NPINCR) ENDSEGMENT C === C 1 - Remplissage du tableau des coefficients de dilatation thermique C === MLREEL=nint(XMAT(NMATR-9)) SEGACT MLREEL DO J=1,NPDILT PDILT(J)=PROG(J) END DO C SEGDES MLREEL C === C 2 - Remplissage du tableau relatif aux nombres de deformations inelastiques prises en compte C === MLREEL=nint(XMAT(NMATR-8)) SEGACT MLREEL DO J=1,NPNBRE PNBRE(J)=PROG(J) END DO C SEGDES MLREEL C === C 3 - Remplissage du tableau des coefficients de Hill C === MLREEL=nint(XMAT(NMATR-7)) SEGACT MLREEL DO J=1,NPCOHI PCOHI(J)=PROG(J) END DO C SEGDES MLREEL C === C 4 - Remplissage du tableau relatif a l'ecoulement viscoplastique C === MLREEL=nint(XMAT(NMATR-6)) SEGACT MLREEL DO J=1,NPECOU PECOU(J)=PROG(J) END DO C SEGDES MLREEL C === C 5 - Remplissage du tableau realtif a la contrainte seuil C === MLREEL=nint(XMAT(NMATR-5)) SEGACT MLREEL DO J=1,NPEDIR PEDIR(J)=PROG(J) END DO C SEGDES MLREEL C === C 6 - Remplissage du tableau relatif aux lois des deformations equivalentes C === MLREEL=nint(XMAT(NMATR-4)) SEGACT MLREEL DO J=1,NPRVCE PRVCE(J)=PROG(J) END DO C SEGDES MLREEL C === C 7 - Remplissage du tableau relatif aux lois des contraintes internes C === MLREEL=nint(XMAT(NMATR-3)) SEGACT MLREEL DO J=1,NPECRX PECRX(J)=PROG(J) END DO C SEGDES MLREEL C === C 8 - Remplissage du tableau relatif au durcissement sous irradiation C === MLREEL=nint(XMAT(NMATR-2)) SEGACT MLREEL DO J=1,NPDVDI PDVDI(J)=PROG(J) END DO C SEGDES MLREEL C === C 9 - Remplissage du tableau relatif a la croissance C === MLREEL=nint(XMAT(NMATR-1)) SEGACT MLREEL DO J=1,NPCROI PCROI(J)=PROG(J) END DO C SEGDES MLREEL C ==== C 10 - Remplissage du tableau des increments maximaux autorises C ==== MLREEL=nint(XMAT(NMATR)) SEGACT MLREEL DO J=1,NPINCR PINCR(J)=PROG(J) END DO C SEGDES MLREEL RETURN END