Searched refs:blocksizes (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/mat/tests/ |
| H A D | ex178.c | 10 PetscInt i, j, rows[2], *parts, cnt, N = 21, nblocks, *blocksizes; in main() local
70 PetscCall(PetscMalloc1(nblocks, &blocksizes)); in main()
73 blocksizes[i] = PetscMax(1, (PetscInt)(N * rand)); in main()
74 blocksizes[i] = PetscMin(blocksizes[i], N - cnt); in main()
75 cnt += blocksizes[i]; in main()
81 if (cnt < N) blocksizes[nblocks - 1] = N - cnt; in main()
83 PetscCall(BuildMatrix(parts, nblocks, blocksizes, &A)); in main()
84 PetscCall(PetscFree(blocksizes)); in main()
131 PetscErrorCode BuildMatrix(const PetscInt *parts, PetscInt nblocks, const PetscInt *blocksizes, Mat… in BuildMatrix() argument
142 PetscCall(MatSetValue(*A, cnt, cnt + blocksizes[i] - 1, 1.0, INSERT_VALUES)); in BuildMatrix()
[all …]
|