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

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

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