pro convert,a,ac
ac=fltarr(n_elements(a))
ac(0)=a(0)/1.8992573
ac(1)=a(1)/1.8992573
ac(2)=a(2)/3.8874443
ac(3)=a(4)/8.3345629
 ac(0)=ac(0)+ac(3)*8.3345629*0.673796/1.8992573
ac(4)=a(3)/8.3345629
 ac(1)=ac(1)+ac(4)*8.3345629*0.673796/1.8992573
;print,'a(0:4)=',a(0:4)
;print,'ac    =',ac(0:4)
if(n_elements(a) ge 8) then begin
ac(5)=-a(5)/2.3137662
ac(6)=a(6)/2.3137662
ac(7)=a(7)/16.895979 
 ac(2)=ac(2)+ac(7)*1.108900*16.895979/3.8874443
;print,'a(0:7)=',a(0:7)
;print,'ac    =',ac(0:7)
endif
if(n_elements(a) ge 10) then begin
ac(8)=-a(9)/2.6701691
ac(9)=-a(8)/2.6701691
endif
if(n_elements(a) ge 14) then begin
ac(10)=-a(10)/12.033645 
 ac(5)=ac(5)+ac(10)*0.750864*12.033645/2.3137662
ac(11)=a(11)/12.033645 
 ac(6)=ac(6)+ac(11)*0.750864*12.033645/2.3137662
ac(12)=a(12)/29.851527
ac(13)=-a(13)/29.851527
;print,'a(0:13)=',a(0:13)
;print,'ac    =',ac(0:13)
endif
return
end