Lines Matching refs:I_fc_colm
422 allocate(I_fc_colm(level1)%p(amg_nshg(level2)+1),stat=mem_err)
432 I_fc_colm(level1)%p(1:amg_nshg(level2)+1) = 0
434 I_fc_colm(level1)%p(I_cf_rowp(level1)%p(i)) =
435 & I_fc_colm(level1)%p(I_cf_rowp(level1)%p(i)) + 1
439 j = I_fc_colm(level1)%p(i)
440 I_fc_colm(level1)%p(i) = mnnz
443 I_fc_colm(level1)%p(amg_nshg(level2)+1) = mnnz
448 kj = I_fc_colm(level1)%p(j)
449 I_fc_colm(level1)%p(j) = I_fc_colm(level1)%p(j) + 1
456 I_fc_colm(level1)%p(i) = I_fc_colm(level1)%p(i-1)
458 I_fc_colm(level1)%p(1) = 1