Martin Köhler
9 years ago
92 changed files with 459 additions and 437 deletions
Split View
Diff Options
-
+10 -9lapack-netlib/TESTING/EIG/cchkbd.f
-
+7 -3lapack-netlib/TESTING/EIG/cchkee.f
-
+6 -6lapack-netlib/TESTING/EIG/cchkgg.f
-
+4 -4lapack-netlib/TESTING/EIG/cdrges.f
-
+2 -2lapack-netlib/TESTING/EIG/cdrges3.f
-
+4 -4lapack-netlib/TESTING/EIG/cdrgev.f
-
+2 -2lapack-netlib/TESTING/EIG/cdrgev3.f
-
+4 -4lapack-netlib/TESTING/EIG/cdrgsx.f
-
+4 -4lapack-netlib/TESTING/EIG/cdrgvx.f
-
+11 -11lapack-netlib/TESTING/EIG/cdrvbd.f
-
+4 -4lapack-netlib/TESTING/EIG/cdrves.f
-
+4 -4lapack-netlib/TESTING/EIG/cdrvsx.f
-
+4 -4lapack-netlib/TESTING/EIG/cdrvvx.f
-
+5 -5lapack-netlib/TESTING/EIG/cerred.f
-
+23 -23lapack-netlib/TESTING/EIG/cerrgg.f
-
+4 -4lapack-netlib/TESTING/EIG/clctes.f
-
+5 -5lapack-netlib/TESTING/EIG/cslect.f
-
+12 -12lapack-netlib/TESTING/EIG/dchkbd.f
-
+6 -3lapack-netlib/TESTING/EIG/dchkee.f
-
+6 -6lapack-netlib/TESTING/EIG/dchkgg.f
-
+4 -4lapack-netlib/TESTING/EIG/ddrges.f
-
+2 -2lapack-netlib/TESTING/EIG/ddrges3.f
-
+4 -4lapack-netlib/TESTING/EIG/ddrgev.f
-
+2 -2lapack-netlib/TESTING/EIG/ddrgev3.f
-
+4 -4lapack-netlib/TESTING/EIG/ddrgsx.f
-
+2 -2lapack-netlib/TESTING/EIG/ddrgvx.f
-
+6 -6lapack-netlib/TESTING/EIG/ddrvbd.f
-
+4 -4lapack-netlib/TESTING/EIG/ddrves.f
-
+4 -4lapack-netlib/TESTING/EIG/ddrvsx.f
-
+4 -4lapack-netlib/TESTING/EIG/ddrvvx.f
-
+5 -5lapack-netlib/TESTING/EIG/derrbd.f
-
+4 -4lapack-netlib/TESTING/EIG/derred.f
-
+15 -15lapack-netlib/TESTING/EIG/derrgg.f
-
+4 -4lapack-netlib/TESTING/EIG/dlctes.f
-
+5 -5lapack-netlib/TESTING/EIG/dslect.f
-
+12 -12lapack-netlib/TESTING/EIG/schkbd.f
-
+7 -4lapack-netlib/TESTING/EIG/schkee.f
-
+6 -6lapack-netlib/TESTING/EIG/schkgg.f
-
+4 -4lapack-netlib/TESTING/EIG/sdrges.f
-
+2 -2lapack-netlib/TESTING/EIG/sdrges3.f
-
+4 -4lapack-netlib/TESTING/EIG/sdrgev.f
-
+2 -2lapack-netlib/TESTING/EIG/sdrgev3.f
-
+4 -4lapack-netlib/TESTING/EIG/sdrgsx.f
-
+4 -4lapack-netlib/TESTING/EIG/sdrgvx.f
-
+5 -5lapack-netlib/TESTING/EIG/sdrvbd.f
-
+4 -4lapack-netlib/TESTING/EIG/sdrves.f
-
+4 -4lapack-netlib/TESTING/EIG/sdrvsx.f
-
+4 -4lapack-netlib/TESTING/EIG/sdrvvx.f
-
+5 -5lapack-netlib/TESTING/EIG/serrbd.f
-
+4 -4lapack-netlib/TESTING/EIG/serred.f
-
+16 -16lapack-netlib/TESTING/EIG/serrgg.f
-
+4 -4lapack-netlib/TESTING/EIG/slctes.f
-
+5 -5lapack-netlib/TESTING/EIG/sslect.f
-
+6 -6lapack-netlib/TESTING/EIG/zchkbd.f
-
+6 -3lapack-netlib/TESTING/EIG/zchkee.f
-
+6 -6lapack-netlib/TESTING/EIG/zchkgg.f
-
+4 -4lapack-netlib/TESTING/EIG/zdrges.f
-
+2 -2lapack-netlib/TESTING/EIG/zdrges3.f
-
+4 -4lapack-netlib/TESTING/EIG/zdrgev.f
-
+2 -2lapack-netlib/TESTING/EIG/zdrgev3.f
-
+4 -4lapack-netlib/TESTING/EIG/zdrgsx.f
-
+4 -4lapack-netlib/TESTING/EIG/zdrgvx.f
-
+11 -11lapack-netlib/TESTING/EIG/zdrvbd.f
-
+4 -4lapack-netlib/TESTING/EIG/zdrves.f
-
+4 -4lapack-netlib/TESTING/EIG/zdrvsx.f
-
+4 -4lapack-netlib/TESTING/EIG/zdrvvx.f
-
+4 -4lapack-netlib/TESTING/EIG/zerred.f
-
+23 -23lapack-netlib/TESTING/EIG/zerrgg.f
-
+4 -4lapack-netlib/TESTING/EIG/zlctes.f
-
+5 -5lapack-netlib/TESTING/EIG/zslect.f
-
+2 -0lapack-netlib/TESTING/LIN/Makefile
-
+3 -2lapack-netlib/TESTING/LIN/cqrt04.f
-
+3 -2lapack-netlib/TESTING/LIN/cqrt05.f
-
+3 -2lapack-netlib/TESTING/LIN/zqrt04.f
-
+3 -2lapack-netlib/TESTING/LIN/zqrt05.f
-
+4 -4lapack-netlib/TESTING/MATGEN/clatm2.f
-
+4 -4lapack-netlib/TESTING/MATGEN/clatm3.f
-
+4 -4lapack-netlib/TESTING/MATGEN/clatm5.f
-
+4 -4lapack-netlib/TESTING/MATGEN/dlatm2.f
-
+4 -4lapack-netlib/TESTING/MATGEN/dlatm3.f
-
+4 -4lapack-netlib/TESTING/MATGEN/dlatm5.f
-
+4 -4lapack-netlib/TESTING/MATGEN/slatm2.f
-
+4 -4lapack-netlib/TESTING/MATGEN/slatm3.f
-
+4 -4lapack-netlib/TESTING/MATGEN/slatm5.f
-
+4 -4lapack-netlib/TESTING/MATGEN/zlatm2.f
-
+4 -4lapack-netlib/TESTING/MATGEN/zlatm3.f
-
+4 -4lapack-netlib/TESTING/MATGEN/zlatm5.f
-
+2 -0lapack-netlib/TESTING/Makefile
-
+1 -1lapack-netlib/TESTING/ctest_rfp.in
-
+1 -1lapack-netlib/TESTING/nep.in
-
+3 -3lapack-netlib/TESTING/sep.in
-
+1 -1lapack-netlib/TESTING/svd.in
+ 10
- 9
lapack-netlib/TESTING/EIG/cchkbd.f
View File
| @@ -405,7 +405,7 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup complex_eig | |||
| * | |||
| @@ -415,10 +415,10 @@ | |||
| $ Y, Z, Q, LDQ, PT, LDPT, U, VT, WORK, LWORK, | |||
| $ RWORK, NOUT, INFO ) | |||
| * | |||
| * -- LAPACK test routine (version 3.4.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INFO, LDA, LDPT, LDQ, LDX, LWORK, NOUT, NRHS, | |||
| @@ -466,9 +466,10 @@ | |||
| EXTERNAL SLAMCH, SLARND | |||
| * .. | |||
| * .. External Subroutines .. | |||
| EXTERNAL ALASUM, CBDSQR, CBDT01, CBDT02, CBDT03, CGEBRD, | |||
| $ CGEMM, CLACPY, CLASET, CLATMR, CLATMS, CUNGBR, | |||
| $ CUNT01, SCOPY, SLABAD, SLAHD2, SSVDCH, XERBLA | |||
| EXTERNAL ALASUM, CBDSQR, CBDT01, CBDT02, CBDT03, | |||
| $ CGEBRD, CGEMM, CLACPY, CLASET, CLATMR, | |||
| $ CLATMS, CUNGBR, CUNT01, SCOPY, SLABAD, | |||
| $ SLAHD2, SSVDCH, XERBLA | |||
| * .. | |||
| * .. Intrinsic Functions .. | |||
| INTRINSIC ABS, EXP, INT, LOG, MAX, MIN, SQRT | |||
| @@ -483,9 +484,9 @@ | |||
| COMMON / SRNAMC / SRNAMT | |||
| * .. | |||
| * .. Data statements .. | |||
| DATA KTYPE / 1, 2, 5*4, 5*6, 3*9, 10 / | |||
| DATA KMAGN / 2*1, 3*1, 2, 3, 3*1, 2, 3, 1, 2, 3, 0 / | |||
| DATA KMODE / 2*0, 4, 3, 1, 4, 4, 4, 3, 1, 4, 4, 0, | |||
| DATA KTYPE / 1, 2, 5*4, 5*6, 3*9, 10 / | |||
| DATA KMAGN / 2*1, 3*1, 2, 3, 3*1, 2, 3, 1, 2, 3, 0 / | |||
| DATA KMODE / 2*0, 4, 3, 1, 4, 4, 4, 3, 1, 4, 4, 0, | |||
| $ 0, 0, 0 / | |||
| * .. | |||
| * .. Executable Statements .. | |||
+ 7
- 3
lapack-netlib/TESTING/EIG/cchkee.f
View File
| @@ -1027,17 +1027,17 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2015 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup complex_eig | |||
| * | |||
| * ===================================================================== | |||
| PROGRAM CCHKEE | |||
| * | |||
| * -- LAPACK test routine (version 3.6.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2015 | |||
| * June 2016 | |||
| * | |||
| * ===================================================================== | |||
| * | |||
| @@ -2098,6 +2098,7 @@ | |||
| MAXTYP = 26 | |||
| NTYPES = MIN( MAXTYP, NTYPES ) | |||
| CALL ALAREQ( C3, NTYPES, DOTYPE, MAXTYP, NIN, NOUT ) | |||
| CALL XLAENV(1,1) | |||
| IF( TSTCHK .AND. TSTERR ) | |||
| $ CALL CERRGG( C3, NOUT ) | |||
| DO 350 I = 1, NPARMS | |||
| @@ -2157,6 +2158,7 @@ | |||
| * | |||
| * Blocked version | |||
| * | |||
| CALL XLAENV(16,2) | |||
| CALL CDRGES3( NN, NVAL, MAXTYP, DOTYPE, ISEED, THRESH, NOUT, | |||
| $ A( 1, 1 ), NMAX, A( 1, 2 ), A( 1, 3 ), | |||
| $ A( 1, 4 ), A( 1, 7 ), NMAX, A( 1, 8 ), | |||
| @@ -2223,6 +2225,7 @@ | |||
| * | |||
| * Blocked version | |||
| * | |||
| CALL XLAENV(16,2) | |||
| CALL CDRGEV3( NN, NVAL, MAXTYP, DOTYPE, ISEED, THRESH, NOUT, | |||
| $ A( 1, 1 ), NMAX, A( 1, 2 ), A( 1, 3 ), | |||
| $ A( 1, 4 ), A( 1, 7 ), NMAX, A( 1, 8 ), | |||
| @@ -2348,6 +2351,7 @@ | |||
| * GSV: Generalized Singular Value Decomposition | |||
| * ---------------------------------------------- | |||
| * | |||
| CALL XLAENV(1,1) | |||
| IF( TSTERR ) | |||
| $ CALL CERRGG( 'GSV', NOUT ) | |||
| CALL CCKGSV( NN, MVAL, PVAL, NVAL, NTYPES, ISEED, THRESH, NMAX, | |||
+ 6
- 6
lapack-netlib/TESTING/EIG/cchkgg.f
View File
| @@ -68,7 +68,7 @@ | |||
| *> and each type of matrix, one matrix will be generated and used | |||
| *> to test the nonsymmetric eigenroutines. For each matrix, 13 | |||
| *> tests will be performed. The first twelve "test ratios" should be | |||
| *> small -- O(1). They will be compared with the threshhold THRESH: | |||
| *> small -- O(1). They will be compared with the threshold THRESH: | |||
| *> | |||
| *> H | |||
| *> (1) | A - U H V | / ( |A| n ulp ) | |||
| @@ -128,7 +128,7 @@ | |||
| *> |beta(Q,Z computed) - beta(Q,Z not computed)|/|P| ) / ulp | |||
| *> | |||
| *> In addition, the normalization of L and R are checked, and compared | |||
| *> with the threshhold THRSHN. | |||
| *> with the threshold THRSHN. | |||
| *> | |||
| *> Test Matrices | |||
| *> ---- -------- | |||
| @@ -298,7 +298,7 @@ | |||
| *> \param[in] THRSHN | |||
| *> \verbatim | |||
| *> THRSHN is REAL | |||
| *> Threshhold for reporting eigenvector normalization error. | |||
| *> Threshold for reporting eigenvector normalization error. | |||
| *> If the normalization of any eigenvector differs from 1 by | |||
| *> more than THRSHN*ulp, then a special error message will be | |||
| *> printed. (This is handled separately from the other tests, | |||
| @@ -492,7 +492,7 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup complex_eig | |||
| * | |||
| @@ -503,10 +503,10 @@ | |||
| $ ALPHA3, BETA3, EVECTL, EVECTR, WORK, LWORK, | |||
| $ RWORK, LLWORK, RESULT, INFO ) | |||
| * | |||
| * -- LAPACK test routine (version 3.4.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| LOGICAL TSTDIF | |||
+ 4
- 4
lapack-netlib/TESTING/EIG/cdrges.f
View File
| @@ -50,7 +50,7 @@ | |||
| *> number of matrix "TYPES" are specified. For each size ("N") | |||
| *> and each TYPE of matrix, a pair of matrices (A, B) will be generated | |||
| *> and used for testing. For each matrix pair, the following 13 tests | |||
| *> will be performed and compared with the threshhold THRESH except | |||
| *> will be performed and compared with the threshold THRESH except | |||
| *> the tests (5), (11) and (13). | |||
| *> | |||
| *> | |||
| @@ -372,7 +372,7 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup complex_eig | |||
| * | |||
| @@ -381,10 +381,10 @@ | |||
| $ NOUNIT, A, LDA, B, S, T, Q, LDQ, Z, ALPHA, | |||
| $ BETA, WORK, LWORK, RWORK, RESULT, BWORK, INFO ) | |||
| * | |||
| * -- LAPACK test routine (version 3.4.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INFO, LDA, LDQ, LWORK, NOUNIT, NSIZES, NTYPES | |||
+ 2
- 2
lapack-netlib/TESTING/EIG/cdrges3.f
View File
| @@ -50,7 +50,7 @@ | |||
| *> number of matrix "TYPES" are specified. For each size ("N") | |||
| *> and each TYPE of matrix, a pair of matrices (A, B) will be generated | |||
| *> and used for testing. For each matrix pair, the following 13 tests | |||
| *> will be performed and compared with the threshhold THRESH except | |||
| *> will be performed and compared with the threshold THRESH except | |||
| *> the tests (5), (11) and (13). | |||
| *> | |||
| *> | |||
| @@ -382,7 +382,7 @@ | |||
| $ BETA, WORK, LWORK, RWORK, RESULT, BWORK, | |||
| $ INFO ) | |||
| * | |||
| * -- LAPACK test routine (version 3.6.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * February 2015 | |||
+ 4
- 4
lapack-netlib/TESTING/EIG/cdrgev.f
View File
| @@ -55,7 +55,7 @@ | |||
| *> number of matrix "types" are specified. For each size ("n") | |||
| *> and each type of matrix, a pair of matrices (A, B) will be generated | |||
| *> and used for testing. For each matrix pair, the following tests | |||
| *> will be performed and compared with the threshhold THRESH. | |||
| *> will be performed and compared with the threshold THRESH. | |||
| *> | |||
| *> Results from CGGEV: | |||
| *> | |||
| @@ -389,7 +389,7 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2015 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup complex_eig | |||
| * | |||
| @@ -399,10 +399,10 @@ | |||
| $ ALPHA, BETA, ALPHA1, BETA1, WORK, LWORK, RWORK, | |||
| $ RESULT, INFO ) | |||
| * | |||
| * -- LAPACK test routine (version 3.6.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2015 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INFO, LDA, LDQ, LDQE, LWORK, NOUNIT, NSIZES, | |||
+ 2
- 2
lapack-netlib/TESTING/EIG/cdrgev3.f
View File
| @@ -55,7 +55,7 @@ | |||
| *> number of matrix "types" are specified. For each size ("n") | |||
| *> and each type of matrix, a pair of matrices (A, B) will be generated | |||
| *> and used for testing. For each matrix pair, the following tests | |||
| *> will be performed and compared with the threshhold THRESH. | |||
| *> will be performed and compared with the threshold THRESH. | |||
| *> | |||
| *> Results from CGGEV3: | |||
| *> | |||
| @@ -399,7 +399,7 @@ | |||
| $ ALPHA, BETA, ALPHA1, BETA1, WORK, LWORK, | |||
| $ RWORK, RESULT, INFO ) | |||
| * | |||
| * -- LAPACK test routine (version 3.6.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * January 2015 | |||
+ 4
- 4
lapack-netlib/TESTING/EIG/cdrgsx.f
View File
| @@ -59,7 +59,7 @@ | |||
| *> (need more details on what kind of read-in data are needed). | |||
| *> | |||
| *> For each matrix pair, the following tests will be performed and | |||
| *> compared with the threshhold THRESH except for the tests (7) and (9): | |||
| *> compared with the threshold THRESH except for the tests (7) and (9): | |||
| *> | |||
| *> (1) | A - Q S Z' | / ( |A| n ulp ) | |||
| *> | |||
| @@ -340,7 +340,7 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup complex_eig | |||
| * | |||
| @@ -349,10 +349,10 @@ | |||
| $ AI, BI, Z, Q, ALPHA, BETA, C, LDC, S, WORK, | |||
| $ LWORK, RWORK, IWORK, LIWORK, BWORK, INFO ) | |||
| * | |||
| * -- LAPACK test routine (version 3.4.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INFO, LDA, LDC, LIWORK, LWORK, NCMAX, NIN, | |||
+ 4
- 4
lapack-netlib/TESTING/EIG/cdrgvx.f
View File
| @@ -50,7 +50,7 @@ | |||
| *> corresponding the first and last eigenvalues are also know | |||
| *> ``exactly'' (see CLATM6). | |||
| *> For each matrix pair, the following tests will be performed and | |||
| *> compared with the threshhold THRESH. | |||
| *> compared with the threshold THRESH. | |||
| *> | |||
| *> (1) max over all left eigenvalue/-vector pairs (beta/alpha,l) of | |||
| *> | |||
| @@ -288,7 +288,7 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup complex_eig | |||
| * | |||
| @@ -298,10 +298,10 @@ | |||
| $ S, STRU, DIF, DIFTRU, WORK, LWORK, RWORK, | |||
| $ IWORK, LIWORK, RESULT, BWORK, INFO ) | |||
| * | |||
| * -- LAPACK test routine (version 3.4.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER IHI, ILO, INFO, LDA, LIWORK, LWORK, NIN, NOUT, | |||
+ 11
- 11
lapack-netlib/TESTING/EIG/cdrvbd.f
View File
| @@ -379,7 +379,7 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2015 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup complex_eig | |||
| * | |||
| @@ -389,10 +389,10 @@ | |||
| $ SSAV, E, WORK, LWORK, RWORK, IWORK, NOUNIT, | |||
| $ INFO ) | |||
| * | |||
| * -- LAPACK test routine (version 3.6.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2015 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INFO, LDA, LDU, LDVT, LWORK, NOUNIT, NSIZES, | |||
| @@ -423,11 +423,11 @@ | |||
| * .. Local Scalars .. | |||
| LOGICAL BADMM, BADNN | |||
| CHARACTER JOBQ, JOBU, JOBVT, RANGE | |||
| INTEGER I, IINFO, IJQ, IJU, IJVT, IL, IU, ITEMP, IWSPC, | |||
| $ IWTMP, J, JSIZE, JTYPE, LSWORK, M, MINWRK, | |||
| $ MMAX, MNMAX, MNMIN, MTYPES, N, NERRS, NFAIL, | |||
| $ NMAX, NS, NSI, NSV, NTEST, NTESTF, NTESTT, | |||
| $ LRWORK | |||
| INTEGER I, IINFO, IJQ, IJU, IJVT, IL, IU, ITEMP, | |||
| $ IWSPC, IWTMP, J, JSIZE, JTYPE, LSWORK, M, | |||
| $ MINWRK, MMAX, MNMAX, MNMIN, MTYPES, N, | |||
| $ NERRS, NFAIL, NMAX, NS, NSI, NSV, NTEST, | |||
| $ NTESTF, NTESTT, LRWORK | |||
| REAL ANORM, DIF, DIV, OVFL, RTUNFL, ULP, ULPINV, | |||
| $ UNFL, VL, VU | |||
| * .. | |||
| @@ -441,9 +441,9 @@ | |||
| EXTERNAL SLAMCH, SLARND | |||
| * .. | |||
| * .. External Subroutines .. | |||
| EXTERNAL ALASVM, XERBLA, CBDT01, CBDT05, CGESDD, CGESVD, | |||
| $ CGESVJ, CGEJSV, CGESVDX, CLACPY, CLASET, CLATMS, | |||
| $ CUNT01, CUNT03 | |||
| EXTERNAL ALASVM, XERBLA, CBDT01, CBDT05, CGESDD, | |||
| $ CGESVD, CGESVJ, CGEJSV, CGESVDX, CLACPY, | |||
| $ CLASET, CLATMS, CUNT01, CUNT03 | |||
| * .. | |||
| * .. Intrinsic Functions .. | |||
| INTRINSIC ABS, REAL, MAX, MIN | |||
+ 4
- 4
lapack-netlib/TESTING/EIG/cdrves.f
View File
| @@ -369,7 +369,7 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup complex_eig | |||
| * | |||
| @@ -378,10 +378,10 @@ | |||
| $ NOUNIT, A, LDA, H, HT, W, WT, VS, LDVS, RESULT, | |||
| $ WORK, NWORK, RWORK, IWORK, BWORK, INFO ) | |||
| * | |||
| * -- LAPACK test routine (version 3.4.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INFO, LDA, LDVS, NOUNIT, NSIZES, NTYPES, NWORK | |||
| @@ -901,7 +901,7 @@ | |||
| $ ' 1/ulp otherwise', / | |||
| $ ' 12 = 0 if W same no matter if VS computed (sort),', | |||
| $ ' 1/ulp otherwise', / | |||
| $ ' 13 = 0 if sorting succesful, 1/ulp otherwise', / ) | |||
| $ ' 13 = 0 if sorting successful, 1/ulp otherwise', / ) | |||
| 9993 FORMAT( ' N=', I5, ', IWK=', I2, ', seed=', 4( I4, ',' ), | |||
| $ ' type ', I2, ', test(', I2, ')=', G10.3 ) | |||
| 9992 FORMAT( ' CDRVES: ', A, ' returned INFO=', I6, '.', / 9X, 'N=', | |||
+ 4
- 4
lapack-netlib/TESTING/EIG/cdrvsx.f
View File
| @@ -425,7 +425,7 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup complex_eig | |||
| * | |||
| @@ -435,10 +435,10 @@ | |||
| $ LDVS, VS1, RESULT, WORK, LWORK, RWORK, BWORK, | |||
| $ INFO ) | |||
| * | |||
| * -- LAPACK test routine (version 3.4.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INFO, LDA, LDVS, LWORK, NIUNIT, NOUNIT, NSIZES, | |||
| @@ -914,7 +914,7 @@ | |||
| $ ' 1/ulp otherwise', / | |||
| $ ' 12 = 0 if W same no matter what else computed ', | |||
| $ '(sort), 1/ulp otherwise', / | |||
| $ ' 13 = 0 if sorting succesful, 1/ulp otherwise', | |||
| $ ' 13 = 0 if sorting successful, 1/ulp otherwise', | |||
| $ / ' 14 = 0 if RCONDE same no matter what else computed,', | |||
| $ ' 1/ulp otherwise', / | |||
| $ ' 15 = 0 if RCONDv same no matter what else computed,', | |||
+ 4
- 4
lapack-netlib/TESTING/EIG/cdrvvx.f
View File
| @@ -446,7 +446,7 @@ | |||
| *> \verbatim | |||
| *> INFO is INTEGER | |||
| *> If 0, then successful exit. | |||
| *> If <0, then input paramter -INFO is incorrect. | |||
| *> If <0, then input parameter -INFO is incorrect. | |||
| *> If >0, CLATMR, CLATMS, CLATME or CGET23 returned an error | |||
| *> code, and INFO is its absolute value. | |||
| *> | |||
| @@ -485,7 +485,7 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup complex_eig | |||
| * | |||
| @@ -496,10 +496,10 @@ | |||
| $ RCONDE, RCNDE1, RCDEIN, SCALE, SCALE1, RESULT, | |||
| $ WORK, NWORK, RWORK, INFO ) | |||
| * | |||
| * -- LAPACK test routine (version 3.4.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INFO, LDA, LDLRE, LDVL, LDVR, NIUNIT, NOUNIT, | |||
+ 5
- 5
lapack-netlib/TESTING/EIG/cerred.f
View File
| @@ -61,17 +61,17 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2015 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup complex_eig | |||
| * | |||
| * ===================================================================== | |||
| SUBROUTINE CERRED( PATH, NUNIT ) | |||
| * | |||
| * -- LAPACK test routine (version 3.6.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2015 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| CHARACTER*3 PATH | |||
| @@ -100,7 +100,7 @@ | |||
| $ VT( NMAX, NMAX ), W( 10*NMAX ), X( NMAX ) | |||
| * .. | |||
| * .. External Subroutines .. | |||
| EXTERNAL CHKXER, CGEES, CGEESX, CGEEV, CGEEVX, CGEJSV | |||
| EXTERNAL CHKXER, CGEES, CGEESX, CGEEV, CGEEVX, CGEJSV, | |||
| $ CGESDD, CGESVD | |||
| * .. | |||
| * .. External Functions .. | |||
| @@ -484,7 +484,7 @@ | |||
| CALL CGESVDX( 'V', 'N', 'A', 2, 2, A, 2, ZERO, ZERO, | |||
| $ 0, 0, NS, S, U, 1, VT, 1, W, 1, RW, IW, INFO ) | |||
| CALL CHKXER( 'CGESVDX', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 16 | |||
| INFOT = 17 | |||
| CALL CGESVDX( 'N', 'V', 'A', 2, 2, A, 2, ZERO, ZERO, | |||
| $ 0, 0, NS, S, U, 1, VT, 1, W, 1, RW, IW, INFO ) | |||
| CALL CHKXER( 'CGESVDX', INFOT, NOUT, LERR, OK ) | |||
+ 23
- 23
lapack-netlib/TESTING/EIG/cerrgg.f
View File
| @@ -50,17 +50,17 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2015 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup complex_eig | |||
| * | |||
| * ===================================================================== | |||
| SUBROUTINE CERRGG( PATH, NUNIT ) | |||
| * | |||
| * -- LAPACK test routine (version 3.6.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2015 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| CHARACTER*3 PATH | |||
| @@ -83,7 +83,7 @@ | |||
| * .. | |||
| * .. Local Arrays .. | |||
| LOGICAL BW( NMAX ), SEL( NMAX ) | |||
| INTEGER IW( LW ) | |||
| INTEGER IW( LW ), IDUM(NMAX) | |||
| REAL LS( NMAX ), R1( NMAX ), R2( NMAX ), | |||
| $ RCE( NMAX ), RCV( NMAX ), RS( NMAX ), RW( LW ) | |||
| COMPLEX A( NMAX, NMAX ), ALPHA( NMAX ), | |||
| @@ -306,57 +306,57 @@ | |||
| SRNAMT = 'CGGSVD3' | |||
| INFOT = 1 | |||
| CALL CGGSVD3( '/', 'N', 'N', 0, 0, 0, DUMMYK, DUMMYL, A, 1, B, | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, RW, IW, LWORK, | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, LWORK, RW, IDUM, | |||
| $ INFO ) | |||
| CALL CHKXER( 'CGGSVD3', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 2 | |||
| CALL CGGSVD3( 'N', '/', 'N', 0, 0, 0, DUMMYK, DUMMYL, A, 1, B, | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, RW, IW, LWORK, | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, LWORK, RW, IDUM, | |||
| $ INFO ) | |||
| CALL CHKXER( 'CGGSVD3', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 3 | |||
| CALL CGGSVD3( 'N', 'N', '/', 0, 0, 0, DUMMYK, DUMMYL, A, 1, B, | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, RW, IW, LWORK, | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, LWORK, RW, IDUM, | |||
| $ INFO ) | |||
| CALL CHKXER( 'CGGSVD3', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 4 | |||
| CALL CGGSVD3( 'N', 'N', 'N', -1, 0, 0, DUMMYK, DUMMYL, A, 1, B, | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, RW, IW, LWORK, | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, LWORK, RW, IDUM, | |||
| $ INFO ) | |||
| CALL CHKXER( 'CGGSVD3', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 5 | |||
| CALL CGGSVD3( 'N', 'N', 'N', 0, -1, 0, DUMMYK, DUMMYL, A, 1, B, | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, RW, IW, LWORK, | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, LWORK, RW, IDUM, | |||
| $ INFO ) | |||
| CALL CHKXER( 'CGGSVD3', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 6 | |||
| CALL CGGSVD3( 'N', 'N', 'N', 0, 0, -1, DUMMYK, DUMMYL, A, 1, B, | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, RW, IW, LWORK, | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, LWORK, RW, IDUM, | |||
| $ INFO ) | |||
| CALL CHKXER( 'CGGSVD3', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 10 | |||
| CALL CGGSVD3( 'N', 'N', 'N', 2, 1, 1, DUMMYK, DUMMYL, A, 1, B, | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, RW, IW, LWORK, | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, LWORK, RW, IDUM, | |||
| $ INFO ) | |||
| CALL CHKXER( 'CGGSVD3', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 12 | |||
| CALL CGGSVD3( 'N', 'N', 'N', 1, 1, 2, DUMMYK, DUMMYL, A, 1, B, | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, RW, IW, LWORK, | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, LWORK, RW, IDUM, | |||
| $ INFO ) | |||
| CALL CHKXER( 'CGGSVD3', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 16 | |||
| CALL CGGSVD3( 'U', 'N', 'N', 2, 2, 2, DUMMYK, DUMMYL, A, 2, B, | |||
| $ 2, R1, R2, U, 1, V, 1, Q, 1, W, RW, IW, LWORK, | |||
| $ 2, R1, R2, U, 1, V, 1, Q, 1, W, LWORK, RW, IDUM, | |||
| $ INFO ) | |||
| CALL CHKXER( 'CGGSVD3', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 18 | |||
| CALL CGGSVD3( 'N', 'V', 'N', 2, 2, 2, DUMMYK, DUMMYL, A, 2, B, | |||
| $ 2, R1, R2, U, 2, V, 1, Q, 1, W, RW, IW, LWORK, | |||
| $ 2, R1, R2, U, 2, V, 1, Q, 1, W, LWORK, RW, IDUM, | |||
| $ INFO ) | |||
| CALL CHKXER( 'CGGSVD3', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 20 | |||
| CALL CGGSVD3( 'N', 'N', 'Q', 2, 2, 2, DUMMYK, DUMMYL, A, 2, B, | |||
| $ 2, R1, R2, U, 2, V, 2, Q, 1, W, RW, IW, LWORK, | |||
| $ 2, R1, R2, U, 2, V, 2, Q, 1, W, LWORK, RW, IDUM, | |||
| $ INFO ) | |||
| CALL CHKXER( 'CGGSVD3', INFOT, NOUT, LERR, OK ) | |||
| NT = NT + 11 | |||
| @@ -573,56 +573,56 @@ | |||
| INFOT = 7 | |||
| CALL CUNCSD( 'Y', 'Y', 'Y', 'Y', 'N', 'N', | |||
| $ -1, 0, 0, A, 1, A, | |||
| $ 1, A, 1, A, 1, A, | |||
| $ 1, A, 1, A, 1, RS, | |||
| $ A, 1, A, 1, A, 1, A, | |||
| $ 1, W, LW, RW, LW, IW, INFO ) | |||
| CALL CHKXER( 'CUNCSD', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 8 | |||
| CALL CUNCSD( 'Y', 'Y', 'Y', 'Y', 'N', 'N', | |||
| $ 1, -1, 0, A, 1, A, | |||
| $ 1, A, 1, A, 1, A, | |||
| $ 1, A, 1, A, 1, RS, | |||
| $ A, 1, A, 1, A, 1, A, | |||
| $ 1, W, LW, RW, LW, IW, INFO ) | |||
| CALL CHKXER( 'CUNCSD', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 9 | |||
| CALL CUNCSD( 'Y', 'Y', 'Y', 'Y', 'N', 'N', | |||
| $ 1, 1, -1, A, 1, A, | |||
| $ 1, A, 1, A, 1, A, | |||
| $ 1, A, 1, A, 1, RS, | |||
| $ A, 1, A, 1, A, 1, A, | |||
| $ 1, W, LW, RW, LW, IW, INFO ) | |||
| CALL CHKXER( 'CUNCSD', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 11 | |||
| CALL CUNCSD( 'Y', 'Y', 'Y', 'Y', 'N', 'N', | |||
| $ 1, 1, 1, A, -1, A, | |||
| $ 1, A, 1, A, 1, A, | |||
| $ 1, A, 1, A, 1, RS, | |||
| $ A, 1, A, 1, A, 1, A, | |||
| $ 1, W, LW, RW, LW, IW, INFO ) | |||
| CALL CHKXER( 'CUNCSD', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 20 | |||
| CALL CUNCSD( 'Y', 'Y', 'Y', 'Y', 'N', 'N', | |||
| $ 1, 1, 1, A, 1, A, | |||
| $ 1, A, 1, A, 1, A, | |||
| $ 1, A, 1, A, 1, RS, | |||
| $ A, -1, A, 1, A, 1, A, | |||
| $ 1, W, LW, RW, LW, IW, INFO ) | |||
| CALL CHKXER( 'CUNCSD', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 22 | |||
| CALL CUNCSD( 'Y', 'Y', 'Y', 'Y', 'N', 'N', | |||
| $ 1, 1, 1, A, 1, A, | |||
| $ 1, A, 1, A, 1, A, | |||
| $ 1, A, 1, A, 1, RS, | |||
| $ A, 1, A, -1, A, 1, A, | |||
| $ 1, W, LW, RW, LW, IW, INFO ) | |||
| CALL CHKXER( 'CUNCSD', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 24 | |||
| CALL CUNCSD( 'Y', 'Y', 'Y', 'Y', 'N', 'N', | |||
| $ 1, 1, 1, A, 1, A, | |||
| $ 1, A, 1, A, 1, A, | |||
| $ 1, A, 1, A, 1, RS, | |||
| $ A, 1, A, 1, A, -1, A, | |||
| $ 1, W, LW, RW, LW, IW, INFO ) | |||
| CALL CHKXER( 'CUNCSD', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 26 | |||
| CALL CUNCSD( 'Y', 'Y', 'Y', 'Y', 'N', 'N', | |||
| $ 1, 1, 1, A, 1, A, | |||
| $ 1, A, 1, A, 1, A, | |||
| $ 1, A, 1, A, 1, RS, | |||
| $ A, 1, A, 1, A, 1, A, | |||
| $ -1, W, LW, RW, LW, IW, INFO ) | |||
| CALL CHKXER( 'CUNCSD', INFOT, NOUT, LERR, OK ) | |||
+ 4
- 4
lapack-netlib/TESTING/EIG/clctes.f
View File
| @@ -25,7 +25,7 @@ | |||
| *> eigenvalue is negative), and otherwise it returns .FALSE.. | |||
| *> | |||
| *> It is used by the test routine CDRGES to test whether the driver | |||
| *> routine CGGES succesfully sorts eigenvalues. | |||
| *> routine CGGES successfully sorts eigenvalues. | |||
| *> \endverbatim | |||
| * | |||
| * Arguments: | |||
| @@ -51,17 +51,17 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup complex_eig | |||
| * | |||
| * ===================================================================== | |||
| LOGICAL FUNCTION CLCTES( Z, D ) | |||
| * | |||
| * -- LAPACK test routine (version 3.4.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| COMPLEX D, Z | |||
+ 5
- 5
lapack-netlib/TESTING/EIG/cslect.f
View File
| @@ -22,8 +22,8 @@ | |||
| *> | |||
| *> CSLECT returns .TRUE. if the eigenvalue Z is to be selected, | |||
| *> otherwise it returns .FALSE. | |||
| *> It is used by CCHK41 to test if CGEES succesfully sorts eigenvalues, | |||
| *> and by CCHK43 to test if CGEESX succesfully sorts eigenvalues. | |||
| *> It is used by CCHK41 to test if CGEES successfully sorts eigenvalues, | |||
| *> and by CCHK43 to test if CGEESX successfully sorts eigenvalues. | |||
| *> | |||
| *> The common block /SSLCT/ controls how eigenvalues are selected. | |||
| *> If SELOPT = 0, then CSLECT return .TRUE. when real(Z) is less than | |||
| @@ -49,17 +49,17 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup complex_eig | |||
| * | |||
| * ===================================================================== | |||
| LOGICAL FUNCTION CSLECT( Z ) | |||
| * | |||
| * -- LAPACK test routine (version 3.4.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| COMPLEX Z | |||
+ 12
- 12
lapack-netlib/TESTING/EIG/dchkbd.f
View File
| @@ -483,7 +483,7 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2015 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup double_eig | |||
| * | |||
| @@ -493,10 +493,10 @@ | |||
| $ Y, Z, Q, LDQ, PT, LDPT, U, VT, WORK, LWORK, | |||
| $ IWORK, NOUT, INFO ) | |||
| * | |||
| * -- LAPACK test routine (version 3.6.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2015 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INFO, LDA, LDPT, LDQ, LDX, LWORK, NOUT, NRHS, | |||
| @@ -545,10 +545,10 @@ | |||
| EXTERNAL DLAMCH, DLARND, DSXT1 | |||
| * .. | |||
| * .. External Subroutines .. | |||
| EXTERNAL ALASUM, DBDSDC, DBDSQR, DBDSVDX, DBDT01, DBDT02, | |||
| $ DBDT03, DBDT04, DCOPY, DGEBRD, DGEMM, DLABAD, | |||
| $ DLACPY, DLAHD2, DLASET, DLATMR, DLATMS, | |||
| $ DORGBR, DORT01, XERBLA | |||
| EXTERNAL ALASUM, DBDSDC, DBDSQR, DBDSVDX, DBDT01, | |||
| $ DBDT02, DBDT03, DBDT04, DCOPY, DGEBRD, | |||
| $ DGEMM, DLABAD, DLACPY, DLAHD2, DLASET, | |||
| $ DLATMR, DLATMS, DORGBR, DORT01, XERBLA | |||
| * .. | |||
| * .. Intrinsic Functions .. | |||
| INTRINSIC ABS, EXP, INT, LOG, MAX, MIN, SQRT | |||
| @@ -563,10 +563,10 @@ | |||
| COMMON / SRNAMC / SRNAMT | |||
| * .. | |||
| * .. Data statements .. | |||
| DATA KTYPE / 1, 2, 5*4, 5*6, 3*9, 10 / | |||
| DATA KMAGN / 2*1, 3*1, 2, 3, 3*1, 2, 3, 1, 2, 3, 0 / | |||
| DATA KMODE / 2*0, 4, 3, 1, 4, 4, 4, 3, 1, 4, 4, 0, | |||
| $ 0, 0, 0 / | |||
| DATA KTYPE / 1, 2, 5*4, 5*6, 3*9, 10 / | |||
| DATA KMAGN / 2*1, 3*1, 2, 3, 3*1, 2, 3, 1, 2, 3, 0 / | |||
| DATA KMODE / 2*0, 4, 3, 1, 4, 4, 4, 3, 1, 4, 4, 0, | |||
| $ 0, 0, 0 / | |||
| * .. | |||
| * .. Executable Statements .. | |||
| * | |||
| @@ -1143,7 +1143,7 @@ | |||
| IWBD = IWBS + MNMIN | |||
| IWBE = IWBD + MNMIN | |||
| IWBZ = IWBE + MNMIN | |||
| IWWORK = IWBZ + MNMIN*(MNMIN*2+1) | |||
| IWWORK = IWBZ + 2*MNMIN*(MNMIN+1) | |||
| MNMIN2 = MAX( 1,MNMIN*2 ) | |||
| * | |||
| CALL DCOPY( MNMIN, BD, 1, WORK( IWBD ), 1 ) | |||
+ 6
- 3
lapack-netlib/TESTING/EIG/dchkee.f
View File
| @@ -1033,17 +1033,17 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2015 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup double_eig | |||
| * | |||
| * ===================================================================== | |||
| PROGRAM DCHKEE | |||
| * | |||
| * -- LAPACK test routine (version 3.6.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2015 | |||
| * June 2016 | |||
| * | |||
| * ===================================================================== | |||
| * | |||
| @@ -2105,6 +2105,7 @@ | |||
| MAXTYP = 26 | |||
| NTYPES = MIN( MAXTYP, NTYPES ) | |||
| CALL ALAREQ( C3, NTYPES, DOTYPE, MAXTYP, NIN, NOUT ) | |||
| CALL XLAENV(1,1) | |||
| IF( TSTCHK .AND. TSTERR ) | |||
| $ CALL DERRGG( C3, NOUT ) | |||
| DO 350 I = 1, NPARMS | |||
| @@ -2164,6 +2165,7 @@ | |||
| * | |||
| * Blocked version | |||
| * | |||
| CALL XLAENV(16, 2) | |||
| CALL DDRGES3( NN, NVAL, MAXTYP, DOTYPE, ISEED, THRESH, NOUT, | |||
| $ A( 1, 1 ), NMAX, A( 1, 2 ), A( 1, 3 ), | |||
| $ A( 1, 4 ), A( 1, 7 ), NMAX, A( 1, 8 ), | |||
| @@ -2351,6 +2353,7 @@ | |||
| * GSV: Generalized Singular Value Decomposition | |||
| * ---------------------------------------------- | |||
| * | |||
| CALL XLAENV(1,1) | |||
| IF( TSTERR ) | |||
| $ CALL DERRGG( 'GSV', NOUT ) | |||
| CALL DCKGSV( NN, MVAL, PVAL, NVAL, NTYPES, ISEED, THRESH, NMAX, | |||
+ 6
- 6
lapack-netlib/TESTING/EIG/dchkgg.f
View File
| @@ -72,7 +72,7 @@ | |||
| *> and each type of matrix, one matrix will be generated and used | |||
| *> to test the nonsymmetric eigenroutines. For each matrix, 15 | |||
| *> tests will be performed. The first twelve "test ratios" should be | |||
| *> small -- O(1). They will be compared with the threshhold THRESH: | |||
| *> small -- O(1). They will be compared with the threshold THRESH: | |||
| *> | |||
| *> T | |||
| *> (1) | A - U H V | / ( |A| n ulp ) | |||
| @@ -132,7 +132,7 @@ | |||
| *> |beta(Q,Z computed) - beta(Q,Z not computed)|/|P| ) / ulp | |||
| *> | |||
| *> In addition, the normalization of L and R are checked, and compared | |||
| *> with the threshhold THRSHN. | |||
| *> with the threshold THRSHN. | |||
| *> | |||
| *> Test Matrices | |||
| *> ---- -------- | |||
| @@ -298,7 +298,7 @@ | |||
| *> \param[in] THRSHN | |||
| *> \verbatim | |||
| *> THRSHN is DOUBLE PRECISION | |||
| *> Threshhold for reporting eigenvector normalization error. | |||
| *> Threshold for reporting eigenvector normalization error. | |||
| *> If the normalization of any eigenvector differs from 1 by | |||
| *> more than THRSHN*ulp, then a special error message will be | |||
| *> printed. (This is handled separately from the other tests, | |||
| @@ -500,7 +500,7 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup double_eig | |||
| * | |||
| @@ -511,10 +511,10 @@ | |||
| $ BETA1, ALPHR3, ALPHI3, BETA3, EVECTL, EVECTR, | |||
| $ WORK, LWORK, LLWORK, RESULT, INFO ) | |||
| * | |||
| * -- LAPACK test routine (version 3.4.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| LOGICAL TSTDIF | |||
+ 4
- 4
lapack-netlib/TESTING/EIG/ddrges.f
View File
| @@ -52,7 +52,7 @@ | |||
| *> number of matrix "TYPES" are specified. For each size ("N") | |||
| *> and each TYPE of matrix, a pair of matrices (A, B) will be generated | |||
| *> and used for testing. For each matrix pair, the following 13 tests | |||
| *> will be performed and compared with the threshhold THRESH except | |||
| *> will be performed and compared with the threshold THRESH except | |||
| *> the tests (5), (11) and (13). | |||
| *> | |||
| *> | |||
| @@ -393,7 +393,7 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup double_eig | |||
| * | |||
| @@ -403,10 +403,10 @@ | |||
| $ ALPHAI, BETA, WORK, LWORK, RESULT, BWORK, | |||
| $ INFO ) | |||
| * | |||
| * -- LAPACK test routine (version 3.4.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INFO, LDA, LDQ, LWORK, NOUNIT, NSIZES, NTYPES | |||
+ 2
- 2
lapack-netlib/TESTING/EIG/ddrges3.f
View File
| @@ -52,7 +52,7 @@ | |||
| *> number of matrix "TYPES" are specified. For each size ("N") | |||
| *> and each TYPE of matrix, a pair of matrices (A, B) will be generated | |||
| *> and used for testing. For each matrix pair, the following 13 tests | |||
| *> will be performed and compared with the threshhold THRESH except | |||
| *> will be performed and compared with the threshold THRESH except | |||
| *> the tests (5), (11) and (13). | |||
| *> | |||
| *> | |||
| @@ -403,7 +403,7 @@ | |||
| $ ALPHAI, BETA, WORK, LWORK, RESULT, BWORK, | |||
| $ INFO ) | |||
| * | |||
| * -- LAPACK test routine (version 3.6.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * February 2015 | |||
+ 4
- 4
lapack-netlib/TESTING/EIG/ddrgev.f
View File
| @@ -55,7 +55,7 @@ | |||
| *> number of matrix "types" are specified. For each size ("n") | |||
| *> and each type of matrix, a pair of matrices (A, B) will be generated | |||
| *> and used for testing. For each matrix pair, the following tests | |||
| *> will be performed and compared with the threshhold THRESH. | |||
| *> will be performed and compared with the threshold THRESH. | |||
| *> | |||
| *> Results from DGGEV: | |||
| *> | |||
| @@ -398,7 +398,7 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2015 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup double_eig | |||
| * | |||
| @@ -408,10 +408,10 @@ | |||
| $ ALPHAR, ALPHAI, BETA, ALPHR1, ALPHI1, BETA1, | |||
| $ WORK, LWORK, RESULT, INFO ) | |||
| * | |||
| * -- LAPACK test routine (version 3.6.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2015 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INFO, LDA, LDQ, LDQE, LWORK, NOUNIT, NSIZES, | |||
+ 2
- 2
lapack-netlib/TESTING/EIG/ddrgev3.f
View File
| @@ -55,7 +55,7 @@ | |||
| *> number of matrix "types" are specified. For each size ("n") | |||
| *> and each type of matrix, a pair of matrices (A, B) will be generated | |||
| *> and used for testing. For each matrix pair, the following tests | |||
| *> will be performed and compared with the threshhold THRESH. | |||
| *> will be performed and compared with the threshold THRESH. | |||
| *> | |||
| *> Results from DGGEV3: | |||
| *> | |||
| @@ -408,7 +408,7 @@ | |||
| $ ALPHAR, ALPHAI, BETA, ALPHR1, ALPHI1, BETA1, | |||
| $ WORK, LWORK, RESULT, INFO ) | |||
| * | |||
| * -- LAPACK test routine (version 3.6.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * February 2015 | |||
+ 4
- 4
lapack-netlib/TESTING/EIG/ddrgsx.f
View File
| @@ -60,7 +60,7 @@ | |||
| *> to test DGGESX. | |||
| *> | |||
| *> For each matrix pair, the following tests will be performed and | |||
| *> compared with the threshhold THRESH except for the tests (7) and (9): | |||
| *> compared with the threshold THRESH except for the tests (7) and (9): | |||
| *> | |||
| *> (1) | A - Q S Z' | / ( |A| n ulp ) | |||
| *> | |||
| @@ -350,7 +350,7 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup double_eig | |||
| * | |||
| @@ -359,10 +359,10 @@ | |||
| $ BI, Z, Q, ALPHAR, ALPHAI, BETA, C, LDC, S, | |||
| $ WORK, LWORK, IWORK, LIWORK, BWORK, INFO ) | |||
| * | |||
| * -- LAPACK test routine (version 3.4.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INFO, LDA, LDC, LIWORK, LWORK, NCMAX, NIN, | |||
+ 2
- 2
lapack-netlib/TESTING/EIG/ddrgvx.f
View File
| @@ -50,7 +50,7 @@ | |||
| *> ``exactly'' (see DLATM6). | |||
| *> | |||
| *> For each matrix pair, the following tests will be performed and | |||
| *> compared with the threshhold THRESH. | |||
| *> compared with the threshold THRESH. | |||
| *> | |||
| *> (1) max over all left eigenvalue/-vector pairs (beta/alpha,l) of | |||
| *> | |||
| @@ -300,7 +300,7 @@ | |||
| $ RSCALE, S, DTRU, DIF, DIFTRU, WORK, LWORK, | |||
| $ IWORK, LIWORK, RESULT, BWORK, INFO ) | |||
| * | |||
| * -- LAPACK test routine (version 3.4.1) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * April 2012 | |||
+ 6
- 6
lapack-netlib/TESTING/EIG/ddrvbd.f
View File
| @@ -346,7 +346,7 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2015 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup double_eig | |||
| * | |||
| @@ -355,10 +355,10 @@ | |||
| $ A, LDA, U, LDU, VT, LDVT, ASAV, USAV, VTSAV, S, | |||
| $ SSAV, E, WORK, LWORK, IWORK, NOUT, INFO ) | |||
| * | |||
| * -- LAPACK test routine (version 3.6.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2015 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INFO, LDA, LDU, LDVT, LWORK, NOUT, NSIZES, | |||
| @@ -404,8 +404,8 @@ | |||
| * .. | |||
| * .. External Subroutines .. | |||
| EXTERNAL ALASVM, DBDT01, DGEJSV, DGESDD, DGESVD, | |||
| $ DGESVDX, DGESVJ, DLABAD, DLACPY, DLASET, DLATMS, | |||
| $ DORT01, DORT03, XERBLA | |||
| $ DGESVDX, DGESVJ, DLABAD, DLACPY, DLASET, | |||
| $ DLATMS, DORT01, DORT03, XERBLA | |||
| * .. | |||
| * .. Intrinsic Functions .. | |||
| INTRINSIC ABS, DBLE, INT, MAX, MIN | |||
| @@ -1141,7 +1141,7 @@ | |||
| $ / '21 = | S - Spartial | / ( min(M,N) ulp |S| )', | |||
| $ / '22 = 0 if S contains min(M,N) nonnegative values in', | |||
| $ ' decreasing order, else 1/ulp', | |||
| $ / '23 = | A - U diag(S) VT | / ( |A| max(M,N) ulp ),' | |||
| $ / '23 = | A - U diag(S) VT | / ( |A| max(M,N) ulp ),', | |||
| $ ' DGESVDX(V,V,A) ', | |||
| $ / '24 = | I - U**T U | / ( M ulp ) ', | |||
| $ / '25 = | I - VT VT**T | / ( N ulp ) ', | |||
+ 4
- 4
lapack-netlib/TESTING/EIG/ddrves.f
View File
| @@ -379,7 +379,7 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup double_eig | |||
| * | |||
| @@ -388,10 +388,10 @@ | |||
| $ NOUNIT, A, LDA, H, HT, WR, WI, WRT, WIT, VS, | |||
| $ LDVS, RESULT, WORK, NWORK, IWORK, BWORK, INFO ) | |||
| * | |||
| * -- LAPACK test routine (version 3.4.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INFO, LDA, LDVS, NOUNIT, NSIZES, NTYPES, NWORK | |||
| @@ -948,7 +948,7 @@ | |||
| $ ' 1/ulp otherwise', / | |||
| $ ' 12 = 0 if WR, WI same no matter if VS computed (sort),', | |||
| $ ' 1/ulp otherwise', / | |||
| $ ' 13 = 0 if sorting succesful, 1/ulp otherwise', / ) | |||
| $ ' 13 = 0 if sorting successful, 1/ulp otherwise', / ) | |||
| 9993 FORMAT( ' N=', I5, ', IWK=', I2, ', seed=', 4( I4, ',' ), | |||
| $ ' type ', I2, ', test(', I2, ')=', G10.3 ) | |||
| 9992 FORMAT( ' DDRVES: ', A, ' returned INFO=', I6, '.', / 9X, 'N=', | |||
+ 4
- 4
lapack-netlib/TESTING/EIG/ddrvsx.f
View File
| @@ -444,7 +444,7 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup double_eig | |||
| * | |||
| @@ -454,10 +454,10 @@ | |||
| $ WIT, WRTMP, WITMP, VS, LDVS, VS1, RESULT, WORK, | |||
| $ LWORK, IWORK, BWORK, INFO ) | |||
| * | |||
| * -- LAPACK test routine (version 3.4.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INFO, LDA, LDVS, LWORK, NIUNIT, NOUNIT, NSIZES, | |||
| @@ -933,7 +933,7 @@ | |||
| $ ' 1/ulp otherwise', / | |||
| $ ' 12 = 0 if WR, WI same no matter what else computed ', | |||
| $ '(sort), 1/ulp otherwise', / | |||
| $ ' 13 = 0 if sorting succesful, 1/ulp otherwise', | |||
| $ ' 13 = 0 if sorting successful, 1/ulp otherwise', | |||
| $ / ' 14 = 0 if RCONDE same no matter what else computed,', | |||
| $ ' 1/ulp otherwise', / | |||
| $ ' 15 = 0 if RCONDv same no matter what else computed,', | |||
+ 4
- 4
lapack-netlib/TESTING/EIG/ddrvvx.f
View File
| @@ -471,7 +471,7 @@ | |||
| *> \verbatim | |||
| *> INFO is INTEGER | |||
| *> If 0, then successful exit. | |||
| *> If <0, then input paramter -INFO is incorrect. | |||
| *> If <0, then input parameter -INFO is incorrect. | |||
| *> If >0, DLATMR, SLATMS, SLATME or DGET23 returned an error | |||
| *> code, and INFO is its absolute value. | |||
| *> | |||
| @@ -510,7 +510,7 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup double_eig | |||
| * | |||
| @@ -521,10 +521,10 @@ | |||
| $ RCDVIN, RCONDE, RCNDE1, RCDEIN, SCALE, SCALE1, | |||
| $ RESULT, WORK, NWORK, IWORK, INFO ) | |||
| * | |||
| * -- LAPACK test routine (version 3.4.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INFO, LDA, LDLRE, LDVL, LDVR, NIUNIT, NOUNIT, | |||
+ 5
- 5
lapack-netlib/TESTING/EIG/derrbd.f
View File
| @@ -48,17 +48,17 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2015 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup double_eig | |||
| * | |||
| * ===================================================================== | |||
| SUBROUTINE DERRBD( PATH, NUNIT ) | |||
| * | |||
| * -- LAPACK test routine (version 3.6.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2015 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| CHARACTER*3 PATH | |||
| @@ -89,8 +89,8 @@ | |||
| EXTERNAL LSAMEN | |||
| * .. | |||
| * .. External Subroutines .. | |||
| EXTERNAL CHKXER, DBDSDC, DBDSQR, DBDSVDX, DGEBD2, DGEBRD, DORGBR, | |||
| $ DORMBR | |||
| EXTERNAL CHKXER, DBDSDC, DBDSQR, DBDSVDX, DGEBD2, | |||
| $ DGEBRD, DORGBR, DORMBR | |||
| * .. | |||
| * .. Scalars in Common .. | |||
| LOGICAL LERR, OK | |||
+ 4
- 4
lapack-netlib/TESTING/EIG/derred.f
View File
| @@ -61,17 +61,17 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2015 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup double_eig | |||
| * | |||
| * ===================================================================== | |||
| SUBROUTINE DERRED( PATH, NUNIT ) | |||
| * | |||
| * -- LAPACK test routine (version 3.6.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2015 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| CHARACTER*3 PATH | |||
| @@ -475,7 +475,7 @@ | |||
| CALL DGESVDX( 'V', 'N', 'A', 2, 2, A, 2, ZERO, ZERO, | |||
| $ 0, 0, NS, S, U, 1, VT, 1, W, 1, IW, INFO ) | |||
| CALL CHKXER( 'DGESVDX', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 16 | |||
| INFOT = 17 | |||
| CALL DGESVDX( 'N', 'V', 'A', 2, 2, A, 2, ZERO, ZERO, | |||
| $ 0, 0, NS, S, U, 1, VT, 1, W, 1, IW, INFO ) | |||
| CALL CHKXER( 'DGESVDX', INFOT, NOUT, LERR, OK ) | |||
+ 15
- 15
lapack-netlib/TESTING/EIG/derrgg.f
View File
| @@ -50,17 +50,17 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2015 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup double_eig | |||
| * | |||
| * ===================================================================== | |||
| SUBROUTINE DERRGG( PATH, NUNIT ) | |||
| * | |||
| * -- LAPACK test routine (version 3.6.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2015 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| CHARACTER*3 PATH | |||
| @@ -83,7 +83,7 @@ | |||
| * .. | |||
| * .. Local Arrays .. | |||
| LOGICAL BW( NMAX ), SEL( NMAX ) | |||
| INTEGER IW( NMAX ) | |||
| INTEGER IW( NMAX ), IDUM(NMAX) | |||
| DOUBLE PRECISION A( NMAX, NMAX ), B( NMAX, NMAX ), LS( NMAX ), | |||
| $ Q( NMAX, NMAX ), R1( NMAX ), R2( NMAX ), | |||
| $ R3( NMAX ), RCE( 2 ), RCV( 2 ), RS( NMAX ), | |||
| @@ -305,47 +305,47 @@ | |||
| SRNAMT = 'DGGSVD3' | |||
| INFOT = 1 | |||
| CALL DGGSVD3( '/', 'N', 'N', 0, 0, 0, DUMMYK, DUMMYL, A, 1, B, | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, IW, LWORK, INFO ) | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, LWORK, IDUM, INFO ) | |||
| CALL CHKXER( 'DGGSVD3', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 2 | |||
| CALL DGGSVD3( 'N', '/', 'N', 0, 0, 0, DUMMYK, DUMMYL, A, 1, B, | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, IW, LWORK, INFO ) | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, LWORK, IDUM, INFO ) | |||
| CALL CHKXER( 'DGGSVD3', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 3 | |||
| CALL DGGSVD3( 'N', 'N', '/', 0, 0, 0, DUMMYK, DUMMYL, A, 1, B, | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, IW, LWORK, INFO ) | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, LWORK, IDUM, INFO ) | |||
| CALL CHKXER( 'DGGSVD3', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 4 | |||
| CALL DGGSVD3( 'N', 'N', 'N', -1, 0, 0, DUMMYK, DUMMYL, A, 1, B, | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, IW, LWORK, INFO ) | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, LWORK, IDUM, INFO ) | |||
| CALL CHKXER( 'DGGSVD3', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 5 | |||
| CALL DGGSVD3( 'N', 'N', 'N', 0, -1, 0, DUMMYK, DUMMYL, A, 1, B, | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, IW, LWORK, INFO ) | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, LWORK, IDUM, INFO ) | |||
| CALL CHKXER( 'DGGSVD3', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 6 | |||
| CALL DGGSVD3( 'N', 'N', 'N', 0, 0, -1, DUMMYK, DUMMYL, A, 1, B, | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, IW, LWORK, INFO ) | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, LWORK, IDUM, INFO ) | |||
| CALL CHKXER( 'DGGSVD3', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 10 | |||
| CALL DGGSVD3( 'N', 'N', 'N', 2, 1, 1, DUMMYK, DUMMYL, A, 1, B, | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, IW, LWORK, INFO ) | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, LWORK, IDUM, INFO ) | |||
| CALL CHKXER( 'DGGSVD3', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 12 | |||
| CALL DGGSVD3( 'N', 'N', 'N', 1, 1, 2, DUMMYK, DUMMYL, A, 1, B, | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, IW, LWORK, INFO ) | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, LWORK, IDUM, INFO ) | |||
| CALL CHKXER( 'DGGSVD3', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 16 | |||
| CALL DGGSVD3( 'U', 'N', 'N', 2, 2, 2, DUMMYK, DUMMYL, A, 2, B, | |||
| $ 2, R1, R2, U, 1, V, 1, Q, 1, W, IW, LWORK, INFO ) | |||
| $ 2, R1, R2, U, 1, V, 1, Q, 1, W, LWORK, IDUM, INFO ) | |||
| CALL CHKXER( 'DGGSVD3', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 18 | |||
| CALL DGGSVD3( 'N', 'V', 'N', 1, 1, 2, DUMMYK, DUMMYL, A, 1, B, | |||
| $ 2, R1, R2, U, 1, V, 1, Q, 1, W, IW, LWORK, INFO ) | |||
| $ 2, R1, R2, U, 1, V, 1, Q, 1, W, LWORK, IDUM, INFO ) | |||
| CALL CHKXER( 'DGGSVD3', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 20 | |||
| CALL DGGSVD3( 'N', 'N', 'Q', 1, 2, 1, DUMMYK, DUMMYL, A, 1, B, | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, IW, LWORK, INFO ) | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, LWORK, IDUM, INFO ) | |||
| CALL CHKXER( 'DGGSVD3', INFOT, NOUT, LERR, OK ) | |||
| NT = NT + 11 | |||
| * | |||
+ 4
- 4
lapack-netlib/TESTING/EIG/dlctes.f
View File
| @@ -26,7 +26,7 @@ | |||
| *> .FALSE.. | |||
| *> | |||
| *> It is used by the test routine DDRGES to test whether the driver | |||
| *> routine DGGES succesfully sorts eigenvalues. | |||
| *> routine DGGES successfully sorts eigenvalues. | |||
| *> \endverbatim | |||
| * | |||
| * Arguments: | |||
| @@ -61,17 +61,17 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup double_eig | |||
| * | |||
| * ===================================================================== | |||
| LOGICAL FUNCTION DLCTES( ZR, ZI, D ) | |||
| * | |||
| * -- LAPACK test routine (version 3.4.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| DOUBLE PRECISION D, ZI, ZR | |||
+ 5
- 5
lapack-netlib/TESTING/EIG/dslect.f
View File
| @@ -22,8 +22,8 @@ | |||
| *> | |||
| *> DSLECT returns .TRUE. if the eigenvalue ZR+sqrt(-1)*ZI is to be | |||
| *> selected, and otherwise it returns .FALSE. | |||
| *> It is used by DCHK41 to test if DGEES succesfully sorts eigenvalues, | |||
| *> and by DCHK43 to test if DGEESX succesfully sorts eigenvalues. | |||
| *> It is used by DCHK41 to test if DGEES successfully sorts eigenvalues, | |||
| *> and by DCHK43 to test if DGEESX successfully sorts eigenvalues. | |||
| *> | |||
| *> The common block /SSLCT/ controls how eigenvalues are selected. | |||
| *> If SELOPT = 0, then DSLECT return .TRUE. when ZR is less than zero, | |||
| @@ -55,17 +55,17 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup double_eig | |||
| * | |||
| * ===================================================================== | |||
| LOGICAL FUNCTION DSLECT( ZR, ZI ) | |||
| * | |||
| * -- LAPACK test routine (version 3.4.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| DOUBLE PRECISION ZI, ZR | |||
+ 12
- 12
lapack-netlib/TESTING/EIG/schkbd.f
View File
| @@ -483,7 +483,7 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2015 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup single_eig | |||
| * | |||
| @@ -493,10 +493,10 @@ | |||
| $ Y, Z, Q, LDQ, PT, LDPT, U, VT, WORK, LWORK, | |||
| $ IWORK, NOUT, INFO ) | |||
| * | |||
| * -- LAPACK test routine (version 3.6.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2015 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INFO, LDA, LDPT, LDQ, LDX, LWORK, NOUT, NRHS, | |||
| @@ -527,7 +527,7 @@ | |||
| CHARACTER*3 PATH | |||
| INTEGER I, IINFO, IL, IMODE, ITEMP, ITYPE, IU, IWBD, | |||
| $ IWBE, IWBS, IWBZ, IWWORK, J, JCOL, JSIZE, | |||
| $ JTYPE, LOG2UI, M, MINWRK, MMAX, MNMAX, MNMIN, | |||
| $ JTYPE, LOG2UI, M, MINWRK, MMAX, MNMAX, MNMIN, | |||
| $ MNMIN2, MQ, MTYPES, N, NFAIL, NMAX, | |||
| $ NS1, NS2, NTEST | |||
| REAL ABSTOL, AMNINV, ANORM, COND, OVFL, RTOVFL, | |||
| @@ -545,10 +545,10 @@ | |||
| EXTERNAL SLAMCH, SLARND, SSXT1 | |||
| * .. | |||
| * .. External Subroutines .. | |||
| EXTERNAL ALASUM, SBDSDC, SBDSQR, SBDSVDX, SBDT01, SBDT02, | |||
| $ SBDT03, SBDT04, SCOPY, SGEBRD, SGEMM, SLABAD, | |||
| $ SLACPY, SLAHD2, SLASET, SLATMR, SLATMS, | |||
| $ SORGBR, SORT01, XERBLA | |||
| EXTERNAL ALASUM, SBDSDC, SBDSQR, SBDSVDX, SBDT01, | |||
| $ SBDT02, SBDT03, SBDT04, SCOPY, SGEBRD, | |||
| $ SGEMM, SLABAD, SLACPY, SLAHD2, SLASET, | |||
| $ SLATMR, SLATMS, SORGBR, SORT01, XERBLA | |||
| * .. | |||
| * .. Intrinsic Functions .. | |||
| INTRINSIC ABS, EXP, INT, LOG, MAX, MIN, SQRT | |||
| @@ -563,9 +563,9 @@ | |||
| COMMON / SRNAMC / SRNAMT | |||
| * .. | |||
| * .. Data statements .. | |||
| DATA KTYPE / 1, 2, 5*4, 5*6, 3*9, 10 / | |||
| DATA KMAGN / 2*1, 3*1, 2, 3, 3*1, 2, 3, 1, 2, 3, 0 / | |||
| DATA KMODE / 2*0, 4, 3, 1, 4, 4, 4, 3, 1, 4, 4, 0, | |||
| DATA KTYPE / 1, 2, 5*4, 5*6, 3*9, 10 / | |||
| DATA KMAGN / 2*1, 3*1, 2, 3, 3*1, 2, 3, 1, 2, 3, 0 / | |||
| DATA KMODE / 2*0, 4, 3, 1, 4, 4, 4, 3, 1, 4, 4, 0, | |||
| $ 0, 0, 0 / | |||
| * .. | |||
| * .. Executable Statements .. | |||
| @@ -1143,7 +1143,7 @@ | |||
| IWBD = IWBS + MNMIN | |||
| IWBE = IWBD + MNMIN | |||
| IWBZ = IWBE + MNMIN | |||
| IWWORK = IWBZ + MNMIN*(MNMIN*2+1) | |||
| IWWORK = IWBZ + 2*MNMIN*(MNMIN+1) | |||
| MNMIN2 = MAX( 1,MNMIN*2 ) | |||
| * | |||
| CALL SCOPY( MNMIN, BD, 1, WORK( IWBD ), 1 ) | |||
+ 7
- 4
lapack-netlib/TESTING/EIG/schkee.f
View File
| @@ -1033,17 +1033,17 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2015 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup single_eig | |||
| * | |||
| * ===================================================================== | |||
| PROGRAM SCHKEE | |||
| * | |||
| * -- LAPACK test routine (version 3.6.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2015 | |||
| * June 2016 | |||
| * | |||
| * ===================================================================== | |||
| * | |||
| @@ -2105,8 +2105,9 @@ | |||
| MAXTYP = 26 | |||
| NTYPES = MIN( MAXTYP, NTYPES ) | |||
| CALL ALAREQ( C3, NTYPES, DOTYPE, MAXTYP, NIN, NOUT ) | |||
| CALL XLAENV(1,1) | |||
| IF( TSTCHK .AND. TSTERR ) | |||
| $ CALL SERRGG( C3, NOUT ) | |||
| & CALL SERRGG( C3, NOUT ) | |||
| DO 350 I = 1, NPARMS | |||
| CALL XLAENV( 1, NBVAL( I ) ) | |||
| CALL XLAENV( 2, NBMIN( I ) ) | |||
| @@ -2165,6 +2166,7 @@ | |||
| * | |||
| * Blocked version | |||
| * | |||
| CALL XLAENV(16,1) | |||
| CALL SDRGES3( NN, NVAL, MAXTYP, DOTYPE, ISEED, THRESH, NOUT, | |||
| $ A( 1, 1 ), NMAX, A( 1, 2 ), A( 1, 3 ), | |||
| $ A( 1, 4 ), A( 1, 7 ), NMAX, A( 1, 8 ), | |||
| @@ -2353,6 +2355,7 @@ | |||
| * GSV: Generalized Singular Value Decomposition | |||
| * ---------------------------------------------- | |||
| * | |||
| CALL XLAENV( 1, 1 ) | |||
| IF( TSTERR ) | |||
| $ CALL SERRGG( 'GSV', NOUT ) | |||
| CALL SCKGSV( NN, MVAL, PVAL, NVAL, NTYPES, ISEED, THRESH, NMAX, | |||
+ 6
- 6
lapack-netlib/TESTING/EIG/schkgg.f
View File
| @@ -72,7 +72,7 @@ | |||
| *> and each type of matrix, one matrix will be generated and used | |||
| *> to test the nonsymmetric eigenroutines. For each matrix, 15 | |||
| *> tests will be performed. The first twelve "test ratios" should be | |||
| *> small -- O(1). They will be compared with the threshhold THRESH: | |||
| *> small -- O(1). They will be compared with the threshold THRESH: | |||
| *> | |||
| *> T | |||
| *> (1) | A - U H V | / ( |A| n ulp ) | |||
| @@ -132,7 +132,7 @@ | |||
| *> |beta(Q,Z computed) - beta(Q,Z not computed)|/|P| ) / ulp | |||
| *> | |||
| *> In addition, the normalization of L and R are checked, and compared | |||
| *> with the threshhold THRSHN. | |||
| *> with the threshold THRSHN. | |||
| *> | |||
| *> Test Matrices | |||
| *> ---- -------- | |||
| @@ -298,7 +298,7 @@ | |||
| *> \param[in] THRSHN | |||
| *> \verbatim | |||
| *> THRSHN is REAL | |||
| *> Threshhold for reporting eigenvector normalization error. | |||
| *> Threshold for reporting eigenvector normalization error. | |||
| *> If the normalization of any eigenvector differs from 1 by | |||
| *> more than THRSHN*ulp, then a special error message will be | |||
| *> printed. (This is handled separately from the other tests, | |||
| @@ -500,7 +500,7 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup single_eig | |||
| * | |||
| @@ -511,10 +511,10 @@ | |||
| $ BETA1, ALPHR3, ALPHI3, BETA3, EVECTL, EVECTR, | |||
| $ WORK, LWORK, LLWORK, RESULT, INFO ) | |||
| * | |||
| * -- LAPACK test routine (version 3.4.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| LOGICAL TSTDIF | |||
+ 4
- 4
lapack-netlib/TESTING/EIG/sdrges.f
View File
| @@ -52,7 +52,7 @@ | |||
| *> number of matrix "TYPES" are specified. For each size ("N") | |||
| *> and each TYPE of matrix, a pair of matrices (A, B) will be generated | |||
| *> and used for testing. For each matrix pair, the following 13 tests | |||
| *> will be performed and compared with the threshhold THRESH except | |||
| *> will be performed and compared with the threshold THRESH except | |||
| *> the tests (5), (11) and (13). | |||
| *> | |||
| *> | |||
| @@ -393,7 +393,7 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup single_eig | |||
| * | |||
| @@ -403,10 +403,10 @@ | |||
| $ ALPHAI, BETA, WORK, LWORK, RESULT, BWORK, | |||
| $ INFO ) | |||
| * | |||
| * -- LAPACK test routine (version 3.4.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INFO, LDA, LDQ, LWORK, NOUNIT, NSIZES, NTYPES | |||
+ 2
- 2
lapack-netlib/TESTING/EIG/sdrges3.f
View File
| @@ -52,7 +52,7 @@ | |||
| *> number of matrix "TYPES" are specified. For each size ("N") | |||
| *> and each TYPE of matrix, a pair of matrices (A, B) will be generated | |||
| *> and used for testing. For each matrix pair, the following 13 tests | |||
| *> will be performed and compared with the threshhold THRESH except | |||
| *> will be performed and compared with the threshold THRESH except | |||
| *> the tests (5), (11) and (13). | |||
| *> | |||
| *> | |||
| @@ -403,7 +403,7 @@ | |||
| $ ALPHAI, BETA, WORK, LWORK, RESULT, BWORK, | |||
| $ INFO ) | |||
| * | |||
| * -- LAPACK test routine (version 3.6.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * February 2015 | |||
+ 4
- 4
lapack-netlib/TESTING/EIG/sdrgev.f
View File
| @@ -55,7 +55,7 @@ | |||
| *> number of matrix "types" are specified. For each size ("n") | |||
| *> and each type of matrix, a pair of matrices (A, B) will be generated | |||
| *> and used for testing. For each matrix pair, the following tests | |||
| *> will be performed and compared with the threshhold THRESH. | |||
| *> will be performed and compared with the threshold THRESH. | |||
| *> | |||
| *> Results from SGGEV: | |||
| *> | |||
| @@ -398,7 +398,7 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2015 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup single_eig | |||
| * | |||
| @@ -408,10 +408,10 @@ | |||
| $ ALPHAR, ALPHAI, BETA, ALPHR1, ALPHI1, BETA1, | |||
| $ WORK, LWORK, RESULT, INFO ) | |||
| * | |||
| * -- LAPACK test routine (version 3.6.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2015 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INFO, LDA, LDQ, LDQE, LWORK, NOUNIT, NSIZES, | |||
+ 2
- 2
lapack-netlib/TESTING/EIG/sdrgev3.f
View File
| @@ -55,7 +55,7 @@ | |||
| *> number of matrix "types" are specified. For each size ("n") | |||
| *> and each type of matrix, a pair of matrices (A, B) will be generated | |||
| *> and used for testing. For each matrix pair, the following tests | |||
| *> will be performed and compared with the threshhold THRESH. | |||
| *> will be performed and compared with the threshold THRESH. | |||
| *> | |||
| *> Results from SGGEV3: | |||
| *> | |||
| @@ -408,7 +408,7 @@ | |||
| $ ALPHAR, ALPHAI, BETA, ALPHR1, ALPHI1, BETA1, | |||
| $ WORK, LWORK, RESULT, INFO ) | |||
| * | |||
| * -- LAPACK test routine (version 3.6.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * February 2015 | |||
+ 4
- 4
lapack-netlib/TESTING/EIG/sdrgsx.f
View File
| @@ -60,7 +60,7 @@ | |||
| *> to test SGGESX. | |||
| *> | |||
| *> For each matrix pair, the following tests will be performed and | |||
| *> compared with the threshhold THRESH except for the tests (7) and (9): | |||
| *> compared with the threshold THRESH except for the tests (7) and (9): | |||
| *> | |||
| *> (1) | A - Q S Z' | / ( |A| n ulp ) | |||
| *> | |||
| @@ -350,7 +350,7 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup single_eig | |||
| * | |||
| @@ -359,10 +359,10 @@ | |||
| $ AI, BI, Z, Q, ALPHAR, ALPHAI, BETA, C, LDC, S, | |||
| $ WORK, LWORK, IWORK, LIWORK, BWORK, INFO ) | |||
| * | |||
| * -- LAPACK test routine (version 3.4.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INFO, LDA, LDC, LIWORK, LWORK, NCMAX, NIN, | |||
+ 4
- 4
lapack-netlib/TESTING/EIG/sdrgvx.f
View File
| @@ -51,7 +51,7 @@ | |||
| *> ``exactly'' (see SLATM6). | |||
| *> | |||
| *> For each matrix pair, the following tests will be performed and | |||
| *> compared with the threshhold THRESH. | |||
| *> compared with the threshold THRESH. | |||
| *> | |||
| *> (1) max over all left eigenvalue/-vector pairs (beta/alpha,l) of | |||
| *> | |||
| @@ -291,7 +291,7 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup single_eig | |||
| * | |||
| @@ -301,10 +301,10 @@ | |||
| $ RSCALE, S, STRU, DIF, DIFTRU, WORK, LWORK, | |||
| $ IWORK, LIWORK, RESULT, BWORK, INFO ) | |||
| * | |||
| * -- LAPACK test routine (version 3.4.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER IHI, ILO, INFO, LDA, LIWORK, LWORK, NIN, NOUT, | |||
+ 5
- 5
lapack-netlib/TESTING/EIG/sdrvbd.f
View File
| @@ -346,7 +346,7 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2015 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup single_eig | |||
| * | |||
| @@ -355,10 +355,10 @@ | |||
| $ A, LDA, U, LDU, VT, LDVT, ASAV, USAV, VTSAV, S, | |||
| $ SSAV, E, WORK, LWORK, IWORK, NOUT, INFO ) | |||
| * | |||
| * -- LAPACK test routine (version 3.6.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2015 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INFO, LDA, LDU, LDVT, LWORK, NOUT, NSIZES, | |||
| @@ -404,8 +404,8 @@ | |||
| * .. | |||
| * .. External Subroutines .. | |||
| EXTERNAL ALASVM, SBDT01, SGEJSV, SGESDD, SGESVD, | |||
| $ SGESVDX, SGESVJ, SLABAD, SLACPY, SLASET, SLATMS, | |||
| $ SORT01, SORT03, XERBLA | |||
| $ SGESVDX, SGESVJ, SLABAD, SLACPY, SLASET, | |||
| $ SLATMS, SORT01, SORT03, XERBLA | |||
| * .. | |||
| * .. Intrinsic Functions .. | |||
| INTRINSIC ABS, REAL, INT, MAX, MIN | |||
+ 4
- 4
lapack-netlib/TESTING/EIG/sdrves.f
View File
| @@ -379,7 +379,7 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup single_eig | |||
| * | |||
| @@ -388,10 +388,10 @@ | |||
| $ NOUNIT, A, LDA, H, HT, WR, WI, WRT, WIT, VS, | |||
| $ LDVS, RESULT, WORK, NWORK, IWORK, BWORK, INFO ) | |||
| * | |||
| * -- LAPACK test routine (version 3.4.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INFO, LDA, LDVS, NOUNIT, NSIZES, NTYPES, NWORK | |||
| @@ -948,7 +948,7 @@ | |||
| $ ' 1/ulp otherwise', / | |||
| $ ' 12 = 0 if WR, WI same no matter if VS computed (sort),', | |||
| $ ' 1/ulp otherwise', / | |||
| $ ' 13 = 0 if sorting succesful, 1/ulp otherwise', / ) | |||
| $ ' 13 = 0 if sorting successful, 1/ulp otherwise', / ) | |||
| 9993 FORMAT( ' N=', I5, ', IWK=', I2, ', seed=', 4( I4, ',' ), | |||
| $ ' type ', I2, ', test(', I2, ')=', G10.3 ) | |||
| 9992 FORMAT( ' SDRVES: ', A, ' returned INFO=', I6, '.', / 9X, 'N=', | |||
+ 4
- 4
lapack-netlib/TESTING/EIG/sdrvsx.f
View File
| @@ -444,7 +444,7 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup single_eig | |||
| * | |||
| @@ -454,10 +454,10 @@ | |||
| $ WIT, WRTMP, WITMP, VS, LDVS, VS1, RESULT, WORK, | |||
| $ LWORK, IWORK, BWORK, INFO ) | |||
| * | |||
| * -- LAPACK test routine (version 3.4.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INFO, LDA, LDVS, LWORK, NIUNIT, NOUNIT, NSIZES, | |||
| @@ -933,7 +933,7 @@ | |||
| $ ' 1/ulp otherwise', / | |||
| $ ' 12 = 0 if WR, WI same no matter what else computed ', | |||
| $ '(sort), 1/ulp otherwise', / | |||
| $ ' 13 = 0 if sorting succesful, 1/ulp otherwise', | |||
| $ ' 13 = 0 if sorting successful, 1/ulp otherwise', | |||
| $ / ' 14 = 0 if RCONDE same no matter what else computed,', | |||
| $ ' 1/ulp otherwise', / | |||
| $ ' 15 = 0 if RCONDv same no matter what else computed,', | |||
+ 4
- 4
lapack-netlib/TESTING/EIG/sdrvvx.f
View File
| @@ -470,7 +470,7 @@ | |||
| *> \verbatim | |||
| *> INFO is INTEGER | |||
| *> If 0, then successful exit. | |||
| *> If <0, then input paramter -INFO is incorrect. | |||
| *> If <0, then input parameter -INFO is incorrect. | |||
| *> If >0, SLATMR, SLATMS, SLATME or SGET23 returned an error | |||
| *> code, and INFO is its absolute value. | |||
| *> | |||
| @@ -509,7 +509,7 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup single_eig | |||
| * | |||
| @@ -520,10 +520,10 @@ | |||
| $ RCDVIN, RCONDE, RCNDE1, RCDEIN, SCALE, SCALE1, | |||
| $ RESULT, WORK, NWORK, IWORK, INFO ) | |||
| * | |||
| * -- LAPACK test routine (version 3.4.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INFO, LDA, LDLRE, LDVL, LDVR, NIUNIT, NOUNIT, | |||
+ 5
- 5
lapack-netlib/TESTING/EIG/serrbd.f
View File
| @@ -48,17 +48,17 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2015 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup single_eig | |||
| * | |||
| * ===================================================================== | |||
| SUBROUTINE SERRBD( PATH, NUNIT ) | |||
| * | |||
| * -- LAPACK test routine (version 3.6.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2015 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| CHARACTER*3 PATH | |||
| @@ -89,8 +89,8 @@ | |||
| EXTERNAL LSAMEN | |||
| * .. | |||
| * .. External Subroutines .. | |||
| EXTERNAL CHKXER, SBDSDC, SBDSQR, SBDSVDX, SGEBD2, SGEBRD, SORGBR, | |||
| $ SORMBR | |||
| EXTERNAL CHKXER, SBDSDC, SBDSQR, SBDSVDX, SGEBD2, | |||
| $ SGEBRD, SORGBR, SORMBR | |||
| * .. | |||
| * .. Scalars in Common .. | |||
| LOGICAL LERR, OK | |||
+ 4
- 4
lapack-netlib/TESTING/EIG/serred.f
View File
| @@ -61,17 +61,17 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2015 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup single_eig | |||
| * | |||
| * ===================================================================== | |||
| SUBROUTINE SERRED( PATH, NUNIT ) | |||
| * | |||
| * -- LAPACK test routine (version 3.6.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2015 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| CHARACTER*3 PATH | |||
| @@ -475,7 +475,7 @@ | |||
| CALL SGESVDX( 'V', 'N', 'A', 2, 2, A, 2, ZERO, ZERO, | |||
| $ 0, 0, NS, S, U, 1, VT, 1, W, 1, IW, INFO ) | |||
| CALL CHKXER( 'SGESVDX', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 16 | |||
| INFOT = 17 | |||
| CALL SGESVDX( 'N', 'V', 'A', 2, 2, A, 2, ZERO, ZERO, | |||
| $ 0, 0, NS, S, U, 1, VT, 1, W, 1, IW, INFO ) | |||
| CALL CHKXER( 'SGESVDX', INFOT, NOUT, LERR, OK ) | |||
+ 16
- 16
lapack-netlib/TESTING/EIG/serrgg.f
View File
| @@ -50,17 +50,17 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2015 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup single_eig | |||
| * | |||
| * ===================================================================== | |||
| SUBROUTINE SERRGG( PATH, NUNIT ) | |||
| * | |||
| * -- LAPACK test routine (version 3.6.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2015 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| CHARACTER*3 PATH | |||
| @@ -78,12 +78,12 @@ | |||
| * .. Local Scalars .. | |||
| CHARACTER*2 C2 | |||
| INTEGER DUMMYK, DUMMYL, I, IFST, ILO, IHI, ILST, INFO, | |||
| $ J, M, NCYCLE, NT, SDIM, LWORK | |||
| $ J, M, NCYCLE, NT, SDIM, LWORK, JDUM | |||
| REAL ANRM, BNRM, DIF, SCALE, TOLA, TOLB | |||
| * .. | |||
| * .. Local Arrays .. | |||
| LOGICAL BW( NMAX ), SEL( NMAX ) | |||
| INTEGER IW( NMAX ) | |||
| INTEGER IW( NMAX ), IDUM(NMAX) | |||
| REAL A( NMAX, NMAX ), B( NMAX, NMAX ), LS( NMAX ), | |||
| $ Q( NMAX, NMAX ), R1( NMAX ), R2( NMAX ), | |||
| $ R3( NMAX ), RCE( 2 ), RCV( 2 ), RS( NMAX ), | |||
| @@ -305,47 +305,47 @@ | |||
| SRNAMT = 'SGGSVD3' | |||
| INFOT = 1 | |||
| CALL SGGSVD3( '/', 'N', 'N', 0, 0, 0, DUMMYK, DUMMYL, A, 1, B, | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, IW, LWORK, INFO ) | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, LWORK, IDUM, INFO ) | |||
| CALL CHKXER( 'SGGSVD3', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 2 | |||
| CALL SGGSVD3( 'N', '/', 'N', 0, 0, 0, DUMMYK, DUMMYL, A, 1, B, | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, IW, LWORK, INFO ) | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, LWORK, IDUM, INFO ) | |||
| CALL CHKXER( 'SGGSVD3', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 3 | |||
| CALL SGGSVD3( 'N', 'N', '/', 0, 0, 0, DUMMYK, DUMMYL, A, 1, B, | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, IW, LWORK, INFO ) | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, LWORK, IDUM, INFO ) | |||
| CALL CHKXER( 'SGGSVD3', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 4 | |||
| CALL SGGSVD3( 'N', 'N', 'N', -1, 0, 0, DUMMYK, DUMMYL, A, 1, B, | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, IW, LWORK, INFO ) | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, LWORK, IDUM, INFO ) | |||
| CALL CHKXER( 'SGGSVD3', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 5 | |||
| CALL SGGSVD3( 'N', 'N', 'N', 0, -1, 0, DUMMYK, DUMMYL, A, 1, B, | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, IW, LWORK, INFO ) | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, LWORK, IDUM, INFO ) | |||
| CALL CHKXER( 'SGGSVD3', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 6 | |||
| CALL SGGSVD3( 'N', 'N', 'N', 0, 0, -1, DUMMYK, DUMMYL, A, 1, B, | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, IW, LWORK, INFO ) | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, LWORK, IDUM, INFO ) | |||
| CALL CHKXER( 'SGGSVD3', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 10 | |||
| CALL SGGSVD3( 'N', 'N', 'N', 2, 1, 1, DUMMYK, DUMMYL, A, 1, B, | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, IW, LWORK, INFO ) | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, LWORK, IDUM, INFO ) | |||
| CALL CHKXER( 'SGGSVD3', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 12 | |||
| CALL SGGSVD3( 'N', 'N', 'N', 1, 1, 2, DUMMYK, DUMMYL, A, 1, B, | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, IW, LWORK, INFO ) | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, LWORK, IDUM, INFO ) | |||
| CALL CHKXER( 'SGGSVD3', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 16 | |||
| CALL SGGSVD3( 'U', 'N', 'N', 2, 2, 2, DUMMYK, DUMMYL, A, 2, B, | |||
| $ 2, R1, R2, U, 1, V, 1, Q, 1, W, IW, LWORK, INFO ) | |||
| $ 2, R1, R2, U, 1, V, 1, Q, 1, W, LWORK, IDUM, INFO ) | |||
| CALL CHKXER( 'SGGSVD3', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 18 | |||
| CALL SGGSVD3( 'N', 'V', 'N', 1, 1, 2, DUMMYK, DUMMYL, A, 1, B, | |||
| $ 2, R1, R2, U, 1, V, 1, Q, 1, W, IW, LWORK, INFO ) | |||
| $ 2, R1, R2, U, 1, V, 1, Q, 1, W, LWORK, IDUM, INFO ) | |||
| CALL CHKXER( 'SGGSVD3', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 20 | |||
| CALL SGGSVD3( 'N', 'N', 'Q', 1, 2, 1, DUMMYK, DUMMYL, A, 1, B, | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, IW, LWORK, INFO ) | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, LWORK, IDUM, INFO ) | |||
| CALL CHKXER( 'SGGSVD3', INFOT, NOUT, LERR, OK ) | |||
| NT = NT + 11 | |||
| * | |||
+ 4
- 4
lapack-netlib/TESTING/EIG/slctes.f
View File
| @@ -26,7 +26,7 @@ | |||
| *> .FALSE.. | |||
| *> | |||
| *> It is used by the test routine SDRGES to test whether the driver | |||
| *> routine SGGES succesfully sorts eigenvalues. | |||
| *> routine SGGES successfully sorts eigenvalues. | |||
| *> \endverbatim | |||
| * | |||
| * Arguments: | |||
| @@ -61,17 +61,17 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup single_eig | |||
| * | |||
| * ===================================================================== | |||
| LOGICAL FUNCTION SLCTES( ZR, ZI, D ) | |||
| * | |||
| * -- LAPACK test routine (version 3.4.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| REAL D, ZI, ZR | |||
+ 5
- 5
lapack-netlib/TESTING/EIG/sslect.f
View File
| @@ -22,8 +22,8 @@ | |||
| *> | |||
| *> SSLECT returns .TRUE. if the eigenvalue ZR+sqrt(-1)*ZI is to be | |||
| *> selected, and otherwise it returns .FALSE. | |||
| *> It is used by SCHK41 to test if SGEES succesfully sorts eigenvalues, | |||
| *> and by SCHK43 to test if SGEESX succesfully sorts eigenvalues. | |||
| *> It is used by SCHK41 to test if SGEES successfully sorts eigenvalues, | |||
| *> and by SCHK43 to test if SGEESX successfully sorts eigenvalues. | |||
| *> | |||
| *> The common block /SSLCT/ controls how eigenvalues are selected. | |||
| *> If SELOPT = 0, then SSLECT return .TRUE. when ZR is less than zero, | |||
| @@ -55,17 +55,17 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup single_eig | |||
| * | |||
| * ===================================================================== | |||
| LOGICAL FUNCTION SSLECT( ZR, ZI ) | |||
| * | |||
| * -- LAPACK test routine (version 3.4.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| REAL ZI, ZR | |||
+ 6
- 6
lapack-netlib/TESTING/EIG/zchkbd.f
View File
| @@ -405,7 +405,7 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup complex16_eig | |||
| * | |||
| @@ -415,10 +415,10 @@ | |||
| $ Y, Z, Q, LDQ, PT, LDPT, U, VT, WORK, LWORK, | |||
| $ RWORK, NOUT, INFO ) | |||
| * | |||
| * -- LAPACK test routine (version 3.4.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INFO, LDA, LDPT, LDQ, LDX, LWORK, NOUT, NRHS, | |||
| @@ -483,9 +483,9 @@ | |||
| COMMON / SRNAMC / SRNAMT | |||
| * .. | |||
| * .. Data statements .. | |||
| DATA KTYPE / 1, 2, 5*4, 5*6, 3*9, 10 / | |||
| DATA KMAGN / 2*1, 3*1, 2, 3, 3*1, 2, 3, 1, 2, 3, 0 / | |||
| DATA KMODE / 2*0, 4, 3, 1, 4, 4, 4, 3, 1, 4, 4, 0, | |||
| DATA KTYPE / 1, 2, 5*4, 5*6, 3*9, 10 / | |||
| DATA KMAGN / 2*1, 3*1, 2, 3, 3*1, 2, 3, 1, 2, 3, 0 / | |||
| DATA KMODE / 2*0, 4, 3, 1, 4, 4, 4, 3, 1, 4, 4, 0, | |||
| $ 0, 0, 0 / | |||
| * .. | |||
| * .. Executable Statements .. | |||
+ 6
- 3
lapack-netlib/TESTING/EIG/zchkee.f
View File
| @@ -1027,17 +1027,17 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2015 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup complex16_eig | |||
| * | |||
| * ===================================================================== | |||
| PROGRAM ZCHKEE | |||
| * | |||
| * -- LAPACK test routine (version 3.6.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2015 | |||
| * June 2016 | |||
| * | |||
| * ===================================================================== | |||
| * | |||
| @@ -2098,6 +2098,7 @@ | |||
| MAXTYP = 26 | |||
| NTYPES = MIN( MAXTYP, NTYPES ) | |||
| CALL ALAREQ( C3, NTYPES, DOTYPE, MAXTYP, NIN, NOUT ) | |||
| CALL XLAENV(1,1) | |||
| IF( TSTCHK .AND. TSTERR ) | |||
| $ CALL ZERRGG( C3, NOUT ) | |||
| DO 350 I = 1, NPARMS | |||
| @@ -2222,6 +2223,7 @@ | |||
| * | |||
| * Blocked version | |||
| * | |||
| CALL XLAENV(16,2) | |||
| CALL ZDRGEV3( NN, NVAL, MAXTYP, DOTYPE, ISEED, THRESH, NOUT, | |||
| $ A( 1, 1 ), NMAX, A( 1, 2 ), A( 1, 3 ), | |||
| $ A( 1, 4 ), A( 1, 7 ), NMAX, A( 1, 8 ), | |||
| @@ -2347,6 +2349,7 @@ | |||
| * GSV: Generalized Singular Value Decomposition | |||
| * ---------------------------------------------- | |||
| * | |||
| CALL XLAENV(1,1) | |||
| IF( TSTERR ) | |||
| $ CALL ZERRGG( 'GSV', NOUT ) | |||
| CALL ZCKGSV( NN, MVAL, PVAL, NVAL, NTYPES, ISEED, THRESH, NMAX, | |||
+ 6
- 6
lapack-netlib/TESTING/EIG/zchkgg.f
View File
| @@ -68,7 +68,7 @@ | |||
| *> and each type of matrix, one matrix will be generated and used | |||
| *> to test the nonsymmetric eigenroutines. For each matrix, 13 | |||
| *> tests will be performed. The first twelve "test ratios" should be | |||
| *> small -- O(1). They will be compared with the threshhold THRESH: | |||
| *> small -- O(1). They will be compared with the threshold THRESH: | |||
| *> | |||
| *> H | |||
| *> (1) | A - U H V | / ( |A| n ulp ) | |||
| @@ -128,7 +128,7 @@ | |||
| *> |beta(Q,Z computed) - beta(Q,Z not computed)|/|P| ) / ulp | |||
| *> | |||
| *> In addition, the normalization of L and R are checked, and compared | |||
| *> with the threshhold THRSHN. | |||
| *> with the threshold THRSHN. | |||
| *> | |||
| *> Test Matrices | |||
| *> ---- -------- | |||
| @@ -298,7 +298,7 @@ | |||
| *> \param[in] THRSHN | |||
| *> \verbatim | |||
| *> THRSHN is DOUBLE PRECISION | |||
| *> Threshhold for reporting eigenvector normalization error. | |||
| *> Threshold for reporting eigenvector normalization error. | |||
| *> If the normalization of any eigenvector differs from 1 by | |||
| *> more than THRSHN*ulp, then a special error message will be | |||
| *> printed. (This is handled separately from the other tests, | |||
| @@ -492,7 +492,7 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup complex16_eig | |||
| * | |||
| @@ -503,10 +503,10 @@ | |||
| $ ALPHA3, BETA3, EVECTL, EVECTR, WORK, LWORK, | |||
| $ RWORK, LLWORK, RESULT, INFO ) | |||
| * | |||
| * -- LAPACK test routine (version 3.4.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| LOGICAL TSTDIF | |||
+ 4
- 4
lapack-netlib/TESTING/EIG/zdrges.f
View File
| @@ -50,7 +50,7 @@ | |||
| *> number of matrix "TYPES" are specified. For each size ("N") | |||
| *> and each TYPE of matrix, a pair of matrices (A, B) will be generated | |||
| *> and used for testing. For each matrix pair, the following 13 tests | |||
| *> will be performed and compared with the threshhold THRESH except | |||
| *> will be performed and compared with the threshold THRESH except | |||
| *> the tests (5), (11) and (13). | |||
| *> | |||
| *> | |||
| @@ -372,7 +372,7 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup complex16_eig | |||
| * | |||
| @@ -381,10 +381,10 @@ | |||
| $ NOUNIT, A, LDA, B, S, T, Q, LDQ, Z, ALPHA, | |||
| $ BETA, WORK, LWORK, RWORK, RESULT, BWORK, INFO ) | |||
| * | |||
| * -- LAPACK test routine (version 3.4.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INFO, LDA, LDQ, LWORK, NOUNIT, NSIZES, NTYPES | |||
+ 2
- 2
lapack-netlib/TESTING/EIG/zdrges3.f
View File
| @@ -50,7 +50,7 @@ | |||
| *> number of matrix "TYPES" are specified. For each size ("N") | |||
| *> and each TYPE of matrix, a pair of matrices (A, B) will be generated | |||
| *> and used for testing. For each matrix pair, the following 13 tests | |||
| *> will be performed and compared with the threshhold THRESH except | |||
| *> will be performed and compared with the threshold THRESH except | |||
| *> the tests (5), (11) and (13). | |||
| *> | |||
| *> | |||
| @@ -382,7 +382,7 @@ | |||
| $ BETA, WORK, LWORK, RWORK, RESULT, BWORK, | |||
| $ INFO ) | |||
| * | |||
| * -- LAPACK test routine (version 3.6.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * February 2015 | |||
+ 4
- 4
lapack-netlib/TESTING/EIG/zdrgev.f
View File
| @@ -55,7 +55,7 @@ | |||
| *> number of matrix "types" are specified. For each size ("n") | |||
| *> and each type of matrix, a pair of matrices (A, B) will be generated | |||
| *> and used for testing. For each matrix pair, the following tests | |||
| *> will be performed and compared with the threshhold THRESH. | |||
| *> will be performed and compared with the threshold THRESH. | |||
| *> | |||
| *> Results from ZGGEV: | |||
| *> | |||
| @@ -389,7 +389,7 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2015 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup complex16_eig | |||
| * | |||
| @@ -399,10 +399,10 @@ | |||
| $ ALPHA, BETA, ALPHA1, BETA1, WORK, LWORK, RWORK, | |||
| $ RESULT, INFO ) | |||
| * | |||
| * -- LAPACK test routine (version 3.6.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2015 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INFO, LDA, LDQ, LDQE, LWORK, NOUNIT, NSIZES, | |||
+ 2
- 2
lapack-netlib/TESTING/EIG/zdrgev3.f
View File
| @@ -55,7 +55,7 @@ | |||
| *> number of matrix "types" are specified. For each size ("n") | |||
| *> and each type of matrix, a pair of matrices (A, B) will be generated | |||
| *> and used for testing. For each matrix pair, the following tests | |||
| *> will be performed and compared with the threshhold THRESH. | |||
| *> will be performed and compared with the threshold THRESH. | |||
| *> | |||
| *> Results from ZGGEV3: | |||
| *> | |||
| @@ -399,7 +399,7 @@ | |||
| $ ALPHA, BETA, ALPHA1, BETA1, WORK, LWORK, | |||
| $ RWORK, RESULT, INFO ) | |||
| * | |||
| * -- LAPACK test routine (version 3.6.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * February 2015 | |||
+ 4
- 4
lapack-netlib/TESTING/EIG/zdrgsx.f
View File
| @@ -59,7 +59,7 @@ | |||
| *> (need more details on what kind of read-in data are needed). | |||
| *> | |||
| *> For each matrix pair, the following tests will be performed and | |||
| *> compared with the threshhold THRESH except for the tests (7) and (9): | |||
| *> compared with the threshold THRESH except for the tests (7) and (9): | |||
| *> | |||
| *> (1) | A - Q S Z' | / ( |A| n ulp ) | |||
| *> | |||
| @@ -340,7 +340,7 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup complex16_eig | |||
| * | |||
| @@ -349,10 +349,10 @@ | |||
| $ BI, Z, Q, ALPHA, BETA, C, LDC, S, WORK, LWORK, | |||
| $ RWORK, IWORK, LIWORK, BWORK, INFO ) | |||
| * | |||
| * -- LAPACK test routine (version 3.4.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INFO, LDA, LDC, LIWORK, LWORK, NCMAX, NIN, | |||
+ 4
- 4
lapack-netlib/TESTING/EIG/zdrgvx.f
View File
| @@ -49,7 +49,7 @@ | |||
| *> corresponding the first and last eigenvalues are also know | |||
| *> ``exactly'' (see ZLATM6). | |||
| *> For each matrix pair, the following tests will be performed and | |||
| *> compared with the threshhold THRESH. | |||
| *> compared with the threshold THRESH. | |||
| *> | |||
| *> (1) max over all left eigenvalue/-vector pairs (beta/alpha,l) of | |||
| *> | |||
| @@ -287,7 +287,7 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup complex16_eig | |||
| * | |||
| @@ -297,10 +297,10 @@ | |||
| $ S, DTRU, DIF, DIFTRU, WORK, LWORK, RWORK, | |||
| $ IWORK, LIWORK, RESULT, BWORK, INFO ) | |||
| * | |||
| * -- LAPACK test routine (version 3.4.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER IHI, ILO, INFO, LDA, LIWORK, LWORK, NIN, NOUT, | |||
+ 11
- 11
lapack-netlib/TESTING/EIG/zdrvbd.f
View File
| @@ -379,7 +379,7 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2015 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup complex16_eig | |||
| * | |||
| @@ -389,10 +389,10 @@ | |||
| $ SSAV, E, WORK, LWORK, RWORK, IWORK, NOUNIT, | |||
| $ INFO ) | |||
| * | |||
| * -- LAPACK test routine (version 3.6.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2015 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INFO, LDA, LDU, LDVT, LWORK, NOUNIT, NSIZES, | |||
| @@ -423,11 +423,11 @@ | |||
| * .. Local Scalars .. | |||
| LOGICAL BADMM, BADNN | |||
| CHARACTER JOBQ, JOBU, JOBVT, RANGE | |||
| INTEGER I, IINFO, IJQ, IJU, IJVT, IL, IU, ITEMP, IWSPC, | |||
| $ IWTMP, J, JSIZE, JTYPE, LSWORK, M, MINWRK, | |||
| $ MMAX, MNMAX, MNMIN, MTYPES, N, NERRS, NFAIL, | |||
| $ NMAX, NS, NSI, NSV, NTEST, NTESTF, NTESTT, | |||
| $ LRWORK | |||
| INTEGER I, IINFO, IJQ, IJU, IJVT, IL, IU, ITEMP, | |||
| $ IWSPC, IWTMP, J, JSIZE, JTYPE, LSWORK, M, | |||
| $ MINWRK, MMAX, MNMAX, MNMIN, MTYPES, N, | |||
| $ NERRS, NFAIL, NMAX, NS, NSI, NSV, NTEST, | |||
| $ NTESTF, NTESTT, LRWORK | |||
| DOUBLE PRECISION ANORM, DIF, DIV, OVFL, RTUNFL, ULP, ULPINV, | |||
| $ UNFL, VL, VU | |||
| * .. | |||
| @@ -441,9 +441,9 @@ | |||
| EXTERNAL DLAMCH, DLARND | |||
| * .. | |||
| * .. External Subroutines .. | |||
| EXTERNAL ALASVM, XERBLA, ZBDT01, ZBDT05, ZGESDD, ZGESVD, | |||
| $ ZGESVJ, ZGEJSV, ZGESVDX, ZLACPY, ZLASET, ZLATMS, | |||
| $ ZUNT01, ZUNT03 | |||
| EXTERNAL ALASVM, XERBLA, ZBDT01, ZBDT05, ZGESDD, | |||
| $ ZGESVD, ZGESVJ, ZGEJSV, ZGESVDX, ZLACPY, | |||
| $ ZLASET, ZLATMS, ZUNT01, ZUNT03 | |||
| * .. | |||
| * .. Intrinsic Functions .. | |||
| INTRINSIC ABS, DBLE, MAX, MIN | |||
+ 4
- 4
lapack-netlib/TESTING/EIG/zdrves.f
View File
| @@ -369,7 +369,7 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup complex16_eig | |||
| * | |||
| @@ -378,10 +378,10 @@ | |||
| $ NOUNIT, A, LDA, H, HT, W, WT, VS, LDVS, RESULT, | |||
| $ WORK, NWORK, RWORK, IWORK, BWORK, INFO ) | |||
| * | |||
| * -- LAPACK test routine (version 3.4.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INFO, LDA, LDVS, NOUNIT, NSIZES, NTYPES, NWORK | |||
| @@ -901,7 +901,7 @@ | |||
| $ ' 1/ulp otherwise', / | |||
| $ ' 12 = 0 if W same no matter if VS computed (sort),', | |||
| $ ' 1/ulp otherwise', / | |||
| $ ' 13 = 0 if sorting succesful, 1/ulp otherwise', / ) | |||
| $ ' 13 = 0 if sorting successful, 1/ulp otherwise', / ) | |||
| 9993 FORMAT( ' N=', I5, ', IWK=', I2, ', seed=', 4( I4, ',' ), | |||
| $ ' type ', I2, ', test(', I2, ')=', G10.3 ) | |||
| 9992 FORMAT( ' ZDRVES: ', A, ' returned INFO=', I6, '.', / 9X, 'N=', | |||
+ 4
- 4
lapack-netlib/TESTING/EIG/zdrvsx.f
View File
| @@ -425,7 +425,7 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup complex16_eig | |||
| * | |||
| @@ -435,10 +435,10 @@ | |||
| $ LDVS, VS1, RESULT, WORK, LWORK, RWORK, BWORK, | |||
| $ INFO ) | |||
| * | |||
| * -- LAPACK test routine (version 3.4.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INFO, LDA, LDVS, LWORK, NIUNIT, NOUNIT, NSIZES, | |||
| @@ -914,7 +914,7 @@ | |||
| $ ' 1/ulp otherwise', / | |||
| $ ' 12 = 0 if W same no matter what else computed ', | |||
| $ '(sort), 1/ulp otherwise', / | |||
| $ ' 13 = 0 if sorting succesful, 1/ulp otherwise', | |||
| $ ' 13 = 0 if sorting successful, 1/ulp otherwise', | |||
| $ / ' 14 = 0 if RCONDE same no matter what else computed,', | |||
| $ ' 1/ulp otherwise', / | |||
| $ ' 15 = 0 if RCONDv same no matter what else computed,', | |||
+ 4
- 4
lapack-netlib/TESTING/EIG/zdrvvx.f
View File
| @@ -446,7 +446,7 @@ | |||
| *> \verbatim | |||
| *> INFO is INTEGER | |||
| *> If 0, then successful exit. | |||
| *> If <0, then input paramter -INFO is incorrect. | |||
| *> If <0, then input parameter -INFO is incorrect. | |||
| *> If >0, ZLATMR, CLATMS, CLATME or ZGET23 returned an error | |||
| *> code, and INFO is its absolute value. | |||
| *> | |||
| @@ -485,7 +485,7 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup complex16_eig | |||
| * | |||
| @@ -496,10 +496,10 @@ | |||
| $ RCONDE, RCNDE1, RCDEIN, SCALE, SCALE1, RESULT, | |||
| $ WORK, NWORK, RWORK, INFO ) | |||
| * | |||
| * -- LAPACK test routine (version 3.4.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INFO, LDA, LDLRE, LDVL, LDVR, NIUNIT, NOUNIT, | |||
+ 4
- 4
lapack-netlib/TESTING/EIG/zerred.f
View File
| @@ -61,17 +61,17 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2015 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup complex16_eig | |||
| * | |||
| * ===================================================================== | |||
| SUBROUTINE ZERRED( PATH, NUNIT ) | |||
| * | |||
| * -- LAPACK test routine (version 3.6.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2015 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| CHARACTER*3 PATH | |||
| @@ -484,7 +484,7 @@ | |||
| CALL ZGESVDX( 'V', 'N', 'A', 2, 2, A, 2, ZERO, ZERO, | |||
| $ 0, 0, NS, S, U, 1, VT, 1, W, 1, RW, IW, INFO ) | |||
| CALL CHKXER( 'ZGESVDX', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 16 | |||
| INFOT = 17 | |||
| CALL ZGESVDX( 'N', 'V', 'A', 2, 2, A, 2, ZERO, ZERO, | |||
| $ 0, 0, NS, S, U, 1, VT, 1, W, 1, RW, IW, INFO ) | |||
| CALL CHKXER( 'ZGESVDX', INFOT, NOUT, LERR, OK ) | |||
+ 23
- 23
lapack-netlib/TESTING/EIG/zerrgg.f
View File
| @@ -50,17 +50,17 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2015 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup complex16_eig | |||
| * | |||
| * ===================================================================== | |||
| SUBROUTINE ZERRGG( PATH, NUNIT ) | |||
| * | |||
| * -- LAPACK test routine (version 3.6.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2015 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| CHARACTER*3 PATH | |||
| @@ -83,7 +83,7 @@ | |||
| * .. | |||
| * .. Local Arrays .. | |||
| LOGICAL BW( NMAX ), SEL( NMAX ) | |||
| INTEGER IW( LW ) | |||
| INTEGER IW( LW ), IDUM(NMAX) | |||
| DOUBLE PRECISION LS( NMAX ), R1( NMAX ), R2( NMAX ), | |||
| $ RCE( NMAX ), RCV( NMAX ), RS( NMAX ), RW( LW ) | |||
| COMPLEX*16 A( NMAX, NMAX ), ALPHA( NMAX ), | |||
| @@ -306,57 +306,57 @@ | |||
| SRNAMT = 'ZGGSVD3' | |||
| INFOT = 1 | |||
| CALL ZGGSVD3( '/', 'N', 'N', 0, 0, 0, DUMMYK, DUMMYL, A, 1, B, | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, RW, IW, LWORK, | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, LWORK, RW, IDUM, | |||
| $ INFO ) | |||
| CALL CHKXER( 'ZGGSVD3', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 2 | |||
| CALL ZGGSVD3( 'N', '/', 'N', 0, 0, 0, DUMMYK, DUMMYL, A, 1, B, | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, RW, IW, LWORK, | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, LWORK, RW, IDUM, | |||
| $ INFO ) | |||
| CALL CHKXER( 'ZGGSVD3', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 3 | |||
| CALL ZGGSVD3( 'N', 'N', '/', 0, 0, 0, DUMMYK, DUMMYL, A, 1, B, | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, RW, IW, LWORK, | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, LWORK, RW, IDUM, | |||
| $ INFO ) | |||
| CALL CHKXER( 'ZGGSVD3', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 4 | |||
| CALL ZGGSVD3( 'N', 'N', 'N', -1, 0, 0, DUMMYK, DUMMYL, A, 1, B, | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, RW, IW, LWORK, | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, LWORK, RW, IDUM, | |||
| $ INFO ) | |||
| CALL CHKXER( 'ZGGSVD3', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 5 | |||
| CALL ZGGSVD3( 'N', 'N', 'N', 0, -1, 0, DUMMYK, DUMMYL, A, 1, B, | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, RW, IW, LWORK, | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, LWORK, RW, IDUM, | |||
| $ INFO ) | |||
| CALL CHKXER( 'ZGGSVD3', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 6 | |||
| CALL ZGGSVD3( 'N', 'N', 'N', 0, 0, -1, DUMMYK, DUMMYL, A, 1, B, | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, RW, IW, LWORK, | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, LWORK, RW, IDUM, | |||
| $ INFO ) | |||
| CALL CHKXER( 'ZGGSVD3', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 10 | |||
| CALL ZGGSVD3( 'N', 'N', 'N', 2, 1, 1, DUMMYK, DUMMYL, A, 1, B, | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, RW, IW, LWORK, | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, LWORK, RW, IDUM, | |||
| $ INFO ) | |||
| CALL CHKXER( 'ZGGSVD3', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 12 | |||
| CALL ZGGSVD3( 'N', 'N', 'N', 1, 1, 2, DUMMYK, DUMMYL, A, 1, B, | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, RW, IW, LWORK, | |||
| $ 1, R1, R2, U, 1, V, 1, Q, 1, W, LWORK, RW, IDUM, | |||
| $ INFO ) | |||
| CALL CHKXER( 'ZGGSVD3', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 16 | |||
| CALL ZGGSVD3( 'U', 'N', 'N', 2, 2, 2, DUMMYK, DUMMYL, A, 2, B, | |||
| $ 2, R1, R2, U, 1, V, 1, Q, 1, W, RW, IW, LWORK, | |||
| $ 2, R1, R2, U, 1, V, 1, Q, 1, W, LWORK, RW, IDUM, | |||
| $ INFO ) | |||
| CALL CHKXER( 'ZGGSVD3', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 18 | |||
| CALL ZGGSVD3( 'N', 'V', 'N', 2, 2, 2, DUMMYK, DUMMYL, A, 2, B, | |||
| $ 2, R1, R2, U, 2, V, 1, Q, 1, W, RW, IW, LWORK, | |||
| $ 2, R1, R2, U, 2, V, 1, Q, 1, W, LWORK, RW, IDUM, | |||
| $ INFO ) | |||
| CALL CHKXER( 'ZGGSVD3', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 20 | |||
| CALL ZGGSVD3( 'N', 'N', 'Q', 2, 2, 2, DUMMYK, DUMMYL, A, 2, B, | |||
| $ 2, R1, R2, U, 2, V, 2, Q, 1, W, RW, IW, LWORK, | |||
| $ 2, R1, R2, U, 2, V, 2, Q, 1, W, LWORK, RW, IDUM, | |||
| $ INFO ) | |||
| CALL CHKXER( 'ZGGSVD3', INFOT, NOUT, LERR, OK ) | |||
| NT = NT + 11 | |||
| @@ -573,56 +573,56 @@ | |||
| INFOT = 7 | |||
| CALL ZUNCSD( 'Y', 'Y', 'Y', 'Y', 'N', 'N', | |||
| $ -1, 0, 0, A, 1, A, | |||
| $ 1, A, 1, A, 1, A, | |||
| $ 1, A, 1, A, 1, RS, | |||
| $ A, 1, A, 1, A, 1, A, | |||
| $ 1, W, LW, RW, LW, IW, INFO ) | |||
| CALL CHKXER( 'ZUNCSD', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 8 | |||
| CALL ZUNCSD( 'Y', 'Y', 'Y', 'Y', 'N', 'N', | |||
| $ 1, -1, 0, A, 1, A, | |||
| $ 1, A, 1, A, 1, A, | |||
| $ 1, A, 1, A, 1, RS, | |||
| $ A, 1, A, 1, A, 1, A, | |||
| $ 1, W, LW, RW, LW, IW, INFO ) | |||
| CALL CHKXER( 'ZUNCSD', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 9 | |||
| CALL ZUNCSD( 'Y', 'Y', 'Y', 'Y', 'N', 'N', | |||
| $ 1, 1, -1, A, 1, A, | |||
| $ 1, A, 1, A, 1, A, | |||
| $ 1, A, 1, A, 1, RS, | |||
| $ A, 1, A, 1, A, 1, A, | |||
| $ 1, W, LW, RW, LW, IW, INFO ) | |||
| CALL CHKXER( 'ZUNCSD', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 11 | |||
| CALL ZUNCSD( 'Y', 'Y', 'Y', 'Y', 'N', 'N', | |||
| $ 1, 1, 1, A, -1, A, | |||
| $ 1, A, 1, A, 1, A, | |||
| $ 1, A, 1, A, 1, RS, | |||
| $ A, 1, A, 1, A, 1, A, | |||
| $ 1, W, LW, RW, LW, IW, INFO ) | |||
| CALL CHKXER( 'ZUNCSD', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 20 | |||
| CALL ZUNCSD( 'Y', 'Y', 'Y', 'Y', 'N', 'N', | |||
| $ 1, 1, 1, A, 1, A, | |||
| $ 1, A, 1, A, 1, A, | |||
| $ 1, A, 1, A, 1, RS, | |||
| $ A, -1, A, 1, A, 1, A, | |||
| $ 1, W, LW, RW, LW, IW, INFO ) | |||
| CALL CHKXER( 'ZUNCSD', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 22 | |||
| CALL ZUNCSD( 'Y', 'Y', 'Y', 'Y', 'N', 'N', | |||
| $ 1, 1, 1, A, 1, A, | |||
| $ 1, A, 1, A, 1, A, | |||
| $ 1, A, 1, A, 1, RS, | |||
| $ A, 1, A, -1, A, 1, A, | |||
| $ 1, W, LW, RW, LW, IW, INFO ) | |||
| CALL CHKXER( 'ZUNCSD', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 24 | |||
| CALL ZUNCSD( 'Y', 'Y', 'Y', 'Y', 'N', 'N', | |||
| $ 1, 1, 1, A, 1, A, | |||
| $ 1, A, 1, A, 1, A, | |||
| $ 1, A, 1, A, 1, RS, | |||
| $ A, 1, A, 1, A, -1, A, | |||
| $ 1, W, LW, RW, LW, IW, INFO ) | |||
| CALL CHKXER( 'ZUNCSD', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 26 | |||
| CALL ZUNCSD( 'Y', 'Y', 'Y', 'Y', 'N', 'N', | |||
| $ 1, 1, 1, A, 1, A, | |||
| $ 1, A, 1, A, 1, A, | |||
| $ 1, A, 1, A, 1, RS, | |||
| $ A, 1, A, 1, A, 1, A, | |||
| $ -1, W, LW, RW, LW, IW, INFO ) | |||
| CALL CHKXER( 'ZUNCSD', INFOT, NOUT, LERR, OK ) | |||
+ 4
- 4
lapack-netlib/TESTING/EIG/zlctes.f
View File
| @@ -25,7 +25,7 @@ | |||
| *> eigenvalue is negative), and otherwise it returns .FALSE.. | |||
| *> | |||
| *> It is used by the test routine ZDRGES to test whether the driver | |||
| *> routine ZGGES succesfully sorts eigenvalues. | |||
| *> routine ZGGES successfully sorts eigenvalues. | |||
| *> \endverbatim | |||
| * | |||
| * Arguments: | |||
| @@ -51,17 +51,17 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup complex16_eig | |||
| * | |||
| * ===================================================================== | |||
| LOGICAL FUNCTION ZLCTES( Z, D ) | |||
| * | |||
| * -- LAPACK test routine (version 3.4.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| COMPLEX*16 D, Z | |||
+ 5
- 5
lapack-netlib/TESTING/EIG/zslect.f
View File
| @@ -22,8 +22,8 @@ | |||
| *> | |||
| *> ZSLECT returns .TRUE. if the eigenvalue Z is to be selected, | |||
| *> otherwise it returns .FALSE. | |||
| *> It is used by ZCHK41 to test if ZGEES succesfully sorts eigenvalues, | |||
| *> and by ZCHK43 to test if ZGEESX succesfully sorts eigenvalues. | |||
| *> It is used by ZCHK41 to test if ZGEES successfully sorts eigenvalues, | |||
| *> and by ZCHK43 to test if ZGEESX successfully sorts eigenvalues. | |||
| *> | |||
| *> The common block /SSLCT/ controls how eigenvalues are selected. | |||
| *> If SELOPT = 0, then ZSLECT return .TRUE. when real(Z) is less than | |||
| @@ -49,17 +49,17 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup complex16_eig | |||
| * | |||
| * ===================================================================== | |||
| LOGICAL FUNCTION ZSLECT( Z ) | |||
| * | |||
| * -- LAPACK test routine (version 3.4.0) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| COMPLEX*16 Z | |||
+ 2
- 0
lapack-netlib/TESTING/LIN/Makefile
View File
| @@ -339,3 +339,5 @@ zchkaa.o: zchkaa.f | |||
| .f.o: | |||
| $(FORTRAN) $(OPTS) -c $< -o $@ | |||
| .NOTPARALLEL: | |||
+ 3
- 2
lapack-netlib/TESTING/LIN/cqrt04.f
View File
| @@ -74,7 +74,7 @@ | |||
| SUBROUTINE CQRT04(M,N,NB,RESULT) | |||
| IMPLICIT NONE | |||
| * | |||
| * -- LAPACK test routine (version 3.4.1) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * April 2012 | |||
| @@ -89,8 +89,9 @@ | |||
| * .. | |||
| * .. Local allocatable arrays | |||
| COMPLEX, ALLOCATABLE :: AF(:,:), Q(:,:), | |||
| $ R(:,:), RWORK(:), WORK( : ), T(:,:), | |||
| $ R(:,:), WORK( : ), T(:,:), | |||
| $ CF(:,:), DF(:,:), A(:,:), C(:,:), D(:,:) | |||
| REAL, ALLOCATABLE :: RWORK(:) | |||
| * | |||
| * .. Parameters .. | |||
| REAL ZERO | |||
+ 3
- 2
lapack-netlib/TESTING/LIN/cqrt05.f
View File
| @@ -81,7 +81,7 @@ | |||
| SUBROUTINE CQRT05(M,N,L,NB,RESULT) | |||
| IMPLICIT NONE | |||
| * | |||
| * -- LAPACK test routine (version 3.4.1) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * April 2012 | |||
| @@ -96,8 +96,9 @@ | |||
| * .. | |||
| * .. Local allocatable arrays | |||
| COMPLEX, ALLOCATABLE :: AF(:,:), Q(:,:), | |||
| $ R(:,:), RWORK(:), WORK( : ), T(:,:), | |||
| $ R(:,:), WORK( : ), T(:,:), | |||
| $ CF(:,:), DF(:,:), A(:,:), C(:,:), D(:,:) | |||
| REAL, ALLOCATABLE :: RWORK(:) | |||
| * | |||
| * .. Parameters .. | |||
| REAL ZERO | |||
+ 3
- 2
lapack-netlib/TESTING/LIN/zqrt04.f
View File
| @@ -74,7 +74,7 @@ | |||
| SUBROUTINE ZQRT04(M,N,NB,RESULT) | |||
| IMPLICIT NONE | |||
| * | |||
| * -- LAPACK test routine (version 3.4.1) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * April 2012 | |||
| @@ -89,8 +89,9 @@ | |||
| * .. | |||
| * .. Local allocatable arrays | |||
| COMPLEX*16, ALLOCATABLE :: AF(:,:), Q(:,:), | |||
| $ R(:,:), RWORK(:), WORK( : ), T(:,:), | |||
| $ R(:,:), WORK( : ), T(:,:), | |||
| $ CF(:,:), DF(:,:), A(:,:), C(:,:), D(:,:) | |||
| DOUBLE PRECISION, ALLOCATABLE :: RWORK(:) | |||
| * | |||
| * .. Parameters .. | |||
| DOUBLE PRECISION ZERO | |||
+ 3
- 2
lapack-netlib/TESTING/LIN/zqrt05.f
View File
| @@ -81,7 +81,7 @@ | |||
| SUBROUTINE ZQRT05(M,N,L,NB,RESULT) | |||
| IMPLICIT NONE | |||
| * | |||
| * -- LAPACK test routine (version 3.4.1) -- | |||
| * -- LAPACK test routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * April 2012 | |||
| @@ -96,8 +96,9 @@ | |||
| * .. | |||
| * .. Local allocatable arrays | |||
| COMPLEX*16, ALLOCATABLE :: AF(:,:), Q(:,:), | |||
| $ R(:,:), RWORK(:), WORK( : ), T(:,:), | |||
| $ R(:,:), WORK( : ), T(:,:), | |||
| $ CF(:,:), DF(:,:), A(:,:), C(:,:), D(:,:) | |||
| DOUBLE PRECISION, ALLOCATABLE :: RWORK(:) | |||
| * | |||
| * .. Parameters .. | |||
| DOUBLE PRECISION ZERO | |||
+ 4
- 4
lapack-netlib/TESTING/MATGEN/clatm2.f
View File
| @@ -30,7 +30,7 @@ | |||
| *> \verbatim | |||
| *> | |||
| *> CLATM2 returns the (I,J) entry of a random matrix of dimension | |||
| *> (M, N) described by the other paramters. It is called by the | |||
| *> (M, N) described by the other parameters. It is called by the | |||
| *> CLATMR routine in order to build random test matrices. No error | |||
| *> checking on parameters is done, because this routine is called in | |||
| *> a tight loop by CLATMR which has already checked the parameters. | |||
| @@ -204,7 +204,7 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup complex_matgen | |||
| * | |||
| @@ -212,10 +212,10 @@ | |||
| COMPLEX FUNCTION CLATM2( M, N, I, J, KL, KU, IDIST, ISEED, D, | |||
| $ IGRADE, DL, DR, IPVTNG, IWORK, SPARSE ) | |||
| * | |||
| * -- LAPACK auxiliary routine (version 3.4.0) -- | |||
| * -- LAPACK auxiliary routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * | |||
+ 4
- 4
lapack-netlib/TESTING/MATGEN/clatm3.f
View File
| @@ -32,7 +32,7 @@ | |||
| *> \verbatim | |||
| *> | |||
| *> CLATM3 returns the (ISUB,JSUB) entry of a random matrix of | |||
| *> dimension (M, N) described by the other paramters. (ISUB,JSUB) | |||
| *> dimension (M, N) described by the other parameters. (ISUB,JSUB) | |||
| *> is the final position of the (I,J) entry after pivoting | |||
| *> according to IPVTNG and IWORK. CLATM3 is called by the | |||
| *> CLATMR routine in order to build random test matrices. No error | |||
| @@ -220,7 +220,7 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup complex_matgen | |||
| * | |||
| @@ -229,10 +229,10 @@ | |||
| $ ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK, | |||
| $ SPARSE ) | |||
| * | |||
| * -- LAPACK auxiliary routine (version 3.4.0) -- | |||
| * -- LAPACK auxiliary routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * | |||
+ 4
- 4
lapack-netlib/TESTING/MATGEN/clatm5.f
View File
| @@ -48,7 +48,7 @@ | |||
| *> \param[in] PRTYPE | |||
| *> \verbatim | |||
| *> PRTYPE is INTEGER | |||
| *> "Points" to a certian type of the matrices to generate | |||
| *> "Points" to a certain type of the matrices to generate | |||
| *> (see futher details). | |||
| *> \endverbatim | |||
| *> | |||
| @@ -192,7 +192,7 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup complex_matgen | |||
| * | |||
| @@ -268,10 +268,10 @@ | |||
| $ E, LDE, F, LDF, R, LDR, L, LDL, ALPHA, QBLCKA, | |||
| $ QBLCKB ) | |||
| * | |||
| * -- LAPACK computational routine (version 3.4.0) -- | |||
| * -- LAPACK computational routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER LDA, LDB, LDC, LDD, LDE, LDF, LDL, LDR, M, N, | |||
+ 4
- 4
lapack-netlib/TESTING/MATGEN/dlatm2.f
View File
| @@ -30,7 +30,7 @@ | |||
| *> \verbatim | |||
| *> | |||
| *> DLATM2 returns the (I,J) entry of a random matrix of dimension | |||
| *> (M, N) described by the other paramters. It is called by the | |||
| *> (M, N) described by the other parameters. It is called by the | |||
| *> DLATMR routine in order to build random test matrices. No error | |||
| *> checking on parameters is done, because this routine is called in | |||
| *> a tight loop by DLATMR which has already checked the parameters. | |||
| @@ -200,7 +200,7 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup double_matgen | |||
| * | |||
| @@ -208,10 +208,10 @@ | |||
| DOUBLE PRECISION FUNCTION DLATM2( M, N, I, J, KL, KU, IDIST, | |||
| $ ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK, SPARSE ) | |||
| * | |||
| * -- LAPACK auxiliary routine (version 3.4.0) -- | |||
| * -- LAPACK auxiliary routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * | |||
+ 4
- 4
lapack-netlib/TESTING/MATGEN/dlatm3.f
View File
| @@ -32,7 +32,7 @@ | |||
| *> \verbatim | |||
| *> | |||
| *> DLATM3 returns the (ISUB,JSUB) entry of a random matrix of | |||
| *> dimension (M, N) described by the other paramters. (ISUB,JSUB) | |||
| *> dimension (M, N) described by the other parameters. (ISUB,JSUB) | |||
| *> is the final position of the (I,J) entry after pivoting | |||
| *> according to IPVTNG and IWORK. DLATM3 is called by the | |||
| *> DLATMR routine in order to build random test matrices. No error | |||
| @@ -217,7 +217,7 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup double_matgen | |||
| * | |||
| @@ -226,10 +226,10 @@ | |||
| $ IDIST, ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK, | |||
| $ SPARSE ) | |||
| * | |||
| * -- LAPACK auxiliary routine (version 3.4.0) -- | |||
| * -- LAPACK auxiliary routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * | |||
+ 4
- 4
lapack-netlib/TESTING/MATGEN/dlatm5.f
View File
| @@ -48,7 +48,7 @@ | |||
| *> \param[in] PRTYPE | |||
| *> \verbatim | |||
| *> PRTYPE is INTEGER | |||
| *> "Points" to a certian type of the matrices to generate | |||
| *> "Points" to a certain type of the matrices to generate | |||
| *> (see futher details). | |||
| *> \endverbatim | |||
| *> | |||
| @@ -192,7 +192,7 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup double_matgen | |||
| * | |||
| @@ -268,10 +268,10 @@ | |||
| $ E, LDE, F, LDF, R, LDR, L, LDL, ALPHA, QBLCKA, | |||
| $ QBLCKB ) | |||
| * | |||
| * -- LAPACK computational routine (version 3.4.0) -- | |||
| * -- LAPACK computational routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER LDA, LDB, LDC, LDD, LDE, LDF, LDL, LDR, M, N, | |||
+ 4
- 4
lapack-netlib/TESTING/MATGEN/slatm2.f
View File
| @@ -30,7 +30,7 @@ | |||
| *> \verbatim | |||
| *> | |||
| *> SLATM2 returns the (I,J) entry of a random matrix of dimension | |||
| *> (M, N) described by the other paramters. It is called by the | |||
| *> (M, N) described by the other parameters. It is called by the | |||
| *> SLATMR routine in order to build random test matrices. No error | |||
| *> checking on parameters is done, because this routine is called in | |||
| *> a tight loop by SLATMR which has already checked the parameters. | |||
| @@ -200,7 +200,7 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup real_matgen | |||
| * | |||
| @@ -208,10 +208,10 @@ | |||
| REAL FUNCTION SLATM2( M, N, I, J, KL, KU, IDIST, | |||
| $ ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK, SPARSE ) | |||
| * | |||
| * -- LAPACK auxiliary routine (version 3.4.0) -- | |||
| * -- LAPACK auxiliary routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * | |||
+ 4
- 4
lapack-netlib/TESTING/MATGEN/slatm3.f
View File
| @@ -32,7 +32,7 @@ | |||
| *> \verbatim | |||
| *> | |||
| *> SLATM3 returns the (ISUB,JSUB) entry of a random matrix of | |||
| *> dimension (M, N) described by the other paramters. (ISUB,JSUB) | |||
| *> dimension (M, N) described by the other parameters. (ISUB,JSUB) | |||
| *> is the final position of the (I,J) entry after pivoting | |||
| *> according to IPVTNG and IWORK. SLATM3 is called by the | |||
| *> SLATMR routine in order to build random test matrices. No error | |||
| @@ -217,7 +217,7 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup real_matgen | |||
| * | |||
| @@ -226,10 +226,10 @@ | |||
| $ IDIST, ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK, | |||
| $ SPARSE ) | |||
| * | |||
| * -- LAPACK auxiliary routine (version 3.4.0) -- | |||
| * -- LAPACK auxiliary routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * | |||
+ 4
- 4
lapack-netlib/TESTING/MATGEN/slatm5.f
View File
| @@ -48,7 +48,7 @@ | |||
| *> \param[in] PRTYPE | |||
| *> \verbatim | |||
| *> PRTYPE is INTEGER | |||
| *> "Points" to a certian type of the matrices to generate | |||
| *> "Points" to a certain type of the matrices to generate | |||
| *> (see futher details). | |||
| *> \endverbatim | |||
| *> | |||
| @@ -192,7 +192,7 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup real_matgen | |||
| * | |||
| @@ -268,10 +268,10 @@ | |||
| $ E, LDE, F, LDF, R, LDR, L, LDL, ALPHA, QBLCKA, | |||
| $ QBLCKB ) | |||
| * | |||
| * -- LAPACK computational routine (version 3.4.0) -- | |||
| * -- LAPACK computational routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER LDA, LDB, LDC, LDD, LDE, LDF, LDL, LDR, M, N, | |||
+ 4
- 4
lapack-netlib/TESTING/MATGEN/zlatm2.f
View File
| @@ -30,7 +30,7 @@ | |||
| *> \verbatim | |||
| *> | |||
| *> ZLATM2 returns the (I,J) entry of a random matrix of dimension | |||
| *> (M, N) described by the other paramters. It is called by the | |||
| *> (M, N) described by the other parameters. It is called by the | |||
| *> ZLATMR routine in order to build random test matrices. No error | |||
| *> checking on parameters is done, because this routine is called in | |||
| *> a tight loop by ZLATMR which has already checked the parameters. | |||
| @@ -203,7 +203,7 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup complex16_matgen | |||
| * | |||
| @@ -211,10 +211,10 @@ | |||
| COMPLEX*16 FUNCTION ZLATM2( M, N, I, J, KL, KU, IDIST, | |||
| $ ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK, SPARSE ) | |||
| * | |||
| * -- LAPACK auxiliary routine (version 3.4.0) -- | |||
| * -- LAPACK auxiliary routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * | |||
+ 4
- 4
lapack-netlib/TESTING/MATGEN/zlatm3.f
View File
| @@ -32,7 +32,7 @@ | |||
| *> \verbatim | |||
| *> | |||
| *> ZLATM3 returns the (ISUB,JSUB) entry of a random matrix of | |||
| *> dimension (M, N) described by the other paramters. (ISUB,JSUB) | |||
| *> dimension (M, N) described by the other parameters. (ISUB,JSUB) | |||
| *> is the final position of the (I,J) entry after pivoting | |||
| *> according to IPVTNG and IWORK. ZLATM3 is called by the | |||
| *> ZLATMR routine in order to build random test matrices. No error | |||
| @@ -220,7 +220,7 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup complex16_matgen | |||
| * | |||
| @@ -229,10 +229,10 @@ | |||
| $ IDIST, ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK, | |||
| $ SPARSE ) | |||
| * | |||
| * -- LAPACK auxiliary routine (version 3.4.0) -- | |||
| * -- LAPACK auxiliary routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * | |||
+ 4
- 4
lapack-netlib/TESTING/MATGEN/zlatm5.f
View File
| @@ -48,7 +48,7 @@ | |||
| *> \param[in] PRTYPE | |||
| *> \verbatim | |||
| *> PRTYPE is INTEGER | |||
| *> "Points" to a certian type of the matrices to generate | |||
| *> "Points" to a certain type of the matrices to generate | |||
| *> (see futher details). | |||
| *> \endverbatim | |||
| *> | |||
| @@ -192,7 +192,7 @@ | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date June 2016 | |||
| * | |||
| *> \ingroup complex16_matgen | |||
| * | |||
| @@ -268,10 +268,10 @@ | |||
| $ E, LDE, F, LDF, R, LDR, L, LDL, ALPHA, QBLCKA, | |||
| $ QBLCKB ) | |||
| * | |||
| * -- LAPACK computational routine (version 3.4.0) -- | |||
| * -- LAPACK computational routine (version 3.6.1) -- | |||
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * June 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER LDA, LDB, LDC, LDD, LDE, LDF, LDL, LDR, M, N, | |||
+ 2
- 0
lapack-netlib/TESTING/Makefile
View File
| @@ -582,3 +582,5 @@ FRCEIG: | |||
| FRC: | |||
| @FRC=$(FRC) | |||
| .NOTPARALLEL: | |||
+ 1
- 1
lapack-netlib/TESTING/ctest_rfp.in
View File
| @@ -5,5 +5,5 @@ Data file for testing COMPLEX LAPACK linear equation routines RFP format | |||
| 1 2 15 Values of NRHS (number of right hand sides) | |||
| 9 Number of matrix types (list types on next line if 0 < NTYPES < 9) | |||
| 1 2 3 4 5 6 7 8 9 Matrix Types | |||
| 60.0 Threshold value of test ratio | |||
| 30.0 Threshold value of test ratio | |||
| T Put T to test the error exits | |||
+ 1
- 1
lapack-netlib/TESTING/nep.in
View File
| @@ -10,7 +10,7 @@ NEP: Data file for testing Nonsymmetric Eigenvalue Problem routines | |||
| 0 5 7 3 200 Values of INIBL (nibble crossover point) | |||
| 1 2 4 2 1 Values of ISHFTS (number of simultaneous shifts) | |||
| 0 1 2 0 1 Values of IACC22 (select structured matrix multiply: 0, 1 or 2) | |||
| 40.0 Threshold value | |||
| 20.0 Threshold value | |||
| T Put T to test the error exits | |||
| 1 Code to interpret the seed | |||
| NEP 21 | |||
+ 3
- 3
lapack-netlib/TESTING/sep.in
View File
| @@ -1,11 +1,11 @@ | |||
| SEP: Data file for testing Symmetric Eigenvalue Problem routines | |||
| 8 Number of values of N | |||
| 0 1 2 3 5 16 19 20 Values of N (dimension) | |||
| 6 Number of values of N | |||
| 0 1 2 3 5 20 Values of N (dimension) | |||
| 5 Number of values of NB | |||
| 1 3 3 3 10 Values of NB (blocksize) | |||
| 2 2 2 2 2 Values of NBMIN (minimum blocksize) | |||
| 1 0 5 9 1 Values of NX (crossover point) | |||
| 600.0 Threshold value | |||
| 50.0 Threshold value | |||
| T Put T to test the LAPACK routines | |||
| T Put T to test the driver routines | |||
| T Put T to test the error exits | |||
+ 1
- 1
lapack-netlib/TESTING/svd.in
View File
| @@ -7,7 +7,7 @@ SVD: Data file for testing Singular Value Decomposition routines | |||
| 2 2 2 2 2 Values of NBMIN (minimum blocksize) | |||
| 1 0 5 9 1 Values of NX (crossover point) | |||
| 2 0 2 2 2 Values of NRHS | |||
| 100.0 Threshold value | |||
| 50.0 Threshold value | |||
| T Put T to test the LAPACK routines | |||
| T Put T to test the driver routines | |||
| T Put T to test the error exits | |||