Lines Matching refs:level1
115 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.)
160 call mtx_mtx(I_fc_colm(level1)%p,I_fc_rowp(level1)%p,
161 & I_fc(level1)%p,
166 & amg_nshg(level2),amg_nshg(level1),
167 & amg_nshg(level1))
174 call mtx_colm(I_fc_colm(level1)%p,I_fc_rowp(level1)%p,
175 & amg_A_colm(level1)%p,amg_A_rowp(level1)%p,
176 & ITA_colm,amg_nshg(level2),amg_nshg(level1),
177 & amg_nshg(level1))
183 call mtx_rowp(I_fc_colm(level1)%p,I_fc_rowp(level1)%p,
184 & amg_A_colm(level1)%p,amg_A_rowp(level1)%p,
186 & amg_nshg(level2),amg_nshg(level1),
187 & amg_nshg(level1),.false.)
190 call mtx_mtx(I_fc_colm(level1)%p,I_fc_rowp(level1)%p,
191 & I_fc(level1)%p,
192 & amg_A_colm(level1)%p,amg_A_rowp(level1)%p,
193 & amg_A_lhs(level1)%p,
195 & amg_nshg(level2),amg_nshg(level1),
196 & amg_nshg(level1))
204 call mtx_colm(ITA_colm,ITA_rowp,I_cf_colm(level1)%p,
205 & I_cf_rowp(level1)%p,amg_A_colm(level2)%p,
206 & amg_nshg(level2),amg_nshg(level1),
214 call mtx_rowp(ITA_colm,ITA_rowp,I_cf_colm(level1)%p,
215 & I_cf_rowp(level1)%p,amg_A_colm(level2)%p,
217 & amg_nshg(level2),amg_nshg(level1),
222 call mtx_mtx(ITA_colm,ITA_rowp,ITA,I_cf_colm(level1)%p,
223 & I_cf_rowp(level1)%p,I_cf(level1)%p,
226 & amg_nshg(level2),amg_nshg(level1),
237 call ramg_calcIvFC(level1,level2,amg_A_rhs(level1)%p,