Esope source files

   1 : C BARLAB    SOURCE    CHAT      05/01/12    21:34:34     5004           
   2 : C          
   3 :       SUBROUTINE BARLAB(XMAT,XCAR,DEPST,SIG0,VAR0,SIGF,VARF,DEFP)
   4 :       IMPLICIT INTEGER(I-N)
   5 :       IMPLICIT REAL*8(A-H,O-Z)
   6 : 
   7 :       DIMENSION XMAT(13),VAR0(8),VARF(8)
   8 : C----------------------------------------------------------------------
   9 : C     Didier COMBESCURE
  10 : C     
  11 : C     DRIVER MODELE BETON UNILATERAL
  12 : C 
  13 : C----------------------------------------------------------------------
  14 : C
  15 : C
  16 : C----------------------------------------------------------------------
  17 : *
  18 : C
  19 :        XSECT = XCAR
  20 :        XSIG0 = SIG0/XSECT
  21 : C
  22 : C
  23 : C
  23 :        CALL LABORD(XMAT,DEPST,XSIG0,VAR0,XSIGF,VARF)   
  24 : C
  25 : C
  26 :        SIGF = XSECT*XSIGF
  27 : C
  28 : C
  29 :        RETURN
  30 :        END
  31 :  
  32 :  
  33 :  
  34 :