SUBROUTINE UMATHT(U,DUDT,DUDG,FLUX,DFDT,DFDG,

     1 STATEV,TEMP,DTEMP,DTEMDX,TIME,DTIME,PREDEF,DPRED,

     2 CMNAME,NTGRD,NSTATV,PROPS,NPROPS,COORDS,PNEWDT,

     3 NOEL,NPT,LAYER,KSPT,KSTEP,KINC)

C

      INCLUDE 'ABA_PARAM.INC'

C

      CHARACTER*80 CMNAME

      DIMENSION DUDG(NTGRD),FLUX(NTGRD),DFDT(NTGRD),

     1 DFDG(NTGRD,NTGRD),STATEV(NSTATV),DTEMDX(NTGRD),

     2 TIME(2),PREDEF(1),DPRED(1),PROPS(NPROPS),COORDS(3)

C

      COND = PROPS(1)

C

      DO I=1, NTGRD

         DFDG(I,I) = -COND

      END DO

C

      RETURN

      END