[Toon-members] TooN lapack.h

[Edward Rosten]

CVSROOT:        /cvsroot/toon
Module name:    TooN
Changes by:     Edward Rosten <edrosten>        10/02/01 19:41:40

Modified files:
        .              : lapack.h 

Log message:
        General eigensystem functions.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/TooN/lapack.h?cvsroot=toon&r1=1.14&r2=1.15

Patches:
Index: lapack.h
===================================================================
RCS file: /cvsroot/toon/TooN/lapack.h,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -b -r1.14 -r1.15
--- lapack.h    23 Apr 2009 15:15:59 -0000      1.14
+++ lapack.h    1 Feb 2010 19:41:40 -0000       1.15
@@ -60,6 +60,10 @@
                void dsyev_(const char* JOBZ, const char* UPLO, int* N, double* 
A, int* lda, double* W, double* WORK, int* LWORK, int* INFO);
                void ssyev_(const char* JOBZ, const char* UPLO, int* N, float* 
A, int* lda, float* W, float* WORK, int* LWORK, int* INFO);
 
+               // Eigen decomposition of a non-symmetric matrix
+               void dgeev_(const char* JOBVL, const char* JOBVR, int* N, 
double* A, int* lda, double* WR, double* WI, double* VL, int* LDVL, double* VR, 
int* LDVR , double* WORK, int* LWORK, int* INFO);
+               void sgeev_(const char* JOBVL, const char* JOBVR, int* N, 
float* A, int* lda, float* WR, float* WI, float* VL, int* LDVL, float* VR, int* 
LDVR , float* WORK, int* LWORK, int* INFO);
+
                // Cholesky decomposition
                void dpotrf_(const char* UPLO, const int* N, double* A, const 
int* LDA, int* INFO);
                void spotrf_(const char* UPLO, const int* N, float* A, const 
int* LDA, int* INFO);
@@ -148,5 +152,12 @@
                ssyev_(JOBZ, UPLO, N, A, lda, W, WORK, LWORK, INFO);
        }
 
+       inline void geev_(const char* JOBVL, const char* JOBVR, int* N, double* 
A, int* lda, double* WR, double* WI, double* VL, int* LDVL, double* VR, int* 
LDVR , double* WORK, int* LWORK, int* INFO){
+               dgeev_(JOBVL, JOBVR, N,  A,  lda,  WR,  WI,  VL,  LDVL,  VR,  
LDVR ,  WORK,  LWORK,  INFO);
+       }
+
+       inline void geev_(const char* JOBVL, const char* JOBVR, int* N, float* 
A,  int* lda, float* WR,  float* WI,  float* VL,  int* LDVL, float* VR,  int* 
LDVR , float* WORK,  int* LWORK, int* INFO){
+               sgeev_(JOBVL, JOBVR, N,  A,  lda,  WR,  WI,  VL,  LDVL,  VR,  
LDVR ,  WORK,  LWORK,  INFO);
+       }
 }
 #endif