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