      SUBROUTINE SETPRS(NT,NX,STEPDOWN,DT,DX,TRICK,VC,TAPER,NPAD,
     1SLOP,SLIP)
      INTEGER NT,NX,STEPDOWN,NPAD,SLOP,SLIP
      LOGICAL TAPER
      REAL DT,DX,TRICK,VC
      NT=1024-1
      NX=254    
      STEPDOWN=1
      NPAD=1   
      DT=0.004
      DX=10.0
      TRICK=.14
      VC=2000.0
      TAPER=.FALSE. 
      SLOP=0
      SLIP=0
      RETURN 
      END
