Actual source code: test2.c

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

 11: static char help[] = "Tests functions intended to be used from a debugger.\n\n";

 13: #include <slepcsys.h>

 15: int main(int argc,char **argv)
 16: {
 17: #if defined(PETSC_USE_DEBUG)
 18: #if defined(PETSC_USE_COMPLEX)
 19:   PetscScalar Xr[]={1.0,-0.5,0.625,1.25,-0.125,-5.5};
 20: #else
 21:   PetscScalar Xr[]={1.0,-0.5,0.625,1.25,-0.125,-5.5},Xi[]={0.0,0.0,0.0,0.0,0.0,0.0};
 22: #endif
 23: #endif

 25:   SlepcInitialize(&argc,&argv,(char*)0,help);

 27: #if defined(PETSC_USE_DEBUG)
 28: #if defined(PETSC_USE_COMPLEX)
 29:   SlepcDebugViewMatrix(2,3,Xr,NULL,2,"M",NULL);
 30: #else
 31:   SlepcDebugViewMatrix(2,3,Xr,Xi,2,"M",NULL);
 32: #endif
 33: #endif

 35:   SlepcFinalize();
 36:   return 0;
 37: }

 39: /*TEST

 41:    build:
 42:       requires: debug

 44:    test:
 45:       args: -help
 46:       filter: sed -e "s/\(Development GIT.*\)/version/" | sed -e "s/\(Release Version.*\)/version/" | sed -e "s/\(linked from.*\)/linked from PATH/"

 48: TEST*/