Esope source files

   1 : C FHARDCT   SOURCE    AM        12/02/28    00:28:19     7289           
   2 :       FUNCTION fhardCT(rkappat,ft)
   3 : 
   4 : c     strain hardening in concrete in tension
   5 : c     in effective stress
   6 : 
   7 : c     ft                     tensile strength
   8 : c     fhard_concetc_t        strain hardening equivalent sress (in N/m²)
   9 :     
  10 :       IMPLICIT REAL*8 (A-B,D-H,O-Z)
  11 :       implicit integer (I-K,M,N)
  12 :       implicit logical (L)
  13 :       implicit character*10 (C)
  14 :       
  15 :       fhardct = ft
  16 : 
  17 : 
  18 :       RETURN
  19 :       END
  20 : 
  21 : 
  22 :