1c4762a1bSJed Brown static char help[] = "Test AO with on IS with 0 entries - contributed by Ethan Coon <ecoon@lanl.gov>, Apr 2011.\n\n";
2c4762a1bSJed Brown
3c4762a1bSJed Brown #include <petscsys.h>
4c4762a1bSJed Brown #include <petscao.h>
5c4762a1bSJed Brown
main(int argc,char ** argv)6d71ae5a4SJacob Faibussowitsch int main(int argc, char **argv)
7d71ae5a4SJacob Faibussowitsch {
8c4762a1bSJed Brown AO ao;
9c4762a1bSJed Brown PetscInt *localvert = NULL, nlocal;
10c4762a1bSJed Brown PetscMPIInt rank;
11c4762a1bSJed Brown
12327415f7SBarry Smith PetscFunctionBeginUser;
13c8025a54SPierre Jolivet PetscCall(PetscInitialize(&argc, &argv, NULL, help));
149566063dSJacob Faibussowitsch PetscCallMPI(MPI_Comm_rank(PETSC_COMM_WORLD, &rank));
159566063dSJacob Faibussowitsch PetscCall(PetscMalloc1(4, &localvert));
16c4762a1bSJed Brown
17dd400576SPatrick Sanan if (rank == 0) {
18c4762a1bSJed Brown nlocal = 4;
19c4762a1bSJed Brown localvert[0] = 0;
20c4762a1bSJed Brown localvert[1] = 1;
21c4762a1bSJed Brown localvert[2] = 2;
22c4762a1bSJed Brown localvert[3] = 3;
23c4762a1bSJed Brown } else {
24c4762a1bSJed Brown nlocal = 0;
25c4762a1bSJed Brown }
26c4762a1bSJed Brown
27c4762a1bSJed Brown /* Test AOCreateBasic() */
289566063dSJacob Faibussowitsch PetscCall(AOCreateBasic(PETSC_COMM_WORLD, nlocal, localvert, NULL, &ao));
299566063dSJacob Faibussowitsch PetscCall(AODestroy(&ao));
30c4762a1bSJed Brown
31c4762a1bSJed Brown /* Test AOCreateMemoryScalable() */
329566063dSJacob Faibussowitsch PetscCall(AOCreateMemoryScalable(PETSC_COMM_WORLD, nlocal, localvert, NULL, &ao));
339566063dSJacob Faibussowitsch PetscCall(AODestroy(&ao));
34c4762a1bSJed Brown
359566063dSJacob Faibussowitsch PetscCall(PetscFree(localvert));
369566063dSJacob Faibussowitsch PetscCall(PetscFinalize());
37b122ec5aSJacob Faibussowitsch return 0;
38c4762a1bSJed Brown }
39c4762a1bSJed Brown
40c4762a1bSJed Brown /*TEST
41c4762a1bSJed Brown
42c4762a1bSJed Brown test:
43*3886731fSPierre Jolivet output_file: output/empty.out
44c4762a1bSJed Brown
45c4762a1bSJed Brown test:
46c4762a1bSJed Brown suffix: 2
47c4762a1bSJed Brown nsize: 2
48*3886731fSPierre Jolivet output_file: output/empty.out
49c4762a1bSJed Brown
50c4762a1bSJed Brown TEST*/
51