Viewing contents of file '../idllib/astron/contrib/varosi/code/allpro/contour_min_max.pro'
pro contour_min_max, mosaic_spec

;Frank Varosi NASA/GSFC 1992.

  common cursor_scale, cmin_y, cmax_y

	Mrange = cursor_scale(  mosaic_spec.minT, mosaic_spec.maxT,  $
				mosaic_spec.scaling, LOG=mosaic_spec.minLog, $
				MAXLIM=mosaic_spec.max, MINLIM=mosaic_spec.min )

	if (mosaic_spec.scaling EQ "Log10") then Mrange = 10^Mrange
	mosaic_spec.minT = Mrange(0)
	mosaic_spec.maxT = Mrange(1)

	if (mosaic_spec.min EQ Mrange(0)) AND $
	   (mosaic_spec.max EQ Mrange(1)) then mosaic_spec.Truncate = 0 $
					  else mosaic_spec.Truncate = 1
	cmin_y = 0
	cmax_y = !D.table_size-1
return
end