%N uvdatrd %F $MIR/src/subs/uvdat.for
%D Read uv data from a multi-file set.
%P rjs
%: uv-i/o, uv-data, uv-selection
%B
        subroutine uvDatRd(preamble,data,flags,n,nread)

        implicit none
        integer n,nread
        double precision preamble(*)
        complex data(n)
        logical flags(n)

  This opens the uv data files, performs the various uvset and uvselect
  calls, and the uvclose calls, as well (of course) as the uvread call.

  Input:
    n          The size of the data and flags arrays.
  Outputs:
    preamble   The uvread preamble.
    data       The uvread correlation data.
    flags      The uvread flags data.
    data       The correlation data.
    nread      The number of channels read.
