SUBROUTINE DISP(U,KSTEP,KINC,TIME,NODE,NOEL,JDOF,COORDS)
C
      INCLUDE 'ABA_PARAM.INC'
C
      DIMENSION U(3),TIME(2),COORDS(3)
C
C THIS DEFINES A LINEAR FUNCTION CURVE BASED ON THE STEP TIME.
C THE VELOCITY WILL BE THIS FUNCTION MULTIPLIED BY THE VALUE OF THE
C MAGNITUDE OF U(1) COMING INTO USER SUB DISP. THE MAGNITUDES COMING 
C INTO THE USER SUB WILL BE THOSE THAT WOULD HAVE BEEN APPLIED FOR 
C DISPLACEMENTS IF THE USER SUB PARAMETER HAD NOT BEEN GIVEN. THIS MEANS  
C THE VALUE OF U(1) CAN VARY ACCORDING TO THE AMP PARAMETER ON THE *STEP 
C CARD OR VIA A *AMPLITUDE CURVE. IN THESE CASES THE COMBINATION OF THE 
C TWO FUNCTIONS WILL BE USED.
C                                                                    
      AMPVAL=U(1)
      U(1)=AMPVAL*TIME(1)*TIME(1)
      U(2)=AMPVAL*TIME(1)
      U(3)=AMPVAL
      RETURN
      END