Télécharger la plaquette Cast3M


fr en

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