%N fuvwrite %F $MIR/src/subs/fitsio.for
%D Write data to a UV FITS file.
%P rjs
%: fits
%B
      subroutine fuvwrite(lu,visdat,number,count)

      integer lu,number,count
      real visdat(*)
  ---------------------------------------------------------------------
  Write some uv data. This performs a sequential write, starting at the
  current pointer.
  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.

  NOTE: This assumes that the data are being written out in floating
        point form, wwith no scale factors!!

  Internal Variables:
    PpVisf     Pixels per Visibility in the File.
