1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
/* interface_lapack.h
*
* SRE, Tue Jul 13 15:11:51 2004 [St. Louis]
*/
#ifndef eslINTERFACE_LAPACK_INCLUDED
#define eslINTERFACE_LAPACK_INCLUDED
#include <esl_config.h>
#ifdef HAVE_LIBLAPACK
/* This is the C interface to the Fortran77 dgeev routine,
* provided by the LAPACK library:
*/
extern void dgeev_(char *jobvl, 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);
/* and this is our C interface to the lapack call:
*/
extern int esl_lapack_dgeev(ESL_DMATRIX *A, double **ret_Er, double **ret_Ei, ESL_DMATRIX **ret_VL, ESL_DMATRIX **ret_VR);
#endif /*HAVE_LIBLAPACK*/
#endif /*eslINTERFACE_LAPACK_INCLUDED*/
|
