ftkeeprow.pro

来自「basic median filter simulation」· PRO 代码 · 共 42 行

pro ftkeeprow,h,tab,subs
;+
; NAME:
;	FTKEEPROW
; PURPOSE:
;	Subscripts (and reorders) a FITS table.  A companion piece to FTDELROW.
;
; CALLING SEQUENCE:
;	ftkeeprow, h, tab, subs
;
; INPUT PARAMETERS:
;	h    = FITS table header array
;	tab  = FITS table data array
;	subs = subscript array of FITS table rows.  Works like any other IDL
;		subscript array (0 based, of course).
;
; OUTPUT PARAMETERS:
;	h and tab are modified
;
; MODIFICATION HISTORY:
;	Written by R. S. Hill, ST Sys. Corp., 2 May 1991.
;	Converted to IDL V5.0   W. Landsman   September 1997
;-
 On_error,2                          ;Return to caller
 
 if N_params() LT 3 then begin
     print,'Syntax - ftkeeprow, h, tab, subs'
     return
 endif

 insize = sxpar(h,'NAXIS2')
 tab = tab[*,subs]
 outsize = N_elements(subs)
 sxaddpar, h, 'NAXIS2', outsize
 tag = 'FTKEEPROW '+systime(0)+': '
 sxaddhist, tag + 'table subscripted', h
 sxaddhist, tag + strtrim(string(insize),2) + ' rows in, ' + $
              strtrim(string(outsize),2) + ' rows out',h

 return
 end