Télécharger mat142.eso

Retour à la liste

Numérotation des lignes :

  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.  
  84.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales