xref: /petsc/src/sys/tests/ex27.c (revision 5f80ce2ab25dff0f4601e710601cbbcecf323266)
1c4762a1bSJed Brown 
2c4762a1bSJed Brown static char help[] = "Tests PetscMergeIntArray\n";
3c4762a1bSJed Brown 
4c4762a1bSJed Brown #include <petscsys.h>
5c4762a1bSJed Brown #include <petscviewer.h>
6c4762a1bSJed Brown 
7c4762a1bSJed Brown int main(int argc,char **argv)
8c4762a1bSJed Brown {
9c4762a1bSJed Brown   const PetscInt first[] = {0,2,3,5,8}, second[] = {1,3,4,8,10,11};
10c4762a1bSJed Brown   PetscInt       *result,n;
11c4762a1bSJed Brown   PetscErrorCode ierr;
12c4762a1bSJed Brown 
13c4762a1bSJed Brown   ierr = PetscInitialize(&argc,&argv,(char*)0,help);if (ierr) return ierr;
14*5f80ce2aSJacob Faibussowitsch   CHKERRQ(PetscMergeIntArray(5,first,6,second,&n,&result));
15*5f80ce2aSJacob Faibussowitsch   CHKERRQ(PetscIntView(n,result,PETSC_VIEWER_STDOUT_SELF));
16c4762a1bSJed Brown   ierr = PetscFinalize();
17c4762a1bSJed Brown   return ierr;
18c4762a1bSJed Brown }
19