C CMISC1    SOURCE    PV        17/12/08    21:16:08     9660           

      SUBROUTINE CMISC1 (WRK52,WRK53,
     .                   NPDILT,NPNBRE,NPCOHI,NPECOU,NPEDIR,
     .                   NPRVCE,NPECRX,NPDVDI,NPCROI,NPINCR)

C=======================================================================
C= Ce sous-programme est utilise par le modele MISTRAL (INPLAS=94).    =
C= Il est appele par coml7.eso et retrouve les dimensions des listes   =
C= de reels fournies dans l'operateur MATERIAU pour les 10 composantes =
C= non lineaires du modele.                                            =
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=
C=  Sorties :
C=  ---------
C=  NPDILT, NPNBRE, NPCOHI, NPECOU, NPEDIR, NPRVCE, NPECRX, NPDVDI,
C=  NPCROI, NPINCR = dimensions cherchees
C=======================================================================

      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)

-INC SMLREEL
-INC DECHE

      MLREEL=nint(xmat(NMATR-9))
      SEGACT MLREEL
      NPDILT=PROG(/1)
C      SEGDES MLREEL

      MLREEL=nint(xmat(NMATR-8))
      SEGACT MLREEL
      NPNBRE=PROG(/1)
C      SEGDES MLREEL

      MLREEL=nint(xmat(NMATR-7))
      SEGACT MLREEL
      NPCOHI=PROG(/1)
C      SEGDES MLREEL

      MLREEL=nint(xmat(NMATR-6))
      SEGACT MLREEL
      NPECOU=PROG(/1)
C      SEGDES MLREEL

      MLREEL=nint(xmat(NMATR-5))
      SEGACT MLREEL
      NPEDIR=PROG(/1)
C      SEGDES MLREEL

      MLREEL=nint(xmat(NMATR-4))
      SEGACT MLREEL
      NPRVCE=PROG(/1)
C      SEGDES MLREEL

      MLREEL=nint(xmat(NMATR-3))
      SEGACT MLREEL
      NPECRX=PROG(/1)
C      SEGDES MLREEL

      MLREEL=nint(xmat(NMATR-2))
      SEGACT MLREEL
      NPDVDI=PROG(/1)
C      SEGDES MLREEL

      MLREEL=nint(xmat(NMATR-1))
      SEGACT MLREEL
      NPCROI=PROG(/1)
C      SEGDES MLREEL

      MLREEL=nint(xmat(NMATR))
      SEGACT MLREEL
      NPINCR=PROG(/1)
C      SEGDES MLREEL

      RETURN
      END