| Line 24... |
Line 24... |
#if !defined(PETSC_USE_COMPLEX)
|
#if !defined(PETSC_USE_COMPLEX)
|
/* real numbers */
|
/* real numbers */
|
#if defined(PETSC_USES_FORTRAN_SINGLE) || defined(PETSC_USE_SINGLE)
|
#if defined(PETSC_USES_FORTRAN_SINGLE) || defined(PETSC_USE_SINGLE)
|
/* single precision */
|
/* single precision */
|
#define SLEPC_BLASLAPACK(lcase,ucase) SLEPC_CONCAT3(s,lcase,_)
|
#define SLEPC_BLASLAPACK(lcase,ucase) SLEPC_CONCAT3(s,lcase,_)
|
#define SLEPC_BLASLAPACK_REAL(lcase,ucase) SLEPC_CONCAT3(s,lcase,_)
|
|
#else
|
#else
|
/* double precision */
|
/* double precision */
|
#define SLEPC_BLASLAPACK(lcase,ucase) SLEPC_CONCAT3(d,lcase,_)
|
#define SLEPC_BLASLAPACK(lcase,ucase) SLEPC_CONCAT3(d,lcase,_)
|
#define SLEPC_BLASLAPACK_REAL(lcase,ucase) SLEPC_CONCAT3(d,lcase,_)
|
|
#endif
|
#endif
|
#else
|
#else
|
/* complex numbers */
|
/* complex numbers */
|
#if defined(PETSC_USES_FORTRAN_SINGLE) || defined(PETSC_USE_SINGLE)
|
#if defined(PETSC_USES_FORTRAN_SINGLE) || defined(PETSC_USE_SINGLE)
|
/* single precision */
|
/* single precision */
|
#define SLEPC_BLASLAPACK(lcase,ucase) SLEPC_CONCAT3(c,lcase,_)
|
#define SLEPC_BLASLAPACK(lcase,ucase) SLEPC_CONCAT3(c,lcase,_)
|
#define SLEPC_BLASLAPACK_REAL(lcase,ucase) SLEPC_CONCAT3(s,lcase,_)
|
|
#else
|
#else
|
/* double precision */
|
/* double precision */
|
#define SLEPC_BLASLAPACK(lcase,ucase) SLEPC_CONCAT3(z,lcase,_)
|
#define SLEPC_BLASLAPACK(lcase,ucase) SLEPC_CONCAT3(z,lcase,_)
|
#define SLEPC_BLASLAPACK_REAL(lcase,ucase) SLEPC_CONCAT3(d,lcase,_)
|
|
#endif
|
#endif
|
#endif
|
#endif
|
|
|
#else
|
#else
|
|
|
#if !defined(PETSC_USE_COMPLEX)
|
#if !defined(PETSC_USE_COMPLEX)
|
/* real numbers */
|
/* real numbers */
|
#if defined(PETSC_USES_FORTRAN_SINGLE) || defined(PETSC_USE_SINGLE)
|
#if defined(PETSC_USES_FORTRAN_SINGLE) || defined(PETSC_USE_SINGLE)
|
/* single precision */
|
/* single precision */
|
#define SLEPC_BLASLAPACK(lcase,ucase) SLEPC_FORTRAN(SLEPC_CONCAT(s,lcase),SLEPC_CONCAT(S,ucase))
|
#define SLEPC_BLASLAPACK(lcase,ucase) SLEPC_FORTRAN(SLEPC_CONCAT(s,lcase),SLEPC_CONCAT(S,ucase))
|
#define SLEPC_BLASLAPACK_REAL(lcase,ucase) SLEPC_FORTRAN(SLEPC_CONCAT(s,lcase),SLEPC_CONCAT(S,ucase))
|
|
#else
|
#else
|
/* double precision */
|
/* double precision */
|
#define SLEPC_BLASLAPACK(lcase,ucase) SLEPC_FORTRAN(SLEPC_CONCAT(d,lcase),SLEPC_CONCAT(D,ucase))
|
#define SLEPC_BLASLAPACK(lcase,ucase) SLEPC_FORTRAN(SLEPC_CONCAT(d,lcase),SLEPC_CONCAT(D,ucase))
|
#define SLEPC_BLASLAPACK_REAL(lcase,ucase) SLEPC_FORTRAN(SLEPC_CONCAT(d,lcase),SLEPC_CONCAT(D,ucase))
|
|
#endif
|
#endif
|
#else
|
#else
|
/* complex numbers */
|
/* complex numbers */
|
#if defined(PETSC_USES_FORTRAN_SINGLE) || defined(PETSC_USE_SINGLE)
|
#if defined(PETSC_USES_FORTRAN_SINGLE) || defined(PETSC_USE_SINGLE)
|
/* single precision */
|
/* single precision */
|
#define SLEPC_BLASLAPACK(lcase,ucase) SLEPC_FORTRAN(SLEPC_CONCAT(c,lcase,C,ucase))
|
#define SLEPC_BLASLAPACK(lcase,ucase) SLEPC_FORTRAN(SLEPC_CONCAT(c,lcase),SLEPC_CONCAT(C,ucase))
|
#define SLEPC_BLASLAPACK_REAL(lcase,ucase) SLEPC_FORTRAN(SLEPC_CONCAT(s,lcase),SLEPC_CONCAT(S,ucase))
|
|
#else
|
#else
|
/* double precision */
|
/* double precision */
|
#define SLEPC_BLASLAPACK(lcase,ucase) SLEPC_FORTRAN(SLEPC_CONCAT(z,lcase),SLEPC_CONCAT(Z,ucase))
|
#define SLEPC_BLASLAPACK(lcase,ucase) SLEPC_FORTRAN(SLEPC_CONCAT(z,lcase),SLEPC_CONCAT(Z,ucase))
|
#define SLEPC_BLASLAPACK_REAL(lcase,ucase) SLEPC_FORTRAN(SLEPC_CONCAT(d,lcase),SLEPC_CONCAT(D,ucase))
|
|
#endif
|
#endif
|
#endif
|
#endif
|
|
|
#endif
|
#endif
|
|
|
#if !defined(PETSC_BLASLAPACK_ESSL_ONLY)
|
|
#define LAlapy2_ SLEPC_BLASLAPACK_REAL(lapy2,LAPY2)
|
|
#endif
|
|
#define LAlaev2_ SLEPC_BLASLAPACK(laev2,LAEV2)
|
#define LAlaev2_ SLEPC_BLASLAPACK(laev2,LAEV2)
|
#define LAgehrd_ SLEPC_BLASLAPACK(gehrd,GEHRD)
|
#define LAgehrd_ SLEPC_BLASLAPACK(gehrd,GEHRD)
|
#if !defined(PETSC_USE_COMPLEX)
|
#if !defined(PETSC_USE_COMPLEX)
|
#define LAorghr_ SLEPC_BLASLAPACK(orghr,ORGHR)
|
#define LAorghr_ SLEPC_BLASLAPACK(orghr,ORGHR)
|
#else
|
#else
|
| Line 90... |
Line 79... |
#define LAtrexc_ SLEPC_BLASLAPACK(trexc,TREXC)
|
#define LAtrexc_ SLEPC_BLASLAPACK(trexc,TREXC)
|
#define LAtrevc_ SLEPC_BLASLAPACK(trevc,TREVC)
|
#define LAtrevc_ SLEPC_BLASLAPACK(trevc,TREVC)
|
|
|
EXTERN_C_BEGIN
|
EXTERN_C_BEGIN
|
|
|
EXTERN PetscReal LAlapy2_(PetscReal*,PetscReal*);
|
|
EXTERN void LAlaev2_(PetscScalar*,PetscScalar*,PetscScalar*,PetscReal*,PetscReal*,PetscReal*,PetscScalar*);
|
EXTERN void LAlaev2_(PetscScalar*,PetscScalar*,PetscScalar*,PetscReal*,PetscReal*,PetscReal*,PetscScalar*);
|
EXTERN void LAgehrd_(PetscBLASInt*,PetscBLASInt*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscScalar*,PetscScalar*,PetscBLASInt*,PetscBLASInt*);
|
EXTERN void LAgehrd_(PetscBLASInt*,PetscBLASInt*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscScalar*,PetscScalar*,PetscBLASInt*,PetscBLASInt*);
|
EXTERN void LAorghr_(PetscBLASInt*,PetscBLASInt*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscScalar*,PetscScalar*,PetscBLASInt*,PetscBLASInt*);
|
EXTERN void LAorghr_(PetscBLASInt*,PetscBLASInt*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscScalar*,PetscScalar*,PetscBLASInt*,PetscBLASInt*);
|
EXTERN PetscReal LAlanhs_(const char*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscReal*,PetscBLASInt);
|
EXTERN PetscReal LAlanhs_(const char*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscReal*,PetscBLASInt);
|
EXTERN PetscReal LAlange_(const char*,PetscBLASInt*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscReal*,PetscBLASInt);
|
EXTERN PetscReal LAlange_(const char*,PetscBLASInt*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscReal*,PetscBLASInt);
|