Home
last modified time | relevance | path

Searched refs:kj (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
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)) )
[all …]
H A Dramg_paratools.f31 integer :: numtask,i,j,k,m,p,ki,kj,krowp,ierr local
123 do kj = acolm(ki),acolm(ki+1)-1
124 krowp = arowp(kj)
191 do kj = acolm(ki),acolm(ki+1)-1
192 krowp = arowp(kj)
196 sub_rowpmap%pp(i)%p(k) = kj
198 sub_mtx%pp(i)%p(p,k) = alhsP(p,kj)
284 kj = arowp(k)
285 tmp_rowmap(kj) = k-acolm(ki)+1
286 tmp_revrmap(k-acolm(ki)+1)=kj
[all …]
H A Dramg_coarse.f37 integer :: I_nnz,ki,kj,jj local
259 do kj=amg_A_colm(level1)%p(j),amg_A_colm(level1)%p(j+1)-1
260 jj = amg_A_rowp(level1)%p(kj)
270 amg_la(m) = amg_la(m) - rtp*amg_A_lhs(level1)%p(kj,1)
271 if ( (amg_F(jj).eq.1) .and. (mod(amg_S(kj),2).eq.1) ) then
448 kj = I_fc_colm(level1)%p(j)
450 I_fc_rowp(level1)%p(kj) = i
451 I_fc(level1)%p(kj) = I_cf(level1)%p(k)
H A Dramg_smoother.f191 integer :: i,j,k,p,ki,kj,kp