Searched refs:kup (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | settauw.f | 187 real*8 u,err,utau,yrmi,y,rm,yp,up,kup,f,dfds,rat,efac local
203 kup=kappa*up
204 kup2=kup*kup
205 kup3=kup*kup2
206 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
|