Lines Matching refs:I_nnz
37 integer :: I_nnz,ki,kj,jj local
178 I_nnz = 0
182 I_nnz = I_nnz + 1
183 amg_Ip(i) = I_nnz
288 I_nnz = 0
299 I_nnz = I_nnz + 1 ! nonzero in I_h_H row
305 amg_Fn(I_nnz) = amg_Fn(k)
306 amg_la(I_nnz) = amg_la(k)
312 do k = 1,I_nnz
321 n = I_nnz
322 I_nnz = 0
334 I_nnz = I_nnz + 1
335 amg_Fn(I_nnz) = amg_Fn(k)
336 amg_la(I_nnz) = amg_la(k)
341 do k=1,I_nnz
352 mnnz = mnnz + I_nnz
353 amg_I_colm%p(i) = I_nnz
354 allocate(amg_I_rowp%pp(i)%p(I_nnz))
355 allocate(amg_I%pp(i)%p(I_nnz))
356 do k = 1,I_nnz ! scan over P-hat