Actual source code: test1.c
slepc-3.16.0 2021-09-30
1: /*
2: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
3: SLEPc - Scalable Library for Eigenvalue Problem Computations
4: Copyright (c) 2002-2021, Universitat Politecnica de Valencia, Spain
6: This file is part of SLEPc.
7: SLEPc is distributed under a 2-clause BSD license (see LICENSE).
8: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
9: */
10: /*
11: Demonstrates SlepcInitializeNoArguments()
12: */
14: #include <slepcsys.h>
16: int main(int argc,char **argv)
17: {
19: PetscBool isInitialized,isFinalized;
21: SlepcInitialized(&isInitialized);if (ierr) return ierr;
22: if (!isInitialized) {
23: SlepcInitializeNoArguments();if (ierr) return ierr;
24: PetscPrintf(PETSC_COMM_WORLD,"Initialize SLEPc.\n");
25: SlepcInitialized(&isInitialized);
26: SlepcFinalized(&isFinalized);
27: PetscPrintf(PETSC_COMM_WORLD,"SlepcInitialized=%d, SlepcFinalized=%d.\n",isInitialized,isFinalized);
28: } else {
29: PetscPrintf(PETSC_COMM_WORLD,"SLEPc was already initialized.\n");
30: }
31: SlepcFinalize();if (ierr) return ierr;
32: SlepcFinalized(&isFinalized);
33: if (!isFinalized) printf("Unexpected value: SlepcFinalized() returned False after SlepcFinalize()\n");
34: return ierr;
35: }
37: /*TEST
39: test:
40: suffix: 1
42: TEST*/