1: /*
2: Private header for TOAR and STOAR.
4: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
5: SLEPc - Scalable Library for Eigenvalue Problem Computations
6: Copyright (c) 2002-2015, Universitat Politecnica de Valencia, Spain
8: This file is part of SLEPc.
10: SLEPc is free software: you can redistribute it and/or modify it under the
11: terms of version 3 of the GNU Lesser General Public License as published by
12: the Free Software Foundation.
14: SLEPc is distributed in the hope that it will be useful, but WITHOUT ANY
15: WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
16: FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for
17: more details.
19: You should have received a copy of the GNU Lesser General Public License
20: along with SLEPc. If not, see <http://www.gnu.org/licenses/>.
21: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
22: */
27: typedef struct {
28: PetscReal keep; /* restart parameter */
29: PetscBool lock; /* locking/non-locking variant */
30: PetscReal dtol; /* tolerance for deflation */
31: PetscInt d; /* polynomial degree */
32: PetscInt ld; /* leading dimension of auxiliary matrices */
33: PetscInt nq; /* number of TOAR Vectors */
34: PetscScalar *S,*qB; /* auxiliary matrices */
35: } PEP_TOAR;
37: #endif
40: PETSC_INTERN PetscErrorCode PEPExtractVectors_TOAR(PEP);
41: PETSC_INTERN PetscErrorCode PEPReset_TOAR(PEP);