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