SUBROUTINE UTEMP(TEMP,NSECPT,KSTEP,KINC,TIME,NODE,COORDS)
      INCLUDE 'ABA_PARAM.INC'
      DIMENSION TEMP(NSECPT),TIME(2),COORDS(3)
      TEMP(1) = DSQRT(COORDS(1)**2.D0+COORDS(2)**2.D0)+COORDS(3)
      RETURN
      END