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

      integer lu
      character key*(*)
      double precision value
  ---------------------------------------------------------------------
  Write a real valued FITS card out.

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