SUBROUTINE UFIELD(FIELD,KFIELD,NSECPT,KSTEP,KINC,TIME,NODE, 1 COORDS,TEMP,DTEMP) INCLUDE 'ABA_PARAM.INC' DIMENSION FIELD(NSECPT),TIME(2),COORDS(3),TEMP(NSECPT), 1 DTEMP(NSECPT) KFIELD=1 FIELD(1)=COORDS(2) RETURN END