%N uvwrite %F $MIR/src/subs/uvio.c
%D Write correlation data to a uv file.
%P rjs
%: uv-i/o
%B
FORTRAN call sequence:
        subroutine uvwrite(tno,preamble,data,flags,n)
        integer tno,n
        double precision preamble(*)
        complex data(n)
        logical flags(n)

  Write a visibility record to the data file.  Please note uvwrite()
  closes the record. Any wideband data should have been written with
  uvwwrite() before this call.
  Input:
    tno         Handle of the uv data set.
    n           Number of channels to be written.
    preamble    A double array of 4 elements giving u,v, time and
                baseline number (in that order).
    data        A complex array of n elements containing
                the correlation data.
    flags       Logical array of n elements. A true value for
                a channel indicates good data.                          
