Searched refs:xmut (Results 1 – 3 of 3) sorted by relevance
| /phasta/phSolver/compressible/ |
| H A D | getdiff.f | 48 dimension xmut(npro)
178 xmut = xmudmi(:,intp)
180 xmut = zero
220 xmut(e)= abs(evisc)
250 xmut(e) = fv1*abs(savar)*rho(e)
257 call EviscDES (xl,xmut,xmudmi)
364 subroutine EviscDES(xl,xmut,xmudmi) argument
367 real*8 xmut(npro),xl(npro,nenl,nsd),xmudmi(npro,ngauss) local
376 xmut(i)=xmudmi(i,intp)
379 xmut(i)=xi*xmut(i)+(one-xi)*xmudmi(1,intp)
|
| /phasta/phSolver/incompressible/ |
| H A D | getdiff.f | 104 subroutine EviscDESIC(xl,xmut,xmudmi) argument
107 real*8 xmut(npro),xl(npro,nenl,nsd),xmudmi(npro,ngauss) local
116 xmut(i)=xmudmi(i,intp)
119 xmut(i)=xi*xmut(i)+(one-xi)*(xmudmi(1,intp)+datmat(1,2,2))
159 function ev2sa(xmut,rm,cv1)
162 real*8 pt5,kappa,B,xmut,chi3,denom,cv1_3 local
176 f=ev2sa*chi3/denom - xmut
|
| /phasta/phSolver/common/ |
| H A D | settauw.f | 255 real*8 pt5,kappa,B,xmut,chi3,denom,cv1_3 local
265 xmut=rm*kappa*efac*(exp(kappa*up)-1.0-kappa*up
273 f=savarw*chi3/denom - xmut
|