Searched refs:icnt (Results 1 – 3 of 3) sorted by relevance
1 subroutine genadj (colm, rowp, icnt ) argument52 icnt=059 icnt=icnt+162 rowp(icnt)=imin69 nnza=icnt/nshg +170 if(icnt.gt.nnz*nshg) then
169 call genadj(colm, rowp, icnt ) ! preprocess the adjacency list171 nnz_tot=icnt ! this is exactly the number of non-zero
1509 call genadj(colm, rowp, icnt ) ! preprocess the adjacency list1511 nnz_tot=icnt ! this is exactly the number of non-zero blocks on