| Line 27... |
Line 27... |
#define __SLEPCBLASLAPACK_H
|
#define __SLEPCBLASLAPACK_H
|
#include "petscblaslapack.h"
|
#include "petscblaslapack.h"
|
|
|
/* Macros for building LAPACK names */
|
/* Macros for building LAPACK names */
|
#if defined(PETSC_BLASLAPACK_UNDERSCORE)
|
#if defined(PETSC_BLASLAPACK_UNDERSCORE)
|
#if defined(PETSC_USE_SINGLE)
|
#if defined(PETSC_USE_REAL_SINGLE)
|
#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##_
|
| Line 44... |
Line 44... |
#define SLEPC_BLASLAPACK(lcase,ucase) d##lcase##_
|
#define SLEPC_BLASLAPACK(lcase,ucase) d##lcase##_
|
#endif
|
#endif
|
#endif
|
#endif
|
|
|
#elif defined(PETSC_BLASLAPACK_CAPS) || defined(PETSC_BLASLAPACK_STDCALL)
|
#elif defined(PETSC_BLASLAPACK_CAPS) || defined(PETSC_BLASLAPACK_STDCALL)
|
#if defined(PETSC_USE_SINGLE)
|
#if defined(PETSC_USE_REAL_SINGLE)
|
#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
|
| Line 61... |
Line 61... |
#define SLEPC_BLASLAPACK(lcase,ucase) D##ucase
|
#define SLEPC_BLASLAPACK(lcase,ucase) D##ucase
|
#endif
|
#endif
|
#endif
|
#endif
|
|
|
#else
|
#else
|
#if defined(PETSC_USE_SINGLE)
|
#if defined(PETSC_USE_REAL_SINGLE)
|
#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
|