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

          SUBROUTINE ONEFILECLOSEFTS

 ONEFILECLOSE CLOSES A SINGLE FILE.
 THIS VERSION RESETS THE TRACKING TO 0 FOR REUSE,
 INSTEAD OF -1, FOR NO REUSE
 THIS VERSION IS SILENT

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

onefileclosefts_(

int *fn           /* FILE IDENTIFICATION NUMBER */

             )

{

 int s;

 if ( ftrack[*fn] == 1 ) {

  s = fclose( fp[*fn] );

/*  printf("%d was closed \n ",*fn); */
  ftrack[*fn] = 0;

 }

 else printf("attempt to close unopened file: %d\n",*fn);

}