Searched refs:kup2 (Results 1 – 1 of 1) sorted by relevance
188 real*8 kup2,kup3,pt5,sxth,kappa local204 kup2=kup*kup205 kup3=kup*kup2206 f= up-yp+efac*(exp(kup)-1.0-kup - kup2*pt5 - kup3*sxth)207 dfds=up+yp+efac*(exp(kup)*kup-kup - kup2 - kup3*pt5) !/-utau in rat