%N ftabnxt %F $MIR/src/subs/fitsio.for
%D Locate the next FITS table of a particular kind.
%P rjs
%: fits
%B
      subroutine ftabNxt(lu,name,found)

      integer lu
      character name*(*)
      logical found
  ---------------------------------------------------------------------
  Scan a FITS file from the current position looking for a table of a
  particular kind.

  Input:
    lu         Handle of the input FITS file.
    name       Name of the table. This is the value of the EXTNAME
               FITS keyword. Normally it will be something like:
                 'AIPS SU ' -- AIPS source table.
                 'AIPS FQ ' -- AIPS frequency table.
                 'AIPS CC ' -- AIPS clean component table.
               A special case is name = ' ', which just loads
               the next table.
  Output:
    found      True if the table was sucessfully found.
