SUBROUTINE UFIELD(FIELD,KFIELD,NSECPT,KSTEP,KINC,TIME,NODE,COORDS,
     1                  TEMP,DTEMP,NFIELD)
C
      INCLUDE 'ABA_PARAM.INC'
C
      DIMENSION FIELD(NSECPT,NFIELD),COORDS(3),TIME(2),TEMP(NSECPT),
     1          DTEMP(NSECPT)
C
      PARAMETER( FIVEH=500.0D0 )
      IF(TEMP(1).GT.FIVEH)THEN
        FIELD(1,1)=100.0*TIME(1)
      ELSE
        FIELD(1,1)= DTEMP(1)*TIME(1)
      END IF
      RETURN
      END