;$Id: wtab_pol.pro,v 1.1 2021/01/24 05:21:33 brandenb Exp $
;
file='psum_pol.txt'
fo="(a,5(' & ',a), '\\')"
;
close,1
openw,1,'runs.tex'
printf,1,'%sig    pol      f0       eta      EEM        EEGW     run'
a=rtable(file,head=1,8)
sig=reform(a[0,*])
pol=reform(a[1,*])
f0=reform(a[2,*])
eta=reform(a[3,*])
EEM=reform(a[4,*])
EEK=reform(a[5,*])
EEGW=reform(a[6,*])
hrms=reform(a[7,*])
n=n_elements(sig)
;
name='K'
for i=0,n-1 do begin
  printf,1,name+latex_float(sig[i]), $
  latex_float(pol[i],1), $
  latex_float(EEM[i],2), $
  latex_float(EEK[i],2), $
  latex(EEGW[i],1), $
  latex(hrms[i],1),fo=fo
endfor
close,1
;
spawn,'cat runs.tex'
END