Name

---

      TBDELCOL

Purpose

---

      Delete a column of data from a FITS binary table

Calling Sequence

---

      TBDELCOL, h, tab, name
  INPUTS-OUPUTS
      h,tab - FITS binary table header and data array. H and TAB will
              be updated with the specified column deleted

Inputs

---

      name - Either (1) a string giving the name of the column to delete
                      or (2) a scalar giving the column number to delete

Example

---

      Delete the column "FLUX" from FITS binary table test.fits
      IDL> tab = readfits('test.fits',h,/ext) ;Read table
      IDL> tbdelcol, h, tab, 'FLUX' ;Delete Flux column
      IDL> modfits,'test.fits',tab,h,/ext ;Write back table

Procedures Used

---

      SXADDPAR, TBINFO, TBSIZE

Revision History

---

      Written W. Landsman STX Co. August, 1988
      Use new structure returned by TBINFO, August, 1997
      Use SIZE(/TNAME) instead of DATATYPE() October 2001
      Use /NOSCALE in call to TBINFO, update TDISP W. Landsman March 2007