1: /* 2: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 3: SLEPc - Scalable Library for Eigenvalue Problem Computations 4: Copyright (c) 2002-2020, 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; 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: } else { 26: PetscPrintf(PETSC_COMM_WORLD,"SLEPc was already initialized.\n"); 27: } 28: SlepcFinalize(); 29: return ierr; 30: } 32: /*TEST 34: test: 35: suffix: 1 37: TEST*/