Esope source files

   1 : C BARPAA    SOURCE    CHAT      05/01/12    21:34:50     5004           
   2 : C          
   3 :       SUBROUTINE BARPAA(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(14),VAR0(8),VARF(8)
   8 : C----------------------------------------------------------------------
   9 : C
  10 : C     DRIVER DU MODELE D'ANCRAGE POUR DES ELEMENTS DE BARRE 
  11 : C     LE MODELE ACIER PLASTIQUE PARFAIT
  12 : C     LOI D'ADHERENCE ACIER-BETON D'ELIGEHAUSEN
  13 : C     D'APRES BARPAR et ELIGEH
  14 : C----------------------------------------------------------------------
  15 : C     Didier COMBESCURE - EMSI - MAI 2000 
  16 : C----------------------------------------------------------------------
  17 : C
  18 : C      XMAT( 1) YOUNG
  19 : C      XMAT( 2) NU
  20 : C      XMAT( 3) RHO
  21 : C      XMAT( 4) ALPHA
  22 : C      XMAT( 5) FY
  23 : C      XMAT( 6) HH
  24 : C   
  25 : C      XMAT( 7) KS
  26 : C      XMAT( 8) S1T
  27 : C      XMAT( 9) S2T 
  28 : C      XMAT(10) S3T
  29 : C      XMAT(11) T1T 
  30 : C      XMAT(12) T3T
  31 : C      XMAT(13) ALFA 
  32 : C      XMAT(14) LANC
  33 : C  
  34 : C
  35 : C      SIGF STRESS
  36 : C      DEPST,DEFP
  37 : C                    
  38 : C      VAR0( 1) VARF( 1) EPSE DEFORMATION PLASTIQUE
  39 : C      VAR0( 3) VARF( 3) EPPP
  40 : C      VAR0( 4) VARF( 4) EPPM
  41 : C      VAR0( 5) VARF( 5) EPSOA
  42 : C      VAR0( 6) VARF( 6) KSTAN
  43 : C      VAR0( 7) VARF( 7) NITER
  44 : C      VAR0( 8) VARF( 8) XLAMBDA
  45 : C
  46 : C----------------------------------------------------------------------
  47 : C 
  48 : C
  49 :        XSECT = XCAR
  50 :        XSIG0 = SIG0/XSECT
  51 : C
  52 : C
  52 :        CALL PARANC(XMAT,XSECT,DEPST,XSIG0,VAR0,XSIGF,VARF,DEFP)   
  53 : C
  54 : C
  55 :        SIGF = XSECT*XSIGF
  56 : C
  57 : C
  58 :        RETURN
  59 :        END
  60 :  
  61 :  
  62 :  
  63 :  
  64 :