C FHARDCT   SOURCE    AM        12/02/28    00:28:19     7289           
      FUNCTION fhardCT(rkappat,ft)

c     strain hardening in concrete in tension
c     in effective stress

c     ft                     tensile strength
c     fhard_concetc_t        strain hardening equivalent sress (in N/mē)
    
      IMPLICIT REAL*8 (A-B,D-H,O-Z)
      implicit integer (I-K,M,N)
      implicit logical (L)
      implicit character*10 (C)
      
      fhardct = ft


      RETURN
      END