Searched refs:I_nnz (Results 1 – 1 of 1) sorted by relevance
37 integer :: I_nnz,ki,kj,jj local178 I_nnz = 0182 I_nnz = I_nnz + 1183 amg_Ip(i) = I_nnz288 I_nnz = 0299 I_nnz = I_nnz + 1 ! nonzero in I_h_H row305 amg_Fn(I_nnz) = amg_Fn(k)306 amg_la(I_nnz) = amg_la(k)312 do k = 1,I_nnz321 n = I_nnz[all …]