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

          SUBROUTINE ONEFILECLOSEFT

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

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

onefilecloseft_(

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);

}