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

          SUBROUTINE ONEFILECLOSE

 ONEFILECLOSE CLOSES A SINGLE FILE.

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

onefileclose_(

int *fn           /* FILE IDENTIFICATION NUMBER */

             )

{

 int s;

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

  s = fclose( fp[*fn] );

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

 }

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

}