%N fuvwrhd %F $MIR/src/subs/fitsio.for
%D Save UV FITS file coordinate information.
%P rjs
%: fits
%B
      subroutine fuvwrhd(lu,coord)

      integer lu
      double precision coord(3,4)
  ---------------------------------------------------------------------
  Save coord info about a UV file in the output.

  Inputs:
    lu         Handle of the UV FITS file.
    coord      Coordinate information
