Sources Esope | Cast3M

fhardct
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