Lines Matching refs:pLhs
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
327 subroutine fLesSparseApNGt( col, row, pLhs, argument
336 real*8 pLhs(4,nnz_tot), p(nNodes,3), q(nNodes)
350 1 + pLhs(1,k) * p(j,1)
351 2 + pLhs(2,k) * p(j,2)
352 3 + pLhs(3,k) * p(j,3)
368 subroutine fLesSparseApNGtC( col, row, pLhs, argument
377 real*8 pLhs(4,nnz_tot), p(nNodes,4), q(nNodes)
391 1 + pLhs(1,k) * p(j,1)
392 2 + pLhs(2,k) * p(j,2)
393 3 + pLhs(3,k) * p(j,3)
394 4 + pLhs(4,k) * p(j,4)
410 subroutine fLesSparseApFull( col, row, kLhs, pLhs, argument
422 real*8 kLhs(9,nnz_tot), pLhs(4,nnz_tot)
463 1 + pLhs(1,k) * p(j,1)
464 2 + pLhs(2,k) * p(j,2)
465 3 + pLhs(3,k) * p(j,3)
466 4 + pLhs(4,k) * p(j,4)
468 q(j,1) = q(j,1) - pLhs(1,k) * pisave
469 q(j,2) = q(j,2) - pLhs(2,k) * pisave
470 q(j,3) = q(j,3) - pLhs(3,k) * pisave