%N fuvopen %F $MIR/src/subs/fitsio.for
%D Open a FITS uv file.
%P rjs
%: fits
%B
      subroutine fuvopen(lu,name,status,nvis,npol,nfreq)

      integer lu,nvis,npol,nfreq
      character name*(*),status*(*)
  ---------------------------------------------------------------------
  Open a FITS uv file and ready it for i/o.

  Inputs:
    name       The name of the file to be opened.
    status     Either 'old' or 'new'.

  Inputs or Outputs:
    These are input when status='new', and output when status='old'.
    nvis       The number of visibilities in the file.
    npol       The number of polarizations (from 1 to 4).
    nfreq      The number of frequency channels.

  Output:
    lu         File descriptor.
