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
      FIELD(1,1)=425.
      FIELD(3,1)=373.2
      FIELD(5,1)=336.8
      FIELD(NSECPT,1)=287.5
      DTL1O2=(FIELD(3,1)-FIELD(1,1))/2.
      DTL2O2=(FIELD(5,1)-FIELD(3,1))/2.
      DTL3O2=(FIELD(NSECPT,1)-FIELD(5,1))/2.
      FIELD(2,1)=FIELD(1,1)+DTL1O2
      FIELD(4,1)=FIELD(3,1)+DTL2O2
      FIELD(6,1)=FIELD(5,1)+DTL3O2
C
      RETURN
      END