pt=pt*permil
I t,s,diclocal,pt,sit,ta,
& pt*k12p*x/a +
& 2.0*pt*k123p/a +
& pt*x3/a -
& (pt*k12p*(a - x*da))/a2 -
& 2.0*pt*k123p*da/a2 -
& pt*x2*(3.0*a-x*da)/a2
pt=pt/permil
_RL t, s, pt, sit, ta
h3po4g = (pt*hguess*hguess*hguess) / stuff
h2po4g = (pt*k1plocal*hguess*hguess) / stuff
hpo4g = (pt*k1plocal*k2plocal*hguess) / stuff
po4g = (pt*k1plocal*k2plocal*k3plocal) / stuff
_RL pt