Searched refs:amg_I_colm (Results 1 – 1 of 1) sorted by relevance
48 type(i1d) :: amg_I_colm local200 allocate(amg_I_colm%p(amg_nshg(level1)),stat=mem_err)221 amg_I_colm%p(i) = 1353 amg_I_colm%p(i) = I_nnz383 do j=1,amg_I_colm%p(i)387 mnnz = mnnz + amg_I_colm%p(i)401 if (amg_I_colm%p(i).ne.0) then408 deallocate(amg_I_colm%p,stat=mem_err)