xref: /petsc/src/sys/tests/ex27.c (revision 732aec7a18f2199fb53bb9a2f3aef439a834ce31)
1c4762a1bSJed Brown static char help[] = "Tests PetscMergeIntArray\n";
2c4762a1bSJed Brown 
3c4762a1bSJed Brown #include <petscsys.h>
4c4762a1bSJed Brown #include <petscviewer.h>
5c4762a1bSJed Brown 
main(int argc,char ** argv)6d71ae5a4SJacob Faibussowitsch int main(int argc, char **argv)
7d71ae5a4SJacob Faibussowitsch {
8c4762a1bSJed Brown   const PetscInt first[] = {0, 2, 3, 5, 8}, second[] = {1, 3, 4, 8, 10, 11};
9c4762a1bSJed Brown   PetscInt      *result, n;
10c4762a1bSJed Brown 
11327415f7SBarry Smith   PetscFunctionBeginUser;
12*c8025a54SPierre Jolivet   PetscCall(PetscInitialize(&argc, &argv, NULL, help));
139566063dSJacob Faibussowitsch   PetscCall(PetscMergeIntArray(5, first, 6, second, &n, &result));
149566063dSJacob Faibussowitsch   PetscCall(PetscIntView(n, result, PETSC_VIEWER_STDOUT_SELF));
159566063dSJacob Faibussowitsch   PetscCall(PetscFinalize());
16b122ec5aSJacob Faibussowitsch   return 0;
17c4762a1bSJed Brown }
18