Télécharger fibsta.eso

Retour à la liste

Numérotation des lignes :

fibsta
  1. C FIBSTA SOURCE CHAT 12/04/06 21:15:13 7348
  2. C
  3. SUBROUTINE FIBSTA(XMAT,DEPS,SIG0,VAR0,SIGF,VARF)
  4. IMPLICIT INTEGER(I-N)
  5. IMPLICIT REAL*8(A-H,O-Z)
  6. DIMENSION XMAT(25),DEPS(3),SIG0(3),VAR0(18),SIGF(3),VARF(18)
  7. C----------------------------------------------------------------------
  8. C
  9. C DRIVER POUR LE MODELE FIBRE
  10. C MODELE ANCRAGE AVEC ACIER_UNI
  11. C----------------------------------------------------------------------
  12. C Didier COMBESCURE - EMSI - MAI 2000
  13. C----------------------------------------------------------------------
  14. C
  15. C
  16. C XMAT( 1) YOUNG
  17. C XMAT( 2) NU
  18. C XMAT( 3) RHO
  19. C XMAT( 4) ALPHA
  20. C XMAT( 5) MAX. ELAST. STRESS
  21. C XMAT( 6) ULTIMATE STRESS
  22. C XMAT( 7) HARDENING STRAIN
  23. C XMAT( 8) ULTIMATE STRAIN
  24. C XMAT( 9) Ro FACTOR
  25. C XMAT(10) b FACTOR
  26. C XMAT(11) a1 FACTOR
  27. C XMAT(12) a2 FACTOR
  28. C XMAT(13) FACTOR L/D
  29. C XMAT(14) a6 FACTOR
  30. C XMAT(15) c FACTOR
  31. C XMAT(16) a FACTOR
  32. C XMAT(17) KS
  33. C XMAT(18) S1T
  34. C XMAT(19) S2T
  35. C XMAT(20) S3T
  36. C XMAT(21) T1T
  37. C XMAT(22) T3T
  38. C XMAT(23) ALFA
  39. C XMAT(24) LANC
  40. C XMAT(25) SECT
  41. C
  42. C SIG0 AND SIGF STRESS
  43. C DEPST,DEFP
  44. C
  45. C VAR0( 1) VARF( 1) FLAG
  46. C VAR0( 2) VARF( 2) EPSO
  47. C VAR0( 3) VARF( 3) R FACTOR
  48. C VAR0( 4) VARF( 4) TANGENT MODULUS
  49. C VAR0( 5) VARF( 5) LAST REV. STRAIN
  50. C VAR0( 6) VARF( 6) INTERSEPTION POINT
  51. C VAR0( 7) VARF( 7) MAX. REV. POST. STRAIN
  52. C VAR0( 8) VARF( 8) MIN. REV. POST. STRAIN
  53. C VAR0( 9) VARF( 9) LAST REV. STRESS
  54. C VAR0(10) VARF(10) INTERSEPTION POINT
  55. C VAR0(11) VARF(11) MAX. REV. POST. STRESS
  56. C VAR0(12) VARF(12) MIN. REV. POST. STRESS
  57. C VAR0(13) VARF(13) EPPP
  58. C VAR0(14) VARF(14) EPPM
  59. C VAR0(15) VARF(15) EPSOA
  60. C VAR0(16) VARF(16) KSTAN
  61. C VAR0(17) VARF(17) NITER
  62. C VAR0(18) VARF(18) XLAMBDA
  63. C
  64. C----------------------------------------------------------------------
  65. *
  66. C
  67. C
  68. XSIG0 = SIG0(1)
  69. DEPST = DEPS(1)
  70. XSECT = XMAT(25)
  71. GAMMA=XMAT(1)/2.D0/(XMAT(2)+1.D0)
  72. C
  73. C
  74. CALL ACIANC(XMAT,XSECT,DEPST,XSIG0,VAR0,XSIGF,VARF,DEFP)
  75. C
  76. SIGF(1) = XSIGF
  77. C
  78. SIGF(2) = SIG0(2) + GAMMA * DEPS(2)
  79. SIGF(3) = SIG0(3) + GAMMA * DEPS(3)
  80. C
  81. RETURN
  82. END
  83.  
  84.  
  85.  
  86.  
  87.  
  88.  

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