Date: 2021-02-01T14:41:54+00:00

Actual source code: test2.c
slepc-3.14.2 2021-02-01
Report Typos and Errors

      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: */

     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: -help
     47:       filter: sed -e "s/\(Development GIT.*\)/version/" | sed -e "s/\(Release Version.*\)/version/" | sed -e "s/\(linked from.*\)/linked from PATH/"

     49: TEST*/