1 /* interface_lapack.h 2 * 3 * SRE, Tue Jul 13 15:11:51 2004 [St. Louis] 4 */ 5 #ifndef eslINTERFACE_LAPACK_INCLUDED 6 #define eslINTERFACE_LAPACK_INCLUDED 7 #include "esl_config.h" 8 #ifdef HAVE_LIBLAPACK 9 10 /* This is the C interface to the Fortran77 dgeev routine, 11 * provided by the LAPACK library: 12 */ 13 extern void dgeev_(char *jobvl, char *jobvr, int *n, double *a, 14 int *lda, double *wr, double *wi, double *vl, 15 int *ldvl, double *vr, int *ldvr, 16 double *work, int *lwork, int *info); 17 18 /* and this is our C interface to the lapack call: 19 */ 20 extern int esl_lapack_dgeev(ESL_DMATRIX *A, double **ret_Er, double **ret_Ei, ESL_DMATRIX **ret_VL, ESL_DMATRIX **ret_VR); 21 22 #endif /*HAVE_LIBLAPACK*/ 23 #endif /*eslINTERFACE_LAPACK_INCLUDED*/ 24 25