C CFBB      SOURCE    OF166741  25/11/04    21:15:15     12349          

      SUBROUTINE CFBB(WRK52,WRK53,WRK54,wrk27,IB,IGAU,NBPGAU)

C______________________________________________________________________
C
C    MODELES FBB1 ET FBB2
C______________________________________________________________________

      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)

-INC PPARAM
-INC CCOPTIO
-INC DECHE

      KERRE=0
      NSTRS = SIG0(/1)
C
C     calcul de la matrice elastique
C
      wrk53.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