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

  This closes an image file.

  Input:
    tno         The handle of the image file.                           
