Home
last modified time | relevance | path

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

/phasta/phSolver/AMG/
H A Dramg_extract.f308 amg_A_lhs(1)%p(m,1)=rtemp
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)
334 amg_A_lhs(1)%p(ki,1) = amg_A_lhs(1)%p(ki,1) + lhsGP%p(4,m)
349 & amg_A_lhs(1)%p,amg_nnz(1),
356 deallocate(amg_A_lhs(1)%p)
358 allocate(amg_A_lhs(1)%p(amg_nnz(1),1))
360 amg_A_lhs(1)%p = lhsGP%p
370 & amg_A_lhs(1)%p,
385 rtemp=amg_A_lhs(1)%p(amg_A_colm(1)%p(i),1)
[all …]
H A Dramg_ITAI.f193 & amg_A_lhs(level1)%p,
225 & amg_A_rowp(level2)%p,amg_A_lhs(level2)%p,
244 & 1.0/sqrt(amg_A_lhs(level2)%p(amg_A_colm(level2)%p(i),1))
249 amg_A_lhs(level2)%p(m,1)=amg_A_lhs(level2)%p(m,1)*
H A Dramg_tools.f176 u(i) = u(i)+amg_A_lhs(level)%p(k,1)*v(j)
234 u(i) = u(i)+amg_A_lhs(level)%p(k,1)*v(j)
566 allocate(amg_A_lhs(level)%p(amg_nnz(level),n_sol),
591 amg_A_lhs(level)%p(:,:) = 0
632 if (associated(amg_A_lhs(level)%p)) then
633 deallocate(amg_A_lhs(level)%p,
H A Dramg_control.f52 & amg_A_lhs(ramg_levelx)%p,amg_nshg(ramg_levelx),
121 deallocate(amg_A_lhs(1)%p)
H A Dramg_data.f55 type(r2d),dimension(MAXAMGLVL) :: amg_A_lhs variable
H A Dramg_coarse.f106 & amg_A_lhs(level1)%p,amg_paramap(level1)%p,
233 diag = -1.0d0/amg_A_lhs(level1)%p(amg_A_colm(level1)%p(i),1)
245 amg_la(n) = amg_A_lhs(level1)%p(k,1)
255 rtp = amg_A_lhs(level1)%p(amg_A_colm(level1)%p(j),1)
270 amg_la(m) = amg_la(m) - rtp*amg_A_lhs(level1)%p(kj,1)
H A Dramg_smoother.f434 & amg_A_lhs(level)%p,amg_nshg(level),
444 & amg_A_rowp(level)%p,amg_A_lhs(level)%p,