8   Vec         x, y;  in main()  local
37   PetscCall(VecScatterCreateToZero(x, &vscat, &y));  in main()
38   PetscCall(PetscObjectSetName((PetscObject)y, "y"));  in main()
40   /* Test PetscSFBcastAndOp with op = MPI_REPLACE, which does y = x on rank 0 */  in main()
41   PetscCall(VecScatterBegin(vscat, x, y, INSERT_VALUES, SCATTER_FORWARD));  in main()
42   PetscCall(VecScatterEnd(vscat, x, y, INSERT_VALUES, SCATTER_FORWARD));  in main()
43   if (rank == 0) PetscCall(VecView(y, PETSC_VIEWER_STDOUT_SELF));  in main()
45   /* Test PetscSFBcastAndOp with op = MPI_SUM, which does y += x */  in main()
46   PetscCall(VecScatterBegin(vscat, x, y, ADD_VALUES, SCATTER_FORWARD));  in main()
47   PetscCall(VecScatterEnd(vscat, x, y, ADD_VALUES, SCATTER_FORWARD));  in main()
48   if (rank == 0) PetscCall(VecView(y, PETSC_VIEWER_STDOUT_SELF));  in main()
50   /* Test PetscSFReduce with op = MPI_REPLACE, which does x = y */  in main()
51   PetscCall(VecScatterBegin(vscat, y, x, INSERT_VALUES, SCATTER_REVERSE));  in main()
52   PetscCall(VecScatterEnd(vscat, y, x, INSERT_VALUES, SCATTER_REVERSE));  in main()
55   /* Test PetscSFReduce with op = MPI_SUM, which does x += y on x's local part on rank 0*/  in main()
56   PetscCall(VecScatterBegin(vscat, y, x, ADD_VALUES, SCATTER_REVERSE_LOCAL));  in main()
57   PetscCall(VecScatterEnd(vscat, y, x, ADD_VALUES, SCATTER_REVERSE_LOCAL));  in main()
60   PetscCall(VecDestroy(&y));  in main()
72   PetscCall(VecScatterCreateToAll(x, &vscat, &y));  in main()
73   PetscCall(PetscObjectSetName((PetscObject)y, "y"));  in main()
75   /* Test PetscSFBcastAndOp with op = MPI_REPLACE, which does y = x on all ranks */  in main()
76   PetscCall(VecScatterBegin(vscat, x, y, INSERT_VALUES, SCATTER_FORWARD));  in main()
77   PetscCall(VecScatterEnd(vscat, x, y, INSERT_VALUES, SCATTER_FORWARD));  in main()
78   if (rank == 0) PetscCall(VecView(y, PETSC_VIEWER_STDOUT_SELF));  in main()
80   /* Test PetscSFBcastAndOp with op = MPI_SUM, which does y += x */  in main()
81   PetscCall(VecScatterBegin(vscat, x, y, ADD_VALUES, SCATTER_FORWARD));  in main()
82   PetscCall(VecScatterEnd(vscat, x, y, ADD_VALUES, SCATTER_FORWARD));  in main()
83   if (rank == 0) PetscCall(VecView(y, PETSC_VIEWER_STDOUT_SELF));  in main()
85   /* Test PetscSFReduce with op = MPI_REPLACE, which does x = y */  in main()
86   PetscCall(VecScatterBegin(vscat, y, x, INSERT_VALUES, SCATTER_REVERSE));  in main()
87   PetscCall(VecScatterEnd(vscat, y, x, INSERT_VALUES, SCATTER_REVERSE));  in main()
90   /* Test PetscSFReduce with op = MPI_SUM, which does x += size*y */  in main()
91   PetscCall(VecScatterBegin(vscat, y, x, ADD_VALUES, SCATTER_REVERSE));  in main()
92   PetscCall(VecScatterEnd(vscat, y, x, ADD_VALUES, SCATTER_REVERSE));  in main()
95   PetscCall(VecDestroy(&y));  in main()