Home
last modified time | relevance | path

Searched refs:ki (Results 1 – 4 of 4) sorted by relevance

/phasta/phSolver/AMG/
H A Dramg_extract.f48 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
[all …]
H A Dramg_paratools.f31 integer :: numtask,i,j,k,m,p,ki,kj,krowp,ierr local
122 ki = sub_map%pp(i)%p(j)
123 do kj = acolm(ki),acolm(ki+1)-1
190 ki = sub_map%pp(i)%p(j)
191 do kj = acolm(ki),acolm(ki+1)-1
280 ki = sub_map%pp(i)%p(j)
281 if (Pflag(ki).eq.0) then ! a new line
282 Pflag(ki) = 1
283 do k=acolm(ki),acolm(ki+1)-1
285 tmp_rowmap(kj) = k-acolm(ki)+1
[all …]
H A Dramg_smoother.f191 integer :: i,j,k,p,ki,kj,kp
219 ki = CF_map(clevel)%p(i)
220 p2 = .not.(pflag(ki)) ! nodes that have not been treated
226 do k = acolm(ki)+1,acolm(ki+1)-1
233 u(ki) = r(ki) - tmp
234 pflag(ki) = .true.
H A Dramg_coarse.f37 integer :: I_nnz,ki,kj,jj local