pro contour_scaling, mosaic_spec, change

;Frank Varosi NASA/GSFC 1991.

	menu = ["Select image scaling for contours:"	,$
		" "					,$
		"Linear scale"				,$
		"Log10 scale"				]
	change=0
	w = where( mosaic_spec.scaling EQ ["Linear","Log10"], nw )
	if (nw GT 0) then init=w(0)+2 else init=2

	is = wmenu( menu, INIT=init, TIT=0 )
	if (is LT 2) then return

	mosaic_spec.scaling = next_word( menu( is ) )
	change=1

	if (mosaic_spec.scaling EQ "Log10") then begin
		mosaic_spec.minLog = select_min_Log( mosaic_spec.minLog,/MENU )
		mosaic_spec.zero_shift = $
			select_min_Log( mosaic_spec.zero_shift,/ZERO,/MENU )
	   endif
return
end