%N ftabgeti %F $MIR/src/subs/fitsio.for
%D Return integer valued data from a FITS table.
%P rjs
%: fits
%B
      subroutine ftabGetI(lu,name,irow,data)

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