%N ftabdef %F $MIR/src/subs/fitsio.for
%D Define a column in the new output table.
%P rjs
%: fits
%B
      subroutine ftabdef(lu,name,type,units,nrow,nval)

      integer lu
      character name*(*),type*1,units*(*)
      integer nrow,nval
  ---------------------------------------------------------------------
  Define a column in a new output FITS table.

  Input:
    lu         Handle of the FITS file.
    name       Name of the column.
    type       Datatype of the column.
    units      Units of the column.
    nrow       Number of rows.
    nval       Number of values.
