C CFBB      SOURCE    KICH      09/09/11    21:15:50     6505           
C CFBB      SOURCE    AM        05/06/17    21:15:01     5116           
      SUBROUTINE CFBB(WRK52,WRK53,WRK54,wrk27,IB,IGAU,NBPGAU,
     &                       IECOU,LEPLAS)
C
C______________________________________________________________________
C
C    MODELES FBB1 ET FBB2
C______________________________________________________________________
C
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
-INC CCOPTIO
-INC DECHE
*
      KERRE=0
      LESDEU = LEPLAS - 127
      NSTRS = SIG0(/1)
C
C
C     calcul de la matrice elastique
C
      CMATE = 'ISOTROPE'
      KCAS=2
      CALL DOHMAS(XMAT,CMATE,IFOUR,NSTRS,KCAS,DDHOOK,IRTD)
*
      IF ( IRTD .NE. 1) THEN
         print*,'erreur dans dohmas'
         KERRE=56
         RETURN
      ENDIF
C
C      calcul de l'increment de contrainte
C
      CALL MATVE1 (DDHOOK,DEPST,NSTRS,NSTRS,DSIGT,1)
C
C      ON CALCULE LES CONTRAINTES FINALES
C
      DO I=1,NSTRS
        SIGF(I) = SIG0(I) + DSIGT(I)
      ENDDO
C
      RETURN
      END