lapack /TESTING/EIG /derrgg.f
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'
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'
28 matches | 1060 lines | Fortran 77 | Bitbucket
lapack /TESTING/EIG /ddrgvx.f
36. *>
37. *> DDRGVX checks the nonsymmetric generalized eigenvalue problem
38. *> expert driver DGGEVX.
39. *>
40. *> DGGEVX computes the generalized eigenvalues, (optionally) the left
41. *> and/or right eigenvectors, (optionally) computes a balancing
42. *> transformation to improve the conditioning, and (optionally)
44. *>
45. *> When DDRGVX is called with NSIZE > 0, two types of test matrix pairs
46. *> are generated by the subroutine DLATM6 and test the driver DGGEVX.
47. *> The test matrices have the known exact condition numbers for
48. *> eigenvalues. For the condition numbers of the eigenvectors
63. *> | (beta A - alpha B) r | / ( ulp max( |beta A|, |alpha B| ) )
64. *>
65. *> (3) The condition number S(i) of eigenvalues computed by DGGEVX
37. *> DDRGVX checks the nonsymmetric generalized eigenvalue problem
38. *> expert driver DGGEVX.
39. *>
40. *> DGGEVX computes the generalized eigenvalues, (optionally) the left
41. *> and/or right eigenvectors, (optionally) computes a balancing
42. *> transformation to improve the conditioning, and (optionally)
44. *>
45. *> When DDRGVX is called with NSIZE > 0, two types of test matrix pairs
46. *> are generated by the subroutine DLATM6 and test the driver DGGEVX.
47. *> The test matrices have the known exact condition numbers for
48. *> eigenvalues. For the condition numbers of the eigenvectors
63. *> | (beta A - alpha B) r | / ( ulp max( |beta A|, |alpha B| ) )
64. *>
65. *> (3) The condition number S(i) of eigenvalues computed by DGGEVX
17 matches | 763 lines | Fortran 77 | Bitbucket
lapack /SRC /dggevx.f
1. *> \brief <b> DGGEVX computes the eigenvalues and, optionally, the left and/or right eigenvectors for GE matrices</b>
2. *
3. * =========== DOCUMENTATION ===========
7. *
8. *> \htmlonly
9. *> Download DGGEVX + dependencies
10. *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/dggevx.f">
11. *> [TGZ]</a>
12. *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/dggevx.f">
13. *> [ZIP]</a>
14. *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/dggevx.f">
15. *> [TXT]</a>
16. *> \endhtmlonly
19. * ===========
20. *
2. *
3. * =========== DOCUMENTATION ===========
7. *
8. *> \htmlonly
9. *> Download DGGEVX + dependencies
10. *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/dggevx.f">
11. *> [TGZ]</a>
12. *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/dggevx.f">
13. *> [ZIP]</a>
14. *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/dggevx.f">
15. *> [TXT]</a>
16. *> \endhtmlonly
19. * ===========
20. *
10 matches | 869 lines | Fortran 77 | Bitbucket
lapack /lapacke/src /lapacke_dggevx_work.c
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
34. #include "lapacke_utils.h"
35.
36. lapack_int LAPACKE_dggevx_work( int matrix_order, 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_order == 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,
28. *****************************************************************************
29. * Contents: Native middle-level C interface to LAPACK function dggevx
30. * Author: Intel Corporation
31. * Generated November, 2011
34. #include "lapacke_utils.h"
35.
36. lapack_int LAPACKE_dggevx_work( int matrix_order, 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_order == 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,
11 matches | 164 lines | C | Bitbucket
exciting /src/LAPACK /dggevx.f
1. *> \brief <b> DGGEVX computes the eigenvalues and, optionally, the left and/or right eigenvectors for GE matrices</b>
2. *
3. * =========== DOCUMENTATION ===========
7. *
8. *> \htmlonly
9. *> Download DGGEVX + dependencies
10. *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/dggevx.f">
11. *> [TGZ]</a>
12. *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/dggevx.f">
13. *> [ZIP]</a>
14. *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/dggevx.f">
15. *> [TXT]</a>
16. *> \endhtmlonly
19. * ===========
20. *
2. *
3. * =========== DOCUMENTATION ===========
7. *
8. *> \htmlonly
9. *> Download DGGEVX + dependencies
10. *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/dggevx.f">
11. *> [TGZ]</a>
12. *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/dggevx.f">
13. *> [ZIP]</a>
14. *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/dggevx.f">
15. *> [TXT]</a>
16. *> \endhtmlonly
19. * ===========
20. *
10 matches | 869 lines | Fortran 77 | GitHub
vendor /src/lapack-lite-3.1.1/TESTING/EIG /derrgg.f
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'
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'
28 matches | 954 lines | Fortran 77 | GitHub
openmeeg /contrib/clapack-3.2.1-CMAKE/TESTING/EIG /derrgg.c
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);
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);
28 matches | 1320 lines | C | GitHub
vendor /src/lapack-lite-3.1.1/TESTING/EIG /ddrgvx.f
27. *
28. * DDRGVX checks the nonsymmetric generalized eigenvalue problem
29. * expert driver DGGEVX.
30. *
31. * DGGEVX computes the generalized eigenvalues, (optionally) the left
32. * and/or right eigenvectors, (optionally) computes a balancing
33. * transformation to improve the conditioning, and (optionally)
35. *
36. * When DDRGVX is called with NSIZE > 0, two types of test matrix pairs
37. * are generated by the subroutine DLATM6 and test the driver DGGEVX.
38. * The test matrices have the known exact condition numbers for
39. * eigenvalues. For the condition numbers of the eigenvectors
54. * | (beta A - alpha B) r | / ( ulp max( |beta A|, |alpha B| ) )
55. *
56. * (3) The condition number S(i) of eigenvalues computed by DGGEVX
28. * DDRGVX checks the nonsymmetric generalized eigenvalue problem
29. * expert driver DGGEVX.
30. *
31. * DGGEVX computes the generalized eigenvalues, (optionally) the left
32. * and/or right eigenvectors, (optionally) computes a balancing
33. * transformation to improve the conditioning, and (optionally)
35. *
36. * When DDRGVX is called with NSIZE > 0, two types of test matrix pairs
37. * are generated by the subroutine DLATM6 and test the driver DGGEVX.
38. * The test matrices have the known exact condition numbers for
39. * eigenvalues. For the condition numbers of the eigenvectors
54. * | (beta A - alpha B) r | / ( ulp max( |beta A|, |alpha B| ) )
55. *
56. * (3) The condition number S(i) of eigenvalues computed by DGGEVX
17 matches | 625 lines | Fortran 77 | GitHub
lapack /lapack-3.4.0/TESTING/EIG /ddrgvx.f
36. *>
37. *> DDRGVX checks the nonsymmetric generalized eigenvalue problem
38. *> expert driver DGGEVX.
39. *>
40. *> DGGEVX computes the generalized eigenvalues, (optionally) the left
41. *> and/or right eigenvectors, (optionally) computes a balancing
42. *> transformation to improve the conditioning, and (optionally)
44. *>
45. *> When DDRGVX is called with NSIZE > 0, two types of test matrix pairs
46. *> are generated by the subroutine DLATM6 and test the driver DGGEVX.
47. *> The test matrices have the known exact condition numbers for
48. *> eigenvalues. For the condition numbers of the eigenvectors
63. *> | (beta A - alpha B) r | / ( ulp max( |beta A|, |alpha B| ) )
64. *>
65. *> (3) The condition number S(i) of eigenvalues computed by DGGEVX
37. *> DDRGVX checks the nonsymmetric generalized eigenvalue problem
38. *> expert driver DGGEVX.
39. *>
40. *> DGGEVX computes the generalized eigenvalues, (optionally) the left
41. *> and/or right eigenvectors, (optionally) computes a balancing
42. *> transformation to improve the conditioning, and (optionally)
44. *>
45. *> When DDRGVX is called with NSIZE > 0, two types of test matrix pairs
46. *> are generated by the subroutine DLATM6 and test the driver DGGEVX.
47. *> The test matrices have the known exact condition numbers for
48. *> eigenvalues. For the condition numbers of the eigenvectors
63. *> | (beta A - alpha B) r | / ( ulp max( |beta A|, |alpha B| ) )
64. *>
65. *> (3) The condition number S(i) of eigenvalues computed by DGGEVX
17 matches | 763 lines | Fortran 77 | Fedora Project
openmeeg /contrib/clapack-3.2.1-CMAKE/TESTING/EIG /ddrgvx.c
113. integer *, integer *);
114. extern /* Subroutine */ int alasvm_(char *, integer *, integer *, integer
115. *, integer *), dggevx_(char *, char *, char *, char *,
116. integer *, doublereal *, integer *, doublereal *, integer *,
117. doublereal *, doublereal *, doublereal *, doublereal *, integer *,
165.
166. /* DDRGVX checks the nonsymmetric generalized eigenvalue problem */
167. /* expert driver DGGEVX. */
168.
169. /* DGGEVX computes the generalized eigenvalues, (optionally) the left */
170. /* and/or right eigenvectors, (optionally) computes a balancing */
171. /* transformation to improve the conditioning, and (optionally) */
173.
174. /* When DDRGVX is called with NSIZE > 0, two types of test matrix pairs */
175. /* are generated by the subroutine DLATM6 and test the driver DGGEVX. */
114. extern /* Subroutine */ int alasvm_(char *, integer *, integer *, integer
115. *, integer *), dggevx_(char *, char *, char *, char *,
116. integer *, doublereal *, integer *, doublereal *, integer *,
117. doublereal *, doublereal *, doublereal *, doublereal *, integer *,
165.
166. /* DDRGVX checks the nonsymmetric generalized eigenvalue problem */
167. /* expert driver DGGEVX. */
168.
169. /* DGGEVX computes the generalized eigenvalues, (optionally) the left */
170. /* and/or right eigenvectors, (optionally) computes a balancing */
171. /* transformation to improve the conditioning, and (optionally) */
173.
174. /* When DDRGVX is called with NSIZE > 0, two types of test matrix pairs */
175. /* are generated by the subroutine DLATM6 and test the driver DGGEVX. */
17 matches | 970 lines | C | GitHub
lapack /lapacke/src /lapacke_dggevx.c
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
34. #include "lapacke_utils.h"
35.
36. lapack_int LAPACKE_dggevx( int matrix_order, 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_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) {
52. LAPACKE_xerbla( "LAPACKE_dggevx", -1 );
53. return -1;
54. }
28. *****************************************************************************
29. * Contents: Native high-level C interface to LAPACK function dggevx
30. * Author: Intel Corporation
31. * Generated November, 2011
34. #include "lapacke_utils.h"
35.
36. lapack_int LAPACKE_dggevx( int matrix_order, 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_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) {
52. LAPACKE_xerbla( "LAPACKE_dggevx", -1 );
53. return -1;
54. }
6 matches | 121 lines | C | Bitbucket
lapack /lapack-3.4.0/manpages/man/man3 /dggevx.f.3
1. .TH "dggevx.f" 3 "Sun Nov 13 2011" "Version 3.4.0" "LAPACK" \" -*- nroff -*-
2. .ad l
3. .nh
4. .SH NAME
5. dggevx.f \-
6. .SH SYNOPSIS
7. .br
11. .in +1c
12. .ti -1c
13. .RI "subroutine \fBDGGEVX\fP (BALANC, JOBVL, JOBVR, SENSE, N, A, LDA, B, LDB, ALPHAR, ALPHAI, BETA, VL, LDVL, VR, LDVR, ILO, IHI, LSCALE, RSCALE, ABNRM, BBNRM, RCONDE, RCONDV, WORK, LWORK, IWORK, BWORK, INFO)"
14. .br
15. .RI "\fI\fB DGGEVX computes the eigenvalues and, optionally, the left and/or right eigenvectors for GE matrices\fP \fP"
16. .in -1c
17. .SH "Function/Subroutine Documentation"
18. .PP
2. .ad l
3. .nh
4. .SH NAME
5. dggevx.f \-
6. .SH SYNOPSIS
7. .br
11. .in +1c
12. .ti -1c
13. .RI "subroutine \fBDGGEVX\fP (BALANC, JOBVL, JOBVR, SENSE, N, A, LDA, B, LDB, ALPHAR, ALPHAI, BETA, VL, LDVL, VR, LDVR, ILO, IHI, LSCALE, RSCALE, ABNRM, BBNRM, RCONDE, RCONDV, WORK, LWORK, IWORK, BWORK, INFO)"
14. .br
15. .RI "\fI\fB DGGEVX computes the eigenvalues and, optionally, the left and/or right eigenvectors for GE matrices\fP \fP"
16. .in -1c
17. .SH "Function/Subroutine Documentation"
18. .PP
8 matches | 509 lines | Unknown | Fedora Project
lapack /lapack-3.4.0/lapacke/src /lapacke_dggevx_work.c
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"
36.
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,
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"
36.
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,
11 matches | 165 lines | C | Fedora Project
openmeeg /contrib/clapack-3.2.1-CMAKE/SRC /dggevx.c
1. /* dggevx.f -- translated by f2c (version 20061008).
2. You must link the resulting object file with libf2c:
3. on Microsoft Windows system, link with libf2c.lib;
21. static doublereal c_b60 = 1.;
22.
23. /* Subroutine */ int dggevx_(char *balanc, char *jobvl, char *jobvr, char *
24. sense, integer *n, doublereal *a, integer *lda, doublereal *b,
25. integer *ldb, doublereal *alphar, doublereal *alphai, doublereal *
117. /* ======= */
118.
119. /* DGGEVX computes for a pair of N-by-N real nonsymmetric matrices (A,B) */
120. /* the generalized eigenvalues, and optionally, the left and/or right */
121. /* generalized eigenvectors. */
501. if (*info != 0) {
502. i__1 = -(*info);
2. You must link the resulting object file with libf2c:
3. on Microsoft Windows system, link with libf2c.lib;
21. static doublereal c_b60 = 1.;
22.
23. /* Subroutine */ int dggevx_(char *balanc, char *jobvl, char *jobvr, char *
24. sense, integer *n, doublereal *a, integer *lda, doublereal *b,
25. integer *ldb, doublereal *alphar, doublereal *alphai, doublereal *
117. /* ======= */
118.
119. /* DGGEVX computes for a pair of N-by-N real nonsymmetric matrices (A,B) */
120. /* the generalized eigenvalues, and optionally, the left and/or right */
121. /* generalized eigenvectors. */
501. if (*info != 0) {
502. i__1 = -(*info);
6 matches | 886 lines | C | GitHub
pymc /lapack/double /dggevx.f
1. SUBROUTINE DGGEVX( BALANC, JOBVL, JOBVR, SENSE, N, A, LDA, B, LDB,
2. $ ALPHAR, ALPHAI, BETA, VL, LDVL, VR, LDVR, ILO,
3. $ IHI, LSCALE, RSCALE, ABNRM, BBNRM, RCONDE,
25. * =======
26. *
27. * DGGEVX computes for a pair of N-by-N real nonsymmetric matrices (A,B)
28. * the generalized eigenvalues, and optionally, the left and/or right
29. * generalized eigenvectors.
396. *
397. IF( INFO.NE.0 ) THEN
398. CALL XERBLA( 'DGGEVX', -INFO )
399. RETURN
400. ELSE IF( LQUERY ) THEN
714. RETURN
715. *
2. $ ALPHAR, ALPHAI, BETA, VL, LDVL, VR, LDVR, ILO,
3. $ IHI, LSCALE, RSCALE, ABNRM, BBNRM, RCONDE,
25. * =======
26. *
27. * DGGEVX computes for a pair of N-by-N real nonsymmetric matrices (A,B)
28. * the generalized eigenvalues, and optionally, the left and/or right
29. * generalized eigenvectors.
396. *
397. IF( INFO.NE.0 ) THEN
398. CALL XERBLA( 'DGGEVX', -INFO )
399. RETURN
400. ELSE IF( LQUERY ) THEN
714. RETURN
715. *
4 matches | 719 lines | Fortran 77 | GitHub
lapack /lapack-3.4.0/lapacke/src /lapacke_dggevx.c
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"
36.
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. }
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"
36.
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. }
6 matches | 122 lines | C | Fedora Project
lapack /TESTING/EIG /dchkee.f
58. *>
59. *> DXV (Generalized Nonsymmetric Eigenvalue/eigenvector Expert Driver):
60. *> Test DGGEVX
61. *>
62. *> DSG (Symmetric Generalized Eigenvalue Problem):
2228. * -------------------------------------------------
2229. * DXV: Generalized Nonsymmetric Eigenvalue Problem
2230. * DGGEVX (eigenvalue/vector with condition numbers)
2231. * -------------------------------------------------
2232. *
2445. $ 'Problem Driver DGGEV' )
2446. 9962 FORMAT( / ' Tests of the Generalized Nonsymmetric Eigenvalue ',
2447. $ 'Problem Expert Driver DGGEVX' )
2448. 9961 FORMAT( / / 1X, A3, ': NB =', I4, ', NBMIN =', I4, ', NX =', I4,
2449. $ ', INMIN=', I4,
59. *> DXV (Generalized Nonsymmetric Eigenvalue/eigenvector Expert Driver):
60. *> Test DGGEVX
61. *>
62. *> DSG (Symmetric Generalized Eigenvalue Problem):
2228. * -------------------------------------------------
2229. * DXV: Generalized Nonsymmetric Eigenvalue Problem
2230. * DGGEVX (eigenvalue/vector with condition numbers)
2231. * -------------------------------------------------
2232. *
2445. $ 'Problem Driver DGGEV' )
2446. 9962 FORMAT( / ' Tests of the Generalized Nonsymmetric Eigenvalue ',
2447. $ 'Problem Expert Driver DGGEVX' )
2448. 9961 FORMAT( / / 1X, A3, ': NB =', I4, ', NBMIN =', I4, ', NX =', I4,
2449. $ ', INMIN=', I4,
3 matches | 2457 lines | Fortran 77 | Bitbucket
openmeeg /contrib/clapack-3.2.1-CMAKE/TESTING /out
1347. -----------------------------------------------------------------------
1348.
1349. Tests of the Generalized Nonsymmetric Eigenvalue Problem Expert Driver DGGEVX
1350.
1351. LAPACK VERSION 3.2.0
1593. -----------------------------------------------------------------------
1594.
1595. Tests of the Generalized Nonsymmetric Eigenvalue Problem Expert Driver DGGEVX
1596.
1597. LAPACK VERSION 3.2.0
1348.
1349. Tests of the Generalized Nonsymmetric Eigenvalue Problem Expert Driver DGGEVX
1350.
1351. LAPACK VERSION 3.2.0
1593. -----------------------------------------------------------------------
1594.
1595. Tests of the Generalized Nonsymmetric Eigenvalue Problem Expert Driver DGGEVX
1596.
1597. LAPACK VERSION 3.2.0
2 matches | 1935 lines | Unknown | GitHub
lapack /lapack-3.4.0/manpages/man/man3 /dggglm.f.3
13. .RI "subroutine \fBDGGGLM\fP (N, M, P, A, LDA, B, LDB, D, X, Y, WORK, LWORK, INFO)"
14. .br
15. .RI "\fI\fB DGGEVX computes the eigenvalues and, optionally, the left and/or right eigenvectors for GE matrices\fP \fP"
16. .in -1c
17. .SH "Function/Subroutine Documentation"
19. .SS "subroutine DGGGLM (INTEGERN, INTEGERM, INTEGERP, DOUBLE PRECISION, dimension( lda, * )A, INTEGERLDA, DOUBLE PRECISION, dimension( ldb, * )B, INTEGERLDB, DOUBLE PRECISION, dimension( * )D, DOUBLE PRECISION, dimension( * )X, DOUBLE PRECISION, dimension( * )Y, DOUBLE PRECISION, dimension( * )WORK, INTEGERLWORK, INTEGERINFO)"
20. .PP
21. \fB DGGEVX computes the eigenvalues and, optionally, the left and/or right eigenvectors for GE matrices\fP
22. .PP
23. \fBPurpose: \fP
14. .br
15. .RI "\fI\fB DGGEVX computes the eigenvalues and, optionally, the left and/or right eigenvectors for GE matrices\fP \fP"
16. .in -1c
17. .SH "Function/Subroutine Documentation"
19. .SS "subroutine DGGGLM (INTEGERN, INTEGERM, INTEGERP, DOUBLE PRECISION, dimension( lda, * )A, INTEGERLDA, DOUBLE PRECISION, dimension( ldb, * )B, INTEGERLDB, DOUBLE PRECISION, dimension( * )D, DOUBLE PRECISION, dimension( * )X, DOUBLE PRECISION, dimension( * )Y, DOUBLE PRECISION, dimension( * )WORK, INTEGERLWORK, INTEGERINFO)"
20. .PP
21. \fB DGGEVX computes the eigenvalues and, optionally, the left and/or right eigenvectors for GE matrices\fP
22. .PP
23. \fBPurpose: \fP
2 matches | 243 lines | Unknown | Fedora Project
openmeeg /contrib/clapack-3.2.1-CMAKE/TESTING/EIG /dchkee.c
110. "igenvalue \002,\002Problem Driver DGGEV\002)";
111. static char fmt_9962[] = "(/\002 Tests of the Generalized Nonsymmetric E"
112. "igenvalue \002,\002Problem Expert Driver DGGEVX\002)";
113. static char fmt_9974[] = "(\002 Tests of DSBTRD\002,/\002 (reduction of "
114. "a symmetric band \002,\002matrix to tridiagonal form)\002)";
578.
579. /* DXV (Generalized Nonsymmetric Eigenvalue/eigenvector Expert Driver): */
580. /* Test DGGEVX */
581.
582. /* DSG (Symmetric Generalized Eigenvalue Problem): */
111. static char fmt_9962[] = "(/\002 Tests of the Generalized Nonsymmetric E"
112. "igenvalue \002,\002Problem Expert Driver DGGEVX\002)";
113. static char fmt_9974[] = "(\002 Tests of DSBTRD\002,/\002 (reduction of "
114. "a symmetric band \002,\002matrix to tridiagonal form)\002)";
578.
579. /* DXV (Generalized Nonsymmetric Eigenvalue/eigenvector Expert Driver): */
580. /* Test DGGEVX */
581.
582. /* DSG (Symmetric Generalized Eigenvalue Problem): */
2 matches | 1560 lines | C | GitHub
