Home
last modified time | relevance | path

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

/phasta/phSolver/AMG/
H A Dramg_extract.f408 amg_ppeDiag(1)%p(i) =
416 & amg_ppeDiag(1)%p(i)*amg_ppeDiag(1)%p(j)
418 amg_A_rhs(1)%p(i) = amg_A_rhs(1)%p(i)*amg_ppeDiag(1)%p(i)
424 amg_ppeDiag(1)%p(i) = amg_ppeDiag(1)%p(i)/mflowDiag(i,4)
H A Dramg_driver.f46 ramg_rhs = ramg_rhs*amg_ppeDiag(clevel)%p
93 ramg_sol = ramg_sol * amg_ppeDiag(clevel)%p
324 myR = mcgR*amg_ppeDiag(1)%p
330 mcgZ = mcgZ*amg_ppeDiag(1)%p
H A Dramg_ITAI.f243 amg_ppeDiag(level2)%p(i) =
250 & amg_ppeDiag(level2)%p(i)*amg_ppeDiag(level2)%p(j)
H A Dramg_data.f82 type(r1d),dimension(MAXAMGLVL) :: amg_ppeDiag variable
H A Dramg_tools.f581 allocate(amg_ppeDiag(level)%p(amg_nshg(level)),
647 if (associated(amg_ppeDiag(level)%p)) then
648 deallocate(amg_ppeDiag(level)%p,
H A Dramg_paratools.f511 call fMtxVdimVecMult(p,amg_ppeDiag(1)%p,t1a,1,1,1,1,nshg)
532 call fMtxVdimVecMult(t1a,amg_ppeDiag(1)%p,q,1,1,1,1,nshg)
565 call fMtxVdimVecMult(p,amg_ppeDiag(1)%p,t1a,1,1,1,1,nshg)
585 call fMtxVdimVecMult(t1a,amg_ppeDiag(1)%p,q,1,1,1,1,nshg)
H A Damgread.txt55 amg_ppeDiag is important diagonal scaling matrices for different levels.