;+
;
; NAME: 
;       PLOT_THRESH
;
; PURPOSE:
;	This main program plots the DISCSP CRAB occultation results
;	showing one figure with the measure countrates and another
;	with the predicted as a function of channel edge in keV
;
; CATEGORY:
;       BATSE, OCCULTS
;
; CALLING SEQUENCE:
;
;
; CALLS:
;	plot_occs_res
;
; INPUTS:
;       none explicit, only through commons;
;
; OPTIONAL INPUTS:
;	none
;
; OUTPUTS:
;       none explicit, only through commons;
;
; OPTIONAL OUTPUTS:
;	none
;
; KEYWORDS:
;	none
; COMMON BLOCKS:
;	none
;
; SIDE EFFECTS:
;	none
;
; RESTRICTIONS:
;	none
;
; PROCEDURE:
;	none
;
; MODIFICATION HISTORY:
;	Version 1, RAS, august 1996
;-
!p.multi=[0,1,2]

plot_occs_res,[rw.edges(0,0),rw.edges(1,0) ], $
	[rw.dprd(1)+rw.dprd(0),rw.dprd(1)], $
	[rw.cos,rw.cos], [.37,.97],/xtype, $
	xtit='Energy Threshold (keV)', $
	ytit='Predicted Rate',$
	title='BATSE SPEC FLUX FROM THE CRAB',$
	xrange=[5,200],yran=[-10,70],xmargin=[14,4], $
	charsize=.8,ymargin=[4,4]

plot_occs_res,[rw.edges(0,0),rw.edges(1,0) ], $
	[rw.davg(0,1)+rw.davg(0,0)>0,rw.davg(0,1)], $
	[rw.cos,rw.cos], [.37,.97],/xtype, $
	title='BATSE SPEC FLUX FROM THE CRAB',$
	xtit='Energy Threshold (keV)', $
	ytit='Measured Rate',$
	xrange=[5,200],yran=[-10,70],xmargin=[14,4], $
	charsize=.8,ymargin=[4,4]

legend, label, psym=symkey(4:9),posi=[50,65]
end