%N tablose %F $MIR/src/subs/tabio.c
%D Close up a table file.
%: image-i/o
%B
FORTRAN call sequence:
        subroutine tablose(tno)
        integer tno

  This closes a table file.

  Input:
    tno         The handle of the table file.                           
