Home
last modified time | relevance | path

Searched refs:diag (Results 1 – 5 of 5) sorted by relevance

/phasta/phSolver/AMG/
H A Dramg_paratools.f506 real(kind=8),dimension(nshg,4) :: diag local
508 diag = ramg_flowDiag%p
512 call fMtxVdimVecMult(t1a,diag(:,4),t1,1,1,1,1,nshg)
519 call fMtxVdimVecMult(t2,diag,t2a,3,4,3,3,nshg)
520 call fMtxVdimVecMult(t2a,diag,t2,3,4,3,3,nshg)
531 call fMtxVdimVecMult(t1,diag(:,4),t1a,1,1,1,1,nshg)
542 subroutine ramg_PPEAps(q,p,diag, argument
551 real(kind=8),intent(in),dimension(nshg,4) :: diag local
566 call fMtxVdimVecMult(t1a,diag(:,4),t1,1,1,1,1,nshg)
573 call fMtxVdimVecMult(t2,diag,t2a,3,4,3,3,nshg)
[all …]
H A Dramg_coarse.f34 real(kind=8) :: alpha,beta,alphac,betac,diag,rtp local
233 diag = -1.0d0/amg_A_lhs(level1)%p(amg_A_colm(level1)%p(i),1)
309 alpha = diag*alpha/alphac
310 beta = diag*beta/betac
H A Dramg_tools.f200 & ilwork,BC,iBC,iper,gcomm,diag)
214 integer,intent(in) :: diag !=1: NOT include diagonal A_(i,i) variable
230 do k=amg_A_colm(level)%p(i)+diag,amg_A_colm(level)%p(i+1)-1
H A Dramg_driver.f193 real(kind=8),dimension(nshg,4) :: diag variable
/phasta/phSolver/common/
H A Dinput.config434 AMG PPE Scale: 2 # 0: original, 1: by diag(C), 2: by diag(PPE)