Lines Matching refs:level2
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
186 & amg_nshg(level2),amg_nshg(level1),
195 & amg_nshg(level2),amg_nshg(level1),
203 call ramg_allocate(level2,amg_nshg(level2),0,1)
205 & I_cf_rowp(level1)%p,amg_A_colm(level2)%p,
206 & amg_nshg(level2),amg_nshg(level1),
207 & amg_nshg(level2))
210 mnnz = amg_A_colm(level2)%p(amg_nshg(level2)+1)-1
211 call ramg_allocate(level2,0,mnnz,1)
215 & I_cf_rowp(level1)%p,amg_A_colm(level2)%p,
216 & amg_A_rowp(level2)%p,
217 & amg_nshg(level2),amg_nshg(level1),
218 & amg_nshg(level2),.true.)
224 & amg_A_colm(level2)%p,
225 & amg_A_rowp(level2)%p,amg_A_lhs(level2)%p,
226 & amg_nshg(level2),amg_nshg(level1),
227 & amg_nshg(level2))
234 amg_nshg(level2+1) = 0
237 call ramg_calcIvFC(level1,level2,amg_A_rhs(level1)%p,
238 & amg_A_rhs(level2)%p)
242 do i=1,amg_nshg(level2)
243 amg_ppeDiag(level2)%p(i) =
244 & 1.0/sqrt(amg_A_lhs(level2)%p(amg_A_colm(level2)%p(i),1))
246 do i=1,amg_nshg(level2)
247 do m=amg_A_colm(level2)%p(i),amg_A_colm(level2)%p(i+1)-1
248 j = amg_A_rowp(level2)%p(m)
249 amg_A_lhs(level2)%p(m,1)=amg_A_lhs(level2)%p(m,1)*
250 & amg_ppeDiag(level2)%p(i)*amg_ppeDiag(level2)%p(j)