Line | Branch | Exec | Source |
---|---|---|---|
1 | /* | ||
2 | - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - | ||
3 | SLEPc - Scalable Library for Eigenvalue Problem Computations | ||
4 | Copyright (c) 2002-, Universitat Politecnica de Valencia, Spain | ||
5 | |||
6 | This file is part of SLEPc. | ||
7 | SLEPc is distributed under a 2-clause BSD license (see LICENSE). | ||
8 | - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - | ||
9 | */ | ||
10 | |||
11 | static char help[] = "Tests multiple calls to EPSSolve with different matrix.\n\n"; | ||
12 | |||
13 | #include <slepceps.h> | ||
14 | |||
15 | 153 | int main(int argc,char **argv) | |
16 | { | ||
17 | 153 | Mat A1,A2; /* problem matrices */ | |
18 | 153 | EPS eps; /* eigenproblem solver context */ | |
19 | 153 | PetscReal tol=PETSC_SMALL,v; | |
20 | 153 | Vec d; | |
21 | 153 | PetscInt n=30,i,Istart,Iend; | |
22 | 153 | PetscRandom myrand; | |
23 | |||
24 |
1/2✓ Branch 0 taken 2 times.
✗ Branch 1 not taken.
|
153 | PetscFunctionBeginUser; |
25 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
153 | PetscCall(SlepcInitialize(&argc,&argv,NULL,help)); |
26 | |||
27 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
153 | PetscCall(PetscOptionsGetInt(NULL,NULL,"-n",&n,NULL)); |
28 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
153 | PetscCall(PetscPrintf(PETSC_COMM_WORLD,"\nTridiagonal with random diagonal, n=%" PetscInt_FMT "\n\n",n)); |
29 | |||
30 | /* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - | ||
31 | Create matrix tridiag([-1 0 -1]) | ||
32 | - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */ | ||
33 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
153 | PetscCall(MatCreate(PETSC_COMM_WORLD,&A1)); |
34 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
153 | PetscCall(MatSetSizes(A1,PETSC_DECIDE,PETSC_DECIDE,n,n)); |
35 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
153 | PetscCall(MatSetFromOptions(A1)); |
36 | |||
37 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
153 | PetscCall(MatGetOwnershipRange(A1,&Istart,&Iend)); |
38 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
4743 | for (i=Istart;i<Iend;i++) { |
39 |
6/8✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
✓ Branch 2 taken 2 times.
✓ Branch 3 taken 8 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✗ Branch 6 not taken.
✓ Branch 7 taken 2 times.
|
4590 | if (i>0) PetscCall(MatSetValue(A1,i,i-1,-1.0,INSERT_VALUES)); |
40 |
6/8✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
✓ Branch 2 taken 2 times.
✓ Branch 3 taken 8 times.
✓ Branch 4 taken 2 times.
✗ Branch 5 not taken.
✗ Branch 6 not taken.
✓ Branch 7 taken 2 times.
|
4590 | if (i<n-1) PetscCall(MatSetValue(A1,i,i+1,-1.0,INSERT_VALUES)); |
41 | } | ||
42 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
153 | PetscCall(MatAssemblyBegin(A1,MAT_FINAL_ASSEMBLY)); |
43 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
153 | PetscCall(MatAssemblyEnd(A1,MAT_FINAL_ASSEMBLY)); |
44 | |||
45 | /* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - | ||
46 | Create two matrices by filling the diagonal with rand values | ||
47 | - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */ | ||
48 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
153 | PetscCall(MatDuplicate(A1,MAT_COPY_VALUES,&A2)); |
49 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
153 | PetscCall(MatCreateVecs(A1,NULL,&d)); |
50 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
153 | PetscCall(PetscRandomCreate(PETSC_COMM_WORLD,&myrand)); |
51 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
153 | PetscCall(PetscRandomSetFromOptions(myrand)); |
52 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
153 | PetscCall(PetscRandomSetInterval(myrand,0.0,1.0)); |
53 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
4743 | for (i=Istart;i<Iend;i++) { |
54 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
4590 | PetscCall(PetscRandomGetValueReal(myrand,&v)); |
55 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
4590 | PetscCall(VecSetValue(d,i,v,INSERT_VALUES)); |
56 | } | ||
57 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
153 | PetscCall(VecAssemblyBegin(d)); |
58 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
153 | PetscCall(VecAssemblyEnd(d)); |
59 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
153 | PetscCall(MatDiagonalSet(A1,d,INSERT_VALUES)); |
60 |
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 10 times.
|
4743 | for (i=Istart;i<Iend;i++) { |
61 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
4590 | PetscCall(PetscRandomGetValueReal(myrand,&v)); |
62 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
4590 | PetscCall(VecSetValue(d,i,v,INSERT_VALUES)); |
63 | } | ||
64 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
153 | PetscCall(VecAssemblyBegin(d)); |
65 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
153 | PetscCall(VecAssemblyEnd(d)); |
66 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
153 | PetscCall(MatDiagonalSet(A2,d,INSERT_VALUES)); |
67 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
153 | PetscCall(VecDestroy(&d)); |
68 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
153 | PetscCall(PetscRandomDestroy(&myrand)); |
69 | |||
70 | /* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - | ||
71 | Create the eigensolver | ||
72 | - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */ | ||
73 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
153 | PetscCall(EPSCreate(PETSC_COMM_WORLD,&eps)); |
74 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
153 | PetscCall(EPSSetProblemType(eps,EPS_HEP)); |
75 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
153 | PetscCall(EPSSetTolerances(eps,tol,PETSC_CURRENT)); |
76 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
153 | PetscCall(EPSSetOperators(eps,A1,NULL)); |
77 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
153 | PetscCall(EPSSetFromOptions(eps)); |
78 | |||
79 | /* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - | ||
80 | Solve first eigenproblem | ||
81 | - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */ | ||
82 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
153 | PetscCall(EPSSolve(eps)); |
83 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
153 | PetscCall(PetscPrintf(PETSC_COMM_WORLD," - - - First matrix - - -\n")); |
84 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
153 | PetscCall(EPSErrorView(eps,EPS_ERROR_RELATIVE,NULL)); |
85 | |||
86 | /* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - | ||
87 | Solve second eigenproblem | ||
88 | - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */ | ||
89 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
153 | PetscCall(EPSSetOperators(eps,A2,NULL)); |
90 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
153 | PetscCall(EPSSolve(eps)); |
91 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
153 | PetscCall(PetscPrintf(PETSC_COMM_WORLD," - - - Second matrix - - -\n")); |
92 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
153 | PetscCall(EPSErrorView(eps,EPS_ERROR_RELATIVE,NULL)); |
93 | |||
94 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
153 | PetscCall(EPSDestroy(&eps)); |
95 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
153 | PetscCall(MatDestroy(&A1)); |
96 |
4/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 8 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✓ Branch 5 taken 2 times.
|
153 | PetscCall(MatDestroy(&A2)); |
97 |
3/6✓ Branch 0 taken 2 times.
✓ Branch 1 taken 2 times.
✓ Branch 2 taken 2 times.
✗ Branch 3 not taken.
✗ Branch 4 not taken.
✗ Branch 5 not taken.
|
153 | PetscCall(SlepcFinalize()); |
98 | return 0; | ||
99 | } | ||
100 | |||
101 | /*TEST | ||
102 | |||
103 | testset: | ||
104 | args: -eps_nev 4 | ||
105 | requires: !single | ||
106 | output_file: output/test3_1.out | ||
107 | test: | ||
108 | suffix: 1 | ||
109 | args: -eps_type {{krylovschur subspace arnoldi lapack}} | ||
110 | test: | ||
111 | suffix: 1_lanczos | ||
112 | args: -eps_type lanczos -eps_lanczos_reorthog local | ||
113 | test: | ||
114 | suffix: 1_power | ||
115 | args: -eps_type power -eps_max_it 20000 | ||
116 | test: | ||
117 | suffix: 1_jd | ||
118 | args: -eps_type jd -eps_jd_initial_size 7 | ||
119 | test: | ||
120 | suffix: 1_gd | ||
121 | args: -eps_type gd -eps_gd_initial_size 7 | ||
122 | test: | ||
123 | suffix: 1_gd2 | ||
124 | args: -eps_type gd -eps_gd_double_expansion | ||
125 | test: | ||
126 | suffix: 1_arpack | ||
127 | args: -eps_type arpack | ||
128 | requires: arpack | ||
129 | test: | ||
130 | suffix: 1_primme | ||
131 | args: -eps_type primme -eps_conv_abs -eps_primme_blocksize 4 | ||
132 | requires: primme | ||
133 | test: | ||
134 | suffix: 1_scalapack | ||
135 | args: -eps_type scalapack | ||
136 | requires: scalapack | ||
137 | test: | ||
138 | suffix: 1_elpa | ||
139 | args: -eps_type elpa | ||
140 | requires: elpa | ||
141 | test: | ||
142 | suffix: 1_elemental | ||
143 | args: -eps_type elemental | ||
144 | requires: elemental | ||
145 | |||
146 | testset: | ||
147 | args: -eps_nev 4 -eps_smallest_real -eps_max_it 500 | ||
148 | output_file: output/test3_2.out | ||
149 | test: | ||
150 | suffix: 2_rqcg | ||
151 | args: -eps_type rqcg -eps_rqcg_reset 5 -eps_ncv 32 | ||
152 | test: | ||
153 | suffix: 2_lobpcg | ||
154 | args: -eps_type lobpcg -eps_lobpcg_blocksize 5 -st_pc_type none | ||
155 | test: | ||
156 | suffix: 2_lanczos | ||
157 | args: -eps_type lanczos -eps_lanczos_reorthog local | ||
158 | requires: !single | ||
159 | test: | ||
160 | suffix: 2_lanczos_delayed | ||
161 | args: -eps_type lanczos -eps_lanczos_reorthog delayed -eps_tol 1e-8 | ||
162 | requires: !single | ||
163 | test: | ||
164 | suffix: 2_blopex | ||
165 | args: -eps_type blopex -eps_conv_abs -st_shift -2 | ||
166 | requires: blopex | ||
167 | |||
168 | TEST*/ | ||
169 |