;$Id: ppzaver_pdf.pro,v 1.1 2013/07/20 03:32:43 brandenb Exp $
if !d.name eq 'PS' then begin
  device,xsize=18,ysize=24,yoffset=3
  !p.charthick=3 & !p.thick=3 & !x.thick=3 & !y.thick=3
end
;
;  mv idl.ps ~/tex/koen/RFP/fig/pfrac.ps
;
!p.charsize=1.7
!x.margin=[8.8,.5]
!y.margin=[3.2,.5]
;
restore,'pzaver_pdf.sav'
s=size(StokesQ_xx)
nt=s[2]
print,nt
nt=9
!x.range=[-1,1]*.006
!x.range=[-1,1]*.025
!x.range=[-1,1]*.008
!y.range=[1e-2,1e4]
;
!p.multi=[0,1,2]
plot_io,StokesQ_xx(*,0),StokesQ_yy(*,0)
for it=1,nt-1 do oplot,StokesQ_xx(*,it),StokesQ_yy(*,it)
;
plot_io,StokesU_xx(*,0),StokesU_yy(*,0)
for it=1,nt-1 do oplot,StokesU_xx(*,it),StokesU_yy(*,it)
;
END