Actual source code: test2.c
slepc-3.21.1 2024-04-26
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: PetscFunctionBeginUser;
26: PetscCall(SlepcInitialize(&argc,&argv,(char*)0,help));
28: #if defined(PETSC_USE_DEBUG)
29: #if defined(PETSC_USE_COMPLEX)
30: PetscCall(SlepcDebugViewMatrix(2,3,Xr,NULL,2,"M",NULL));
31: #else
32: PetscCall(SlepcDebugViewMatrix(2,3,Xr,Xi,2,"M",NULL));
33: #endif
34: #endif
36: PetscCall(SlepcFinalize());
37: return 0;
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*/