;+
;
; NAME: 
;       RUN_PLOT_OCCS
;
; PURPOSE:
;       This main program provides an example of extracting the occultation
;       step fit from cont data.  OBSOLETE       
;
; CATEGORY:
;       BATSE, OCCULTS
;
; CALLING SEQUENCE:
;
;
; CALLS:
;	none
;
; 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:
;	OBSOLETE
;
; PROCEDURE:
;	none
;
; MODIFICATION HISTORY:
;	RAS, july 1995
;-
file = '/service/batse/batse1/batse/cont_09559.dat_msfc_stream
inradec = [ 83.5160,      22.0197]
gro_point, out(1:4,134), inradec, cos_lad_26jul94, cos_spec
ord = reverse(sort(cos_lad_26jul94))
for i=0,15 do begin
	for j=0,2 do begin
		for k=0,3 do begin
		plot_occs,occout=big(w1(i)),det_id=ord(k),/cont,file=file,step=step,tdur=60+j*30
		csteps2_26jul94(0,0,j,k,i)=step 
		print,'i,j,k'
		print, i, j, k
		print, step
		endfor
	endfor
endfor
end