;+
; NAME: submedian
; PURPOSE:
; 		subtract the median from each slice of a data cube
;
; INPUTS:
; KEYWORDS:
; OUTPUTS:
;
; HISTORY:
; 	Began 2005-09-05 17:07:01 by Marshall Perrin 
;-
PRO submedian,array,mmm=mmm

	sz = size(array)
	if sz[0] lt 3 then begin
		array -= median(array)
		return
	endif else begin
		for i=0L,sz[3]-1 do begin
			if keyword_set(mmm) then sky,array[*,*,i], med, s2 else med = median(array[*,*,i])
			array[*,*,i] -= med
			print, i,med
		endfor 
		return
	endelse

end