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

      integer lu, irow
      character 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.
