xref: /petsc/src/sys/tests/ex27.c (revision d71ae5a4db6382e7f06317b8d368875286fe9008)
1c4762a1bSJed Brown 
2c4762a1bSJed Brown static char help[] = "Tests PetscMergeIntArray\n";
3c4762a1bSJed Brown 
4c4762a1bSJed Brown #include <petscsys.h>
5c4762a1bSJed Brown #include <petscviewer.h>
6c4762a1bSJed Brown 
7*d71ae5a4SJacob Faibussowitsch int main(int argc, char **argv)
8*d71ae5a4SJacob Faibussowitsch {
9c4762a1bSJed Brown   const PetscInt first[] = {0, 2, 3, 5, 8}, second[] = {1, 3, 4, 8, 10, 11};
10c4762a1bSJed Brown   PetscInt      *result, n;
11c4762a1bSJed Brown 
12327415f7SBarry 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