%N fitwrhda %F $MIR/src/subs/fitsio.for
%D Write a string to a FITS file header.
%P rjs
%: fits
%B
      subroutine fitwrhda(lu,key,value)

      integer lu
      character key*(*)
      character value*(*)
  ---------------------------------------------------------------------
  Write an ascii valued fits card.

  Input:
    lu         File descriptor.
    key        FITS keyword.
    value      Value of the keyword.
