Home
last modified time | relevance | path

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

/phasta/phSolver/incompressible/
H A De3source.f214 & srcR, srcL, uMod, argument
247 real*8 srcR(npro), srcL(npro), local
432 srcL(e) = -1.0*tmp
490 srcL(:)=zero
495 if(isclr.eq.1) srcL = srcJac(:,1)
496 if(isclr.eq.2) srcL = srcJac(:,4)
499 srcL(:)=zero
515 srcL = zero
553 srcL = zero
590 srcL = zero
H A De3lhs.f273 & shpfun, shg, srcL, argument
284 & srcL(npro), shg(npro,nshl,3), local
307 srcL = srcL * WdetJ * lhsFct
319 xSebe(:,aa,b) = xSebe(:,aa,b) + tmp1 * (tsFct + srcL)
H A De3.f194 & srcL(npro), srcR(npro), local
275 & shpfun, shg, srcL,
H A De3ivar.f495 & xl, srcR, srcL, uMod,
500 srcL = zero
/phasta/phSolver/incompressible/e3source/
H A De3source.fRHSonly214 & srcR, srcL, uMod,
232 c srcL : jacobian of srcR
247 real*8 srcR(npro), srcL(npro),
394 srcL(e) = -1.0*tmp
452 srcL(:)=zero
457 if(isclr.eq.1) srcL = srcJac(:,1)
458 if(isclr.eq.2) srcL = srcJac(:,4)
461 srcL(:)=zero
477 srcL = zero
515 srcL = zero
[all …]
H A De3source.fimplicit214 & srcR, srcL, uMod,
232 c srcL : jacobian of srcR
247 real*8 srcR(npro), srcL(npro),
408 srcL(e) = -1.0*tmp
466 srcL(:)=zero
471 if(isclr.eq.1) srcL = srcJac(:,1)
472 if(isclr.eq.2) srcL = srcJac(:,4)
475 srcL(:)=zero
491 srcL = zero
529 srcL = zero
[all …]