Home
last modified time | relevance | path

Searched refs:amg_A_colm (Results 1 – 7 of 7) sorted by relevance

/phasta/phSolver/AMG/
H A Dramg_extract.f157 amg_A_colm(1)%p(i) = mnnz
182 amg_A_colm(1)%p(nshg+1) = mnnz
233 do m=amg_A_colm(1)%p(i)+1,amg_A_colm(1)%p(i+1)-1
235 do n=m+1,amg_A_colm(1)%p(i+1)-1
263 do m = amg_A_colm(1)%p(i),amg_A_colm(1)%p(i+1)-1
312 ki = amg_A_colm(1)%p(i)+1
320 amg_A_lhs(1)%p(amg_A_colm(1)%p(i),1) =
321 & + amg_A_lhs(1)%p(amg_A_colm(1)%p(i),1) + lhsGP%p(4,m)
348 call ramg_global_lhs(amg_A_colm(1)%p,amg_A_rowp(1)%p,
353 amg_A_colm(1)%p = lhsGPcolm%p
[all …]
H A Dramg_ITAI.f175 & amg_A_colm(level1)%p,amg_A_rowp(level1)%p,
184 & amg_A_colm(level1)%p,amg_A_rowp(level1)%p,
192 & amg_A_colm(level1)%p,amg_A_rowp(level1)%p,
205 & I_cf_rowp(level1)%p,amg_A_colm(level2)%p,
210 mnnz = amg_A_colm(level2)%p(amg_nshg(level2)+1)-1
215 & I_cf_rowp(level1)%p,amg_A_colm(level2)%p,
224 & amg_A_colm(level2)%p,
244 & 1.0/sqrt(amg_A_lhs(level2)%p(amg_A_colm(level2)%p(i),1))
247 do m=amg_A_colm(level2)%p(i),amg_A_colm(level2)%p(i+1)-1
H A Dramg_coarse.f105 & amg_A_colm(level1)%p,amg_A_rowp(level1)%p,
233 diag = -1.0d0/amg_A_lhs(level1)%p(amg_A_colm(level1)%p(i),1)
235 do k = amg_A_colm(level1)%p(i)+1,amg_A_colm(level1)%p(i+1)-1
252 do k=amg_A_colm(level1)%p(i)+1,amg_A_colm(level1)%p(i+1)-1
255 rtp = amg_A_lhs(level1)%p(amg_A_colm(level1)%p(j),1)
259 do kj=amg_A_colm(level1)%p(j),amg_A_colm(level1)%p(j+1)-1
H A Dramg_tools.f172 do k=amg_A_colm(level)%p(i),amg_A_colm(level)%p(i+1)-1
230 do k=amg_A_colm(level)%p(i)+diag,amg_A_colm(level)%p(i+1)-1
575 allocate(amg_A_colm(level)%p(amg_nshg(level)+1),
595 amg_A_colm(level)%p(:) = 0
642 if (associated(amg_A_colm(level)%p)) then
643 deallocate(amg_A_colm(level)%p,
H A Dramg_control.f50 call ramg_direct_LU(amg_A_colm(ramg_levelx)%p,
119 deallocate(amg_A_colm(1)%p)
H A Dramg_data.f57 type(i1d),dimension(MAXAMGLVL) :: amg_A_colm variable
H A Dramg_smoother.f433 call ramg_gauss(amg_A_colm(level)%p,amg_A_rowp(level)%p,
443 call ramg_jacobi(amg_A_colm(level)%p,