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

      integer lu
      double precision coord(3,4)
  ---------------------------------------------------------------------
  Get coordinate information about a UV file.

  Input:
    lu         Handle of the uv FITS file.
  Output:
    coord      Coordinate information.

  Though this could be done by an "ordinary" subroutine, put it here
  because its so commonly done, and requires a bit of fiddling around.
