subroutine kfil_track_pi0_all(lcovar, num_klist, klist, error) * * begin_doc * * Load all PI0 tracks and errors into KWFIT track list * * Input Parameters: * lcovar Logical variable * TRUE ==> Calculate error matrix * FALSE ==> Do not calculate error matrix * * Output Parameters: * num_klist integer variable * Number of KWFIT tracks returned in klist. * * klist(*) integer array * List of KWFIT track numbers. This list must be declared * by the caller to be of sufficient size to hold all the * tracks. * * error integer variable * Error flag * = 0 ==> all OK * > 0 ==> error * * Other routines: * * Notes: * * Author: Paul R Avery Created: Mon Jul 28 04:28:10 EDT 1997 * * Major revisions: * * * end_doc