Lines Matching refs:nr
25 PetscInt rst, ren, cst, cen, nr, nc, rbs = 1, cbs = 1; in main() local
120 PetscInt nr, nc; in main() local
122 PetscCall(ISLocalToGlobalMappingGetSize(rmap, &nr)); in main()
124 if (nr != nc) squaretest = PETSC_FALSE; in main()
128 PetscCall(PetscArraycmp(idxs1, idxs2, nr, &squaretest)); in main()
459 nr = 2; in main()
461 PetscCall(PetscOptionsGetInt(NULL, NULL, "-nr", &nr, NULL)); in main()
470 PetscCall(PetscMalloc3(nr, &rows, nc, &cols, 2 * nr * nc, &mats)); in main()
471 for (i = 0; i < nr * nc; i++) { in main()
474 PetscCall(MatTranspose(B, MAT_INITIAL_MATRIX, &mats[i + nr * nc])); in main()
477 PetscCall(MatDuplicate(B, MAT_COPY_VALUES, &mats[i + nr * nc])); in main()
480 …for (i = 0; i < nr; i++) PetscCall(ISCreateStride(PETSC_COMM_WORLD, ren - rst, i + rst, nr, &rows[… in main()
482 PetscCall(MatCreateNest(PETSC_COMM_WORLD, nr, rows, nc, cols, mats, &A2)); in main()
483 PetscCall(MatCreateNest(PETSC_COMM_WORLD, nr, rows, nc, cols, mats + nr * nc, &B2)); in main()
484 for (i = 0; i < nr; i++) PetscCall(ISDestroy(&rows[i])); in main()
486 for (i = 0; i < 2 * nr * nc; i++) PetscCall(MatDestroy(&mats[i])); in main()