xref: /petsc/src/sys/tests/ex27.c (revision 327415f76d85372a4417cf1aaa14db707d4d6c04)
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*327415f7SBarry Smith   PetscFunctionBeginUser;
139566063dSJacob Faibussowitsch   PetscCall(PetscInitialize(&argc,&argv,(char*)0,help));
149566063dSJacob Faibussowitsch   PetscCall(PetscMergeIntArray(5,first,6,second,&n,&result));
159566063dSJacob Faibussowitsch   PetscCall(PetscIntView(n,result,PETSC_VIEWER_STDOUT_SELF));
169566063dSJacob Faibussowitsch   PetscCall(PetscFinalize());
17b122ec5aSJacob Faibussowitsch   return 0;
18c4762a1bSJed Brown }
19