SUBROUTINE DISP(U,KSTEP,KINC,TIME,NODE,NOEL,JDOF,COORDS)
C
      INCLUDE 'ABA_PARAM.INC'
C
      DIMENSION U(3),TIME(2),COORDS(3)

      IF (JDOF.EQ.9 .OR. JDOF.EQ.11) THEN
         D = MOD(COORDS(1),10.D0)
         D = sqrt(D*D + COORDS(2)*COORDS(2) +COORDS(3)*COORDS(3))
         U(1) = D*TIME(1) + 10.d0
         U(2) = D
         U(3) = 0.D0
      END IF

      RETURN
      END