function gauss_cleaner, img
;+
; NAME:
;	GAUSS_CLEANER
;
;
; PURPOSE:
;	Convenient compound call of GAUSS_REMOVE to clean up SMEI
;	images (probably better-suited to Fisheyes than Aitoffs)
;
;
; CATEGORY:
;	Utils
;
;
; CALLING SEQUENCE:
;	imgc = gauss_cleaner(img)
;
;
; INPUTS:
;	img	float	The image to be cleaned
;
;
; OUTPUTS:
;	imgc	float	The cleaned image.
;
;
; EXAMPLE:
;	A typical usage of this procedure would be in conjunction with
;	the  SMEI_CALCULATE interface. e.g.:
;		smei_calculate, ss1, '(gauss_cleaner ss)'
;
;
; MODIFICATION HISTORY:
;	Original: 30/7/04; SJT
;-

opq = !quiet
!quiet = 1
imgr = gauss_remove(img, wsize = [45, 45], thresh = 1.5, order = 2, show = 0)
imgs = gauss_remove(imgr, wsize = [25, 25], thresh = 1.2, order = 2, show = 0)
imgt = gauss_remove(imgs, wsize = [11, 11], thresh = .5, order = 2, show = 0)
imgu = gauss_remove(imgt, wsize = [5, 5], thresh = .5, order = 2, show = 0)
!quiet = opq

return, imgu

end