Searched refs:blks (Results 1 – 3 of 3) sorted by relevance
| /petsc/src/vec/vec/tests/ |
| H A D | ex24.c | 9 PetscInt n = 5, i, *blks, bs = 1, m = 2; in main() local
34 PetscCall(PetscMalloc1(m, &blks)); in main()
35 blks[0] = n * rank; in main()
36 for (i = 1; i < m; i++) blks[i] = blks[i - 1] + 1; in main()
37 PetscCall(ISCreateBlock(PETSC_COMM_SELF, bs, m, blks, PETSC_COPY_VALUES, &is1)); in main()
38 PetscCall(PetscFree(blks)); in main()
|
| /petsc/src/ksp/ksp/tutorials/ |
| H A D | ex7f.F90 | 34 PetscInt :: blks(4)
44 blks(1) = n
45 blks(2) = n
46 blks(3) = n
47 blks(4) = n
134 PetscCallA(PCBJacobiSetTotalBlocks(myPc, m, blks, ierr))
|
| H A D | ex7.c | 34 PetscInt i, j, Ii, J, *blks, m = 4, n; in main() local
141 PetscCall(PetscMalloc1(m, &blks)); in main()
142 for (i = 0; i < m; i++) blks[i] = n; in main()
143 PetscCall(PCBJacobiSetTotalBlocks(pc, m, blks)); in main()
144 PetscCall(PetscFree(blks)); in main()
|