Lines Matching refs:m
48 integer :: i,j,k,m,n,p,q,ki,kj,ni,nj,qq
132 do m=lhsGPcolm%p(i),lhsGPcolm%p(i+1)-1
133 k = lhsGProwp%p(m)
159 do m = lhsGPcolm%p(i),lhsGPcolm%p(i+1)-1
160 k = lhsGProwp%p(m)
208 do m = lhsGPcolm%p(i),lhsGPcolm%p(i+1)-1
209 j = lhsGProwp%p(m)
233 do m=amg_A_colm(1)%p(i)+1,amg_A_colm(1)%p(i+1)-1
234 ki = amg_A_rowp(1)%p(m)
235 do n=m+1,amg_A_colm(1)%p(i+1)-1
238 amg_A_rowp(1)%p(m) = kj
263 do m = amg_A_colm(1)%p(i),amg_A_colm(1)%p(i+1)-1
264 j = amg_A_rowp(1)%p(m)
308 amg_A_lhs(1)%p(m,1)=rtemp
313 mloop: do m=lhsGPcolm%p(i),lhsGPcolm%p(i+1)-1
314 j = lhsGProwp%p(m)
321 & + amg_A_lhs(1)%p(amg_A_colm(1)%p(i),1) + lhsGP%p(4,m)
334 amg_A_lhs(1)%p(ki,1) = amg_A_lhs(1)%p(ki,1) + lhsGP%p(4,m)
384 m = 0
413 do m=amg_A_colm(1)%p(i),amg_A_colm(1)%p(i+1)-1
414 j = amg_A_rowp(1)%p(m)
415 amg_A_lhs(1)%p(m,1) = amg_A_lhs(1)%p(m,1) *