Esope source files

   1 : C MISCO1    SOURCE    PV        11/03/07    21:17:28     6885           
   2 :       SUBROUTINE MISCO1(WRK0,NMATR,NDIMCO,WR12,NPDILT,NPNBRE,NPCOHI,NPECOU,
   3 :      1    NPEDIR,NPRVCE,NPECRX,NPDVDI,NPCROI,NPINCR)
   4 : *********************************************************************************
   5 : *     ce sous-programme est utilisé par le modèle MISTRAL; il est appelé        *
   6 : *     par ecou25.eso et retrouve les dimensions des listes de réels fournies    *
   7 : *     dans l'opérateur MATERIAU pour les 10 composantes non linéaires du modèle *   
   8 : *********************************************************************************
   9 : * entrées:
  10 : *
  11 : * WRK0 =  pointeur sur le segment contenant le tableau XMAT qui contient, outre
  12 : *         les propriétés élastiques instanciées et quelques autres trucs, les pointeurs
  13 : *         sur les listes de réels représentant chacune une série de propriétés matérielles
  14 : *         non linéaires et correspondant chacune à une composante non linéaire du matériau
  15 : * NMATR = nombre de composantes matérielles obligatoires (linéaires & non linéaires)
  16 : *         du modèle MISTRAL;
  17 : * NDIMCO= 10 composantes obligatoires non linéaires
  18 : *  WR12 = pointeur sur le segment contenant le tableau IDIMCO des dimensions des listes de réels
  19 : *
  20 : * sorties:
  21 : *
  22 : * NPDILT, NPNBRE, NPCOHI, NPECOU, NPEDIR, NPRVCE, NPECRX, NPDVDI, NPCROI, NPINCR sont les dimensions cherchées
  23 : *******************************************************************************
  24 :       IMPLICIT INTEGER(I-N)
  25 :       IMPLICIT REAL*8(A-H,O-Z)
  26 : *
  27 : -INC SMLREEL
  28 : *
  29 :       SEGMENT WRK0
  30 :        REAL*8 XMAT(NCXMAT)
  31 :       ENDSEGMENT
  32 : *
  33 :       SEGMENT WR12
  34 :         INTEGER      IDIMCO(NDIMCO)
  35 :       ENDSEGMENT
  36 : *
  37 :       NLDEB=NMATR-9
  38 :       DO I=NLDEB,NMATR
  39 :         IPROG=nint(XMAT(I))
  40 :         MLREEL=IPROG
  41 :         SEGACT MLREEL
  42 :         IDIMCO(I-NLDEB+1)=PROG(/1)
  43 :         SEGDES MLREEL
  44 :       END DO
  45 : *
  46 :       NPDILT=IDIMCO(1)
  47 :       NPNBRE=IDIMCO(2)
  48 :       NPCOHI=IDIMCO(3)
  49 :       NPECOU=IDIMCO(4)
  50 :       NPEDIR=IDIMCO(5)
  51 :       NPRVCE=IDIMCO(6)
  52 :       NPECRX=IDIMCO(7)
  53 :       NPDVDI=IDIMCO(8)
  54 :       NPCROI=IDIMCO(9)
  55 :       NPINCR=IDIMCO(10)
  56 : 
  57 :       RETURN
  58 :       END
  59 :  
  60 :  
  61 :