%N fxyflgwr %F $MIR/src/subs/fitsio.for
%D Write flags for a row of a FITS image.
%P rjs
%: fits
%B
      subroutine fxyflgwr(lu,indx,flags)

      integer lu,indx
      logical flags(*)
  ---------------------------------------------------------------------
  Write a row of pixel flags for a FITS image.

  Input:
    lu         File descriptor.
    indx       Index of the row to access.
    flags      The pixel flags.

  NOTE: This assumes that float(lu), bscale(lu) and bzero(lu) are
        .true., 1.0 and 0.0 respectively!  THIS ASSUMPTION depends on
        the code in fxyopen!
