Searched refs:flhsl (Results 1 – 3 of 3) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | f3lhs.f | 1 subroutine f3lhs (shpb, shglb, xlb, flhsl, argument
38 & flhsl(npro,nshl,1), fnrml(npro,nshl,nsd)
102 flhsl(:,n,1) = flhsl(:,n,1) + WdetJb * shape(:,n)
129 temp = temp + flhsl(:,n,1)
133 flhsl(:,n,1) = flhsl(:,n,1) * fmstot / temp
|
| /phasta/phSolver/compressible/ |
| H A D | asbflx.f | 25 & flhsl(npro,nshl,1), fnrml(npro,nshl,nsd),
64 flhsl = zero
77 call f3lhs (shpb, shglb, xlb, flhsl,
90 where (lnflx .ne. nenbl) flhsl(:,n,1) = zero
99 call local (flxLHS, flhsl, ienb, 1, 'scatter ')
|
| /phasta/phSolver/incompressible/ |
| H A D | asbflx.f | 29 & flhsl(npro,nshl,1), fnrml(npro,nshl,nsd),
58 flhsl = zero
75 & flhsl, fnrml, sgn )
86 where (lnflx .ne. nshlb) flhsl(:,n,1) = zero
94 call local (flxLHS, flhsl, ienb, 1, 'scatter ')
|