Lines Matching refs:k
30 integer n, k
39 k = sparseloc( rowp(colm(n)), colm(n+1)-colm(n), n )
42 flowdiag(n,1) = lhsK(1,k)
43 flowdiag(n,2) = lhsK(5,k)
44 flowdiag(n,3) = lhsK(9,k)
46 flowdiag(n,4) = lhsP(4,k)
51 do k=colm(n),colm(n+1)-1
54 flowdiag(n,1) = flowdiag(n,1) + abs(lhsK(1,k))
56 flowdiag(n,2) = flowdiag(n,2) + abs(lhsK(5,k))
58 flowdiag(n,3) = flowdiag(n,3) + abs(lhsK(9,k))
61 flowdiag(n,4) = flowdiag(n,4) + abs(lhsP(4,k))
72 do k = 1,numResistSrfs
73 if (nsrflistResist(k).eq.ndsurf(n)) then
74 irankCoupled=k
82 do k = 1,numImpSrfs
83 if (nsrflistImp(k).eq.ndsurf(n)) then
84 irankCoupled=k
92 do k = 1,numRCRSrfs
93 if (nsrflistRCR(k).eq.ndsurf(n)) then
94 irankCoupled=k
163 k = sparseloc( rowp(colm(n)), colm(n+1)-colm(n), n )
166 sclrDiag(n) = lhsS(k)
216 integer i, j, k
232 do k = col(i), col(i+1)-1
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
286 do k = col(i), col(i+1)-1
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
346 do k = col(i), col(i+1)-1
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
387 do k = col(i), col(i+1)-1
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
446 do k = col(i), col(i+1)-1
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
512 do k = col(i), col(i+1)-1
513 tmp = tmp + lhs(k) * p(row(k))