;$Id: pspec_hel_difftimes.pro,v 1.1 2012/05/19 14:26:24 brandenb Exp $
if !d.name eq 'PS' then begin
  device,xsize=16,ysize=18,yoffset=3
  !p.charthick=3 & !p.thick=3 & !x.thick=3 & !y.thick=3
end
;
;  mv idl.ps ~/tex/tina/QCD/fig/pspec_hel_difftimes.eps
;
!x.title='!6'
!y.title='!8E!6!dM!n!6(!8k,t!6) and !8E!6!dK!n!6(!8k,t!6)'
!y.margin=[3.3,.3]
!p.charsize=2.6
;
dir1='short512pm1a3_sig01b_noforce'
dir2='u512_km1_d'
;
s=1.
siz=1.6
!p.multi=[0,1,3]
yr=[1e-7,5e-3]
xx=3.25
yy=7e-4
;
;-----------------------------------------------------------------------------
sav='/spec2t.sav'
restore,'../'+dir1+sav
;
!y.title='!6'
plot_oo,k/kf,s*spec2A,xr=[1,256]/kf,yr=yr
oplot,k/kf,s*spec1A,li=2
xyouts,xx,yy,siz=siz,'!8t!6=0.5'
;
!y.title='!8E!6!dM!n!6(!8k,t!6) and !8E!6!dK!n!6(!8k,t!6)'
plot_oo,k/kf,s*spec2B,xr=[1,256]/kf,yr=yr
oplot,k/kf,s*spec1B,li=2
xyouts,xx,yy,siz=siz,'!8t!6=10!cvort.'
;
;-----------------------------------------------------------------------------
sav='/spec2t.sav'
restore,'../'+dir2+sav
;
!x.title='!8k!6/!8k!6!d0!n'
!y.title='!6'
plot_oo,k/kf,s*spec2B,xr=[1,256]/kf,yr=yr
oplot,k/kf,s*spec1B,li=2
xyouts,xx,yy,siz=siz,'!8t!6=10!cirro.'
;
END