Lines Matching refs:j
134 do j = 1, nflow
135 if (flowDiag(i,j).ne.0)
136 & flowDiag(i,j) = 1. / sqrt(abs(flowDiag(i,j)))
216 integer i, j, k
233 j = row(k)
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
267 integer i, j, k
287 j = row(k)
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)
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
339 integer i, j, k
347 j = row(k)
350 1 + pLhs(1,k) * p(j,1)
351 2 + pLhs(2,k) * p(j,2)
352 3 + pLhs(3,k) * p(j,3)
380 integer i, j, k
388 j = row(k)
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)
426 integer i, j, k
447 j = row(k)
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)
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
505 integer i, j, k