Searched refs:bigranks (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()
24 …PetscCall(PetscOptionsIntArray("-bigranks", "Ranks to be overloaded", "", bigranks, &nbigranks, NU… in main()
31 if (rank == bigranks[i]) m = 5; in main()
62 PetscCall(PetscFree2(emptyranks, bigranks)); in main()
|
| H A D | ex17f.F90 | 12 PetscInt, pointer, dimension(:) :: emptyranks, bigranks, cols
28 allocate (bigranks(nbigranks))
31 …tionsGetIntArray(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-bigranks', bigranks, nbigranks, set, …
38 if (rank == bigranks(i)) m = 5
42 deallocate (bigranks)
|