%N uvdatwrd %F $MIR/src/subs/uvdat.for
%D Read wideband correlator data.
%P rjs
%: uv-i/o, uv-data, uv-selection
%B
        subroutine uvDatWRd(data,flags,n,nread)

        implicit none
        integer n,nread
        complex data(n)
        logical flags(n)

  This reads wideband data, and optionally applies the gain factor. It
  ignores end-of-file (uvDatRd should handle this).

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