| Line 3... |
Line 3... |
Necessary routines in BLAS and LAPACK not included in petscblaslapack.f
|
Necessary routines in BLAS and LAPACK not included in petscblaslapack.f
|
|
|
*/
|
*/
|
#if !defined(_SLEPCBLASLAPACK_H)
|
#if !defined(_SLEPCBLASLAPACK_H)
|
#define _SLEPCBLASLAPACK_H
|
#define _SLEPCBLASLAPACK_H
|
|
|
#include "petscblaslapack.h"
|
#include "petscblaslapack.h"
|
|
PETSC_EXTERN_CXX_BEGIN
|
|
|
#if !defined(PETSC_USE_COMPLEX)
|
#if !defined(PETSC_USE_COMPLEX)
|
|
|
/*
|
/*
|
These are real case with no character string arguments
|
These are real case with no character string arguments
|
| Line 121... |
Line 121... |
|
|
EXTERN_C_BEGIN
|
EXTERN_C_BEGIN
|
|
|
EXTERN PetscReal LAlapy2_(PetscReal*,PetscReal*);
|
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_(int*,int*,int*,PetscScalar*,int*,PetscScalar*,PetscScalar*,int*,int*);
|
EXTERN void LAgehrd_(PetscBLASInt*,PetscBLASInt*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscScalar*,PetscScalar*,PetscBLASInt*,PetscBLASInt*);
|
EXTERN void LAorghr_(int*,int*,int*,PetscScalar*,int*,PetscScalar*,PetscScalar*,int*,int*);
|
EXTERN void LAorghr_(PetscBLASInt*,PetscBLASInt*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscScalar*,PetscScalar*,PetscBLASInt*,PetscBLASInt*);
|
EXTERN PetscReal LAlanhs_(const char*,int*,PetscScalar*,int*,PetscReal*,int);
|
EXTERN PetscReal LAlanhs_(const char*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscReal*,PetscBLASInt);
|
EXTERN PetscReal LAlange_(const char*,int*,int*,PetscScalar*,int*,PetscReal*,int);
|
EXTERN PetscReal LAlange_(const char*,PetscBLASInt*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscReal*,PetscBLASInt);
|
EXTERN void LAgetri_(int*,PetscScalar*,int*,int*,PetscScalar*,int*,int*);
|
EXTERN void LAgetri_(PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscBLASInt*);
|
|
|
#if !defined(PETSC_USE_COMPLEX)
|
#if !defined(PETSC_USE_COMPLEX)
|
EXTERN void LAhseqr_(const char*,const char*,int*,int*,int*,PetscScalar*,int*,PetscScalar*,PetscScalar*,PetscScalar*,int*,PetscScalar*,int*,int*,int,int);
|
EXTERN void LAhseqr_(const char*,const char*,PetscBLASInt*,PetscBLASInt*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscScalar*,PetscScalar*,PetscScalar*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscBLASInt*,PetscBLASInt,PetscBLASInt);
|
EXTERN void LAtrexc_(const char*,int*,PetscScalar*,int*,PetscScalar*,int*,int*,int*,PetscScalar*,int*,int);
|
EXTERN void LAtrexc_(const char*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscBLASInt*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscBLASInt);
|
EXTERN void LAtrevc_(const char*,const char*,int*,int*,PetscScalar*,int*,PetscScalar*,int*,PetscScalar*,int*,int*,int*,PetscScalar*,int*,int,int);
|
EXTERN void LAtrevc_(const char*,const char*,PetscBLASInt*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscBLASInt*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscBLASInt,PetscBLASInt);
|
#else
|
#else
|
EXTERN void LAhseqr_(const char*,const char*,int*,int*,int*,PetscScalar*,int*,PetscScalar*,PetscScalar*,int*,PetscScalar*,int*,int*,int,int);
|
EXTERN void LAhseqr_(const char*,const char*,PetscBLASInt*,PetscBLASInt*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscScalar*,PetscScalar*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscBLASInt*,PetscBLASInt,PetscBLASInt);
|
EXTERN void LAtrexc_(const char*,int*,PetscScalar*,int*,PetscScalar*,int*,int*,int*,int*,int);
|
EXTERN void LAtrexc_(const char*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscBLASInt*,PetscBLASInt*,PetscBLASInt*,PetscBLASInt);
|
EXTERN void LAtrevc_(const char*,const char*,int*,int*,PetscScalar*,int*,PetscScalar*,int*,PetscScalar*,int*,int*,int*,PetscScalar*,PetscReal*,int*,int,int);
|
EXTERN void LAtrevc_(const char*,const char*,PetscBLASInt*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscBLASInt*,PetscBLASInt*,PetscScalar*,PetscReal*,PetscBLASInt*,PetscBLASInt,PetscBLASInt);
|
#endif
|
#endif
|
|
|
EXTERN_C_END
|
EXTERN_C_END
|
|
|
|
PETSC_EXTERN_CXX_END
|
#endif
|
#endif
|
|
|
|
|
|
|