SUBROUTINE UTEMP(TEMP,NSECPT,KSTEP,KINC,TIME,NODE,COORDS)
C
      INCLUDE 'ABA_PARAM.INC'
C
      DIMENSION TEMP(NSECPT),COORDS(3),TIME(2)
      IF(KSTEP.EQ.2) THEN
        TEMP(1)=2.*TEMP(1)
      ELSE
        TEMP(1)=0.
      ENDIF
      RETURN
      END
      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
      IF(KSTEP.EQ.2) THEN
        FIELD(1,1)=2.*FIELD(1,1)
      ELSE
        FIELD(1,1)=0.
      ENDIF
      RETURN
      END