Home
last modified time | relevance | path

Searched refs:level1 (Results 1 – 4 of 4) sorted by relevance

/phasta/phSolver/AMG/
H A Dramg_ITAI.f115 subroutine ramg_calcITAI(level1,level2,maxstopsign) argument
119 integer,intent(in) :: level1,level2 local
123 integer,dimension(amg_nshg(level1)) :: itemp
139 IF (level1.eq.0) THEN
142 call mtx_colm(I_fc_colm(level1)%p,I_fc_rowp(level1)%p,
145 & ITA_colm,amg_nshg(level2),amg_nshg(level1),
146 & amg_nshg(level1))
152 call mtx_rowp(I_fc_colm(level1)%p,I_fc_rowp(level1)%p,
156 & amg_nshg(level2),amg_nshg(level1),
157 & amg_nshg(level1),.false.)
[all …]
H A Dramg_coarse.f10 subroutine ramg_coarse_setup(level1,level2,eps_str, argument
21 integer,intent(in) :: level1,level2 local
30 integer,dimension(amg_nnz(level1)) :: amg_S,amg_Ip
31 integer,dimension(amg_nshg(level1)) :: amg_F,aLoc
32 real(kind=8),dimension(amg_nshg(level1)) :: amg_la
33 integer,dimension(amg_nshg(level1)) :: amg_Fn,amg_Fp
104 call ramg_CFsplit(amg_F,amg_S,amg_nshg(level1),amg_nnz(level1),
105 & amg_A_colm(level1)%p,amg_A_rowp(level1)%p,
106 & amg_A_lhs(level1)%p,amg_paramap(level1)%p,
110 if (level1.eq.1) then
[all …]
H A Dramg_control.f135 subroutine ramg_checkcoarse(level1,ilwork,BC,iBC,iper, argument
142 integer,intent(in) :: level1 local
194 do i = 1,amg_nnz(level1)
195 k = amg_A_rowp(level1)%p(i)
196 p = iabs(amg_paramap(level1)%p(k))
203 do i = 1,amg_nshg(level1)
204 p = iabs(amg_paramap(level1)%p(i))
250 do i=1,amg_nshg(level1)
251 p = iabs(amg_paramap(level1)%p(i))
257 amg_paramap(level1)%p(i) = -iabs(amg_paramap(level1)%p(i))
H A Dramg_tools.f21 subroutine ramg_calcIvCF(level1,level2,VC,vf, argument
28 integer,intent(in) :: level1,level2 local
29 real(kind=8),intent(inout),dimension(amg_nshg(level1)) :: vf
43 do i=1,amg_nshg(level1)
44 do k=I_cf_colm(level1)%p(i),I_cf_colm(level1)%p(i+1)-1
45 j = I_cf_rowp(level1)%p(k)
46 vf(i) = vf(i) + VC(j)*I_cf(level1)%p(k)
50 if ( level1 .eq. -1 ) then
65 subroutine ramg_calcIvFC(level1,level2,vf,VC) argument
68 integer,intent(in) :: level1,level2 local
[all …]