searchcode | source code search engine

37+ results for 'DGGEVX' (0 ms)

Not the results you expected?

Search Tips

If you have run a search that returned no results there are a few things to try. By default, searchcode prioritizes system survival (hey it's a free service!), and as such might do some load shedding, which can mean you don't see results you expect. You can do some things to help with this.

Filters

Filtering by language or source will cut down the number of results searchcode needs to look at. If you know a result for instance a term can be found in python code, specifying python re.compile lang:python via the lang:python syntax, or the sidebar filters.

You can also filter by filename database file:content where the filename must match at the start what you supply.

Add more terms or longer terms

Adding more search terms will now only improve relevance it will reduce the number of results that searchcode needs to inspect. So rather than searching for test consider trying unittest or test random.

Keep in mind searchcode uses AND logic. This means search will look for all of the terms you enter split by whitespace. So a search for *testing.T randomstring will look for documents which contain both *testing.T and randomstring in any order in a document, with a preference to displaying snippets where the terms are close together.

Literal search

Searchcode will literal search on anything, split by whitespace. This allows you to search for i++; if you like but it does mean that no advanced search query syntax is supported (for the moment anyway) outside of filters and exact match.

Exact match search

You can search for exact matches by enclosing them in quotes "class ScopSearch(unittest.TestCase):"

Smallest term size

The smallest term you can search for in searchcode is 3 characters long. This is because it uses a trigram index to search on. So a search for two characters, such as i+ will never return a result. However, i++ will. Note that while 2 character terms are not searched for if they are in a search with other longer terms it may be used for matching and displaying code snippets.

Case insensitive

Searchcode is case-insensitive. It actually lowercases everything it indexes, so it won't work as expected for some unicode points.

lapacke_dggevx_work.c (git://pkgs.fedoraproject.org/lapack) C · 165 lines

27 THE POSSIBILITY OF SUCH DAMAGE.

28 *****************************************************************************

29 * Contents: Native middle-level C interface to LAPACK function dggevx

30 * Author: Intel Corporation

31 * Generated November, 2011

35 #include "lapacke_utils.h"

37 lapack_int LAPACKE_dggevx_work( int matrix_order, char balanc, char jobvl,

38 char jobvr, char sense, lapack_int n, double* a,

39 lapack_int lda, double* b, lapack_int ldb,

49 if( matrix_order == LAPACK_COL_MAJOR ) {

50 /* Call LAPACK function and adjust info */

51 LAPACK_dggevx( &balanc, &jobvl, &jobvr, &sense, &n, a, &lda, b, &ldb,

52 alphar, alphai, beta, vl, &ldvl, vr, &ldvr, ilo, ihi,

53 lscale, rscale, abnrm, bbnrm, rconde, rcondv, work,

lapacke_dggevx_work.c (https://github.com/connery/epicopter.git) C · 164 lines

27 THE POSSIBILITY OF SUCH DAMAGE.

28 ******************************************************************************

29 * Contents: Native middle-level C interface to LAPACK function dggevx

30 * Author: Intel Corporation

31 * Generated October, 2010

35 #include "lapacke_utils.h"

37 lapack_int LAPACKE_dggevx_work( int matrix_order, char balanc, char jobvl,

38 char jobvr, char sense, lapack_int n, double* a,

39 lapack_int lda, double* b, lapack_int ldb,

49 if( matrix_order == LAPACK_COL_MAJOR ) {

50 /* Call LAPACK function and adjust info */

51 LAPACK_dggevx( &balanc, &jobvl, &jobvr, &sense, &n, a, &lda, b, &ldb,

52 alphar, alphai, beta, vl, &ldvl, vr, &ldvr, ilo, ihi,

53 lscale, rscale, abnrm, bbnrm, rconde, rcondv, work,

lapack_prototypes.h (https://github.com/certik/openmx.git) C Header · 97 lines

88 void dpotrf_(char *uplo, INTEGER *n, double *a, INTEGER *lda, INTEGER *info);

89 void dpotri_(char *uplo, INTEGER *n, double *a, INTEGER *lda, INTEGER *info);

90 void dggevx_(char *balanc, char *jobvl, char *jobvr, char *sense,

91 INTEGER *n, double *a, INTEGER *lda, double *b,

92 INTEGER *ldb, double *alphar, double *alphai, double *beta,

lapacksyms.def (https://github.com/qsnake/umfpack.git) Module-Definition · 718 lines

66 dggesx

67 dggev

68 dggevx

69 dggglm

70 dgghrd

CMakeLists.txt (https://bitbucket.org/iricpt/lapack.git) CMake · 2436 lines

748 lapacke_dggev3.c

749 lapacke_dggev3_work.c

750 lapacke_dggevx.c

751 lapacke_dggevx_work.c

derrgg.f (https://github.com/jackygrahamez/DrugDiscovery-Home.git) FORTRAN Legacy · 953 lines

13 * =======

14 *

15 * DERRGG tests the error exits for DGGES, DGGESX, DGGEV, DGGEVX,

16 * DGGGLM, DGGHRD, DGGLSE, DGGQRF, DGGRQF, DGGSVD, DGGSVP, DHGEQZ,

17 * DTGEVC, DTGEXC, DTGSEN, DTGSJA, DTGSNA, and DTGSYL.

54 * ..

55 * .. External Subroutines ..

56 EXTERNAL CHKXER, DGGES, DGGESX, DGGEV, DGGEVX, DGGGLM,

57 $ DGGHRD, DGGLSE, DGGQRF, DGGRQF, DGGSVD, DGGSVP,

58 $ DHGEQZ, DTGEVC, DTGEXC, DTGSEN, DTGSJA, DTGSNA,

672 NT = NT + 10

673 *

674 * DGGEVX

675 *

676 SRNAMT = 'DGGEVX'

clapack.h (https://bitbucket.org/raviyellani/opencv.git) C Header · 1025 lines

260 integer *info);

261

262 /* Subroutine */ int dggevx_(char *balanc, char *jobvl, char *jobvr, char *

263 sense, integer *n, doublereal *a, integer *lda, doublereal *b,

264 integer *ldb, doublereal *alphar, doublereal *alphai, doublereal *

derrgg.c (https://github.com/zye/cmvs_dep.git) C · 1268 lines

110 integer *, doublereal *, integer *, doublereal *, integer *,

111 integer *, integer *, doublereal *, integer *),

112 chkxer_(char *, integer *, integer *, logical *, logical *), dggevx_(char *, char *, char *, char *, integer *,

113 doublereal *, integer *, doublereal *, integer *, doublereal *,

114 doublereal *, doublereal *, doublereal *, integer *, doublereal *,

163 /* ======= */

164

165 /* DERRGG tests the error exits for DGGES, DGGESX, DGGEV, DGGEVX, */

166 /* DGGGLM, DGGHRD, DGGLSE, DGGQRF, DGGRQF, DGGSVD, DGGSVP, DHGEQZ, */

167 /* DTGEVC, DTGEXC, DTGSEN, DTGSJA, DTGSNA, and DTGSYL. */

982 nt += 10;

983

984 /* DGGEVX */

985

986 s_copy(srnamc_1.srnamt, "DGGEVX", (ftnlen)32, (ftnlen)6);

ggevx.hpp (https://github.com/TRIQS/triqs_0.x.git) C++ Header · 755 lines

87 fortran_int_t* iwork, fortran_bool_t* bwork ) {

88 fortran_int_t info(0);

89 LAPACK_DGGEVX( &balanc, &jobvl, &jobvr, &sense, &n, a, &lda, b, &ldb,

90 alphar, alphai, beta, vl, &ldvl, vr, &ldvr, &ilo, &ihi, lscale,

91 rscale, &abnrm, &bbnrm, rconde, rcondv, work, &lwork, iwork,

lapacke_dggevx.c (git://pkgs.fedoraproject.org/lapack) C · 122 lines

27 THE POSSIBILITY OF SUCH DAMAGE.

28 *****************************************************************************

29 * Contents: Native high-level C interface to LAPACK function dggevx

30 * Author: Intel Corporation

31 * Generated November, 2011

35 #include "lapacke_utils.h"

37 lapack_int LAPACKE_dggevx( int matrix_order, char balanc, char jobvl,

38 char jobvr, char sense, lapack_int n, double* a,

39 lapack_int lda, double* b, lapack_int ldb,

51 double work_query;

52 if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) {

53 LAPACKE_xerbla( "LAPACKE_dggevx", -1 );

54 return -1;

55 }

lapack.f90 (git://github.com/certik/fortran-utils.git) FORTRAN Modern · 407 lines

139 END SUBROUTINE

140

141 SUBROUTINE DGGEVX( BALANC, JOBVL, JOBVR, SENSE, N, A, LDA, B, LDB, &

142 ALPHAR, ALPHAI, BETA, VL, LDVL, VR, LDVR, ILO, IHI, &

143 LSCALE, RSCALE, ABNRM, BBNRM, RCONDE, RCONDV, WORK, &

clapack_double.h (git://pkgs.fedoraproject.org/gretl) C Header · 1450 lines

255 integer *info);

256

257 int dggevx_(char *balanc, char *jobvl, char *jobvr, char *

258 sense, integer *n, doublereal *a, integer *lda, doublereal *b,

259 integer *ldb, doublereal *alphar, doublereal *alphai, doublereal *

LapackInterface.hpp (https://github.com/NGSolve/ngsolve.git) C++ Header · 63 lines

26 // Expert routine for solving generalized eigenvalue problem (QZ)

27 // zggevx

28 // dggevx

30 //Solve double standard symmetric eigenvlaue problem

derrgg.f (git://pkgs.fedoraproject.org/lapack) FORTRAN Legacy · 1060 lines

22 *> \verbatim

23 *>

24 *> DERRGG tests the error exits for DGGES, DGGESX, DGGEV, DGGEVX,

25 *> DGGGLM, DGGHRD, DGGLSE, DGGQRF, DGGRQF, DGGSVD, DGGSVP, DHGEQZ,

26 *> DORCSD, DTGEVC, DTGEXC, DTGSEN, DTGSJA, DTGSNA, and DTGSYL.

95 * ..

96 * .. External Subroutines ..

97 EXTERNAL CHKXER, DGGES, DGGESX, DGGEV, DGGEVX, DGGGLM,

98 $ DGGHRD, DGGLSE, DGGQRF, DGGRQF, DGGSVD, DGGSVP,

99 $ DHGEQZ, DORCSD, DTGEVC, DTGEXC, DTGSEN, DTGSJA,

778 NT = NT + 10

779 *

780 * DGGEVX

781 *

782 SRNAMT = 'DGGEVX'

lapacke_dggevx.c (https://bitbucket.org/iricpt/lapack.git) C · 121 lines

27 THE POSSIBILITY OF SUCH DAMAGE.

28 *****************************************************************************

29 * Contents: Native high-level C interface to LAPACK function dggevx

30 * Author: Intel Corporation

31 *****************************************************************************/

33 #include "lapacke_utils.h"

35 lapack_int LAPACKE_dggevx( int matrix_layout, char balanc, char jobvl,

36 char jobvr, char sense, lapack_int n, double* a,

37 lapack_int lda, double* b, lapack_int ldb,

49 double work_query;

50 if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) {

51 LAPACKE_xerbla( "LAPACKE_dggevx", -1 );

52 return -1;

53 }

ggevx.hpp (git://github.com/quantmind/jflib.git) C++ Header · 559 lines

60 double* work, integer_t const lwork, integer_t* iwork,

61 logical_t* bwork, integer_t& info ) {

62 LAPACK_DGGEVX( &balanc, &jobvl, &jobvr, &sense, &n, a, &lda, b, &ldb,

63 alphar, alphai, beta, vl, &ldvl, vr, &ldvr, &ilo, &ihi,

64 lscale, rscale, &abnrm, &bbnrm, rconde, rcondv, work, &lwork,

ggevx.hpp (https://github.com/OpenModelica/OpenModelica.git) C++ Header · 785 lines

92 {

93 fortran_int_t info(0);

94 LAPACK_DGGEVX(&balanc, &jobvl, &jobvr, &sense, &n, a, &lda, b, &ldb,

95 alphar, alphai, beta, vl, &ldvl, vr, &ldvr, &ilo, &ihi, lscale,

96 rscale, &abnrm, &bbnrm, rconde, rcondv, work, &lwork, iwork,

lapacke_dggevx.c (https://github.com/tpoisonooo/how-to-optimize-gemm.git) C · 120 lines

27 THE POSSIBILITY OF SUCH DAMAGE.

28 *****************************************************************************

29 * Contents: Native high-level C interface to LAPACK function dggevx

30 * Author: Intel Corporation

31 * Generated November 2015

34 #include "lapacke_utils.h"

36 lapack_int LAPACKE_dggevx( int matrix_layout, char balanc, char jobvl,

37 char jobvr, char sense, lapack_int n, double* a,

38 lapack_int lda, double* b, lapack_int ldb,

50 double work_query;

51 if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) {

52 LAPACKE_xerbla( "LAPACKE_dggevx", -1 );

53 return -1;

54 }

Lapack.hh (https://github.com/leppert/fire.git) C++ Header · 62 lines

7 double* s, double* rcond, long* rank, double* work, long* lwork, long* iwork, long* info);

9 void dggevx(char* balanc, char* jobvl, char* jobvr, char* sense,

10 long* n, double* a, long* lda, double* b, long* ldb,

11 double* alphar, double* alphai, double* beta, double* vl, long* ldvl, double* vr, long* ldvr,

derrgg.c (https://github.com/nagadomi/animeface-2009.git) C · 1307 lines

98 integer *, doublereal *, integer *, doublereal *, integer *,

99 integer *, integer *, doublereal *, integer *),

100 chkxer_(char *, integer *, integer *, logical *, logical *), dggevx_(char *, char *, char *, char *, integer *,

101 doublereal *, integer *, doublereal *, integer *, doublereal *,

102 doublereal *, doublereal *, doublereal *, integer *, doublereal *,

151 /* ======= */

152

153 /* DERRGG tests the error exits for DGGES, DGGESX, DGGEV, DGGEVX, */

154 /* DGGGLM, DGGHRD, DGGLSE, DGGQRF, DGGRQF, DGGSVD, DGGSVP, DHGEQZ, */

155 /* DTGEVC, DTGEXC, DTGSEN, DTGSJA, DTGSNA, and DTGSYL. */

970 nt += 10;

971

972 /* DGGEVX */

973

974 s_copy(srnamc_1.srnamt, "DGGEVX", (ftnlen)6, (ftnlen)6);

CMakeLists.txt (https://github.com/YannickJadoul/Parselmouth.git) CMake · 123 lines

18 dgetrs.cpp dggbak.cpp dggbal.cpp

19 dgges.cpp dggesx.cpp dggev.cpp

20 dggevx.cpp dggglm.cpp dgghrd.cpp

21 dgglse.cpp dggqrf.cpp dggrqf.cpp

22 dggsvd.cpp dggsvp.cpp dgtcon.cpp

clapack.h (https://github.com/YannickJadoul/Parselmouth.git) C Header · 1543 lines

278 integer *info);

279

280 int dggevx_(const char *balanc, const char *jobvl, const char *jobvr, const char *

281 sense, integer *n, double *a, integer *lda, double *b,

282 integer *ldb, double *alphar, double *alphai, double *

Lapack.cpp (https://github.com/leppert/fire.git) C++ · 171 lines

17 void F77NAME(dggevx)(char* balanc, char* jobvl, char* jobvr, char* sense,

18 long* n, double* a, long* lda, double* b, long* ldb,

19 double* alphar, double* alphai, double* beta, double* vl, long* ldvl, double* vr, long* ldvr,

71 void dggevx(char* balanc, char* jobvl, char* jobvr, char* sense,

72 long* n, double* a, long* lda, double* b, long* ldb,

73 double* alphar, double* alphai, double* beta, double* vl, long* ldvl, double* vr, long* ldvr,

76 {

77 #ifdef HAVE_LAPACK

78 F77NAME(dggevx)(balanc, jobvl, jobvr, sense, n, a, lda, b, ldb,

79 alphar, alphai, beta, vl, ldvl, vr, ldvr,

80 ilo, ihi, lscale, rscale, abnrm, bbnrm,

lapacke_dggevx_work.c (https://bitbucket.org/iricpt/lapack.git) C · 162 lines

27 THE POSSIBILITY OF SUCH DAMAGE.

28 *****************************************************************************

29 * Contents: Native middle-level C interface to LAPACK function dggevx

30 * Author: Intel Corporation

31 *****************************************************************************/

33 #include "lapacke_utils.h"

35 lapack_int LAPACKE_dggevx_work( int matrix_layout, char balanc, char jobvl,

36 char jobvr, char sense, lapack_int n, double* a,

37 lapack_int lda, double* b, lapack_int ldb,

47 if( matrix_layout == LAPACK_COL_MAJOR ) {

48 /* Call LAPACK function and adjust info */

49 LAPACK_dggevx( &balanc, &jobvl, &jobvr, &sense, &n, a, &lda, b, &ldb,

50 alphar, alphai, beta, vl, &ldvl, vr, &ldvr, ilo, ihi,

51 lscale, rscale, abnrm, bbnrm, rconde, rcondv, work,

lapack02-cffi.lisp (https://github.com/rigetti/magicl.git) Lisp · 14087 lines

26 %%DGETRS %DGETRS %%DGETSLS %DGETSLS %%DGGBAK %DGGBAK %%DGGBAL %DGGBAL %%DGGES

27 %DGGES %%DGGES3 %DGGES3 %%DGGESX %DGGESX %%DGGEV %DGGEV %%DGGEV3 %DGGEV3

28 %%DGGEVX %DGGEVX %%DGGGLM %DGGGLM %%DGGHD3 %DGGHD3 %%DGGHRD %DGGHRD %%DGGLSE

29 %DGGLSE %%DGGQRF %DGGQRF %%DGGRQF %DGGRQF %%DGGSVD3 %DGGSVD3 %%DGGSVP3

30 %DGGSVP3 %%DGSVJ0 %DGSVJ0 %%DGSVJ1 %DGSVJ1 %%DGTCON %DGTCON %%DGTRFS %DGTRFS

derrgg.f (https://bitbucket.org/iricpt/lapack.git) FORTRAN Legacy · 1207 lines

22 *> \verbatim

23 *>

24 *> DERRGG tests the error exits for DGGES, DGGESX, DGGEV, DGGEVX,

25 *> DGGGLM, DGGHRD, DGGLSE, DGGQRF, DGGRQF, DGGSVD3,

26 *> DGGSVP3, DHGEQZ, DORCSD, DTGEVC, DTGEXC, DTGSEN, DTGSJA, DTGSNA,

93 * ..

94 * .. External Subroutines ..

95 EXTERNAL CHKXER, DGGES, DGGESX, DGGEV, DGGEVX, DGGGLM,

96 $ DGGHRD, DGGLSE, DGGQRF, DGGRQF,

97 $ DHGEQZ, DORCSD, DTGEVC, DTGEXC, DTGSEN, DTGSJA,

926 NT = NT + 10

927 *

928 * DGGEVX

929 *

930 SRNAMT = 'DGGEVX'

derrgg.c (https://bitbucket.org/rutad/libs.git) C · 1310 lines

105 integer *, doublereal *, integer *, doublereal *, integer *,

106 integer *, integer *, doublereal *, integer *),

107 chkxer_(char *, integer *, integer *, logical *, logical *), dggevx_(char *, char *, char *, char *, integer *,

108 doublereal *, integer *, doublereal *, integer *, doublereal *,

109 doublereal *, doublereal *, doublereal *, integer *, doublereal *,

164 =======

165

166 DERRGG tests the error exits for DGGES, DGGESX, DGGEV, DGGEVX,

167 DGGGLM, DGGHRD, DGGLSE, DGGQRF, DGGRQF, DGGSVD, DGGSVP, DHGEQZ,

168 DTGEVC, DTGEXC, DTGSEN, DTGSJA, DTGSNA, and DTGSYL.

968 nt += 10;

969

970 /* DGGEVX */

971

972 s_copy(srnamc_1.srnamt, "DGGEVX", (ftnlen)6, (ftnlen)6);

lapacke_dggevx_work.c (https://github.com/xianyi/OpenBLAS.git) C · 163 lines

27 THE POSSIBILITY OF SUCH DAMAGE.

28 *****************************************************************************

29 * Contents: Native middle-level C interface to LAPACK function dggevx

30 * Author: Intel Corporation

31 * Generated November 2015

34 #include "lapacke_utils.h"

36 lapack_int LAPACKE_dggevx_work( int matrix_layout, char balanc, char jobvl,

37 char jobvr, char sense, lapack_int n, double* a,

38 lapack_int lda, double* b, lapack_int ldb,

48 if( matrix_layout == LAPACK_COL_MAJOR ) {

49 /* Call LAPACK function and adjust info */

50 LAPACK_dggevx( &balanc, &jobvl, &jobvr, &sense, &n, a, &lda, b, &ldb,

51 alphar, alphai, beta, vl, &ldvl, vr, &ldvr, ilo, ihi,

52 lscale, rscale, abnrm, bbnrm, rconde, rcondv, work,

lapack_f77.h (https://github.com/b45ch1/taylorpoly.git) C Header · 5272 lines

374 #define f77_dggesx dggesx_

375 #define f77_dggev dggev_

376 #define f77_dggevx dggevx_

377 #define f77_dggglm dggglm_

378 #define f77_dgghrd dgghrd_

CMakeLists.txt (https://github.com/aanchan/hogsvd.git) CMake · 2030 lines

614 lapacke_dggev.c

615 lapacke_dggev_work.c

616 lapacke_dggevx.c

617 lapacke_dggevx_work.c

Teuchos_LAPACK_wrappers.hpp (https://github.com/qsnake/trilinos.git) C++ Header · 881 lines

187 #define DGEEV_F77 F77_BLAS_MANGLE(dgeev,DGEEV)

188 #define DGESVD_F77 F77_BLAS_MANGLE(dgesvd,DGESVD)

189 #define DGGEVX_F77 F77_BLAS_MANGLE(dggevx,DGGEVX)

190 #define DGEHRD_F77 F77_BLAS_MANGLE(dgehrd,DGEHRD)

191 #define DHSEQR_F77 F77_BLAS_MANGLE(dhseqr,DHSEQR)

300 #define DGEEV_F77 F77_BLAS_MANGLE(dgeev,DGEEV)

301 #define DGESVD_F77 F77_BLAS_MANGLE(dgesvd,DGESVD)

302 #define DGGEVX_F77 F77_BLAS_MANGLE(dggevx,DGGEVX)

303 #define DGEHRD_F77 F77_BLAS_MANGLE(dgehrd,DGEHRD)

304 #define DHSEQR_F77 F77_BLAS_MANGLE(dhseqr,DHSEQR)

453 #define DGEEV_F77 F77_BLAS_MANGLE(dgeev,DGEEV)

454 #define DGESVD_F77 F77_BLAS_MANGLE(dgesvd,DGESVD)

455 #define DGGEVX_F77 F77_BLAS_MANGLE(dggevx,DGGEVX)

456 #define DGEHRD_F77 F77_BLAS_MANGLE(dgehrd,DGEHRD)

457 #define DHSEQR_F77 F77_BLAS_MANGLE(dhseqr,DHSEQR)

lapack_intfc_mangle.h (https://gitlab.com/y-shao/psi4public) C Header · 1023 lines

92 #define F_DGGESX FC_GLOBAL(dggesx, DGGESX)

93 #define F_DGGEV FC_GLOBAL(dggev, DGGEV )

94 #define F_DGGEVX FC_GLOBAL(dggevx, DGGEVX)

95 #define F_DGGGLM FC_GLOBAL(dggglm, DGGGLM)

96 #define F_DGGHRD FC_GLOBAL(dgghrd, DGGHRD)

289 #define F_DGGESX dggesx_

290 #define F_DGGEV dggev_

291 #define F_DGGEVX dggevx_

292 #define F_DGGGLM dggglm_

293 #define F_DGGHRD dgghrd_

485 #define F_DGGESX dggesx

486 #define F_DGGEV dggev

487 #define F_DGGEVX dggevx

488 #define F_DGGGLM dggglm

489 #define F_DGGHRD dgghrd

lapack_intfc.cc (https://gitlab.com/y-shao/psi4public) C++ · 20287 lines

80 extern int F_DGGESX(char*, char*, char*, char*, int*, double*, int*, double*, int*, int*, double*, double*, double*, double*, int*, double*, int*, double*, double*, double*, int*, int*, int*, int*);

81 extern int F_DGGEV(char*, char*, int*, double*, int*, double*, int*, double*, double*, double*, double*, int*, double*, int*, double*, int*, int*);

82 extern int F_DGGEVX(char*, char*, char*, char*, int*, double*, int*, double*, int*, double*, double*, double*, double*, int*, double*, int*, int*, int*, double*, double*, double*, double*, double*, double*, double*, int*, int*, int*);

83 extern int F_DGGGLM(int*, int*, int*, double*, int*, double*, int*, double*, double*, double*, double*, int*, int*);

84 extern int F_DGGHRD(char*, char*, int*, int*, int*, double*, int*, double*, int*, double*, int*, double*, int*, int*);