| EXTERN PetscErrorCode STSetKSP(ST,KSP); |
| EXTERN PetscErrorCode STGetKSP(ST,KSP*); |
| EXTERN PetscErrorCode STAssociatedKSPSolve(ST,Vec,Vec); |
| EXTERN PetscErrorCode STSetShift(ST,PetscScalar); |
| EXTERN PetscErrorCode STGetShift(ST,PetscScalar*); |
| EXTERN PetscErrorCode IPDestroy(IP); |
| EXTERN PetscErrorCode IPOrthogonalize(IP,PetscInt,PetscTruth*,Vec*,Vec,PetscScalar*,PetscReal*,PetscTruth*,Vec,PetscScalar*); |
| EXTERN PetscErrorCode IPOrthogonalizeCGS(IP,PetscInt,PetscTruth*,Vec*,Vec,PetscScalar*,PetscReal*,PetscReal*,Vec); |
| EXTERN PetscErrorCode IPBiOrthogonalize(IP,PetscInt,Vec*,Vec*,Vec,PetscScalar*,PetscReal*); |
| EXTERN PetscErrorCode IPQRDecomposition(IP,Vec*,PetscInt,PetscInt,PetscScalar*,PetscInt,Vec); |
| }; |
| EXTERN PetscErrorCode IPApplyMatrix_Private(IP,Vec); |
| EXTERN PetscErrorCode IPOrthogonalizeCGS(IP,PetscInt,PetscTruth*,Vec*,Vec,PetscScalar*,PetscReal*,PetscReal*,Vec); |
| #endif |
| */ |
| #include "src/eps/impls/arpack/arpackp.h" |
| #include "private/stimpl.h" |
| #undef __FUNCT__ |
| #define __FUNCT__ "EPSSetUp_ARPACK" |
| */ |
| #include "src/eps/impls/blzpack/blzpackp.h" /*I "slepceps.h" I*/ |
| #include "private/stimpl.h" |
| const char* blzpack_error[33] = { |
| "", |
| */ |
| #include "private/svdimpl.h" /*I "slepcsvd.h" I*/ |
| #include "private/ipimpl.h" |
| #include "slepcblaslapack.h" |
| typedef struct { |