subroutine kfil_track_ftmonte(fttrk, ktrk, error)
*
* begin_doc
*
*  Load a FTMONTE track into the KN track list
*
*  Input Parameters:
*  fttrk     Integer variable
*            FTMONTE track number
*
*  Output Parameters:
*  ktrk      Integer variable
*            KN track number
*
*  error     integer variable
*            Error flag
*            = 0 ==> all OK
*            > 0 ==> error
*
*  Other routines:
*
*  Notes:
*
*  Author:   Paul R Avery      Created:  Mon Jul 28 04:55:29 EDT 1997
*
*  Major revisions:
*
*
* end_doc