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