Lines Matching refs:sub_nnz
81 allocate(sub_nnz%p(numtask))
119 sub_nnz%p(i) = 0
121 sub_colm%pp(i)%p(j) = sub_nnz%p(i) + 1
133 sub_nnz%p(i) = sub_nnz%p(i) + 1
138 sub_colm%pp(i)%p(numseg+1) = sub_nnz%p(i) + 1
181 allocate(sub_rowp%pp(i)%p(sub_nnz%p(i)))
183 allocate(sub_rowpmap%pp(i)%p(sub_nnz%p(i)))
184 allocate(sub_mtx%pp(i)%p(redun,sub_nnz%p(i)))
205 call MPI_ISEND(sub_rowp%pp(i)%p(1),sub_nnz%p(i),MPI_INTEGER,
213 call MPI_ISEND(sub_rowp%pp(i)%p(1),sub_nnz%p(i),MPI_INTEGER,
218 call MPI_ISEND(sub_mtx%pp(i)%p(1,1),redun*sub_nnz%p(i),
229 call MPI_ISEND(sub_mtx%pp(i)%p(1,1),redun*sub_nnz%p(i),
469 deallocate(sub_nnz%p)