Searched refs:sub_nnz (Results 1 – 2 of 2) sorted by relevance
81 allocate(sub_nnz%p(numtask))119 sub_nnz%p(i) = 0121 sub_colm%pp(i)%p(j) = sub_nnz%p(i) + 1133 sub_nnz%p(i) = sub_nnz%p(i) + 1138 sub_colm%pp(i)%p(numseg+1) = sub_nnz%p(i) + 1181 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,[all …]
45 type(i1d) :: sub_nnz,sub_nnz2,sub_nshg variable