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