C BARLAB    SOURCE    CHAT      05/01/12    21:34:34     5004           
C          
      SUBROUTINE BARLAB(XMAT,XCAR,DEPST,SIG0,VAR0,SIGF,VARF,DEFP)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)

      DIMENSION XMAT(13),VAR0(8),VARF(8)
C----------------------------------------------------------------------
C     Didier COMBESCURE
C     
C     DRIVER MODELE BETON UNILATERAL
C 
C----------------------------------------------------------------------
C
C
C----------------------------------------------------------------------
*
C
       XSECT = XCAR
       XSIG0 = SIG0/XSECT
C
C
C
       CALL LABORD(XMAT,DEPST,XSIG0,VAR0,XSIGF,VARF)   
C
C
       SIGF = XSECT*XSIGF
C
C
       RETURN
       END