Esope source files

   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
  73 :        CALL ACIANC(XMAT,XSECT,DEPST,XSIG0,VAR0,XSIGF,VARF,DEFP)   
  74 : C
  75 :        SIGF(1) = XSIGF
  76 : C
  77 :        SIGF(2) = SIG0(2) + GAMMA   * DEPS(2)
  78 :        SIGF(3) = SIG0(3) + GAMMA   * DEPS(3)
  79 : C
  80 :        RETURN
  81 :        END
  82 :  
  83 :  
  84 :  
  85 :  
  86 :