Lines Matching refs:mnnz
44 integer :: mnnz local
213 mnnz = 0
224 mnnz = mnnz + 1
352 mnnz = mnnz + I_nnz
373 allocate(I_cf_rowp(level1)%p(mnnz),stat=mem_err)
375 allocate(I_cf(level1)%p(mnnz),stat=mem_err)
380 mnnz = 0
382 I_cf_colm(level1)%p(i)=mnnz+1
384 I_cf_rowp(level1)%p(mnnz+j)=amg_I_rowp%pp(i)%p(j)
385 I_cf(level1)%p(mnnz+j)=amg_I%pp(i)%p(j)
387 mnnz = mnnz + amg_I_colm%p(i)
389 I_cf_colm(level1)%p(amg_nshg(level1)+1) = mnnz+1
424 allocate(I_fc_rowp(level1)%p(mnnz),stat=mem_err)
426 allocate(I_fc(level1)%p(mnnz),stat=mem_err)
433 do i=1,mnnz
437 mnnz = 1
440 I_fc_colm(level1)%p(i) = mnnz
441 mnnz = mnnz + j
443 I_fc_colm(level1)%p(amg_nshg(level2)+1) = mnnz