%N fuvread %F $MIR/src/subs/fitsio.for
%D Read visibility data from UV FITS file.
%P rjs
%: fits
%B
      subroutine fuvread(lu,visdat,number,count)

      integer lu,number,count
      real visdat(*)
  ---------------------------------------------------------------------
  Read some uv data.
  The loops in this subroutine feel unusual because are inside out,
  so that vectorization can be increased.

  Inputs:
    lu         Logical unit of file.
    number     Number of the first visibility to read.
    count      The number of visibilities to read.

  Output:
    Visdat     Output buffer containing the visibilities.

  Internal Variables:
    VispBuf    Visibilities per buffer.
    PixPnt     Pixel offset of place into file where i/o is going on.
    PixpWd     Pixels per Word.
    PpVisf     Pixels per Visibility in the File.
    PpVisp     Pixels per Visibility in the Program.
