Searched refs:level2 (Results 1 – 3 of 3) sorted by relevance
| /phasta/phSolver/AMG/ |
| H A D | ramg_ITAI.f | 115 subroutine ramg_calcITAI(level1,level2,maxstopsign) argument
119 integer,intent(in) :: level1,level2 local
124 integer,dimension(amg_nshg(level2)) :: itemp2
127 integer,dimension(amg_nshg(level2)+1) :: ITA_colm
145 & ITA_colm,amg_nshg(level2),amg_nshg(level1),
147 mnnz = ITA_colm(amg_nshg(level2)+1)-1
156 & amg_nshg(level2),amg_nshg(level1),
166 & amg_nshg(level2),amg_nshg(level1),
176 & ITA_colm,amg_nshg(level2),amg_nshg(level1),
178 mnnz = ITA_colm(amg_nshg(level2)+1)-1
[all …]
|
| H A D | ramg_coarse.f | 10 subroutine ramg_coarse_setup(level1,level2,eps_str, argument
21 integer,intent(in) :: level1,level2 local
176 amg_nshg(level2) = 0
181 amg_nshg(level2) = amg_nshg(level2) + 1
187 allocate(amg_paramap(level2)%p(amg_nshg(level2)))
188 allocate(amg_paraext(level2)%p(amg_nshg(level2)))
192 amg_paramap(level2)%p(j) = amg_paramap(level1)%p(i)
193 amg_paraext(level2)%p(j) = amg_paraext(level1)%p(i)
422 allocate(I_fc_colm(level1)%p(amg_nshg(level2)+1),stat=mem_err)
432 I_fc_colm(level1)%p(1:amg_nshg(level2)+1) = 0
[all …]
|
| H A D | ramg_tools.f | 21 subroutine ramg_calcIvCF(level1,level2,VC,vf, argument
28 integer,intent(in) :: level1,level2 local
30 real(kind=8),intent(in),dimension(amg_nshg(level2)) :: VC
65 subroutine ramg_calcIvFC(level1,level2,vf,VC) argument
68 integer,intent(in) :: level1,level2 local
70 real(kind=8),intent(inout),dimension(amg_nshg(level2)) :: VC
79 do i=1,amg_nshg(level2)
|