diff options
| author | siddhu8990 | 2017-02-02 16:02:41 +0530 |
|---|---|---|
| committer | siddhu8990 | 2017-02-02 16:02:41 +0530 |
| commit | 765d9c44f94634406eeff50e20e8cdfcf1b7699c (patch) | |
| tree | 25feaba0f050fc3295b7dbfb3c5b6134c920508a /includes/lapack.h | |
| parent | a9bdd75eb989bc302ba98e3b6cb329fceaeb385e (diff) | |
| download | Scilab2C_fossee_old-765d9c44f94634406eeff50e20e8cdfcf1b7699c.tar.gz Scilab2C_fossee_old-765d9c44f94634406eeff50e20e8cdfcf1b7699c.tar.bz2 Scilab2C_fossee_old-765d9c44f94634406eeff50e20e8cdfcf1b7699c.zip | |
Support for function 'schur' added
q
Diffstat (limited to 'includes/lapack.h')
| -rw-r--r-- | includes/lapack.h | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/includes/lapack.h b/includes/lapack.h index 0bee916..97576a6 100644 --- a/includes/lapack.h +++ b/includes/lapack.h @@ -24,6 +24,16 @@ extern "C" { #endif +#ifndef lapack_int +#define lapack_int int +#endif +#ifndef lapack_logical +#define lapack_logical lapack_int +#endif + +typedef lapack_logical (*LAPACK_D_SELECT3) (double*, double*, double*); +typedef lapack_logical (*LAPACK_D_SELECT2) (double*, double*); + #define getRelativeMachinePrecision() dlamch_("e", 1L) #define getOverflowThreshold() dlamch_("o", 1L) #define getUnderflowThreshold() dlamch_("u", 1L) @@ -162,6 +172,15 @@ extern int C2F(zheev)(char*,char*,int*,doubleComplex*,int*,double*,doubleComplex extern int C2F(dgeev)(char*,char*,int*,double*,int*,double*,double*,double*,int*,double*,int*,double*,int*,int*); extern int C2F(dsyev)(char*,char*,int*,double*,int*,double*,double*,int*,int*); +/*used in schur*/ +extern int dgees_(char*,char*,LAPACK_D_SELECT2,int*,double*,int*,int*, \ + double*,double*,double*,int*,double*,int*,int*,int*); + +extern int dgges_(char*,char*,char*,LAPACK_D_SELECT3,int*,double*,int*,double*,int*, \ + int*,double*,double*,double*,double*,int*,double*,int*,double*, int*, \ + int*,int*); + + #ifdef __cplusplus } /* extern "C" */ #endif |