%N uvclose %F $MIR/src/subs/uvio.c
%D Close a uv file
%P rjs
%: uv-i/o
%B
FORTRAN call sequence:
        subroutine uvclose(tno)
        integer tno

  This close a uv data file.
  Input:
    tno         Handle of the uv data set.                              
