Searched refs:kLhs (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/incompressible/ |
| H A D | lesSparse.f | 252 subroutine fLesSparseApKG( col, row, kLhs, pLhs, argument
263 real*8 kLhs(9,nnz_tot), pLhs(4,nnz_tot)
289 1 + kLhs(1,k) * p(j,1)
290 2 + kLhs(4,k) * p(j,2)
291 3 + kLhs(7,k) * p(j,3)
293 1 + kLhs(2,k) * p(j,1)
294 2 + kLhs(5,k) * p(j,2)
295 3 + kLhs(8,k) * p(j,3)
297 1 + kLhs(3,k) * p(j,1)
298 2 + kLhs(6,k) * p(j,2)
[all …]
|