;$Id: pf.pro,v 1.2 2010/02/18 22:56:04 brandenb Exp $
if !d.name eq 'PS' then begin
  device,xsize=18,ysize=22,yoffset=3
  !p.charthick=3 & !p.thick=3 & !x.thick=3 & !y.thick=3
end
;
;  mv idl.ps ~/tex/tina/Kazantsev/pfm_256d.eps
;
power,'_kin','_mag',k=k,spec1=spec1,spec2=spec2,i=n,tt=t,/noplot & print,n
;
!p.multi=[0,1,2]
!x.title='!8t!6/!8t!6!d1!n'
!y.margin=[3.3,.3]
!p.charsize=1.8
;
!y.title='!8E!6!dM!n(!8k,t!6) !8k!6!d1!n/!8c!6!s!ds!n!r!u2!n'
plot_oo,t,spec2(30,*),xr=[.1,60],yr=[1e-15,1]
k=1 & oplot,t,spec2(k,*),li=1
k=2 & oplot,t,spec2(k,*),li=2
k=5 & oplot,t,spec2(k,*),li=3
k=10 & oplot,t,spec2(k,*),li=4
;
siz=1.4
xyouts,14,6e-3,'!8k!6/!8k!6!d0!n=1',siz=siz
xyouts,28,4e-4,'0.33',siz=siz
xyouts,28,8e-5,'0.17',siz=siz
xyouts,28,1e-5,'0.06',siz=siz
xyouts,28,1e-6,'0.03',siz=siz
;-----------------------------------------------------------------------------
!y.title='!8E!6!dK!n(!8k,t!6) !8k!6!d1!n/!8c!6!s!ds!n!r!u2!n'
plot_oo,t,spec1(30,*),xr=[.1,60],yr=[1e-15,1]
k=1 & oplot,t,spec1(k,*),li=1
k=2 & oplot,t,spec1(k,*),li=2
k=5 & oplot,t,spec1(k,*),li=3
k=10 & oplot,t,spec1(k,*),li=4
;
xyouts,14,6e-3,'!8k!6/!8k!6!d0!n=1',siz=siz
xyouts,28,4e-4,'0.33',siz=siz
xyouts,28,8e-5,'0.17',siz=siz
xyouts,28,1e-5,'0.06',siz=siz
xyouts,28,1e-6,'0.03',siz=siz
;
;-----------------------------------------------------------------------------
!p.multi=0
END