subroutine kmove_wtk_arc(w_in, distance, w_out)
*
* begin_doc
*
*  Move a track by the specified distance. The current magnetic field is
*  used to transport the track.
*
*  Input Parameters:
*  w_in(10)       double precision array
*                 Input track parameters
*
*  distance       double precision variable
*                 Distance along track to move
*
*  Output Parameters:
*  w_out(10)      double precision array
*                 Output track parameters
*
*  Other routines:
*
*  Notes:
*
*  Author:   Paul Avery      Created:  Thu Aug 28 17:35:32 EDT 1997
*
*  Major revisions:
*
*
* end_doc