Esope source files

   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
  70 :        CALL ACIANC(XMAT,XSECT,DEPST,XSIG0,VAR0,XSIGF,VARF,DEFP)   
  71 : C
  72 : C
  73 :        SIGF = XSECT*XSIGF
  74 : C
  75 : C
  76 :        RETURN
  77 :        END
  78 :  
  79 :  
  80 :  
  81 :  
  82 :