| Line 33... |
Line 33... |
#define SLEPC_BLASLAPACKREAL(lcase,ucase) s##lcase##_
|
#define SLEPC_BLASLAPACKREAL(lcase,ucase) s##lcase##_
|
#if defined(PETSC_USE_COMPLEX)
|
#if defined(PETSC_USE_COMPLEX)
|
#define SLEPC_BLASLAPACK(lcase,ucase) c##lcase##_
|
#define SLEPC_BLASLAPACK(lcase,ucase) c##lcase##_
|
#else
|
#else
|
#define SLEPC_BLASLAPACK(lcase,ucase) s##lcase##_
|
#define SLEPC_BLASLAPACK(lcase,ucase) s##lcase##_
|
|
#endif
|
|
#elif defined(PETSC_USE_REAL___FLOAT128)
|
|
#define SLEPC_BLASLAPACKREAL(lcase,ucase) q##lcase##_
|
|
#if defined(PETSC_USE_COMPLEX)
|
|
#define SLEPC_BLASLAPACK(lcase,ucase) w##lcase##_
|
|
#else
|
|
#define SLEPC_BLASLAPACK(lcase,ucase) q##lcase##_
|
#endif
|
#endif
|
#else
|
#else
|
#define SLEPC_BLASLAPACKREAL(lcase,ucase) d##lcase##_
|
#define SLEPC_BLASLAPACKREAL(lcase,ucase) d##lcase##_
|
#if defined(PETSC_USE_COMPLEX)
|
#if defined(PETSC_USE_COMPLEX)
|
#define SLEPC_BLASLAPACK(lcase,ucase) z##lcase##_
|
#define SLEPC_BLASLAPACK(lcase,ucase) z##lcase##_
|
| Line 50... |
Line 57... |
#define SLEPC_BLASLAPACKREAL(lcase,ucase) S##ucase
|
#define SLEPC_BLASLAPACKREAL(lcase,ucase) S##ucase
|
#if defined(PETSC_USE_COMPLEX)
|
#if defined(PETSC_USE_COMPLEX)
|
#define SLEPC_BLASLAPACK(lcase,ucase) C##ucase
|
#define SLEPC_BLASLAPACK(lcase,ucase) C##ucase
|
#else
|
#else
|
#define SLEPC_BLASLAPACK(lcase,ucase) S##ucase
|
#define SLEPC_BLASLAPACK(lcase,ucase) S##ucase
|
|
#endif
|
|
#elif defined(PETSC_USE_REAL___FLOAT128)
|
|
#define SLEPC_BLASLAPACKREAL(lcase,ucase) Q##ucase
|
|
#if defined(PETSC_USE_COMPLEX)
|
|
#define SLEPC_BLASLAPACK(lcase,ucase) W##ucase
|
|
#else
|
|
#define SLEPC_BLASLAPACK(lcase,ucase) Q##ucase
|
#endif
|
#endif
|
#else
|
#else
|
#define SLEPC_BLASLAPACKREAL(lcase,ucase) D##ucase
|
#define SLEPC_BLASLAPACKREAL(lcase,ucase) D##ucase
|
#if defined(PETSC_USE_COMPLEX)
|
#if defined(PETSC_USE_COMPLEX)
|
#define SLEPC_BLASLAPACK(lcase,ucase) Z##ucase
|
#define SLEPC_BLASLAPACK(lcase,ucase) Z##ucase
|
| Line 67... |
Line 81... |
#define SLEPC_BLASLAPACKREAL(lcase,ucase) s##lcase
|
#define SLEPC_BLASLAPACKREAL(lcase,ucase) s##lcase
|
#if defined(PETSC_USE_COMPLEX)
|
#if defined(PETSC_USE_COMPLEX)
|
#define SLEPC_BLASLAPACK(lcase,ucase) c##lcase
|
#define SLEPC_BLASLAPACK(lcase,ucase) c##lcase
|
#else
|
#else
|
#define SLEPC_BLASLAPACK(lcase,ucase) s##lcase
|
#define SLEPC_BLASLAPACK(lcase,ucase) s##lcase
|
|
#endif
|
|
#elif defined(PETSC_USE_REAL___FLOAT128)
|
|
#define SLEPC_BLASLAPACKREAL(lcase,ucase) q##lcase
|
|
#if defined(PETSC_USE_COMPLEX)
|
|
#define SLEPC_BLASLAPACK(lcase,ucase) w##lcase
|
|
#else
|
|
#define SLEPC_BLASLAPACK(lcase,ucase) q##lcase
|
#endif
|
#endif
|
#else
|
#else
|
#define SLEPC_BLASLAPACKREAL(lcase,ucase) d##lcase
|
#define SLEPC_BLASLAPACKREAL(lcase,ucase) d##lcase
|
#if defined(PETSC_USE_COMPLEX)
|
#if defined(PETSC_USE_COMPLEX)
|
#define SLEPC_BLASLAPACK(lcase,ucase) z##lcase
|
#define SLEPC_BLASLAPACK(lcase,ucase) z##lcase
|