Lines Matching refs:kj
48 integer :: i,j,k,m,n,p,q,ki,kj,ni,nj,qq
236 kj = amg_A_rowp(1)%p(n)
237 if (kj.lt.ki) then
238 amg_A_rowp(1)%p(m) = kj
240 ki = kj
271 kj = lhsGPcolm%p(j)
276 kloop: do while ( ( ki.lt.ni ).and.(kj.lt.nj) )
278 & (lhsGProwp%p(ki).lt.lhsGProwp%p(kj)) )
282 do while ( (kj.lt.nj) .and.
283 & (lhsGProwp%p(kj).lt.lhsGProwp%p(ki)) )
284 kj = kj + 1
286 if (kj.eq.nj) exit kloop
288 q = lhsGProwp%p(kj)
299 & + lhsGP%p(1,ki)*lhsGP%p(1,kj)*mflowDiag(k,1)**2
300 & + lhsGP%p(2,ki)*lhsGP%p(2,kj)*mflowDiag(k,2)**2
301 & + lhsGP%p(3,ki)*lhsGP%p(3,kj)*mflowDiag(k,3)**2
304 kj = kj+1