Lines Matching refs:amg_nshg
123 integer,dimension(amg_nshg(level1)) :: itemp
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),
146 & amg_nshg(level1))
147 mnnz = ITA_colm(amg_nshg(level2)+1)-1
156 & amg_nshg(level2),amg_nshg(level1),
157 & amg_nshg(level1),.false.)
166 & amg_nshg(level2),amg_nshg(level1),
167 & amg_nshg(level1))
176 & ITA_colm,amg_nshg(level2),amg_nshg(level1),
177 & amg_nshg(level1))
178 mnnz = ITA_colm(amg_nshg(level2)+1)-1
186 & amg_nshg(level2),amg_nshg(level1),
187 & amg_nshg(level1),.false.)
195 & amg_nshg(level2),amg_nshg(level1),
196 & amg_nshg(level1))
203 call ramg_allocate(level2,amg_nshg(level2),0,1)
206 & amg_nshg(level2),amg_nshg(level1),
207 & amg_nshg(level2))
210 mnnz = amg_A_colm(level2)%p(amg_nshg(level2)+1)-1
217 & amg_nshg(level2),amg_nshg(level1),
218 & amg_nshg(level2),.true.)
226 & amg_nshg(level2),amg_nshg(level1),
227 & amg_nshg(level2))
234 amg_nshg(level2+1) = 0
242 do i=1,amg_nshg(level2)
246 do i=1,amg_nshg(level2)