Esope source files

   1 : C CMISC1    SOURCE    PV        11/03/07    21:15:33     6885           
   2 : 
   3 :       SUBROUTINE CMISC1 (WRK52,WRK53,
   4 :      .                   NPDILT,NPNBRE,NPCOHI,NPECOU,NPEDIR,
   5 :      .                   NPRVCE,NPECRX,NPDVDI,NPCROI,NPINCR)
   6 : 
   7 : C=======================================================================
   8 : C= Ce sous-programme est utilise par le modele MISTRAL (INPLAS=94).    =
   9 : C= Il est appele par coml7.eso et retrouve les dimensions des listes   =
  10 : C= de reels fournies dans l'operateur MATERIAU pour les 10 composantes =
  11 : C= non lineaires du modele.                                            =
  12 : C=======================================================================
  13 : C=  Entrees :
  14 : C=  ---------
  15 : C=  WRK52 = pointeur sur le segment ACTIF contenant le tableau XMAT qui
  16 : C=          contient, outre les proprietes elastiques instanciees et
  17 : C=          quelques autres trucs, les pointeurs sur les listes de reels
  18 : C=          representant chacune une serie de proprietes materielles
  19 : C=          non lineaires et correspondant chacune a une composante non
  20 : C=          lineaire du materiau
  21 : C=  NMATR = nombre de composantes materielles obligatoires du modele
  22 : C=          MISTRAL (composantes lineaires et non lineaires)
  23 : C=          variable contenue dans le segment WRK53 (ACTIF)
  24 : C=
  25 : C=  Sorties :
  26 : C=  ---------
  27 : C=  NPDILT, NPNBRE, NPCOHI, NPECOU, NPEDIR, NPRVCE, NPECRX, NPDVDI,
  28 : C=  NPCROI, NPINCR = dimensions cherchees
  29 : C=======================================================================
  30 : 
  31 :       IMPLICIT INTEGER(I-N)
  32 :       IMPLICIT REAL*8(A-H,O-Z)
  33 : 
  34 : -INC SMLREEL
  35 : -INC DECHE
  36 : 
  37 :       MLREEL=nint(xmat(NMATR-9))
  38 :       SEGACT MLREEL
  39 :       NPDILT=PROG(/1)
  40 :       SEGDES MLREEL
  41 : 
  42 :       MLREEL=nint(xmat(NMATR-8))
  43 :       SEGACT MLREEL
  44 :       NPNBRE=PROG(/1)
  45 :       SEGDES MLREEL
  46 : 
  47 :       MLREEL=nint(xmat(NMATR-7))
  48 :       SEGACT MLREEL
  49 :       NPCOHI=PROG(/1)
  50 :       SEGDES MLREEL
  51 : 
  52 :       MLREEL=nint(xmat(NMATR-6))
  53 :       SEGACT MLREEL
  54 :       NPECOU=PROG(/1)
  55 :       SEGDES MLREEL
  56 : 
  57 :       MLREEL=nint(xmat(NMATR-5))
  58 :       SEGACT MLREEL
  59 :       NPEDIR=PROG(/1)
  60 :       SEGDES MLREEL
  61 : 
  62 :       MLREEL=nint(xmat(NMATR-4))
  63 :       SEGACT MLREEL
  64 :       NPRVCE=PROG(/1)
  65 :       SEGDES MLREEL
  66 : 
  67 :       MLREEL=nint(xmat(NMATR-3))
  68 :       SEGACT MLREEL
  69 :       NPECRX=PROG(/1)
  70 :       SEGDES MLREEL
  71 : 
  72 :       MLREEL=nint(xmat(NMATR-2))
  73 :       SEGACT MLREEL
  74 :       NPDVDI=PROG(/1)
  75 :       SEGDES MLREEL
  76 : 
  77 :       MLREEL=nint(xmat(NMATR-1))
  78 :       SEGACT MLREEL
  79 :       NPCROI=PROG(/1)
  80 :       SEGDES MLREEL
  81 : 
  82 :       MLREEL=nint(xmat(NMATR))
  83 :       SEGACT MLREEL
  84 :       NPINCR=PROG(/1)
  85 :       SEGDES MLREEL
  86 : 
  87 :       RETURN
  88 :       END
  89 : 
  90 :  
  91 :  
  92 :  
  93 :