C FIBPAA    SOURCE    CHAT      12/04/06    21:15:12     7348
C FIBPAR    SOURCE    DC        98/08/31    21:16:01     3283
C FIBFRA    SOURCE    DC        98/01/26
      SUBROUTINE FIBPAA(XMAT,DEPS,SIG0,VAR0,SIGF,VARF)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
      DIMENSION XMAT(15),DEPS(3),SIG0(3),VAR0(8),SIGF(3),VARF(8)
C----------------------------------------------------------------------
C
C      DRIVER POUR LE MODELE A FIBRE
C      MODELE ANCRAGE AVEC ACIER PARFAIT
C----------------------------------------------------------------------
C     Didier COMBESCURE - EMSI - MAI 2000
C----------------------------------------------------------------------
C
C      XMAT( 1) YOUNG
C      XMAT( 2) NU
C      XMAT( 3) RHO
C      XMAT( 4) ALPHA
C      XMAT( 5) FY
C      XMAT( 6) HH
C      XMAT( 7) KS
C      XMAT( 8) S1T
C      XMAT( 9) S2T
C      XMAT(10) S3T
C      XMAT(11) T1T
C      XMAT(12) T3T
C      XMAT(13) ALFA
C      XMAT(14) LANC
C      XMAT(15) SECT
C
C      DEPS(1) EPXX    SIG0(1) SIGF(1) SMXX
C      DEPS(2) GAXY    SIG0(2) SIGF(2) SMXY
C      DEPS(3) GAXZ    SIG0(3) SIGF(3) SMXZ
C
C                      VAR0(1) VARF(1) EPSE DEFORMATION PLASTIQUE
C                      VAR0( 3) VARF( 3) EPPP
C                      VAR0( 4) VARF( 4) EPPM
C                      VAR0( 5) VARF( 5) EPSOA
C                      VAR0( 6) VARF( 6) KSTAN
C                      VAR0( 7) VARF( 7) NITER
C                      VAR0( 8) VARF( 8) XLAMBDA

C
C----------------------------------------------------------------------
C
C
       XSIG0 = SIG0(1)
       DEPST = DEPS(1)
       XSECT = XMAT(15)
       GAMMA=XMAT(1)/2.D0/(XMAT(2)+1.D0)
C
       CALL PARANC(XMAT,XSECT,DEPST,XSIG0,VAR0,XSIGF,VARF,DEFP)
C
C
       SIGF(1) = XSIGF
C
       SIGF(2) = SIG0(2) + GAMMA   * DEPS(2)
       SIGF(3) = SIG0(3) + GAMMA   * DEPS(3)
C
       RETURN
       END