Searched refs:savarw (Results 1 – 2 of 2) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | settauw.f | 108 BC(nodw,7)=savarw(up,rm,saCv1,nodw,x(nodw,:))
252 function savarw(up,rm,cv1,nodw,x) function
254 real*8 err,savarw,rm,up,cv1,f,dfds,rat,efac local
261 savarw=rm*cv1*1.2599 ! inflection point chi=cv1*cuberoot(2)
268 chi3=savarw/rm
273 f=savarw*chi3/denom - xmut
276 savarw=savarw+rat
283 write(*,*) dfds,rat,savarw
284 savarw=10000.0*rm
|
| /phasta/phSolver/incompressible/ |
| H A D | getdiff.f | 293 double precision savar, savarw
317 savarw = ev2sa(yl(e,n,6),datmat(1,2,1),saCv1)
318 savar = savar + shape(e,n) * savarw
|