function filter_mosaic, mosaic, mosaic_spec

;Frank Varosi STX @ NASA/GSFC 1989.
;F.V.1991, modif to use mosaic_spec structure.
;F.V.1991, use filter_image to process ALL_PIXELS.
;F.V.1991, added "iterate" filter (applies smooth(3) iteratively).
;F.V.1992, use fields .maxF & .minF for min-max of filtered mosaic.

	if (mosaic_spec.filt_width LT 3) then begin
		mosaic_spec.maxF = mosaic_spec.max
		mosaic_spec.minF = mosaic_spec.min
		return, mosaic
	   endif

CASE mosaic_spec.filter OF

   "smooth":	mosf = filter_image( mosaic, SMO=mosaic_spec.filt_width,/ALL )

  "iterate":	mosf = filter_image( mosaic, SMO=mosaic_spec.filt_width, $
						/ITERATE, /ALL_PIXELS )

   "median":	mosf = filter_image( mosaic, MED=mosaic_spec.filt_width,/ALL )

     else: BEGIN
		mosaic_spec.maxF = mosaic_spec.max
		mosaic_spec.minF = mosaic_spec.min
		return, mosaic
	     END
 ENDCASE


	mosaic_spec.maxF = max( mosf, MIN=minmos )
	mosaic_spec.minF = minmos

return, mosf
end