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

      integer lu
      character key*(*)
      logical value
  ---------------------------------------------------------------------
  Write a logical valued fits cards.

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