pro plot_expos_hist, sttim, entim, mat, hc=hc, inmat=inmat
;+
;NAME:
;	plot_expos_hist
;PURPOSE:
;	To plot the histogram of exposure durations for a given time span
;SAMPLE CALLING SEQUENCE:
;	plot_expos_hist, '1-feb','2-feb
;	plot_expos_hist, '1-feb','2-feb',/hc
;HISTORY:
;	Written 19-Mar-96 by M.Morrison
;V1.1	17-May-96 (MDM) - Added xtitle switch to plot_hist
;-
;
if (keyword_set(hc)) then begin
    set_plot, 'ps
    device, /land
end
;
if (keyword_set(inmat)) then begin
    mat = inmat
end else begin
    seq_frame_info, sttim, entim, mat, hk0
    mat = rotate(mat,4)
end
;
expos = (mat(5,*)-mat(4,*))/256.
tit = 'Shutter Exposure Data from ' + fmt_tim(sttim) + ' to ' + fmt_tim(entim)

!p.multi = [0,2,2]
;;!x.style = 1
;;!x.ticks = 7
!x.style=2
plot_hist, /log, expos, bin=.005, xtit='Expsoure (msec)'
plot_hist, /log, expos, bin=.005, xtit='Expsoure (msec)', xrange=[39.6, 40.4]
plot_hist, /log, expos, bin=.005, xtit='Expsoure (msec)', xrange=[149.6, 150.4]
plot_hist, /log, expos, bin=.005, xtit='Expsoure (msec)', xrange=[224.6, 225.4]
;
plottime, 0, .98, tit
plottime, 0, 0, 'PLOT_EXPOS_HIST  Ver 1.1'
plottime
pprint, reset=(keyword_set(hc))
end