subroutine kfil_track_create(ktrk)
*
* begin_doc
*
*  Create a new entry in the KWFIT track list. No information is stored.
*
*  Input Parameters:
*  None
*
*  Output Parameters:
*  IK       integer variable
*           KWFIT track number
*
*  Other routines:
*
*  Notes:
*
*  Author:   Paul R Avery      Created:  Sun Jul 27 11:28:38 EDT 1997
*
*  Major revisions:
*
*
* end_doc