pro plot_dtfac,roadmap,dt_fac,stime,etime,infil
;+
;   Procedure to plot dead time correction factors
;
;  Input:
;          roadmap        -  usual roadmap structure from test_rd
;          dt_fac         -  output array from DT_FACTOR
;          stime          -  start time hrs UT
;          etime          -  end time hrs UT
;          infil          -  file name for documentation
;
;
;  Use:
;          IDL> plot_dtfac,roadmap,dt_fac,stime,etime,infil
;
;
;  CDP   March 92
;
;- 


!p.multi=[0,2,2,0,0]
if !d.name eq 'PS' then device,/landscape
if n_elements(stime) gt 0 and n_elements(etime) gt 0 then begin
   !x.range = [stime,etime]
endif
 
!mtitle='Dead time correction channel 1'
!ytitle='Correction factor'
!xtitle='Hours UT'
ymax = max(dt_fac(0,*))
if ymax gt 5.0 then begin
   !y.range=[1.,5.0]
endif else begin
   !y.range=[1.,ymax]
endelse
plot,roadmap.time/3600./1000.,dt_fac(0,*),psym=5

!mtitle='Dead time correction channel 2'
ymax = max(dt_fac(1,*))
if ymax gt 5.0 then begin
   !y.range=[1.,5.0]
endif else begin
   !y.range=[1.,ymax]
endelse
plot,roadmap.time/3600./1000.,dt_fac(1,*),psym=5

!mtitle='Dead time correction channel 3'
ymax = max(dt_fac(2,*))
if ymax gt 5.0 then begin
   !y.range=[1.,5.0]
endif else begin
   !y.range=[1.,ymax]
endelse
plot,roadmap.time/3600./1000.,dt_fac(2,*),psym=5

!mtitle='Dead time correction channel 4'
ymax = max(dt_fac(3,*))
if ymax gt 5.0 then begin
   !y.range=[1.,5.0]
endif else begin
   !y.range=[1.,ymax]
endelse
plot,roadmap.time/3600./1000.,dt_fac(3,*),psym=5

if n_elements(infil) gt 0 then xyouts,0.0,0.0,infil,/normal

!p.multi=0
set_xy
!mtitle = ' '
!xtitle = ' '
!y.title = ' '
if !d.name eq 'PS' then device,/portrait
end