%N fitsrch %F $MIR/src/subs/fitsio.for
%D Search for a keyword in the header of an old FITS file.
%P rjs
%: fits
%B
      subroutine fitsrch(lu,key,found)

      integer lu
      character key*(*)
      logical found
  ---------------------------------------------------------------------
  This searches for a keyword in the file header, and leaves the
  card pointer pointing at the card. If it is not found
  the pointer points at the END card, and FOUND is returned .false.

  Inputs:
    lu         File descriptor.
    key        Keyword to search for.

  Outputs:
    found      This will be true if the card was found.
