Sources Esope | Cast3M

dfhardct
C DFHARDCT  SOURCE    AM        12/02/27    23:39:36     7289
      FUNCTION dfhardCT(rkappait)
 
c     This subroutine calculates the derivative of the tensile
c     hardening function with respect to rkappait
 
      IMPLICIT REAL*8 (A-B,D-H,O-Z)
 
      dfhardct = 0. * rkappait
 
      RETURN
      END