Esope source files

   1 : C MAT142    SOURCE    AM        08/12/19    21:16:53     6237           
   2 :       SUBROUTINE MAT142(WR10,WRK91,INPLAS,IFOU,MFR)
   3 : C
   4 : C   pour les materiaux endommageables de Lemaitre dependant ou non de la
   5 : C   temperature T :
   6 : C   YOG   = tableau du module d'Young
   7 : C   YNU   = tableau du coefficient de Poisson
   8 : C   YALFA = tableau du coefficient de dilatation thermique
   9 : C   YRHO  = tableau de la masse volumique
  10 : C   YN, YM, YKK, YALF2, YBET2, YR, YA, YQ = tableaux des parametres non
  11 : C                                           lineaires du materiau 142
  12 : C   REMARQUE : si la dimension d'un tableau vaut 1, le parametre
  13 : C              correspondant est independant de T
  14 : C              sinon il contient T1 VAL1 T2 VAL2 ....
  15 : C 
  16 : C
  17 :       IMPLICIT INTEGER(I-N)
  18 :       IMPLICIT REAL*8(A-H,O-Z)
  19 :       SEGMENT WRK91
  20 :         REAL*8 YOG1(NYOG1),YNU1(NYNU1),YALFT1(NYALFT1),YSMAX1(NYSMAX1)
  21 :         REAL*8 YN1(NYN1),YM1(NYM1),YKK1(NYKK1),YALF2(NYALF2)
  22 :         REAL*8 YBET2(NYBET2),YR1(NYR1),YA1(NYA1),YQ1(NYQ1),YRHO1(NYRHO1)
  23 :         REAL*8 SIGY1(NSIGY1)
  24 :       ENDSEGMENT
  25 :       SEGMENT WR10
  26 :         INTEGER IABLO1(NTABO1)
  27 :         REAL*8  TABLO2(NTABO2)
  28 :       ENDSEGMENT
  29 : C
  30 : C
  31 : c      write(6,*) 'Entrée dans MAT142'
  32 :       DO 10 I=1,YOG1(/1)
  33 :  10   YOG1(I)=TABLO2(I)
  34 :       IORIG=YOG1(/1)
  35 :       DO 20 I=1,YNU1(/1)
  36 :  20   YNU1(I)=TABLO2(IORIG+I)
  37 :       IORIG=IORIG+YNU1(/1)
  38 :       DO 30 I=1,YALFT1(/1)
  39 :  30   YALFT1(I)=TABLO2(IORIG+I)
  40 :       IORIG=IORIG+YALFT1(/1)
  41 :       DO 40 I=1,YSMAX1(/1)
  42 :  40   YSMAX1(I)=TABLO2(IORIG+I)
  43 :       IORIG=IORIG+YSMAX1(/1)
  44 :       DO 50 I=1,YN1(/1)
  45 :  50   YN1(I)=TABLO2(IORIG+I)
  46 :       IORIG=IORIG+YN1(/1)
  47 :       DO 60 I=1,YM1(/1)
  48 :  60   YM1(I)=TABLO2(IORIG+I)
  49 :       IORIG=IORIG+YM1(/1)
  50 :       DO 70 I=1,YKK1(/1)
  51 :  70   YKK1(I)=TABLO2(IORIG+I)
  52 :       IORIG=IORIG+YKK1(/1)
  53 :       DO 80 I=1,YALF2(/1)
  54 :  80   YALF2(I)=TABLO2(IORIG+I)
  55 :       IORIG=IORIG+YALF2(/1)
  56 :       DO 90 I=1,YBET2(/1)
  57 :  90   YBET2(I)=TABLO2(IORIG+I)
  58 :       IORIG=IORIG+YBET2(/1)
  59 :       DO 100 I=1,YR1(/1)
  60 :  100   YR1(I)=TABLO2(IORIG+I)
  61 :       IORIG=IORIG+YR1(/1)
  62 :       DO 110 I=1,YA1(/1)
  63 :  110   YA1(I)=TABLO2(IORIG+I)
  64 :       IORIG=IORIG+YA1(/1)
  65 :       DO 120 I=1,YQ1(/1)
  66 :  120   YQ1(I)=TABLO2(IORIG+I)
  67 :       IORIG=IORIG+YQ1(/1)
  68 :       DO 130 I=1,YRHO1(/1)
  69 :  130   YRHO1(I)=TABLO2(IORIG+I)
  70 :       SIGY1(1)=0.D0
  71 : 
  72 :       RETURN
  73 :       END
  74 :  
  75 :  
  76 :  
  77 :  
  78 :  
  79 :  
  80 :  
  81 :  
  82 :  
  83 :