power,'_mag','hel_mag',k=k,spec1=spec1,spec2=spec2,i=n,tt=t,/noplot,/lks
;
; checking realizability condition for fixed k-value.
;
ik=511
plot_oi,t,.5*k[ik]*spec2[ik,*]/spec1[ik,*],yr=[0.,1.6],ps=-1
oplot,t,t*0+1.
END
