Home
last modified time | relevance | path

Searched refs:subcfrev (Results 1 – 2 of 2) sorted by relevance

/phasta/phSolver/AMG/
H A Dramg_control.f151 & :: subcfstop,subnnz,subcf,subcfrev,subnei local
163 allocate(subcfrev(numpe))
164 subcfrev = 0
169 subcfrev(subnei(1))=1
173 subcfrev(subnei(i)) = i
179 allocate(subcfrev(numtask))
182 subcfrev(i) = i
200 p = subcfrev(p)
208 p = subcfrev(p)
255 p = subcfrev(p)
[all …]
H A Dramg_coarse.f42 integer,allocatable,dimension(:) :: subcf,subcfrev,subnei local
75 allocate(subcfrev(numpe))
76 subcfrev = 0
83 subcfrev(subnei(1))=1
87 subcfrev(subnei(i)) = i
93 allocate(subcfrev(numtask))
96 subcfrev = 0
100 subcfrev(i) = i
129 p = subcfrev(p)
142 deallocate(subcfrev)