1 2 static char help[] = "Test AO with on IS with 0 entries - contributed by Ethan Coon <ecoon@lanl.gov>, Apr 2011.\n\n"; 3 4 #include <petscsys.h> 5 #include <petscao.h> 6 7 int main(int argc,char **argv) 8 { 9 PetscErrorCode ierr; 10 AO ao; 11 PetscInt *localvert=NULL, nlocal; 12 PetscMPIInt rank; 13 14 ierr = PetscInitialize(&argc,&argv,(char*)0,help);if (ierr) return ierr; 15 ierr = MPI_Comm_rank(PETSC_COMM_WORLD,&rank);CHKERRMPI(ierr); 16 ierr = PetscMalloc1(4,&localvert);CHKERRQ(ierr); 17 18 if (!rank) { 19 nlocal = 4; 20 localvert[0] = 0; 21 localvert[1] = 1; 22 localvert[2] = 2; 23 localvert[3] = 3; 24 } else { 25 nlocal = 0; 26 } 27 28 /* Test AOCreateBasic() */ 29 ierr = AOCreateBasic(PETSC_COMM_WORLD, nlocal, localvert, NULL, &ao);CHKERRQ(ierr); 30 ierr = AODestroy(&ao);CHKERRQ(ierr); 31 32 /* Test AOCreateMemoryScalable() */ 33 ierr = AOCreateMemoryScalable(PETSC_COMM_WORLD, nlocal, localvert, NULL, &ao);CHKERRQ(ierr); 34 ierr = AODestroy(&ao);CHKERRQ(ierr); 35 36 ierr = PetscFree(localvert);CHKERRQ(ierr); 37 ierr = PetscFinalize(); 38 return ierr; 39 } 40 41 /*TEST 42 43 test: 44 45 test: 46 suffix: 2 47 nsize: 2 48 output_file: output/ex4_1.out 49 50 TEST*/ 51