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