Searched refs:dfds (Results 1 – 2 of 2) 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
207 dfds=up+yp+efac*(exp(kup)*kup-kup - kup2 - kup3*pt5) !/-utau in rat
208 rat=f*utau/dfds ! this is -f/dfds but we did not do 1/(-utau) yet.
216 write(*,*) dfds,rat,utau
254 real*8 err,savarw,rm,up,cv1,f,dfds,rat,efac local
274 dfds=chi3*(chi3+4.0*cv1_3)/(denom**2)
275 rat=-f/dfds
283 write(*,*) dfds,rat,savarw
|
| /phasta/phSolver/incompressible/ |
| H A D | getdiff.f | 161 real*8 err,ev2sa,rm,cv1,f,dfds,rat,efac local
177 dfds=chi3*(chi3+4.0*cv1_3)/(denom**2)
178 rat=-f/dfds
184 write(*,*) dfds,rat,ev2sa,rm
|