%N ftabdini %F $MIR/src/subs/fitsio.for
%D Start definition of new output table.
%P rjs
%: fits
%B
      subroutine ftabdini(lu,ename)

      integer lu
      character ename*(*)
  ---------------------------------------------------------------------
  Start the definition of an output FITS table.

  Input:
    lu         Handle of the FITS file.
    ename      Name of the extension table.
    nrows      Total number of rows in the table.
