Searched refs:emptyranks (Results 1 – 2 of 2) sorted by relevance
| /petsc/src/mat/tutorials/ |
| H A D | ex17.c | 10 PetscInt i, m, N, rstart, rend, nemptyranks, *emptyranks, nbigranks, *bigranks; in main() local
20 PetscCall(PetscMalloc2(nemptyranks, &emptyranks, nbigranks, &bigranks)); in main()
23 …PetscCall(PetscOptionsIntArray("-emptyranks", "Ranks to be skipped by partition", "", emptyranks, … in main()
29 if (rank == emptyranks[i]) m = 0; in main()
62 PetscCall(PetscFree2(emptyranks, bigranks)); in main()
|
| H A D | ex17f.F90 | 12 PetscInt, pointer, dimension(:) :: emptyranks, bigranks, cols
27 allocate (emptyranks(nemptyranks))
30 …nsGetIntArray(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-emptyranks', emptyranks, nemptyranks, se…
35 if (rank == emptyranks(i)) m = 0
41 deallocate (emptyranks)
|