Lines Matching refs:kLhs
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)
299 3 + kLhs(9,k) * p(j,3)
410 subroutine fLesSparseApFull( col, row, kLhs, pLhs, argument
422 real*8 kLhs(9,nnz_tot), pLhs(4,nnz_tot)
450 1 + kLhs(1,k) * p(j,1)
451 2 + kLhs(4,k) * p(j,2)
452 3 + kLhs(7,k) * p(j,3)
454 1 + kLhs(2,k) * p(j,1)
455 2 + kLhs(5,k) * p(j,2)
456 3 + kLhs(8,k) * p(j,3)
458 1 + kLhs(3,k) * p(j,1)
459 2 + kLhs(6,k) * p(j,2)
460 3 + kLhs(9,k) * p(j,3)