Searched refs:sxth (Results 1 – 1 of 1) sorted by relevance
188 real*8 kup2,kup3,pt5,sxth,kappa local193 sxth=0.1666666666666667206 f= up-yp+efac*(exp(kup)-1.0-kup - kup2*pt5 - kup3*sxth)