Actual source code: test2.c

slepc-3.12.1 2019-11-08
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: */

 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: {
 18: #if defined(PETSC_USE_DEBUG)
 19: #if defined(PETSC_USE_COMPLEX)
 20:   PetscScalar Xr[]={1.0,-0.5,0.625,1.25,-0.125,-5.5};
 21: #else
 22:   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};
 23: #endif
 24: #endif

 26:   SlepcInitialize(&argc,&argv,(char*)0,help);if (ierr) return ierr;

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

 36:   SlepcFinalize();
 37:   return ierr;
 38: }

 40: /*TEST

 42:    build:
 43:       requires: debug

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

 49: TEST*/