%N ftabgetr %F $MIR/src/subs/fitsio.for
%D Get real data from the current FITS table.
%P rjs
%: fits
%B
      subroutine ftabGetR(lu,name,irow,data)

      integer lu, irow
      real data(*)
      character name*(*)
  ---------------------------------------------------------------------
  Get real data from the current FITS table.

  Input:
    lu         Handle of the FITS file.
    name       Name of the parameter to return
    irow       Row number to return (0=all)
  Output:
    data       The data values.
