xref: /petsc/src/sys/tests/ex27.c (revision 9566063d113dddea24716c546802770db7481bc0)
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 
12*9566063dSJacob Faibussowitsch   PetscCall(PetscInitialize(&argc,&argv,(char*)0,help));
13*9566063dSJacob Faibussowitsch   PetscCall(PetscMergeIntArray(5,first,6,second,&n,&result));
14*9566063dSJacob Faibussowitsch   PetscCall(PetscIntView(n,result,PETSC_VIEWER_STDOUT_SELF));
15*9566063dSJacob Faibussowitsch   PetscCall(PetscFinalize());
16b122ec5aSJacob Faibussowitsch   return 0;
17c4762a1bSJed Brown }
18