Searched refs:kptmp (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/incompressible/ |
| H A D | e3lhs.f | 287 real*8 diffus(npro), cp, kptmp(npro),tauSo(npro) local
305 kptmp = lhsFct * WdetJ * diffus
337 t1(:,1) = kptmp * shg(:,b,1) + uMod(:,1) * tmp
338 t1(:,2) = kptmp * shg(:,b,2) + uMod(:,2) * tmp
339 t1(:,3) = kptmp * shg(:,b,3) + uMod(:,3) * tmp
|