Lines Matching refs:ki
48 integer :: i,j,k,m,n,p,q,ki,kj,ni,nj,qq
234 ki = amg_A_rowp(1)%p(m)
237 if (kj.lt.ki) then
239 amg_A_rowp(1)%p(n) = ki
240 ki = kj
269 ki = lhsGPcolm%p(i)
276 kloop: do while ( ( ki.lt.ni ).and.(kj.lt.nj) )
277 do while ((ki.lt.ni).and.
278 & (lhsGProwp%p(ki).lt.lhsGProwp%p(kj)) )
279 ki = ki + 1
281 if (ki.eq.ni) exit kloop
283 & (lhsGProwp%p(kj).lt.lhsGProwp%p(ki)) )
287 p = lhsGProwp%p(ki)
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
303 ki = ki+1
312 ki = amg_A_colm(1)%p(i)+1
325 do while(amg_A_rowp(1)%p(ki).lt.j)
326 ki = ki+1
330 ckk = amg_paramap(1)%p(amg_A_rowp(1)%p(ki))
334 amg_A_lhs(1)%p(ki,1) = amg_A_lhs(1)%p(ki,1) + lhsGP%p(4,m)
336 ki = ki+1