Searched refs:dcFct (Results 1 – 3 of 3) sorted by relevance
| /phasta/phSolver/incompressible/ |
| H A D | e3dc.f | 471 & dcFct) argument
505 & giju(npro,6), dcFct(npro),
521 dcFct(:) = gradS(:,1) * gGradS(:,1)
526 dcFct(:) = 1.0/ dcFct(:)
531 dcFct = dcFct * (rLS - srcR) ** 2
545 dcFct(:)=max(zero,(fact*sqrt(dcFct(:)))-(tauS(:)*dcFct(:)))
554 dcFct(:) = two * tauS(:) * dcFct(:)
565 dcFct(:) = min( max(zero, (fact * sqrt(dcFct(:)) -
566 & tauS(:)*dcFct(:)) ), two * tauS(:) * dcFct(:))
572 gGradS(:,1) = dcFct(:) * gGradS(:,1)
[all …]
|
| H A D | e3.f | 195 & gGradS(npro,nsd), dcFct(npro), local
256 & dcFct)
272 call e3LHSSclr ( uMod, giju, dcFct,
|
| H A D | e3lhs.f | 270 subroutine e3LHSSclr ( uMod, giju, dcFct, argument
293 & tmp(npro), dcFct(npro), giju(npro,6)
344 tmp = WdetJ * dcFct * lhsFct
|