%N ftabloc %F $MIR/src/subs/fitsio.for
%D Locate a table of a particular kind, in a FITS file.
%P rjs
%: fits
%B
      subroutine ftabLoc(lu,name,found)

      integer lu
      character name*(*)
      logical found
  ---------------------------------------------------------------------
  This scans a FITS file, looking for a table of a particular kind.
  If there are multiple versions of a particular table, the first
  table will be located.

  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 repositions
               the fitsio routines to access the main header/data.
  Output:
    found      True if the table was sucessfully found.
