Télécharger barsta.eso

Retour à la liste

Numérotation des lignes :

  1. C BARSTA SOURCE CHAT 05/01/12 21:35:22 5004
  2. C
  3. SUBROUTINE BARSTA(XMAT,XCAR,DEPST,SIG0,VAR0,SIGF,VARF,DEFP)
  4. IMPLICIT INTEGER(I-N)
  5. IMPLICIT REAL*8(A-H,O-Z)
  6.  
  7. DIMENSION XMAT(24),VAR0(18),VARF(18)
  8. C----------------------------------------------------------------------
  9. C Didier COMBESCURE
  10. C
  11. C DRIVER MODELE D'ANCRAGE POUR LES ELEMENTS DE BARRE
  12. C AVEC LA LOI ACIER_UNI ET ELIGEHAUSEN
  13. C D'APRES BARSTE et FIBSTE
  14. C
  15. C----------------------------------------------------------------------
  16. C
  17. C XMAT( 1) YOUNG
  18. C XMAT( 2) NU
  19. C XMAT( 3) RHO
  20. C XMAT( 4) ALPHA
  21. C XMAT( 5) MAX. ELAST. STRESS
  22. C XMAT( 6) ULTIMATE STRESS
  23. C XMAT( 7) HARDENING STRAIN
  24. C XMAT( 8) ULTIMATE STRAIN
  25. C XMAT( 9) Ro FACTOR
  26. C XMAT(10) b FACTOR
  27. C XMAT(11) a1 FACTOR
  28. C XMAT(12) a2 FACTOR
  29. C XMAT(13) FACTOR L/D
  30. C XMAT(14) a6 FACTOR
  31. C XMAT(15) c FACTOR
  32. C XMAT(16) a FACTOR
  33. C XMAT(17) KS
  34. C XMAT(18) S1T
  35. C XMAT(19) S2T
  36. C XMAT(20) S3T
  37. C XMAT(21) T1T
  38. C XMAT(22) T3T
  39. C XMAT(23) ALFA
  40. C XMAT(24) LANC
  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. XSECT = XCAR
  68. XSIG0 = SIG0/XSECT
  69. C
  70. C
  71. CALL ACIANC(XMAT,XSECT,DEPST,XSIG0,VAR0,XSIGF,VARF,DEFP)
  72. C
  73. C
  74. SIGF = XSECT*XSIGF
  75. C
  76. C
  77. RETURN
  78. END
  79.  
  80.  
  81.  
  82.  
  83.  
  84.  

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