function soho_fac,date

err=''
tdate=anytim2utc(date,err=err)
if err ne '' then get_utc,tdate

svec=pb0r(tdate,/soho)
evec=pb0r(tdate)

return,svec(2)/evec(2)

end