diff options
| author | Martin Köhler <koehlerm@mpi-magdeburg.mpg.de> | 2016-10-26 15:13:03 +0200 |
|---|---|---|
| committer | Martin Köhler <koehlerm@mpi-magdeburg.mpg.de> | 2016-10-26 15:13:03 +0200 |
| commit | 57eee3fa4347f5de9c7490739923aa80531e6370 (patch) | |
| tree | c099382e1b3762d209bd8ec620ebf52e091beb37 /lapack-netlib/TESTING | |
| parent | 92a858e69e469dea7ba9ac439659c53345f48222 (diff) | |
| download | openblas-57eee3fa4347f5de9c7490739923aa80531e6370.tar.gz openblas-57eee3fa4347f5de9c7490739923aa80531e6370.tar.bz2 openblas-57eee3fa4347f5de9c7490739923aa80531e6370.zip | |
Import LAPACK: TESTING directory
Diffstat (limited to 'lapack-netlib/TESTING')
92 files changed, 459 insertions, 437 deletions
diff --git a/lapack-netlib/TESTING/EIG/cchkbd.f b/lapack-netlib/TESTING/EIG/cchkbd.f index f5d998218..1d85866dc 100644 --- a/lapack-netlib/TESTING/EIG/cchkbd.f +++ b/lapack-netlib/TESTING/EIG/cchkbd.f @@ -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 .. diff --git a/lapack-netlib/TESTING/EIG/cchkee.f b/lapack-netlib/TESTING/EIG/cchkee.f index 91214b0cf..edea33b65 100644 --- a/lapack-netlib/TESTING/EIG/cchkee.f +++ b/lapack-netlib/TESTING/EIG/cchkee.f @@ -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, diff --git a/lapack-netlib/TESTING/EIG/cchkgg.f b/lapack-netlib/TESTING/EIG/cchkgg.f index e1daf4789..400d5b2e6 100644 --- a/lapack-netlib/TESTING/EIG/cchkgg.f +++ b/lapack-netlib/TESTING/EIG/cchkgg.f @@ -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 diff --git a/lapack-netlib/TESTING/EIG/cdrges.f b/lapack-netlib/TESTING/EIG/cdrges.f index 14af10397..67f83faea 100644 --- a/lapack-netlib/TESTING/EIG/cdrges.f +++ b/lapack-netlib/TESTING/EIG/cdrges.f @@ -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 diff --git a/lapack-netlib/TESTING/EIG/cdrges3.f b/lapack-netlib/TESTING/EIG/cdrges3.f index 0ef33dfd9..cea7f8b75 100644 --- a/lapack-netlib/TESTING/EIG/cdrges3.f +++ b/lapack-netlib/TESTING/EIG/cdrges3.f @@ -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 diff --git a/lapack-netlib/TESTING/EIG/cdrgev.f b/lapack-netlib/TESTING/EIG/cdrgev.f index 1e0eca55f..fcee80119 100644 --- a/lapack-netlib/TESTING/EIG/cdrgev.f +++ b/lapack-netlib/TESTING/EIG/cdrgev.f @@ -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, diff --git a/lapack-netlib/TESTING/EIG/cdrgev3.f b/lapack-netlib/TESTING/EIG/cdrgev3.f index 6531752b1..13fb366e4 100644 --- a/lapack-netlib/TESTING/EIG/cdrgev3.f +++ b/lapack-netlib/TESTING/EIG/cdrgev3.f @@ -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 diff --git a/lapack-netlib/TESTING/EIG/cdrgsx.f b/lapack-netlib/TESTING/EIG/cdrgsx.f index d0129ea55..54a407f83 100644 --- a/lapack-netlib/TESTING/EIG/cdrgsx.f +++ b/lapack-netlib/TESTING/EIG/cdrgsx.f @@ -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, diff --git a/lapack-netlib/TESTING/EIG/cdrgvx.f b/lapack-netlib/TESTING/EIG/cdrgvx.f index 9c0a807fb..1e6d8bdc6 100644 --- a/lapack-netlib/TESTING/EIG/cdrgvx.f +++ b/lapack-netlib/TESTING/EIG/cdrgvx.f @@ -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, diff --git a/lapack-netlib/TESTING/EIG/cdrvbd.f b/lapack-netlib/TESTING/EIG/cdrvbd.f index 28d863de1..bd8a263a5 100644 --- a/lapack-netlib/TESTING/EIG/cdrvbd.f +++ b/lapack-netlib/TESTING/EIG/cdrvbd.f @@ -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 diff --git a/lapack-netlib/TESTING/EIG/cdrves.f b/lapack-netlib/TESTING/EIG/cdrves.f index 782cae7c0..ccbf61efe 100644 --- a/lapack-netlib/TESTING/EIG/cdrves.f +++ b/lapack-netlib/TESTING/EIG/cdrves.f @@ -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=', diff --git a/lapack-netlib/TESTING/EIG/cdrvsx.f b/lapack-netlib/TESTING/EIG/cdrvsx.f index 8bac9cc2f..f2979da86 100644 --- a/lapack-netlib/TESTING/EIG/cdrvsx.f +++ b/lapack-netlib/TESTING/EIG/cdrvsx.f @@ -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,', diff --git a/lapack-netlib/TESTING/EIG/cdrvvx.f b/lapack-netlib/TESTING/EIG/cdrvvx.f index 629e78cf3..265df145a 100644 --- a/lapack-netlib/TESTING/EIG/cdrvvx.f +++ b/lapack-netlib/TESTING/EIG/cdrvvx.f @@ -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, diff --git a/lapack-netlib/TESTING/EIG/cerred.f b/lapack-netlib/TESTING/EIG/cerred.f index e1b04be7a..578d9f1f4 100644 --- a/lapack-netlib/TESTING/EIG/cerred.f +++ b/lapack-netlib/TESTING/EIG/cerred.f @@ -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 ) diff --git a/lapack-netlib/TESTING/EIG/cerrgg.f b/lapack-netlib/TESTING/EIG/cerrgg.f index a60c4eb27..100bd82d0 100644 --- a/lapack-netlib/TESTING/EIG/cerrgg.f +++ b/lapack-netlib/TESTING/EIG/cerrgg.f @@ -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 ) diff --git a/lapack-netlib/TESTING/EIG/clctes.f b/lapack-netlib/TESTING/EIG/clctes.f index 82499faee..5b66c5395 100644 --- a/lapack-netlib/TESTING/EIG/clctes.f +++ b/lapack-netlib/TESTING/EIG/clctes.f @@ -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 diff --git a/lapack-netlib/TESTING/EIG/cslect.f b/lapack-netlib/TESTING/EIG/cslect.f index ea244d892..8c80e7af7 100644 --- a/lapack-netlib/TESTING/EIG/cslect.f +++ b/lapack-netlib/TESTING/EIG/cslect.f @@ -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 diff --git a/lapack-netlib/TESTING/EIG/dchkbd.f b/lapack-netlib/TESTING/EIG/dchkbd.f index f9790692e..b093e871b 100644 --- a/lapack-netlib/TESTING/EIG/dchkbd.f +++ b/lapack-netlib/TESTING/EIG/dchkbd.f @@ -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 ) diff --git a/lapack-netlib/TESTING/EIG/dchkee.f b/lapack-netlib/TESTING/EIG/dchkee.f index 14272bc48..b723687af 100644 --- a/lapack-netlib/TESTING/EIG/dchkee.f +++ b/lapack-netlib/TESTING/EIG/dchkee.f @@ -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, diff --git a/lapack-netlib/TESTING/EIG/dchkgg.f b/lapack-netlib/TESTING/EIG/dchkgg.f index ebdc9f186..3848e7c9e 100644 --- a/lapack-netlib/TESTING/EIG/dchkgg.f +++ b/lapack-netlib/TESTING/EIG/dchkgg.f @@ -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 diff --git a/lapack-netlib/TESTING/EIG/ddrges.f b/lapack-netlib/TESTING/EIG/ddrges.f index b16efc65b..c4b83e590 100644 --- a/lapack-netlib/TESTING/EIG/ddrges.f +++ b/lapack-netlib/TESTING/EIG/ddrges.f @@ -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 diff --git a/lapack-netlib/TESTING/EIG/ddrges3.f b/lapack-netlib/TESTING/EIG/ddrges3.f index 773630193..3b23deebe 100644 --- a/lapack-netlib/TESTING/EIG/ddrges3.f +++ b/lapack-netlib/TESTING/EIG/ddrges3.f @@ -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 diff --git a/lapack-netlib/TESTING/EIG/ddrgev.f b/lapack-netlib/TESTING/EIG/ddrgev.f index 9155aed3c..e4d483623 100644 --- a/lapack-netlib/TESTING/EIG/ddrgev.f +++ b/lapack-netlib/TESTING/EIG/ddrgev.f @@ -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, diff --git a/lapack-netlib/TESTING/EIG/ddrgev3.f b/lapack-netlib/TESTING/EIG/ddrgev3.f index e8de1a8a6..1c60e4434 100644 --- a/lapack-netlib/TESTING/EIG/ddrgev3.f +++ b/lapack-netlib/TESTING/EIG/ddrgev3.f @@ -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 diff --git a/lapack-netlib/TESTING/EIG/ddrgsx.f b/lapack-netlib/TESTING/EIG/ddrgsx.f index 843fd2042..aca715e90 100644 --- a/lapack-netlib/TESTING/EIG/ddrgsx.f +++ b/lapack-netlib/TESTING/EIG/ddrgsx.f @@ -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, diff --git a/lapack-netlib/TESTING/EIG/ddrgvx.f b/lapack-netlib/TESTING/EIG/ddrgvx.f index 08a7aff07..970a3ccde 100644 --- a/lapack-netlib/TESTING/EIG/ddrgvx.f +++ b/lapack-netlib/TESTING/EIG/ddrgvx.f @@ -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 diff --git a/lapack-netlib/TESTING/EIG/ddrvbd.f b/lapack-netlib/TESTING/EIG/ddrvbd.f index d73405669..fbe26a5de 100644 --- a/lapack-netlib/TESTING/EIG/ddrvbd.f +++ b/lapack-netlib/TESTING/EIG/ddrvbd.f @@ -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 ) ', diff --git a/lapack-netlib/TESTING/EIG/ddrves.f b/lapack-netlib/TESTING/EIG/ddrves.f index 93e495e13..7275fe2a4 100644 --- a/lapack-netlib/TESTING/EIG/ddrves.f +++ b/lapack-netlib/TESTING/EIG/ddrves.f @@ -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=', diff --git a/lapack-netlib/TESTING/EIG/ddrvsx.f b/lapack-netlib/TESTING/EIG/ddrvsx.f index 42b5b76e7..66df93398 100644 --- a/lapack-netlib/TESTING/EIG/ddrvsx.f +++ b/lapack-netlib/TESTING/EIG/ddrvsx.f @@ -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,', diff --git a/lapack-netlib/TESTING/EIG/ddrvvx.f b/lapack-netlib/TESTING/EIG/ddrvvx.f index 14c5c74b9..85ad62473 100644 --- a/lapack-netlib/TESTING/EIG/ddrvvx.f +++ b/lapack-netlib/TESTING/EIG/ddrvvx.f @@ -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, diff --git a/lapack-netlib/TESTING/EIG/derrbd.f b/lapack-netlib/TESTING/EIG/derrbd.f index da03504c1..6d47bd869 100644 --- a/lapack-netlib/TESTING/EIG/derrbd.f +++ b/lapack-netlib/TESTING/EIG/derrbd.f @@ -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 diff --git a/lapack-netlib/TESTING/EIG/derred.f b/lapack-netlib/TESTING/EIG/derred.f index 4f778b157..c5bf6ea49 100644 --- a/lapack-netlib/TESTING/EIG/derred.f +++ b/lapack-netlib/TESTING/EIG/derred.f @@ -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 ) diff --git a/lapack-netlib/TESTING/EIG/derrgg.f b/lapack-netlib/TESTING/EIG/derrgg.f index 917cf0480..4edd472dc 100644 --- a/lapack-netlib/TESTING/EIG/derrgg.f +++ b/lapack-netlib/TESTING/EIG/derrgg.f @@ -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 * diff --git a/lapack-netlib/TESTING/EIG/dlctes.f b/lapack-netlib/TESTING/EIG/dlctes.f index 71b70919d..908bd091d 100644 --- a/lapack-netlib/TESTING/EIG/dlctes.f +++ b/lapack-netlib/TESTING/EIG/dlctes.f @@ -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 diff --git a/lapack-netlib/TESTING/EIG/dslect.f b/lapack-netlib/TESTING/EIG/dslect.f index 3978024c9..a7a0e0947 100644 --- a/lapack-netlib/TESTING/EIG/dslect.f +++ b/lapack-netlib/TESTING/EIG/dslect.f @@ -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 diff --git a/lapack-netlib/TESTING/EIG/schkbd.f b/lapack-netlib/TESTING/EIG/schkbd.f index 3419c7df0..5569e0e60 100644 --- a/lapack-netlib/TESTING/EIG/schkbd.f +++ b/lapack-netlib/TESTING/EIG/schkbd.f @@ -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 ) diff --git a/lapack-netlib/TESTING/EIG/schkee.f b/lapack-netlib/TESTING/EIG/schkee.f index 0bd994cc4..ecbef3c10 100644 --- a/lapack-netlib/TESTING/EIG/schkee.f +++ b/lapack-netlib/TESTING/EIG/schkee.f @@ -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, diff --git a/lapack-netlib/TESTING/EIG/schkgg.f b/lapack-netlib/TESTING/EIG/schkgg.f index 708b24374..3772340e6 100644 --- a/lapack-netlib/TESTING/EIG/schkgg.f +++ b/lapack-netlib/TESTING/EIG/schkgg.f @@ -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 diff --git a/lapack-netlib/TESTING/EIG/sdrges.f b/lapack-netlib/TESTING/EIG/sdrges.f index f4d9a1246..73f0cb14c 100644 --- a/lapack-netlib/TESTING/EIG/sdrges.f +++ b/lapack-netlib/TESTING/EIG/sdrges.f @@ -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 diff --git a/lapack-netlib/TESTING/EIG/sdrges3.f b/lapack-netlib/TESTING/EIG/sdrges3.f index 6fed3c846..90351f6df 100644 --- a/lapack-netlib/TESTING/EIG/sdrges3.f +++ b/lapack-netlib/TESTING/EIG/sdrges3.f @@ -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 diff --git a/lapack-netlib/TESTING/EIG/sdrgev.f b/lapack-netlib/TESTING/EIG/sdrgev.f index 816b37bbf..05c3afe94 100644 --- a/lapack-netlib/TESTING/EIG/sdrgev.f +++ b/lapack-netlib/TESTING/EIG/sdrgev.f @@ -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, diff --git a/lapack-netlib/TESTING/EIG/sdrgev3.f b/lapack-netlib/TESTING/EIG/sdrgev3.f index c1c92a89e..9492d43bf 100644 --- a/lapack-netlib/TESTING/EIG/sdrgev3.f +++ b/lapack-netlib/TESTING/EIG/sdrgev3.f @@ -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 diff --git a/lapack-netlib/TESTING/EIG/sdrgsx.f b/lapack-netlib/TESTING/EIG/sdrgsx.f index 4cc8d0192..58c61f08d 100644 --- a/lapack-netlib/TESTING/EIG/sdrgsx.f +++ b/lapack-netlib/TESTING/EIG/sdrgsx.f @@ -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, diff --git a/lapack-netlib/TESTING/EIG/sdrgvx.f b/lapack-netlib/TESTING/EIG/sdrgvx.f index d899e56db..06b94c9f1 100644 --- a/lapack-netlib/TESTING/EIG/sdrgvx.f +++ b/lapack-netlib/TESTING/EIG/sdrgvx.f @@ -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, diff --git a/lapack-netlib/TESTING/EIG/sdrvbd.f b/lapack-netlib/TESTING/EIG/sdrvbd.f index 0eeddb8f7..e8bf7ea5b 100644 --- a/lapack-netlib/TESTING/EIG/sdrvbd.f +++ b/lapack-netlib/TESTING/EIG/sdrvbd.f @@ -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 diff --git a/lapack-netlib/TESTING/EIG/sdrves.f b/lapack-netlib/TESTING/EIG/sdrves.f index f2ec1e727..f6493ea0f 100644 --- a/lapack-netlib/TESTING/EIG/sdrves.f +++ b/lapack-netlib/TESTING/EIG/sdrves.f @@ -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=', diff --git a/lapack-netlib/TESTING/EIG/sdrvsx.f b/lapack-netlib/TESTING/EIG/sdrvsx.f index a4437adb4..9599e54f4 100644 --- a/lapack-netlib/TESTING/EIG/sdrvsx.f +++ b/lapack-netlib/TESTING/EIG/sdrvsx.f @@ -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,', diff --git a/lapack-netlib/TESTING/EIG/sdrvvx.f b/lapack-netlib/TESTING/EIG/sdrvvx.f index a71361967..64951fe23 100644 --- a/lapack-netlib/TESTING/EIG/sdrvvx.f +++ b/lapack-netlib/TESTING/EIG/sdrvvx.f @@ -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, diff --git a/lapack-netlib/TESTING/EIG/serrbd.f b/lapack-netlib/TESTING/EIG/serrbd.f index fbd1c2eb9..757825a2d 100644 --- a/lapack-netlib/TESTING/EIG/serrbd.f +++ b/lapack-netlib/TESTING/EIG/serrbd.f @@ -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 diff --git a/lapack-netlib/TESTING/EIG/serred.f b/lapack-netlib/TESTING/EIG/serred.f index 72ff23914..ecd811195 100644 --- a/lapack-netlib/TESTING/EIG/serred.f +++ b/lapack-netlib/TESTING/EIG/serred.f @@ -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 ) diff --git a/lapack-netlib/TESTING/EIG/serrgg.f b/lapack-netlib/TESTING/EIG/serrgg.f index aede817b6..21c65ee4b 100644 --- a/lapack-netlib/TESTING/EIG/serrgg.f +++ b/lapack-netlib/TESTING/EIG/serrgg.f @@ -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 * diff --git a/lapack-netlib/TESTING/EIG/slctes.f b/lapack-netlib/TESTING/EIG/slctes.f index e39b0d635..9be9e3df9 100644 --- a/lapack-netlib/TESTING/EIG/slctes.f +++ b/lapack-netlib/TESTING/EIG/slctes.f @@ -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 diff --git a/lapack-netlib/TESTING/EIG/sslect.f b/lapack-netlib/TESTING/EIG/sslect.f index 89d0981a2..5127df3d2 100644 --- a/lapack-netlib/TESTING/EIG/sslect.f +++ b/lapack-netlib/TESTING/EIG/sslect.f @@ -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 diff --git a/lapack-netlib/TESTING/EIG/zchkbd.f b/lapack-netlib/TESTING/EIG/zchkbd.f index f126e47c8..493b7804c 100644 --- a/lapack-netlib/TESTING/EIG/zchkbd.f +++ b/lapack-netlib/TESTING/EIG/zchkbd.f @@ -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 .. diff --git a/lapack-netlib/TESTING/EIG/zchkee.f b/lapack-netlib/TESTING/EIG/zchkee.f index 67221276e..2588060ba 100644 --- a/lapack-netlib/TESTING/EIG/zchkee.f +++ b/lapack-netlib/TESTING/EIG/zchkee.f @@ -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, diff --git a/lapack-netlib/TESTING/EIG/zchkgg.f b/lapack-netlib/TESTING/EIG/zchkgg.f index 5c554caec..53bd07a1a 100644 --- a/lapack-netlib/TESTING/EIG/zchkgg.f +++ b/lapack-netlib/TESTING/EIG/zchkgg.f @@ -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 diff --git a/lapack-netlib/TESTING/EIG/zdrges.f b/lapack-netlib/TESTING/EIG/zdrges.f index 6e10cb1e2..a0a76b958 100644 --- a/lapack-netlib/TESTING/EIG/zdrges.f +++ b/lapack-netlib/TESTING/EIG/zdrges.f @@ -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 diff --git a/lapack-netlib/TESTING/EIG/zdrges3.f b/lapack-netlib/TESTING/EIG/zdrges3.f index 9a4277398..2b3be003c 100644 --- a/lapack-netlib/TESTING/EIG/zdrges3.f +++ b/lapack-netlib/TESTING/EIG/zdrges3.f @@ -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 diff --git a/lapack-netlib/TESTING/EIG/zdrgev.f b/lapack-netlib/TESTING/EIG/zdrgev.f index 96727449b..6f745d180 100644 --- a/lapack-netlib/TESTING/EIG/zdrgev.f +++ b/lapack-netlib/TESTING/EIG/zdrgev.f @@ -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, diff --git a/lapack-netlib/TESTING/EIG/zdrgev3.f b/lapack-netlib/TESTING/EIG/zdrgev3.f index cc9526c3c..62ddf2b56 100644 --- a/lapack-netlib/TESTING/EIG/zdrgev3.f +++ b/lapack-netlib/TESTING/EIG/zdrgev3.f @@ -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 diff --git a/lapack-netlib/TESTING/EIG/zdrgsx.f b/lapack-netlib/TESTING/EIG/zdrgsx.f index 9b859e493..3714b705a 100644 --- a/lapack-netlib/TESTING/EIG/zdrgsx.f +++ b/lapack-netlib/TESTING/EIG/zdrgsx.f @@ -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, diff --git a/lapack-netlib/TESTING/EIG/zdrgvx.f b/lapack-netlib/TESTING/EIG/zdrgvx.f index 452530feb..f36007b3b 100644 --- a/lapack-netlib/TESTING/EIG/zdrgvx.f +++ b/lapack-netlib/TESTING/EIG/zdrgvx.f @@ -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, diff --git a/lapack-netlib/TESTING/EIG/zdrvbd.f b/lapack-netlib/TESTING/EIG/zdrvbd.f index 2f1e3cc38..d8388eed7 100644 --- a/lapack-netlib/TESTING/EIG/zdrvbd.f +++ b/lapack-netlib/TESTING/EIG/zdrvbd.f @@ -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 diff --git a/lapack-netlib/TESTING/EIG/zdrves.f b/lapack-netlib/TESTING/EIG/zdrves.f index d2657720a..15f5debcb 100644 --- a/lapack-netlib/TESTING/EIG/zdrves.f +++ b/lapack-netlib/TESTING/EIG/zdrves.f @@ -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=', diff --git a/lapack-netlib/TESTING/EIG/zdrvsx.f b/lapack-netlib/TESTING/EIG/zdrvsx.f index 742162eb8..96cb23653 100644 --- a/lapack-netlib/TESTING/EIG/zdrvsx.f +++ b/lapack-netlib/TESTING/EIG/zdrvsx.f @@ -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,', diff --git a/lapack-netlib/TESTING/EIG/zdrvvx.f b/lapack-netlib/TESTING/EIG/zdrvvx.f index c9ea4e0d8..00c91fec6 100644 --- a/lapack-netlib/TESTING/EIG/zdrvvx.f +++ b/lapack-netlib/TESTING/EIG/zdrvvx.f @@ -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, diff --git a/lapack-netlib/TESTING/EIG/zerred.f b/lapack-netlib/TESTING/EIG/zerred.f index 407964709..9179b1df0 100644 --- a/lapack-netlib/TESTING/EIG/zerred.f +++ b/lapack-netlib/TESTING/EIG/zerred.f @@ -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 ) diff --git a/lapack-netlib/TESTING/EIG/zerrgg.f b/lapack-netlib/TESTING/EIG/zerrgg.f index 3366c7716..a91363324 100644 --- a/lapack-netlib/TESTING/EIG/zerrgg.f +++ b/lapack-netlib/TESTING/EIG/zerrgg.f @@ -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 ) diff --git a/lapack-netlib/TESTING/EIG/zlctes.f b/lapack-netlib/TESTING/EIG/zlctes.f index 1306180d8..e0acd882f 100644 --- a/lapack-netlib/TESTING/EIG/zlctes.f +++ b/lapack-netlib/TESTING/EIG/zlctes.f @@ -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 diff --git a/lapack-netlib/TESTING/EIG/zslect.f b/lapack-netlib/TESTING/EIG/zslect.f index a01308db9..1d6ef4d56 100644 --- a/lapack-netlib/TESTING/EIG/zslect.f +++ b/lapack-netlib/TESTING/EIG/zslect.f @@ -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 diff --git a/lapack-netlib/TESTING/LIN/Makefile b/lapack-netlib/TESTING/LIN/Makefile index 09d514e5d..9db8b38af 100644 --- a/lapack-netlib/TESTING/LIN/Makefile +++ b/lapack-netlib/TESTING/LIN/Makefile @@ -339,3 +339,5 @@ zchkaa.o: zchkaa.f .f.o: $(FORTRAN) $(OPTS) -c $< -o $@ + +.NOTPARALLEL: diff --git a/lapack-netlib/TESTING/LIN/cqrt04.f b/lapack-netlib/TESTING/LIN/cqrt04.f index e3715a9fd..3176a0a02 100644 --- a/lapack-netlib/TESTING/LIN/cqrt04.f +++ b/lapack-netlib/TESTING/LIN/cqrt04.f @@ -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 diff --git a/lapack-netlib/TESTING/LIN/cqrt05.f b/lapack-netlib/TESTING/LIN/cqrt05.f index 256045af6..31d9d3b92 100644 --- a/lapack-netlib/TESTING/LIN/cqrt05.f +++ b/lapack-netlib/TESTING/LIN/cqrt05.f @@ -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 diff --git a/lapack-netlib/TESTING/LIN/zqrt04.f b/lapack-netlib/TESTING/LIN/zqrt04.f index 274c51a09..714f3fbb3 100644 --- a/lapack-netlib/TESTING/LIN/zqrt04.f +++ b/lapack-netlib/TESTING/LIN/zqrt04.f @@ -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 diff --git a/lapack-netlib/TESTING/LIN/zqrt05.f b/lapack-netlib/TESTING/LIN/zqrt05.f index 8080a4522..c51c02fda 100644 --- a/lapack-netlib/TESTING/LIN/zqrt05.f +++ b/lapack-netlib/TESTING/LIN/zqrt05.f @@ -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 diff --git a/lapack-netlib/TESTING/MATGEN/clatm2.f b/lapack-netlib/TESTING/MATGEN/clatm2.f index 588caaa41..f5d7395e6 100644 --- a/lapack-netlib/TESTING/MATGEN/clatm2.f +++ b/lapack-netlib/TESTING/MATGEN/clatm2.f @@ -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 .. * diff --git a/lapack-netlib/TESTING/MATGEN/clatm3.f b/lapack-netlib/TESTING/MATGEN/clatm3.f index d3073bef7..1526e4128 100644 --- a/lapack-netlib/TESTING/MATGEN/clatm3.f +++ b/lapack-netlib/TESTING/MATGEN/clatm3.f @@ -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 .. * diff --git a/lapack-netlib/TESTING/MATGEN/clatm5.f b/lapack-netlib/TESTING/MATGEN/clatm5.f index 3f3eb956c..bce75f1ee 100644 --- a/lapack-netlib/TESTING/MATGEN/clatm5.f +++ b/lapack-netlib/TESTING/MATGEN/clatm5.f @@ -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, diff --git a/lapack-netlib/TESTING/MATGEN/dlatm2.f b/lapack-netlib/TESTING/MATGEN/dlatm2.f index 87ef4f423..f12a737e5 100644 --- a/lapack-netlib/TESTING/MATGEN/dlatm2.f +++ b/lapack-netlib/TESTING/MATGEN/dlatm2.f @@ -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 .. * diff --git a/lapack-netlib/TESTING/MATGEN/dlatm3.f b/lapack-netlib/TESTING/MATGEN/dlatm3.f index b2c49823e..4ad342516 100644 --- a/lapack-netlib/TESTING/MATGEN/dlatm3.f +++ b/lapack-netlib/TESTING/MATGEN/dlatm3.f @@ -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 .. * diff --git a/lapack-netlib/TESTING/MATGEN/dlatm5.f b/lapack-netlib/TESTING/MATGEN/dlatm5.f index 9c8ee380f..f7581ad84 100644 --- a/lapack-netlib/TESTING/MATGEN/dlatm5.f +++ b/lapack-netlib/TESTING/MATGEN/dlatm5.f @@ -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, diff --git a/lapack-netlib/TESTING/MATGEN/slatm2.f b/lapack-netlib/TESTING/MATGEN/slatm2.f index 88dcd6494..9707096b4 100644 --- a/lapack-netlib/TESTING/MATGEN/slatm2.f +++ b/lapack-netlib/TESTING/MATGEN/slatm2.f @@ -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 .. * diff --git a/lapack-netlib/TESTING/MATGEN/slatm3.f b/lapack-netlib/TESTING/MATGEN/slatm3.f index f90790cb9..32301ca20 100644 --- a/lapack-netlib/TESTING/MATGEN/slatm3.f +++ b/lapack-netlib/TESTING/MATGEN/slatm3.f @@ -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 .. * diff --git a/lapack-netlib/TESTING/MATGEN/slatm5.f b/lapack-netlib/TESTING/MATGEN/slatm5.f index ce0540c19..eeb3e6f3b 100644 --- a/lapack-netlib/TESTING/MATGEN/slatm5.f +++ b/lapack-netlib/TESTING/MATGEN/slatm5.f @@ -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, diff --git a/lapack-netlib/TESTING/MATGEN/zlatm2.f b/lapack-netlib/TESTING/MATGEN/zlatm2.f index 920e43e83..3719a685e 100644 --- a/lapack-netlib/TESTING/MATGEN/zlatm2.f +++ b/lapack-netlib/TESTING/MATGEN/zlatm2.f @@ -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 .. * diff --git a/lapack-netlib/TESTING/MATGEN/zlatm3.f b/lapack-netlib/TESTING/MATGEN/zlatm3.f index 4c27ad3b8..d7b10579d 100644 --- a/lapack-netlib/TESTING/MATGEN/zlatm3.f +++ b/lapack-netlib/TESTING/MATGEN/zlatm3.f @@ -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 .. * diff --git a/lapack-netlib/TESTING/MATGEN/zlatm5.f b/lapack-netlib/TESTING/MATGEN/zlatm5.f index 6b277268d..4020c8554 100644 --- a/lapack-netlib/TESTING/MATGEN/zlatm5.f +++ b/lapack-netlib/TESTING/MATGEN/zlatm5.f @@ -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, diff --git a/lapack-netlib/TESTING/Makefile b/lapack-netlib/TESTING/Makefile index 9aaf07de7..968a9a2bd 100644 --- a/lapack-netlib/TESTING/Makefile +++ b/lapack-netlib/TESTING/Makefile @@ -582,3 +582,5 @@ FRCEIG: FRC: @FRC=$(FRC) + +.NOTPARALLEL: diff --git a/lapack-netlib/TESTING/ctest_rfp.in b/lapack-netlib/TESTING/ctest_rfp.in index 2975f225d..d6988f2a7 100644 --- a/lapack-netlib/TESTING/ctest_rfp.in +++ b/lapack-netlib/TESTING/ctest_rfp.in @@ -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 diff --git a/lapack-netlib/TESTING/nep.in b/lapack-netlib/TESTING/nep.in index af427fbde..c4a414910 100644 --- a/lapack-netlib/TESTING/nep.in +++ b/lapack-netlib/TESTING/nep.in @@ -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 diff --git a/lapack-netlib/TESTING/sep.in b/lapack-netlib/TESTING/sep.in index 2116c7f2b..7f9f54f52 100644 --- a/lapack-netlib/TESTING/sep.in +++ b/lapack-netlib/TESTING/sep.in @@ -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 diff --git a/lapack-netlib/TESTING/svd.in b/lapack-netlib/TESTING/svd.in index 225b82658..bc0ae2d2e 100644 --- a/lapack-netlib/TESTING/svd.in +++ b/lapack-netlib/TESTING/svd.in @@ -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 |