static char help[] = "Test AO with on IS with 0 entries - contributed by Ethan Coon , Apr 2011.\n\n"; #include #include int main(int argc, char **argv) { AO ao; PetscInt *localvert = NULL, nlocal; PetscMPIInt rank; PetscFunctionBeginUser; PetscCall(PetscInitialize(&argc, &argv, NULL, help)); PetscCallMPI(MPI_Comm_rank(PETSC_COMM_WORLD, &rank)); PetscCall(PetscMalloc1(4, &localvert)); if (rank == 0) { nlocal = 4; localvert[0] = 0; localvert[1] = 1; localvert[2] = 2; localvert[3] = 3; } else { nlocal = 0; } /* Test AOCreateBasic() */ PetscCall(AOCreateBasic(PETSC_COMM_WORLD, nlocal, localvert, NULL, &ao)); PetscCall(AODestroy(&ao)); /* Test AOCreateMemoryScalable() */ PetscCall(AOCreateMemoryScalable(PETSC_COMM_WORLD, nlocal, localvert, NULL, &ao)); PetscCall(AODestroy(&ao)); PetscCall(PetscFree(localvert)); PetscCall(PetscFinalize()); return 0; } /*TEST test: output_file: output/empty.out test: suffix: 2 nsize: 2 output_file: output/empty.out TEST*/