Home
last modified time | relevance | path

Searched refs:tsFct (Results 1 – 1 of 1) sorted by relevance

/phasta/phSolver/incompressible/
H A De3lhs.f51 real*8 lhmFct, lhsFct, tsFct(npro) local
63 tsFct = lhmFct * WdetJ * rho
87 tmp1 = tsFct * shpfun(:,aa) * shpfun(:,b)
297 real*8 lhsFct, tsFct(npro) local
306 tsFct = almi * WdetJ * (one - flmpl)
319 xSebe(:,aa,b) = xSebe(:,aa,b) + tmp1 * (tsFct + srcL)