/***************************************************************

            SUBROUTINE ZEROFTRACK

 ZEROFTRACK INITIALIZES FTRACK, THE FILE TRACKING ARRAY

****************************************************************/

zeroftrack_(

  int *iok           /* SET TO MAX NUMBER OF FILES */

          )

{

  int i;

  for ( i = 0; i < MAXFILE; i++ ) ftrack[i] = 0;

  *iok = MAXFILE;

}