SUBROUTINE UTEMP(TEMP,NSECPT,KSTEP,KINC,TIME,NODE,COORDS)
C
      INCLUDE 'ABA_PARAM.INC'
C
      DIMENSION TEMP(NSECPT),COORDS(3),TIME(2)
C
      TEMP(1)=425.
      TEMP(3)=373.2
      TEMP(5)=336.8
      TEMP(NSECPT)=287.5
      DTL1O2=(TEMP(3)-TEMP(1))/2.
      DTL2O2=(TEMP(5)-TEMP(3))/2.
      DTL3O2=(TEMP(NSECPT)-TEMP(5))/2.
      TEMP(2)=TEMP(1)+DTL1O2
      TEMP(4)=TEMP(3)+DTL2O2
      TEMP(6)=TEMP(5)+DTL3O2
C
      RETURN
      END