Searched refs:ev2sa (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/incompressible/ |
| H A D | getdiff.f | 159 function ev2sa(xmut,rm,cv1) function
161 real*8 err,ev2sa,rm,cv1,f,dfds,rat,efac local
166 ev2sa=rm*cv1*1.2599 ! inflection point chi=cv1*cuberoot(2)
171 chi3=ev2sa/rm
176 f=ev2sa*chi3/denom - xmut
179 ev2sa=ev2sa+rat
184 write(*,*) dfds,rat,ev2sa,rm
317 savarw = ev2sa(yl(e,n,6),datmat(1,2,1),saCv1)
|