SUBROUTINE UMOTION(U,KSTEP,KINC,TIME,NODE,JDOF)
      INCLUDE 'ABA_PARAM.INC'
      DIMENSION U(1), TIME(2)
      PARAMETER (ONE=1.0D0,TWO=2.0D0)
       IF(NODE.LE.8) THEN
        U(1)=-TWO*TIME(1)/(TIME(2)-ONE)
       ENDIF
      RETURN
      END