Searched refs:pLhs (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/incompressible/ |
| H A D | lesSparse.f | 204 subroutine fLesSparseApG( col, row, pLhs, argument
213 real*8 pLhs(4,nnz_tot), p(nNodes), q(nNodes,3)
235 q(j,1) = q(j,1) - pLhs(1,k) * pisave
236 q(j,2) = q(j,2) - pLhs(2,k) * pisave
237 q(j,3) = q(j,3) - pLhs(3,k) * pisave
252 subroutine fLesSparseApKG( col, row, kLhs, pLhs, argument
263 real*8 kLhs(9,nnz_tot), pLhs(4,nnz_tot)
301 q(j,1) = q(j,1) - pLhs(1,k) * pisave
302 q(j,2) = q(j,2) - pLhs(2,k) * pisave
303 q(j,3) = q(j,3) - pLhs(3,k) * pisave
[all …]
|