Actual source code: test1.c

slepc-3.11.2 2019-07-30
Report Typos and Errors
  1: /*
  2:    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  3:    SLEPc - Scalable Library for Eigenvalue Problem Computations
  4:    Copyright (c) 2002-2019, 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*/