1c4762a1bSJed Brown static char help[] = "Tests retrieving unused PETSc options.\n\n";
2c4762a1bSJed Brown
3c4762a1bSJed Brown #include <petscsys.h>
4c4762a1bSJed Brown
main(int argc,char ** argv)5d71ae5a4SJacob Faibussowitsch int main(int argc, char **argv)
6d71ae5a4SJacob Faibussowitsch {
7c4762a1bSJed Brown PetscInt i, N, M;
8c4762a1bSJed Brown char **names, **values;
9c4762a1bSJed Brown PetscBool set;
10c4762a1bSJed Brown
11327415f7SBarry Smith PetscFunctionBeginUser;
12*c8025a54SPierre Jolivet PetscCall(PetscInitialize(&argc, &argv, NULL, help));
13c4762a1bSJed Brown
149566063dSJacob Faibussowitsch PetscCall(PetscOptionsGetInt(NULL, NULL, "-get_an_integer", &M, &set));
159566063dSJacob Faibussowitsch if (set) PetscCall(PetscPrintf(PETSC_COMM_WORLD, "Option used: name:-get_an_integer value: %" PetscInt_FMT "\n", M));
169566063dSJacob Faibussowitsch PetscCall(PetscOptionsLeftGet(NULL, &N, &names, &values));
17c4762a1bSJed Brown for (i = 0; i < N; i++) {
18c4762a1bSJed Brown if (values[i]) {
199566063dSJacob Faibussowitsch PetscCall(PetscPrintf(PETSC_COMM_WORLD, "Option left: name:-%s value: %s\n", names[i], values[i]));
20c4762a1bSJed Brown } else {
219566063dSJacob Faibussowitsch PetscCall(PetscPrintf(PETSC_COMM_WORLD, "Option left: name:-%s (no value)\n", names[i]));
22c4762a1bSJed Brown }
23c4762a1bSJed Brown }
249566063dSJacob Faibussowitsch PetscCall(PetscOptionsLeftRestore(NULL, &N, &names, &values));
25c4762a1bSJed Brown
269566063dSJacob Faibussowitsch PetscCall(PetscFinalize());
27b122ec5aSJacob Faibussowitsch return 0;
28c4762a1bSJed Brown }
29c4762a1bSJed Brown
30c4762a1bSJed Brown /*TEST
31c4762a1bSJed Brown
32c4762a1bSJed Brown test:
3327104ee2SJacob Faibussowitsch suffix: debug
3427104ee2SJacob Faibussowitsch requires: defined(PETSC_USE_DEBUG)
35c4762a1bSJed Brown args: -unused_petsc_option_1 -unused_petsc_option_2 -get_an_integer 10 -options_left no
36c4762a1bSJed Brown
3727104ee2SJacob Faibussowitsch test:
3827104ee2SJacob Faibussowitsch suffix: opt
3927104ee2SJacob Faibussowitsch requires: !defined(PETSC_USE_DEBUG)
40660278c0SBarry Smith args: -unused_petsc_option_1 -unused_petsc_option_2 -get_an_integer 10 -options_left no
4127104ee2SJacob Faibussowitsch
42c4762a1bSJed Brown TEST*/
43