%N ftabputi %F $MIR/src/subs/fitsio.for
%D Put integer data into the current FITS table.
%P rjs
%: fits
%B
      subroutine ftabputi(lu,name,irow,data)

      integer lu, irow
      integer data(*)
      character name*(*)
  ---------------------------------------------------------------------
  Get ascii 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)
    data       The data values.
