| /petsc/src/mat/tests/ |
| H A D | ex58.c | 8 PetscInt m = 7, n, i, rstart, rend, cols[3]; in main() local 22 PetscCall(MatGetOwnershipRange(A, &rstart, &rend)); in main() 31 if (rend == m) { in main() 32 rend--; in main() 33 cols[0] = rend - 1; in main() 34 cols[1] = rend; in main() 37 PetscCall(MatSetValues(A, 1, &rend, 2, cols, v, INSERT_VALUES)); in main() 42 for (i = rstart; i < rend; i++) { in main()
|
| H A D | ex59.c | 8 PetscInt i, j, m = 3, n = 2, rstart, rend; in main() local 31 PetscCall(MatGetOwnershipRange(C, &rstart, &rend)); in main() 32 for (i = rstart; i < rend; i++) { in main() 48 PetscCall(MatGetOwnershipRange(C, &rstart, &rend)); in main() 50 PetscCall(ISCreateStride(PETSC_COMM_WORLD, (rend - rstart) / 2, rstart, 2, &isrow)); in main() 52 PetscCall(ISCreateStride(PETSC_COMM_WORLD, (rend - rstart) / 2, rstart, 2, &iscol)); in main()
|
| H A D | ex194.c | 8 PetscInt i, j, m = 3, n = 2, rstart, rend, cstart, cend; in main() local 28 PetscCall(MatGetOwnershipRange(C, &rstart, &rend)); in main() 29 for (i = rstart; i < rend; i++) { in main() 44 PetscCall(MatGetOwnershipRange(C, &rstart, &rend)); in main() 47 …PetscCall(ISCreateStride(PETSC_COMM_WORLD, rend - rstart > 0 ? rend - rstart - 1 : 0, rstart, 1, &… in main()
|
| H A D | ex225.c | 104 PetscInt rstart, rend, nzA, nzB; in main() local 110 PetscCall(MatGetOwnershipRange(A, &rstart, &rend)); in main() 111 for (i = rstart; i < rend; i++) { in main() 124 PetscCall(MatGetOwnershipRange(A, &rstart, &rend)); in main() 125 …PetscCall(PetscCalloc3((rend - rstart) * 6, &valuesA, (rend - rstart) * 6, &valuesB, rend - rstart… in main() 126 for (i = rstart; i < rend; i++) rows[i - rstart] = i; in main() 128 PetscCall(MatGetValues(A, rend - rstart, rows, 6, cols, valuesA)); in main() 129 PetscCall(MatGetValues(B, rend - rstart, rows, 6, cols, valuesB)); in main() 131 for (i = 0; i < (rend - rstart); i++) { in main()
|
| H A D | ex181.c | 8 PetscInt i, j, m = 3, n = 2, rstart, rend; in main() local 30 PetscCall(MatGetOwnershipRange(C, &rstart, &rend)); in main() 31 for (i = rstart; i < rend; i++) { in main() 46 PetscCall(MatGetOwnershipRange(C, &rstart, &rend)); in main() 52 PetscCall(ISCreateStride(PETSC_COMM_WORLD, rend - rstart, rstart, 1, &isrow)); in main()
|
| H A D | ex44.c | 15 PetscInt M, N, rstart, rend, i, j; in CheckValuesAIJ() local 21 PetscCall(MatGetOwnershipRange(A, &rstart, &rend)); in CheckValuesAIJ() 22 for (i = rstart; i < rend; i++) { in CheckValuesAIJ() 37 PetscInt rstart, rend, i, j; in main() local 50 PetscCall(MatGetOwnershipRange(A, &rstart, &rend)); in main() 51 for (i = rstart; i < rend; i++) { in main()
|
| H A D | ex45.c | 15 PetscInt M, N, rstart, rend, i, j; in CheckValuesAIJ() local 21 PetscCall(MatGetOwnershipRange(A, &rstart, &rend)); in CheckValuesAIJ() 22 for (i = rstart; i < rend; i++) { in CheckValuesAIJ() 37 PetscInt rstart, rend, i, j; in main() local 51 PetscCall(MatGetOwnershipRange(A, &rstart, &rend)); in main() 52 for (i = rstart; i < rend; i++) { in main()
|
| H A D | ex236.c | 9 PetscInt i, j, k, n = 3, vstart, rstart, rend, margin; in main() local 23 PetscCall(MatGetOwnershipRange(A, &rstart, &rend)); in main() 41 for (i = rstart; i < rend - margin; i++) { in main() 42 for (j = rstart; j < rend; j++) { in main()
|
| H A D | ex50.c | 15 PetscInt M, N, rstart, rend, i, j; in CheckValuesAIJ() local 22 PetscCall(MatGetOwnershipRange(A, &rstart, &rend)); in CheckValuesAIJ() 26 for (i = rstart; i < rend; i++) { in CheckValuesAIJ() 41 PetscInt rstart, rend, i, j; in main() local 55 PetscCall(MatGetOwnershipRange(A, &rstart, &rend)); in main() 56 for (i = rstart; i < rend; i++) { in main()
|
| H A D | ex301.c | 8 PetscInt i, j, rstart, rend, m = 3; in main() local 23 PetscCall(MatGetOwnershipRange(A, &rstart, &rend)); in main() 36 for (j = rstart; j < rend; j++) PetscCall(MatSetValue(A, j, j, one, INSERT_VALUES)); in main() 41 for (j = rstart; j < rend; j++) PetscCall(MatSetValuesRow(A, j, &one)); in main()
|
| H A D | ex16.c | 9 PetscInt M, N, rstart, rend, lda, i, j; in CheckValues() local 15 PetscCall(MatGetOwnershipRange(A, &rstart, &rend)); in CheckValues() 16 for (i = rstart; i < rend; i++) { in CheckValues() 34 PetscInt i, j, M = 4, N = 3, rstart, rend; in main() local 88 PetscCall(MatGetOwnershipRange(A, &rstart, &rend)); in main() 89 PetscCall(PetscMalloc1((rend - rstart) * N, &array)); in main() 90 for (i = 0; i < (rend - rstart) * N; i++) array[i] = (PetscReal)1; in main()
|
| H A D | ex160.c | 7 PetscInt i, rstart, rend; in main() local 24 PetscCall(MatGetOwnershipRange(A, &rstart, &rend)); in main() 25 for (i = rstart; i < rend; i++) PetscCall(MatSetValues(A, 1, &i, 1, &i, &v, INSERT_VALUES)); in main()
|
| H A D | ex183.c | 29 PetscInt m, n, N, bs, rstart, rend, i, j, k, total_subdomains, hash, nsubdomains = 1; in main() local 72 PetscCall(MatGetOwnershipRange(A, &rstart, &rend)); in main() 74 for (i = rstart; i < rend; i++) { in main() 95 PetscCall(MatGetOwnershipRange(A, &rstart, &rend)); in main() 97 PetscCall(PetscMalloc2(rend - rstart, &rowindices, rend - rstart, &colindices)); in main() 99 for (j = rstart; j < rend; ++j) { in main() 108 PetscCall(ISCreateGeneral(subcomm, rend - rstart, rowindices, PETSC_COPY_VALUES, &rowis[0])); in main() 109 PetscCall(ISCreateGeneral(subcomm, rend - rstart, colindices, PETSC_COPY_VALUES, &colis[0])); in main()
|
| H A D | ex107.c | 8 PetscInt m = 7, n, i, j, rstart, rend; in main() local 29 PetscCall(MatGetOwnershipRange(mat, &rstart, &rend)); in main() 30 for (i = rstart; i < rend; i++) { in main()
|
| /petsc/src/mat/tutorials/ |
| H A D | ex4.c | 13 PetscInt n = 5, m = 5, *dnnz, *onnz, i, rstart, rend, M, N; in main() local 38 PetscCall(MatGetOwnershipRange(A, &rstart, &rend)); in main() 40 for (i = rstart; i < rend; i++) { in main() 42 if (rend < N) PetscCall(MatSetValue(A, i, rend, 1.0, INSERT_VALUES)); in main()
|
| H A D | ex4f.F90 | 11 PetscInt :: i, rstart, rend, M1, N1 37 PetscCallA(MatGetOwnershipRange(A, rstart, rend, ierr)) 39 do i = rstart, rend - 1 41 if (rend < N1) PetscCallA(MatSetValue(A, i, rend, one, INSERT_VALUES, ierr))
|
| /petsc/src/vec/is/is/tests/ |
| H A D | ex6.c | 9 PetscInt i, j, n, cnt = 0, rstart, rend; in main() local 20 rend = 3 * (size + 2) * (rank + 1); /* end of local range */ in main() 28 PetscCall(PetscCalloc1(rend - rstart, &mask)); in main() 32 PetscCall(ISGeneralSetIndicesFromMask(is[0], rstart, rend, mask)); in main() 50 PetscCall(ISComplement(is[0], rstart, rend, &isc)); in main()
|
| /petsc/src/mat/graphops/color/impls/minpack/ |
| H A D | color.c | 38 PetscInt bs = 1, rstart, rend, N_loc, nc; in MatColoringApply_SL() local 88 rend = mat->rmap->rend / bs; in MatColoringApply_SL() 89 N_loc = rend - rstart; /* number of local nodes */ in MatColoringApply_SL() 93 for (i = rstart; i < rend; i++) colors_loc[i - rstart] = iscoloring_seq->colors[i]; in MatColoringApply_SL() 138 PetscInt bs = 1, rstart, rend, N_loc, nc; in MatColoringApply_LF() local 190 rend = mat->rmap->rend / bs; in MatColoringApply_LF() 191 N_loc = rend - rstart; /* number of local nodes */ in MatColoringApply_LF() 195 for (i = rstart; i < rend; i++) colors_loc[i - rstart] = iscoloring_seq->colors[i]; in MatColoringApply_LF() 241 PetscInt bs = 1, rstart, rend, N_loc, nc; in MatColoringApply_ID() local 292 rend = mat->rmap->rend / bs; in MatColoringApply_ID() [all …]
|
| /petsc/src/mat/graphops/color/impls/natural/ |
| H A D | natural.c | 15 PetscInt rstart, rend, N_loc, nc; in MatColoringApply_Natural() local 47 rend = mat->rmap->rend / bs; in MatColoringApply_Natural() 48 N_loc = rend - rstart; /* number of local nodes */ in MatColoringApply_Natural() 52 for (i = rstart; i < rend; i++) colors_loc[i - rstart] = iscoloring_seq->colors[i]; in MatColoringApply_Natural()
|
| /petsc/src/ksp/ksp/tests/ |
| H A D | ex60.c | 13 PetscInt M = 8, N = 8, m, n, rstart, rend, r; in main() local 36 PetscCall(MatGetOwnershipRange(A, &rstart, &rend)); in main() 37 for (r = rstart; r < rend; ++r) { in main() 78 PetscCall(PetscMalloc1(rend - rstart, &rows)); in main() 79 for (r = rstart; r < rend; ++r) rows[r - rstart] = r; in main() 80 PetscCall(ISCreateGeneral(PETSC_COMM_SELF, rend - rstart, rows, PETSC_OWN_POINTER, &is)); in main()
|
| H A D | ex28.c | 12 PetscInt i, n = 10, col[3], its, rstart, rend, nlocal; in main() local 43 PetscCall(VecGetOwnershipRange(x, &rstart, &rend)); in main() 61 if (rend == n) { in main() 62 rend = n - 1; in main() 75 for (i = rstart; i < rend; i++) { in main()
|
| /petsc/src/vec/vec/tests/ |
| H A D | ex38.c | 10 PetscInt i, rstart, rend, idxs[3]; in main() local 26 PetscCall(VecGetOwnershipRange(X, &rstart, &rend)); in main() 29 for (i = 0; i < rend - rstart; i++) x[i] = rstart + i; in main() 45 PetscCall(ISCreateStride(comm, (rend - rstart) / 3 + 3 * (rank > size / 2), rstart, 1, &is0)); in main() 46 PetscCall(ISComplement(is0, rstart, rend, &is1)); in main()
|
| /petsc/src/ksp/ksp/tutorials/ |
| H A D | ex23.c | 22 PetscInt i, n = 10, col[3], its, rstart, rend, nlocal; in main() local 50 PetscCall(VecGetOwnershipRange(x, &rstart, &rend)); in main() 88 if (rend == n) { in main() 89 rend = n - 1; in main() 102 for (i = rstart; i < rend; i++) { in main()
|
| /petsc/src/mat/graphops/order/ |
| H A D | sorder.c | 176 PetscInt i, rstart, rend, *idx; in MatGetOrdering() local 181 PetscCall(MatGetOwnershipRange(mat, &rstart, &rend)); in MatGetOrdering() 184 PetscCall(PetscMalloc1(rend - rstart, &idx)); in MatGetOrdering() 185 for (i = 0; i + rstart < rend; i++) idx[i] = rstart + lidx[i]; in MatGetOrdering() 188 …PetscCall(ISCreateGeneral(PetscObjectComm((PetscObject)mat), rend - rstart, idx, PETSC_OWN_POINTER… in MatGetOrdering() 192 PetscCall(PetscMalloc1(rend - rstart, &idx)); in MatGetOrdering() 193 for (i = 0; i + rstart < rend; i++) idx[i] = rstart + lidx[i]; in MatGetOrdering() 196 …PetscCall(ISCreateGeneral(PetscObjectComm((PetscObject)mat), rend - rstart, idx, PETSC_OWN_POINTER… in MatGetOrdering()
|
| /petsc/src/binding/petsc4py/demo/legacy/petsc-examples/ksp/ |
| H A D | ex23.py | 54 rstart,rend = x.getOwnershipRange() variable 92 if rend == n: 93 rend = n-1 variable 100 for i in range(rstart,rend):
|