14       integer      :: i,j,k,p,q,mnnz  local
23             do p=b_colm(j),b_colm(j+1)-1
24                q=b_rowp(p)
46       integer      :: i,j,k,p,q,mnnz  local
59             do p=b_colm(j),b_colm(j+1)-1
60                q=b_rowp(p)
87       integer      :: i,j,k,p,q  local
99             do p = b_colm(j),b_colm(j+1)-1
100                q = b_rowp(p)
101                c_mtx(itemp(q)) = c_mtx(itemp(q)) + rtemp*b_mtx(p)
122       integer                        :: i,j,k,m,p,q,r,n,s,p0  local
142       call mtx_colm(I_fc_colm(level1)%p,I_fc_rowp(level1)%p,
152       call mtx_rowp(I_fc_colm(level1)%p,I_fc_rowp(level1)%p,
160       call mtx_mtx(I_fc_colm(level1)%p,I_fc_rowp(level1)%p,
161      &              I_fc(level1)%p,
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,
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,
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,
204       call mtx_colm(ITA_colm,ITA_rowp,I_cf_colm(level1)%p,
205      &              I_cf_rowp(level1)%p,amg_A_colm(level2)%p,
210       mnnz = amg_A_colm(level2)%p(amg_nshg(level2)+1)-1
214       call mtx_rowp(ITA_colm,ITA_rowp,I_cf_colm(level1)%p,
215      &              I_cf_rowp(level1)%p,amg_A_colm(level2)%p,
216      &              amg_A_rowp(level2)%p,
222       call mtx_mtx(ITA_colm,ITA_rowp,ITA,I_cf_colm(level1)%p,
223      &              I_cf_rowp(level1)%p,I_cf(level1)%p,
224      &              amg_A_colm(level2)%p,
225      &              amg_A_rowp(level2)%p,amg_A_lhs(level2)%p,
237       call ramg_calcIvFC(level1,level2,amg_A_rhs(level1)%p,
238      &               amg_A_rhs(level2)%p)
243          amg_ppeDiag(level2)%p(i) = 
244      &   1.0/sqrt(amg_A_lhs(level2)%p(amg_A_colm(level2)%p(i),1))
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)