%N fitcdio %F $MIR/src/subs/fitsio.for
%D Sequential read or write of a FITS header.
%P rjs
%: fits
%B
      subroutine fitcdio(lu,value)

      integer lu
      character value*(*)
  ---------------------------------------------------------------------
  This reads or writes a card at the current card pointer. For an old
  file, the current pointer is the last card accessed using one of
  the FITRDHD routines, or the FITSRCH routine. For a new file, the
  current pointer is always the current end of the header.

  Inputs:
    lu         File descriptor.

  Input or Output:
    value      This is the card at the current pointer. If it is a new
               file, this is an input. If it is an old file, this is an
               output.
