Télécharger la plaquette Cast3M


fr en

Télécharger barsta.eso

Retour à la liste

Numérotation des lignes : 

barsta

  1. C BARSTA    SOURCE    PV        18/06/20    21:15:04     9860           
  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(*),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.  
  85.  

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