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

      integer lu,indx
      real data(*)
  ---------------------------------------------------------------------
  Read a row of data from a FITS image.

  Input:
    lu         File descriptor.
    indx       Index of the row to access.
  Output:
    data       Array containing the pixel info.
