%N uvdim %F $MIR/src/subs/uvio.c
%D Number of channels.
%P rjs
%: uv-i/o
%B
FORTRAN call sequence:
        integer function uvdim(tno)
        integer tno

  Input:
    tno         Handle of the uv data set.
  Output:
    uvdim       Number of channels.                                     
