%N ftabcoln %F $MIR/src/subs/fitsio.for
%D Determine the column number of a particular table entry.
%P rjs
%: fits
%B
      integer function ftabColn(lu,name)

      integer lu
      character name*(*)
  ---------------------------------------------------------------------
  Determine the column number of a particular table entry.

  Input:
    lu         FITS file handle.
    name       Name of the parameter.
  Output:
    ftabColn   Column number.
