diff --git a/lapack-netlib/TESTING/EIG/CMakeLists.txt b/lapack-netlib/TESTING/EIG/CMakeLists.txt
index 10c25a446..5993233bd 100644
--- a/lapack-netlib/TESTING/EIG/CMakeLists.txt
+++ b/lapack-netlib/TESTING/EIG/CMakeLists.txt
@@ -36,7 +36,7 @@ set(SEIGTST schkee.F
serrbd.f serrec.f serred.f serrgg.f serrhs.f serrst.f
sget02.f sget10.f sget22.f sget23.f sget24.f sget31.f
sget32.f sget33.f sget34.f sget35.f sget36.f
- sget37.f sget38.f sget39.f sget51.f sget52.f sget53.f
+ sget37.f sget38.f sget39.f sget40.f sget51.f sget52.f sget53.f
sget54.f sglmts.f sgqrts.f sgrqts.f sgsvts3.f
shst01.f slarfy.f slarhs.f slatm4.f slctes.f slctsx.f slsets.f sort01.f
sort03.f ssbt21.f ssgt01.f sslect.f sspt21.f sstt21.f
@@ -73,7 +73,7 @@ set(DEIGTST dchkee.F
derrbd.f derrec.f derred.f derrgg.f derrhs.f derrst.f
dget02.f dget10.f dget22.f dget23.f dget24.f dget31.f
dget32.f dget33.f dget34.f dget35.f dget36.f
- dget37.f dget38.f dget39.f dget51.f dget52.f dget53.f
+ dget37.f dget38.f dget39.f dget40.f dget51.f dget52.f dget53.f
dget54.f dglmts.f dgqrts.f dgrqts.f dgsvts3.f
dhst01.f dlarfy.f dlarhs.f dlatm4.f dlctes.f dlctsx.f dlsets.f dort01.f
dort03.f dsbt21.f dsgt01.f dslect.f dspt21.f dstt21.f
@@ -98,7 +98,7 @@ set(ZEIGTST zchkee.F
macro(add_eig_executable name)
add_executable(${name} ${ARGN})
- target_link_libraries(${name} openblas${SUFFIX64_UNDERSCORE})
+ target_link_libraries(${name} ${TMGLIB} ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
endmacro()
if(BUILD_SINGLE)
diff --git a/lapack-netlib/TESTING/EIG/Makefile b/lapack-netlib/TESTING/EIG/Makefile
index a292e4496..e7b803abe 100644
--- a/lapack-netlib/TESTING/EIG/Makefile
+++ b/lapack-netlib/TESTING/EIG/Makefile
@@ -58,7 +58,7 @@ SEIGTST = schkee.o \
serrbd.o serrec.o serred.o serrgg.o serrhs.o serrst.o \
sget02.o sget10.o sget22.o sget23.o sget24.o sget31.o \
sget32.o sget33.o sget34.o sget35.o sget36.o \
- sget37.o sget38.o sget39.o sget51.o sget52.o sget53.o \
+ sget37.o sget38.o sget39.o sget40.o sget51.o sget52.o sget53.o \
sget54.o sglmts.o sgqrts.o sgrqts.o sgsvts3.o \
shst01.o slarfy.o slarhs.o slatm4.o slctes.o slctsx.o slsets.o sort01.o \
sort03.o ssbt21.o ssgt01.o sslect.o sspt21.o sstt21.o \
@@ -95,7 +95,7 @@ DEIGTST = dchkee.o \
derrbd.o derrec.o derred.o derrgg.o derrhs.o derrst.o \
dget02.o dget10.o dget22.o dget23.o dget24.o dget31.o \
dget32.o dget33.o dget34.o dget35.o dget36.o \
- dget37.o dget38.o dget39.o dget51.o dget52.o dget53.o \
+ dget37.o dget38.o dget39.o dget40.o dget51.o dget52.o dget53.o \
dget54.o dglmts.o dgqrts.o dgrqts.o dgsvts3.o \
dhst01.o dlarfy.o dlarhs.o dlatm4.o dlctes.o dlctsx.o dlsets.o dort01.o \
dort03.o dsbt21.o dsgt01.o dslect.o dspt21.o dstt21.o \
@@ -128,16 +128,16 @@ double: xeigtstd
complex16: xeigtstz
xeigtsts: $(SEIGTST) $(SCIGTST) $(AEIGTST) $(TMGLIB) ../$(LAPACKLIB) $(BLASLIB)
- $(LOADER) $(FFLAGS) $(LDFLAGS) -o $@ $^
+ $(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^
xeigtstc: $(CEIGTST) $(SCIGTST) $(AEIGTST) $(TMGLIB) ../$(LAPACKLIB) $(BLASLIB)
- $(LOADER) $(FFLAGS) $(LDFLAGS) -o $@ $^
+ $(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^
xeigtstd: $(DEIGTST) $(DZIGTST) $(AEIGTST) $(TMGLIB) ../$(LAPACKLIB) $(BLASLIB)
- $(LOADER) $(FFLAGS) $(LDFLAGS) -o $@ $^
+ $(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^
xeigtstz: $(ZEIGTST) $(DZIGTST) $(AEIGTST) $(TMGLIB) ../$(LAPACKLIB) $(BLASLIB)
- $(LOADER) $(FFLAGS) $(LDFLAGS) -o $@ $^
+ $(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^
$(AEIGTST): $(FRC)
$(SCIGTST): $(FRC)
diff --git a/lapack-netlib/TESTING/EIG/alahdg.f b/lapack-netlib/TESTING/EIG/alahdg.f
index aec76fd91..597ee4b7a 100644
--- a/lapack-netlib/TESTING/EIG/alahdg.f
+++ b/lapack-netlib/TESTING/EIG/alahdg.f
@@ -55,17 +55,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup aux_eig
*
* =====================================================================
SUBROUTINE ALAHDG( IOUNIT, PATH )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/EIG/alareq.f b/lapack-netlib/TESTING/EIG/alareq.f
index a65e4d05e..2585a686a 100644
--- a/lapack-netlib/TESTING/EIG/alareq.f
+++ b/lapack-netlib/TESTING/EIG/alareq.f
@@ -83,17 +83,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup aux_eig
*
* =====================================================================
SUBROUTINE ALAREQ( PATH, NMATS, DOTYPE, NTYPES, NIN, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/EIG/alarqg.f b/lapack-netlib/TESTING/EIG/alarqg.f
index e9f9e832d..6e2e6e7ec 100644
--- a/lapack-netlib/TESTING/EIG/alarqg.f
+++ b/lapack-netlib/TESTING/EIG/alarqg.f
@@ -83,17 +83,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup aux_eig
*
* =====================================================================
SUBROUTINE ALARQG( PATH, NMATS, DOTYPE, NTYPES, NIN, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/EIG/alasmg.f b/lapack-netlib/TESTING/EIG/alasmg.f
index d01f326ba..ba586d703 100644
--- a/lapack-netlib/TESTING/EIG/alasmg.f
+++ b/lapack-netlib/TESTING/EIG/alasmg.f
@@ -66,17 +66,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup aux_eig
*
* =====================================================================
SUBROUTINE ALASMG( TYPE, NOUT, NFAIL, NRUN, NERRS )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 TYPE
diff --git a/lapack-netlib/TESTING/EIG/alasum.f b/lapack-netlib/TESTING/EIG/alasum.f
index d527082c5..9144a9c08 100644
--- a/lapack-netlib/TESTING/EIG/alasum.f
+++ b/lapack-netlib/TESTING/EIG/alasum.f
@@ -66,17 +66,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup aux_eig
*
* =====================================================================
SUBROUTINE ALASUM( TYPE, NOUT, NFAIL, NRUN, NERRS )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 TYPE
diff --git a/lapack-netlib/TESTING/EIG/alasvm.f b/lapack-netlib/TESTING/EIG/alasvm.f
index 54d67e4cc..118315d1d 100644
--- a/lapack-netlib/TESTING/EIG/alasvm.f
+++ b/lapack-netlib/TESTING/EIG/alasvm.f
@@ -66,17 +66,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup aux_eig
*
* =====================================================================
SUBROUTINE ALASVM( TYPE, NOUT, NFAIL, NRUN, NERRS )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 TYPE
diff --git a/lapack-netlib/TESTING/EIG/cbdt01.f b/lapack-netlib/TESTING/EIG/cbdt01.f
index e7d08d874..f5633bdc3 100644
--- a/lapack-netlib/TESTING/EIG/cbdt01.f
+++ b/lapack-netlib/TESTING/EIG/cbdt01.f
@@ -28,13 +28,13 @@
*> \verbatim
*>
*> CBDT01 reconstructs a general matrix A from its bidiagonal form
-*> A = Q * B * P'
-*> where Q (m by min(m,n)) and P' (min(m,n) by n) are unitary
+*> A = Q * B * P**H
+*> where Q (m by min(m,n)) and P**H (min(m,n) by n) are unitary
*> matrices and B is bidiagonal.
*>
*> The test ratio to test the reduction is
-*> RESID = norm( A - Q * B * PT ) / ( n * norm(A) * EPS )
-*> where PT = P' and EPS is the machine precision.
+*> RESID = norm(A - Q * B * P**H) / ( n * norm(A) * EPS )
+*> where EPS is the machine precision.
*> \endverbatim
*
* Arguments:
@@ -49,7 +49,7 @@
*> \param[in] N
*> \verbatim
*> N is INTEGER
-*> The number of columns of the matrices A and P'.
+*> The number of columns of the matrices A and P**H.
*> \endverbatim
*>
*> \param[in] KD
@@ -78,7 +78,7 @@
*> \verbatim
*> Q is COMPLEX array, dimension (LDQ,N)
*> The m by min(m,n) unitary matrix Q in the reduction
-*> A = Q * B * P'.
+*> A = Q * B * P**H.
*> \endverbatim
*>
*> \param[in] LDQ
@@ -103,8 +103,8 @@
*> \param[in] PT
*> \verbatim
*> PT is COMPLEX array, dimension (LDPT,N)
-*> The min(m,n) by n unitary matrix P' in the reduction
-*> A = Q * B * P'.
+*> The min(m,n) by n unitary matrix P**H in the reduction
+*> A = Q * B * P**H.
*> \endverbatim
*>
*> \param[in] LDPT
@@ -127,7 +127,8 @@
*> \param[out] RESID
*> \verbatim
*> RESID is REAL
-*> The test ratio: norm(A - Q * B * P') / ( n * norm(A) * EPS )
+*> The test ratio:
+*> norm(A - Q * B * P**H) / ( n * norm(A) * EPS )
*> \endverbatim
*
* Authors:
@@ -138,18 +139,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
SUBROUTINE CBDT01( M, N, KD, A, LDA, Q, LDQ, D, E, PT, LDPT, WORK,
$ RWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER KD, LDA, LDPT, LDQ, M, N
@@ -190,7 +188,7 @@
RETURN
END IF
*
-* Compute A - Q * B * P' one column at a time.
+* Compute A - Q * B * P**H one column at a time.
*
RESID = ZERO
IF( KD.NE.0 ) THEN
@@ -268,7 +266,7 @@
END IF
END IF
*
-* Compute norm(A - Q * B * P') / ( n * norm(A) * EPS )
+* Compute norm(A - Q * B * P**H) / ( n * norm(A) * EPS )
*
ANORM = CLANGE( '1', M, N, A, LDA, RWORK )
EPS = SLAMCH( 'Precision' )
diff --git a/lapack-netlib/TESTING/EIG/cbdt02.f b/lapack-netlib/TESTING/EIG/cbdt02.f
index c2d6bd7d7..8aafefd22 100644
--- a/lapack-netlib/TESTING/EIG/cbdt02.f
+++ b/lapack-netlib/TESTING/EIG/cbdt02.f
@@ -27,7 +27,8 @@
*>
*> \verbatim
*>
-*> CBDT02 tests the change of basis C = U' * B by computing the residual
+*> CBDT02 tests the change of basis C = U**H * B by computing the
+*> residual
*>
*> RESID = norm( B - U * C ) / ( max(m,n) * norm(B) * EPS ),
*>
@@ -66,7 +67,7 @@
*> \param[in] C
*> \verbatim
*> C is COMPLEX array, dimension (LDC,N)
-*> The m by n matrix C, assumed to contain U' * B.
+*> The m by n matrix C, assumed to contain U**H * B.
*> \endverbatim
*>
*> \param[in] LDC
@@ -111,18 +112,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
SUBROUTINE CBDT02( M, N, B, LDB, C, LDC, U, LDU, WORK, RWORK,
$ RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDB, LDC, LDU, M, N
diff --git a/lapack-netlib/TESTING/EIG/cbdt03.f b/lapack-netlib/TESTING/EIG/cbdt03.f
index d4f7d7a5d..631929b34 100644
--- a/lapack-netlib/TESTING/EIG/cbdt03.f
+++ b/lapack-netlib/TESTING/EIG/cbdt03.f
@@ -127,18 +127,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
SUBROUTINE CBDT03( UPLO, N, KD, D, E, U, LDU, S, VT, LDVT, WORK,
$ RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/EIG/cbdt05.f b/lapack-netlib/TESTING/EIG/cbdt05.f
index 4ed157431..9b711fe01 100644
--- a/lapack-netlib/TESTING/EIG/cbdt05.f
+++ b/lapack-netlib/TESTING/EIG/cbdt05.f
@@ -117,18 +117,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
SUBROUTINE CBDT05( M, N, A, LDA, S, NS, U, LDU,
$ VT, LDVT, WORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LDU, LDVT, M, N, NS
diff --git a/lapack-netlib/TESTING/EIG/cchkbb.f b/lapack-netlib/TESTING/EIG/cchkbb.f
index f4a95fa65..d48d6c780 100644
--- a/lapack-netlib/TESTING/EIG/cchkbb.f
+++ b/lapack-netlib/TESTING/EIG/cchkbb.f
@@ -351,8 +351,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
@@ -364,7 +362,6 @@
* -- LAPACK test routine (input) --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDAB, LDC, LDP, LDQ, LWORK, NOUNIT,
diff --git a/lapack-netlib/TESTING/EIG/cchkbd.f b/lapack-netlib/TESTING/EIG/cchkbd.f
index a3c5b6027..12fc0d332 100644
--- a/lapack-netlib/TESTING/EIG/cchkbd.f
+++ b/lapack-netlib/TESTING/EIG/cchkbd.f
@@ -405,8 +405,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
@@ -415,10 +413,9 @@
$ Y, Z, Q, LDQ, PT, LDPT, U, VT, WORK, LWORK,
$ RWORK, NOUT, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDPT, LDQ, LDX, LWORK, NOUT, NRHS,
diff --git a/lapack-netlib/TESTING/EIG/cchkbk.f b/lapack-netlib/TESTING/EIG/cchkbk.f
index 58e120942..6b9b0e24c 100644
--- a/lapack-netlib/TESTING/EIG/cchkbk.f
+++ b/lapack-netlib/TESTING/EIG/cchkbk.f
@@ -48,17 +48,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
SUBROUTINE CCHKBK( NIN, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER NIN, NOUT
diff --git a/lapack-netlib/TESTING/EIG/cchkbl.f b/lapack-netlib/TESTING/EIG/cchkbl.f
index 02671ffe4..894abd490 100644
--- a/lapack-netlib/TESTING/EIG/cchkbl.f
+++ b/lapack-netlib/TESTING/EIG/cchkbl.f
@@ -47,17 +47,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
SUBROUTINE CCHKBL( NIN, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER NIN, NOUT
diff --git a/lapack-netlib/TESTING/EIG/cchkec.f b/lapack-netlib/TESTING/EIG/cchkec.f
index 4f6fbc3cd..6727a0954 100644
--- a/lapack-netlib/TESTING/EIG/cchkec.f
+++ b/lapack-netlib/TESTING/EIG/cchkec.f
@@ -68,17 +68,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
SUBROUTINE CCHKEC( THRESH, TSTERR, NIN, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/EIG/cchkee.F b/lapack-netlib/TESTING/EIG/cchkee.F
index ef9f71ec9..7c6f58087 100644
--- a/lapack-netlib/TESTING/EIG/cchkee.F
+++ b/lapack-netlib/TESTING/EIG/cchkee.F
@@ -1027,8 +1027,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
@@ -1038,10 +1036,9 @@
use omp_lib
#endif
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2016
*
* =====================================================================
*
diff --git a/lapack-netlib/TESTING/EIG/cchkgg.f b/lapack-netlib/TESTING/EIG/cchkgg.f
index fb9c2bcdf..8938bb657 100644
--- a/lapack-netlib/TESTING/EIG/cchkgg.f
+++ b/lapack-netlib/TESTING/EIG/cchkgg.f
@@ -492,8 +492,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
@@ -503,10 +501,9 @@
$ ALPHA3, BETA3, EVECTL, EVECTR, WORK, LWORK,
$ RWORK, LLWORK, RESULT, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2016
*
* .. Scalar Arguments ..
LOGICAL TSTDIF
diff --git a/lapack-netlib/TESTING/EIG/cchkgk.f b/lapack-netlib/TESTING/EIG/cchkgk.f
index 34035e184..39228d35e 100644
--- a/lapack-netlib/TESTING/EIG/cchkgk.f
+++ b/lapack-netlib/TESTING/EIG/cchkgk.f
@@ -47,17 +47,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
SUBROUTINE CCHKGK( NIN, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER NIN, NOUT
diff --git a/lapack-netlib/TESTING/EIG/cchkgl.f b/lapack-netlib/TESTING/EIG/cchkgl.f
index 73aceed27..a44254835 100644
--- a/lapack-netlib/TESTING/EIG/cchkgl.f
+++ b/lapack-netlib/TESTING/EIG/cchkgl.f
@@ -46,17 +46,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
SUBROUTINE CCHKGL( NIN, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER NIN, NOUT
diff --git a/lapack-netlib/TESTING/EIG/cchkhb.f b/lapack-netlib/TESTING/EIG/cchkhb.f
index eb6cb7da5..4c12df9f2 100644
--- a/lapack-netlib/TESTING/EIG/cchkhb.f
+++ b/lapack-netlib/TESTING/EIG/cchkhb.f
@@ -289,8 +289,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
@@ -298,10 +296,9 @@
$ THRESH, NOUNIT, A, LDA, SD, SE, U, LDU, WORK,
$ LWORK, RWORK, RESULT, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDU, LWORK, NOUNIT, NSIZES, NTYPES,
diff --git a/lapack-netlib/TESTING/EIG/cchkhb2stg.f b/lapack-netlib/TESTING/EIG/cchkhb2stg.f
index 100f133ab..1a11ac5ea 100644
--- a/lapack-netlib/TESTING/EIG/cchkhb2stg.f
+++ b/lapack-netlib/TESTING/EIG/cchkhb2stg.f
@@ -1,4 +1,4 @@
-*> \brief \b CCHKHBSTG
+*> \brief \b CCHKHB2STG
*
* =========== DOCUMENTATION ===========
*
@@ -8,7 +8,7 @@
* Definition:
* ===========
*
-* SUBROUTINE CCHKHBSTG( NSIZES, NN, NWDTHS, KK, NTYPES, DOTYPE,
+* SUBROUTINE CCHKHB2STG( NSIZES, NN, NWDTHS, KK, NTYPES, DOTYPE,
* ISEED, THRESH, NOUNIT, A, LDA, SD, SE, D1,
* D2, D3, U, LDU, WORK, LWORK, RWORK RESULT,
* INFO )
@@ -21,7 +21,8 @@
* .. Array Arguments ..
* LOGICAL DOTYPE( * )
* INTEGER ISEED( 4 ), KK( * ), NN( * )
-* REAL RESULT( * ), RWORK( * ), SD( * ), SE( * )
+* REAL RESULT( * ), RWORK( * ), SD( * ), SE( * ),
+* $ D1( * ), D2( * ), D3( * )
* COMPLEX A( LDA, * ), U( LDU, * ), WORK( * )
* ..
*
@@ -31,18 +32,18 @@
*>
*> \verbatim
*>
-*> CCHKHBSTG tests the reduction of a Hermitian band matrix to tridiagonal
+*> CCHKHB2STG tests the reduction of a Hermitian band matrix to tridiagonal
*> from, used with the Hermitian eigenvalue problem.
*>
*> CHBTRD factors a Hermitian band matrix A as U S U* , where * means
*> conjugate transpose, S is symmetric tridiagonal, and U is unitary.
*> CHBTRD can use either just the lower or just the upper triangle
-*> of A; CCHKHBSTG checks both cases.
+*> of A; CCHKHB2STG checks both cases.
*>
*> CHETRD_HB2ST factors a Hermitian band matrix A as U S U* ,
*> where * means conjugate transpose, S is symmetric tridiagonal, and U is
*> unitary. CHETRD_HB2ST can use either just the lower or just
-*> the upper triangle of A; CCHKHBSTG checks both cases.
+*> the upper triangle of A; CCHKHB2STG checks both cases.
*>
*> DSTEQR factors S as Z D1 Z'.
*> D1 is the matrix of eigenvalues computed when Z is not computed
@@ -52,7 +53,7 @@
*> D3 is the matrix of eigenvalues computed when Z is not computed
*> and from the S resulting of DSYTRD_SB2ST "L".
*>
-*> When CCHKHBSTG is called, a number of matrix "sizes" ("n's"), a number
+*> When CCHKHB2STG is called, a number of matrix "sizes" ("n's"), a number
*> of bandwidths ("k's"), and a number of matrix "types" are
*> specified. For each size ("n"), each bandwidth ("k") less than or
*> equal to "n", and each type of matrix, one matrix will be generated
@@ -126,7 +127,7 @@
*> \verbatim
*> NSIZES is INTEGER
*> The number of sizes of matrices to use. If it is zero,
-*> CCHKHBSTG does nothing. It must be at least zero.
+*> CCHKHB2STG does nothing. It must be at least zero.
*> \endverbatim
*>
*> \param[in] NN
@@ -141,7 +142,7 @@
*> \verbatim
*> NWDTHS is INTEGER
*> The number of bandwidths to use. If it is zero,
-*> CCHKHBSTG does nothing. It must be at least zero.
+*> CCHKHB2STG does nothing. It must be at least zero.
*> \endverbatim
*>
*> \param[in] KK
@@ -154,7 +155,7 @@
*> \param[in] NTYPES
*> \verbatim
*> NTYPES is INTEGER
-*> The number of elements in DOTYPE. If it is zero, CCHKHBSTG
+*> The number of elements in DOTYPE. If it is zero, CCHKHB2STG
*> does nothing. It must be at least zero. If it is MAXTYP+1
*> and NSIZES is 1, then an additional type, MAXTYP+1 is
*> defined, which is to use whatever matrix is in A. This
@@ -184,7 +185,7 @@
*> congruential sequence limited to small integers, and so
*> should produce machine independent random numbers. The
*> values of ISEED are changed on exit, and can be used in the
-*> next call to CCHKHBSTG to continue the same random number
+*> next call to CCHKHB2STG to continue the same random number
*> sequence.
*> \endverbatim
*>
@@ -235,6 +236,23 @@
*> computed by CHBTRD.
*> \endverbatim
*>
+*> \param[out] D1
+*> \verbatim
+*> D1 is REAL array, dimension (max(NN))
+*> Used store eigenvalues resulting from the tridiagonal
+*> form using the DSBTRD.
+*> \endverbatim
+*>
+*> \param[out] D2
+*> \verbatim
+*> D2 is REAL array, dimension (max(NN))
+*> \endverbatim
+*>
+*> \param[out] D3
+*> \verbatim
+*> D3 is REAL array, dimension (max(NN))
+*> \endverbatim
+*>
*> \param[out] U
*> \verbatim
*> U is COMPLEX array, dimension (LDU, max(NN))
@@ -313,8 +331,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complex_eig
*
* =====================================================================
@@ -323,10 +339,9 @@
$ D2, D3, U, LDU, WORK, LWORK, RWORK, RESULT,
$ INFO )
*
-* -- LAPACK test routine (version 3.7.1) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2017
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDU, LWORK, NOUNIT, NSIZES, NTYPES,
@@ -432,7 +447,7 @@
END IF
*
IF( INFO.NE.0 ) THEN
- CALL XERBLA( 'CCHKHBSTG', -INFO )
+ CALL XERBLA( 'CCHKHB2STG', -INFO )
RETURN
END IF
*
@@ -837,7 +852,7 @@
CALL SLASUM( 'CHB', NOUNIT, NERRS, NTESTT )
RETURN
*
- 9999 FORMAT( ' CCHKHBSTG: ', A, ' returned INFO=', I6, '.', / 9X, 'N=',
+ 9999 FORMAT( ' CCHKHB2STG: ', A, ' returned INFO=', I6, '.', / 9X, 'N=',
$ I6, ', JTYPE=', I6, ', ISEED=(', 3( I5, ',' ), I5, ')' )
9998 FORMAT( / 1X, A3,
$ ' -- Complex Hermitian Banded Tridiagonal Reduction Routines'
@@ -873,6 +888,6 @@
9993 FORMAT( ' N=', I5, ', K=', I4, ', seed=', 4( I4, ',' ), ' type ',
$ I2, ', test(', I2, ')=', G10.3 )
*
-* End of CCHKHBSTG
+* End of CCHKHB2STG
*
END
diff --git a/lapack-netlib/TESTING/EIG/cchkhs.f b/lapack-netlib/TESTING/EIG/cchkhs.f
index 446938993..65f1fc82d 100644
--- a/lapack-netlib/TESTING/EIG/cchkhs.f
+++ b/lapack-netlib/TESTING/EIG/cchkhs.f
@@ -401,8 +401,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
@@ -412,10 +410,9 @@
$ WORK, NWORK, RWORK, IWORK, SELECT, RESULT,
$ INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDU, NOUNIT, NSIZES, NTYPES, NWORK
diff --git a/lapack-netlib/TESTING/EIG/cchkst.f b/lapack-netlib/TESTING/EIG/cchkst.f
index 2d25f3fb1..95747d051 100644
--- a/lapack-netlib/TESTING/EIG/cchkst.f
+++ b/lapack-netlib/TESTING/EIG/cchkst.f
@@ -593,8 +593,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
@@ -604,10 +602,9 @@
$ LWORK, RWORK, LRWORK, IWORK, LIWORK, RESULT,
$ INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDU, LIWORK, LRWORK, LWORK, NOUNIT,
diff --git a/lapack-netlib/TESTING/EIG/cchkst2stg.f b/lapack-netlib/TESTING/EIG/cchkst2stg.f
index 8c7f962b7..e4deb8ac8 100644
--- a/lapack-netlib/TESTING/EIG/cchkst2stg.f
+++ b/lapack-netlib/TESTING/EIG/cchkst2stg.f
@@ -614,8 +614,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
@@ -625,10 +623,9 @@
$ LWORK, RWORK, LRWORK, IWORK, LIWORK, RESULT,
$ INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDU, LIWORK, LRWORK, LWORK, NOUNIT,
@@ -690,7 +687,7 @@
$ XERBLA, CCOPY, CHET21, CHETRD, CHPT21, CHPTRD,
$ CLACPY, CLASET, CLATMR, CLATMS, CPTEQR, CSTEDC,
$ CSTEMR, CSTEIN, CSTEQR, CSTT21, CSTT22, CUNGTR,
- $ CUPGTR, CHETRD_2STAGE
+ $ CUPGTR, CHETRD_2STAGE, SLASET
* ..
* .. Intrinsic Functions ..
INTRINSIC ABS, REAL, CONJG, INT, LOG, MAX, MIN, SQRT
@@ -1014,8 +1011,8 @@
* the one from above. Compare it with D1 computed
* using the 1-stage.
*
- CALL DLASET( 'Full', N, 1, ZERO, ZERO, SD, N )
- CALL DLASET( 'Full', N, 1, ZERO, ZERO, SE, N )
+ CALL SLASET( 'Full', N, 1, ZERO, ZERO, SD, N )
+ CALL SLASET( 'Full', N, 1, ZERO, ZERO, SE, N )
CALL CLACPY( 'U', N, N, A, LDA, V, LDU )
LH = MAX(1, 4*N)
LW = LWORK - LH
@@ -1048,8 +1045,8 @@
* the one from above. Compare it with D1 computed
* using the 1-stage.
*
- CALL DLASET( 'Full', N, 1, ZERO, ZERO, SD, N )
- CALL DLASET( 'Full', N, 1, ZERO, ZERO, SE, N )
+ CALL SLASET( 'Full', N, 1, ZERO, ZERO, SD, N )
+ CALL SLASET( 'Full', N, 1, ZERO, ZERO, SE, N )
CALL CLACPY( 'L', N, N, A, LDA, V, LDU )
CALL CHETRD_2STAGE( 'N', "L", N, V, LDU, SD, SE, TAU,
$ WORK, LH, WORK( LH+1 ), LW, IINFO )
@@ -1075,7 +1072,6 @@
END IF
END IF
*
-*
* Do Tests 3 and 4 which are similar to 11 and 12 but with the
* D1 computed using the standard 1-stage reduction as reference
*
@@ -1738,7 +1734,6 @@
END IF
END IF
*
-*
* Do test 28
*
TEMP2 = TWO*( TWO*N-ONE )*ULP*
@@ -1795,7 +1790,6 @@
*
* Do Tests 29 and 30
*
-*
* Call CSTEMR to compute D2, do tests.
*
* Compute D2
@@ -1835,7 +1829,6 @@
RESULT( 31 ) = TEMP2 / MAX( UNFL,
$ ULP*MAX( TEMP1, TEMP2 ) )
*
-*
* Call CSTEMR(V,V) to compute D1 and Z, do tests.
*
* Compute D1 and Z
@@ -1937,7 +1930,6 @@
RESULT( 34 ) = ZERO
END IF
*
-*
* Call CSTEMR(V,A) to compute D1 and Z, do tests.
*
* Compute D1 and Z
@@ -1994,7 +1986,7 @@
END IF
END IF
*
-* Do Test 34
+* Do Test 37
*
TEMP1 = ZERO
TEMP2 = ZERO
@@ -2013,7 +2005,6 @@
*
* End of Loop -- Check for RESULT(j) > THRESH
*
-*
* Print out tests which fail.
*
DO 290 JR = 1, NTEST
@@ -2088,6 +2079,7 @@
$ 4( I4, ',' ), ' result ', I3, ' is', 1P, E10.3 )
*
9987 FORMAT( / 'Test performed: see CCHKST2STG for details.', / )
+*
* End of CCHKST2STG
*
END
diff --git a/lapack-netlib/TESTING/EIG/cckcsd.f b/lapack-netlib/TESTING/EIG/cckcsd.f
index 9524cb30b..3c19827b2 100644
--- a/lapack-netlib/TESTING/EIG/cckcsd.f
+++ b/lapack-netlib/TESTING/EIG/cckcsd.f
@@ -175,8 +175,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
@@ -184,10 +182,9 @@
$ MMAX, X, XF, U1, U2, V1T, V2T, THETA, IWORK,
$ WORK, RWORK, NIN, NOUT, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, NIN, NM, NMATS, MMAX, NOUT
@@ -208,13 +205,14 @@
PARAMETER ( NTESTS = 15 )
INTEGER NTYPES
PARAMETER ( NTYPES = 4 )
- REAL GAPDIGIT, ORTH, PIOVER2, REALONE, REALZERO, TEN
+ REAL GAPDIGIT, ORTH, REALONE, REALZERO, TEN
PARAMETER ( GAPDIGIT = 10.0E0, ORTH = 1.0E-4,
- $ PIOVER2 = 1.57079632679489662E0,
$ REALONE = 1.0E0, REALZERO = 0.0E0,
$ TEN = 10.0E0 )
COMPLEX ONE, ZERO
PARAMETER ( ONE = (1.0E0,0.0E0), ZERO = (0.0E0,0.0E0) )
+ REAL PIOVER2
+ PARAMETER ( PIOVER2 = 1.57079632679489661923132169163975144210E0 )
* ..
* .. Local Scalars ..
LOGICAL FIRSTT
diff --git a/lapack-netlib/TESTING/EIG/cckglm.f b/lapack-netlib/TESTING/EIG/cckglm.f
index 33d55123a..badddb63b 100644
--- a/lapack-netlib/TESTING/EIG/cckglm.f
+++ b/lapack-netlib/TESTING/EIG/cckglm.f
@@ -159,8 +159,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
@@ -168,10 +166,9 @@
$ NMAX, A, AF, B, BF, X, WORK, RWORK, NIN, NOUT,
$ INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, NIN, NMATS, NMAX, NN, NOUT
diff --git a/lapack-netlib/TESTING/EIG/cckgqr.f b/lapack-netlib/TESTING/EIG/cckgqr.f
index 05b5f4a60..574d07181 100644
--- a/lapack-netlib/TESTING/EIG/cckgqr.f
+++ b/lapack-netlib/TESTING/EIG/cckgqr.f
@@ -202,8 +202,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
@@ -211,10 +209,9 @@
$ THRESH, NMAX, A, AF, AQ, AR, TAUA, B, BF, BZ,
$ BT, BWK, TAUB, WORK, RWORK, NIN, NOUT, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, NIN, NM, NMATS, NMAX, NN, NOUT, NP
diff --git a/lapack-netlib/TESTING/EIG/cckgsv.f b/lapack-netlib/TESTING/EIG/cckgsv.f
index 93e11ecaa..f3204e294 100644
--- a/lapack-netlib/TESTING/EIG/cckgsv.f
+++ b/lapack-netlib/TESTING/EIG/cckgsv.f
@@ -189,8 +189,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
@@ -198,10 +196,9 @@
$ NMAX, A, AF, B, BF, U, V, Q, ALPHA, BETA, R,
$ IWORK, WORK, RWORK, NIN, NOUT, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, NIN, NM, NMATS, NMAX, NOUT
@@ -229,7 +226,7 @@
CHARACTER*3 PATH
INTEGER I, IINFO, IM, IMAT, KLA, KLB, KUA, KUB, LDA,
$ LDB, LDQ, LDR, LDU, LDV, LWORK, M, MODEA,
- $ MODEB, N, NFAIL, NRUN, NT, P
+ $ MODEB, N, NFAIL, NRUN, NT, P, K, L
REAL ANORM, BNORM, CNDNMA, CNDNMB
* ..
* .. Local Arrays ..
@@ -260,6 +257,43 @@
LDR = NMAX
LWORK = NMAX*NMAX
*
+* Specific cases
+*
+* Test: https://github.com/Reference-LAPACK/lapack/issues/411#issue-608776973
+*
+ M = 6
+ P = 6
+ N = 6
+ A(1:M*N) = CMPLX(1.E0, 0.E0)
+ B(1:M*N) = CMPLX(0.E0, 0.E0)
+ B(1+0*M) = CMPLX(9.E19, 0.E0)
+ B(2+1*M) = CMPLX(9.E18, 0.E0)
+ B(3+2*M) = CMPLX(9.E17, 0.E0)
+ B(4+3*M) = CMPLX(9.E16, 0.E0)
+ B(5+4*M) = CMPLX(9.E15, 0.E0)
+ B(6+5*M) = CMPLX(9.E14, 0.E0)
+ CALL CGGSVD3('N','N','N', M, P, N, K, L, A, M, B, M,
+ $ ALPHA, BETA, U, 1, V, 1, Q, 1,
+ $ WORK, M*N, RWORK, IWORK, INFO)
+*
+* Print information there is a NAN in BETA
+ DO 40 I = 1, L
+ IF( BETA(I).NE.BETA(I) ) THEN
+ INFO = -I
+ EXIT
+ END IF
+ 40 CONTINUE
+ IF( INFO.LT.0 ) THEN
+ IF( NFAIL.EQ.0 .AND. FIRSTT ) THEN
+ FIRSTT = .FALSE.
+ CALL ALAHDG( NOUT, PATH )
+ END IF
+ WRITE( NOUT, FMT = 9997 ) -INFO
+ NFAIL = NFAIL + 1
+ END IF
+ NRUN = NRUN + 1
+ INFO = 0
+*
* Do for each value of M in MVAL.
*
DO 30 IM = 1, NM
@@ -335,6 +369,7 @@
9999 FORMAT( ' CLATMS in CCKGSV INFO = ', I5 )
9998 FORMAT( ' M=', I4, ' P=', I4, ', N=', I4, ', type ', I2,
$ ', test ', I2, ', ratio=', G13.6 )
+ 9997 FORMAT( ' FOUND NaN in BETA(', I4,')' )
RETURN
*
* End of CCKGSV
diff --git a/lapack-netlib/TESTING/EIG/ccklse.f b/lapack-netlib/TESTING/EIG/ccklse.f
index 13e85e117..d9cff9bcb 100644
--- a/lapack-netlib/TESTING/EIG/ccklse.f
+++ b/lapack-netlib/TESTING/EIG/ccklse.f
@@ -159,8 +159,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
@@ -168,10 +166,9 @@
$ NMAX, A, AF, B, BF, X, WORK, RWORK, NIN, NOUT,
$ INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, NIN, NMATS, NMAX, NN, NOUT
diff --git a/lapack-netlib/TESTING/EIG/ccsdts.f b/lapack-netlib/TESTING/EIG/ccsdts.f
index e2dd21812..9a2aa91e6 100644
--- a/lapack-netlib/TESTING/EIG/ccsdts.f
+++ b/lapack-netlib/TESTING/EIG/ccsdts.f
@@ -220,8 +220,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
@@ -229,10 +227,9 @@
$ LDV1T, V2T, LDV2T, THETA, IWORK, WORK, LWORK,
$ RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDX, LDU1, LDU2, LDV1T, LDV2T, LWORK, M, P, Q
@@ -248,11 +245,12 @@
* =====================================================================
*
* .. Parameters ..
- REAL PIOVER2, REALONE, REALZERO
- PARAMETER ( PIOVER2 = 1.57079632679489662E0,
- $ REALONE = 1.0E0, REALZERO = 0.0E0 )
+ REAL REALONE, REALZERO
+ PARAMETER ( REALONE = 1.0E0, REALZERO = 0.0E0 )
COMPLEX ZERO, ONE
PARAMETER ( ZERO = (0.0E0,0.0E0), ONE = (1.0E0,0.0E0) )
+ REAL PIOVER2
+ PARAMETER ( PIOVER2 = 1.57079632679489661923132169163975144210E0 )
* ..
* .. Local Scalars ..
INTEGER I, INFO, R
diff --git a/lapack-netlib/TESTING/EIG/cdrges.f b/lapack-netlib/TESTING/EIG/cdrges.f
index d6e28f284..b28b190f5 100644
--- a/lapack-netlib/TESTING/EIG/cdrges.f
+++ b/lapack-netlib/TESTING/EIG/cdrges.f
@@ -372,8 +372,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
@@ -381,10 +379,9 @@
$ NOUNIT, A, LDA, B, S, T, Q, LDQ, Z, ALPHA,
$ BETA, WORK, LWORK, RWORK, RESULT, BWORK, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* 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 cea7f8b75..dd1d9ed5c 100644
--- a/lapack-netlib/TESTING/EIG/cdrges3.f
+++ b/lapack-netlib/TESTING/EIG/cdrges3.f
@@ -372,8 +372,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date February 2015
-*
*> \ingroup complex_eig
*
* =====================================================================
@@ -382,10 +380,9 @@
$ BETA, WORK, LWORK, RWORK, RESULT, BWORK,
$ INFO )
*
-* -- LAPACK test routine (version 3.6.1) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* February 2015
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDQ, LWORK, NOUNIT, NSIZES, NTYPES
@@ -744,6 +741,14 @@
RSUB = 5
END IF
*
+* Call XLAENV to set the parameters used in CLAQZ0
+*
+ CALL XLAENV( 12, 10 )
+ CALL XLAENV( 13, 12 )
+ CALL XLAENV( 14, 13 )
+ CALL XLAENV( 15, 2 )
+ CALL XLAENV( 17, 10 )
+*
* Call CGGES3 to compute H, T, Q, Z, alpha, and beta.
*
CALL CLACPY( 'Full', N, N, A, LDA, S, LDA )
diff --git a/lapack-netlib/TESTING/EIG/cdrgev.f b/lapack-netlib/TESTING/EIG/cdrgev.f
index 2a8ce8f70..0e4d131c8 100644
--- a/lapack-netlib/TESTING/EIG/cdrgev.f
+++ b/lapack-netlib/TESTING/EIG/cdrgev.f
@@ -69,7 +69,7 @@
*>
*> VL(i) denotes the i-th column of VL.
*>
-*> (3) max over all left eigenvalue/-vector pairs (alpha/beta,r) of
+*> (3) max over all right eigenvalue/-vector pairs (alpha/beta,r) of
*>
*> | (beta A - alpha B) * VR | / ( ulp max(|beta A|, |alpha B|) )
*>
@@ -389,8 +389,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
@@ -399,10 +397,9 @@
$ ALPHA, BETA, ALPHA1, BETA1, WORK, LWORK, RWORK,
$ RESULT, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* 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 13fb366e4..fbb74cf70 100644
--- a/lapack-netlib/TESTING/EIG/cdrgev3.f
+++ b/lapack-netlib/TESTING/EIG/cdrgev3.f
@@ -389,8 +389,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date January 2015
-*
*> \ingroup complex_eig
*
* =====================================================================
@@ -399,10 +397,9 @@
$ ALPHA, BETA, ALPHA1, BETA1, WORK, LWORK,
$ RWORK, RESULT, INFO )
*
-* -- LAPACK test routine (version 3.6.1) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* January 2015
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDQ, LDQE, LWORK, NOUNIT, NSIZES,
@@ -736,6 +733,14 @@
RESULT( I ) = -ONE
110 CONTINUE
*
+* Call XLAENV to set the parameters used in CLAQZ0
+*
+ CALL XLAENV( 12, 10 )
+ CALL XLAENV( 13, 12 )
+ CALL XLAENV( 14, 13 )
+ CALL XLAENV( 15, 2 )
+ CALL XLAENV( 17, 10 )
+*
* Call CGGEV3 to compute eigenvalues and eigenvectors.
*
CALL CLACPY( ' ', N, N, A, LDA, S, LDA )
diff --git a/lapack-netlib/TESTING/EIG/cdrgsx.f b/lapack-netlib/TESTING/EIG/cdrgsx.f
index 746946d07..c5baeef5e 100644
--- a/lapack-netlib/TESTING/EIG/cdrgsx.f
+++ b/lapack-netlib/TESTING/EIG/cdrgsx.f
@@ -340,8 +340,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
@@ -349,10 +347,9 @@
$ AI, BI, Z, Q, ALPHA, BETA, C, LDC, S, WORK,
$ LWORK, RWORK, IWORK, LIWORK, BWORK, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* 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 bed8e472f..830a39d86 100644
--- a/lapack-netlib/TESTING/EIG/cdrgvx.f
+++ b/lapack-netlib/TESTING/EIG/cdrgvx.f
@@ -288,8 +288,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
@@ -298,10 +296,9 @@
$ S, STRU, DIF, DIFTRU, WORK, LWORK, RWORK,
$ IWORK, LIWORK, RESULT, BWORK, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* 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 7b7b01b47..97ee21728 100644
--- a/lapack-netlib/TESTING/EIG/cdrvbd.f
+++ b/lapack-netlib/TESTING/EIG/cdrvbd.f
@@ -391,8 +391,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
@@ -401,10 +399,9 @@
$ SSAV, E, WORK, LWORK, RWORK, IWORK, NOUNIT,
$ INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2016
*
IMPLICIT NONE
*
diff --git a/lapack-netlib/TESTING/EIG/cdrves.f b/lapack-netlib/TESTING/EIG/cdrves.f
index 3e4a7ff3f..81a44a583 100644
--- a/lapack-netlib/TESTING/EIG/cdrves.f
+++ b/lapack-netlib/TESTING/EIG/cdrves.f
@@ -369,8 +369,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
@@ -378,10 +376,9 @@
$ NOUNIT, A, LDA, H, HT, W, WT, VS, LDVS, RESULT,
$ WORK, NWORK, RWORK, IWORK, BWORK, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDVS, NOUNIT, NSIZES, NTYPES, NWORK
diff --git a/lapack-netlib/TESTING/EIG/cdrvev.f b/lapack-netlib/TESTING/EIG/cdrvev.f
index d1e289bf4..6a834b6d9 100644
--- a/lapack-netlib/TESTING/EIG/cdrvev.f
+++ b/lapack-netlib/TESTING/EIG/cdrvev.f
@@ -381,8 +381,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
@@ -391,10 +389,9 @@
$ LRE, LDLRE, RESULT, WORK, NWORK, RWORK, IWORK,
$ INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDLRE, LDVL, LDVR, NOUNIT, NSIZES,
diff --git a/lapack-netlib/TESTING/EIG/cdrvsg.f b/lapack-netlib/TESTING/EIG/cdrvsg.f
index 7e34ad0db..a93933a27 100644
--- a/lapack-netlib/TESTING/EIG/cdrvsg.f
+++ b/lapack-netlib/TESTING/EIG/cdrvsg.f
@@ -360,8 +360,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
@@ -370,10 +368,9 @@
$ BP, WORK, NWORK, RWORK, LRWORK, IWORK, LIWORK,
$ RESULT, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDB, LDZ, LIWORK, LRWORK, NOUNIT,
diff --git a/lapack-netlib/TESTING/EIG/cdrvsg2stg.f b/lapack-netlib/TESTING/EIG/cdrvsg2stg.f
index 3b7156b42..8b8553773 100644
--- a/lapack-netlib/TESTING/EIG/cdrvsg2stg.f
+++ b/lapack-netlib/TESTING/EIG/cdrvsg2stg.f
@@ -366,8 +366,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
@@ -378,10 +376,9 @@
*
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDB, LDZ, LIWORK, LRWORK, NOUNIT,
diff --git a/lapack-netlib/TESTING/EIG/cdrvst.f b/lapack-netlib/TESTING/EIG/cdrvst.f
index dbf1e011a..9c129c0e8 100644
--- a/lapack-netlib/TESTING/EIG/cdrvst.f
+++ b/lapack-netlib/TESTING/EIG/cdrvst.f
@@ -328,8 +328,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
@@ -338,10 +336,9 @@
$ LDU, V, TAU, Z, WORK, LWORK, RWORK, LRWORK,
$ IWORK, LIWORK, RESULT, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDU, LIWORK, LRWORK, LWORK, NOUNIT,
diff --git a/lapack-netlib/TESTING/EIG/cdrvst2stg.f b/lapack-netlib/TESTING/EIG/cdrvst2stg.f
index 095bd7885..954c7fb87 100644
--- a/lapack-netlib/TESTING/EIG/cdrvst2stg.f
+++ b/lapack-netlib/TESTING/EIG/cdrvst2stg.f
@@ -328,8 +328,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complex_eig
*
* =====================================================================
@@ -338,10 +336,9 @@
$ LDU, V, TAU, Z, WORK, LWORK, RWORK, LRWORK,
$ IWORK, LIWORK, RESULT, INFO )
*
-* -- LAPACK test routine (version 3.7.1) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2017
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDU, LIWORK, LRWORK, LWORK, NOUNIT,
diff --git a/lapack-netlib/TESTING/EIG/cdrvsx.f b/lapack-netlib/TESTING/EIG/cdrvsx.f
index 9def66306..0265ff271 100644
--- a/lapack-netlib/TESTING/EIG/cdrvsx.f
+++ b/lapack-netlib/TESTING/EIG/cdrvsx.f
@@ -425,8 +425,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
@@ -435,10 +433,9 @@
$ LDVS, VS1, RESULT, WORK, LWORK, RWORK, BWORK,
$ INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDVS, LWORK, NIUNIT, NOUNIT, NSIZES,
diff --git a/lapack-netlib/TESTING/EIG/cdrvvx.f b/lapack-netlib/TESTING/EIG/cdrvvx.f
index 37a29ec4e..f1f5a0bac 100644
--- a/lapack-netlib/TESTING/EIG/cdrvvx.f
+++ b/lapack-netlib/TESTING/EIG/cdrvvx.f
@@ -485,8 +485,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
@@ -496,10 +494,9 @@
$ RCONDE, RCNDE1, RCDEIN, SCALE, SCALE1, RESULT,
$ WORK, NWORK, RWORK, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDLRE, LDVL, LDVR, NIUNIT, NOUNIT,
diff --git a/lapack-netlib/TESTING/EIG/cerrbd.f b/lapack-netlib/TESTING/EIG/cerrbd.f
index 6cb7f6552..76503ae09 100644
--- a/lapack-netlib/TESTING/EIG/cerrbd.f
+++ b/lapack-netlib/TESTING/EIG/cerrbd.f
@@ -47,17 +47,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
SUBROUTINE CERRBD( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/EIG/cerrec.f b/lapack-netlib/TESTING/EIG/cerrec.f
index 13176fecf..650ab2b6e 100644
--- a/lapack-netlib/TESTING/EIG/cerrec.f
+++ b/lapack-netlib/TESTING/EIG/cerrec.f
@@ -49,17 +49,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
SUBROUTINE CERREC( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/EIG/cerred.f b/lapack-netlib/TESTING/EIG/cerred.f
index a0ceff76e..98d157080 100644
--- a/lapack-netlib/TESTING/EIG/cerred.f
+++ b/lapack-netlib/TESTING/EIG/cerred.f
@@ -63,17 +63,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
SUBROUTINE CERRED( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/EIG/cerrgg.f b/lapack-netlib/TESTING/EIG/cerrgg.f
index 5a53d2343..3839b5f2c 100644
--- a/lapack-netlib/TESTING/EIG/cerrgg.f
+++ b/lapack-netlib/TESTING/EIG/cerrgg.f
@@ -50,17 +50,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
SUBROUTINE CERRGG( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
@@ -100,7 +97,7 @@
$ CGGLSE, CGGQRF, CGGRQF, CHGEQZ,
$ CHKXER, CTGEVC, CTGEXC, CTGSEN, CTGSJA, CTGSNA,
$ CTGSYL, CUNCSD, CGGES3, CGGEV3, CGGHD3,
- $ CGGSVD3, CGGSVP3
+ $ CGGSVD3, CGGSVP3, XLAENV
* ..
* .. Scalars in Common ..
LOGICAL LERR, OK
@@ -138,6 +135,14 @@
NT = 0
LWORK = 1
*
+* Call XLAENV to set the parameters used in CLAQZ0
+*
+ CALL XLAENV( 12, 10 )
+ CALL XLAENV( 13, 12 )
+ CALL XLAENV( 14, 13 )
+ CALL XLAENV( 15, 2 )
+ CALL XLAENV( 17, 10 )
+*
* Test error exits for the GG path.
*
IF( LSAMEN( 2, C2, 'GG' ) ) THEN
diff --git a/lapack-netlib/TESTING/EIG/cerrhs.f b/lapack-netlib/TESTING/EIG/cerrhs.f
index ccd47a3bf..0568a6d78 100644
--- a/lapack-netlib/TESTING/EIG/cerrhs.f
+++ b/lapack-netlib/TESTING/EIG/cerrhs.f
@@ -48,17 +48,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
SUBROUTINE CERRHS( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/EIG/cerrst.f b/lapack-netlib/TESTING/EIG/cerrst.f
index 4aa5aebe3..eef34b44b 100644
--- a/lapack-netlib/TESTING/EIG/cerrst.f
+++ b/lapack-netlib/TESTING/EIG/cerrst.f
@@ -54,17 +54,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complex_eig
*
* =====================================================================
SUBROUTINE CERRST( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.1) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2017
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/EIG/cget02.f b/lapack-netlib/TESTING/EIG/cget02.f
index 1b7f6b384..ac5fedaea 100644
--- a/lapack-netlib/TESTING/EIG/cget02.f
+++ b/lapack-netlib/TESTING/EIG/cget02.f
@@ -28,9 +28,10 @@
*> \verbatim
*>
*> CGET02 computes the residual for a solution of a system of linear
-*> equations A*x = b or A'*x = b:
-*> RESID = norm(B - A*X) / ( norm(A) * norm(X) * EPS ),
-*> where EPS is the machine epsilon.
+*> equations op(A)*X = B:
+*> RESID = norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ),
+*> where op(A) = A, A**T, or A**H, depending on TRANS, and EPS is the
+*> machine epsilon.
*> \endverbatim
*
* Arguments:
@@ -40,9 +41,9 @@
*> \verbatim
*> TRANS is CHARACTER*1
*> Specifies the form of the system of equations:
-*> = 'N': A *x = b
-*> = 'T': A^T*x = b, where A^T is the transpose of A
-*> = 'C': A^H*x = b, where A^H is the conjugate transpose of A
+*> = 'N': A * X = B (No transpose)
+*> = 'T': A**T * X = B (Transpose)
+*> = 'C': A**H * X = B (Conjugate transpose)
*> \endverbatim
*>
*> \param[in] M
@@ -114,7 +115,7 @@
*> \verbatim
*> RESID is REAL
*> The maximum over the number of right hand sides of
-*> norm(B - A*X) / ( norm(A) * norm(X) * EPS ).
+*> norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ).
*> \endverbatim
*
* Authors:
@@ -125,18 +126,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complex_eig
*
* =====================================================================
SUBROUTINE CGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB,
$ RWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.1) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2017
*
* .. Scalar Arguments ..
CHARACTER TRANS
@@ -191,19 +189,23 @@
* Exit with RESID = 1/EPS if ANORM = 0.
*
EPS = SLAMCH( 'Epsilon' )
+ IF( LSAME( TRANS, 'N' ) ) THEN
ANORM = CLANGE( '1', M, N, A, LDA, RWORK )
+ ELSE
+ ANORM = CLANGE( 'I', M, N, A, LDA, RWORK )
+ END IF
IF( ANORM.LE.ZERO ) THEN
RESID = ONE / EPS
RETURN
END IF
*
-* Compute B - A*X (or B - A'*X ) and store in B.
+* Compute B - op(A)*X and store in B.
*
CALL CGEMM( TRANS, 'No transpose', N1, NRHS, N2, -CONE, A, LDA, X,
$ LDX, CONE, B, LDB )
*
* Compute the maximum over the number of right hand sides of
-* norm(B - A*X) / ( norm(A) * norm(X) * EPS ) .
+* norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ) .
*
RESID = ZERO
DO 10 J = 1, NRHS
diff --git a/lapack-netlib/TESTING/EIG/cget10.f b/lapack-netlib/TESTING/EIG/cget10.f
index 0b8186454..9e6b34ba8 100644
--- a/lapack-netlib/TESTING/EIG/cget10.f
+++ b/lapack-netlib/TESTING/EIG/cget10.f
@@ -92,17 +92,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
SUBROUTINE CGET10( M, N, A, LDA, B, LDB, WORK, RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LDB, M, N
diff --git a/lapack-netlib/TESTING/EIG/cget22.f b/lapack-netlib/TESTING/EIG/cget22.f
index 91aec3a3f..2f0896741 100644
--- a/lapack-netlib/TESTING/EIG/cget22.f
+++ b/lapack-netlib/TESTING/EIG/cget22.f
@@ -125,6 +125,7 @@
*> RESULT is REAL array, dimension (2)
*> RESULT(1) = | A E - E W | / ( |A| |E| ulp )
*> RESULT(2) = max | m-norm(E(j)) - 1 | / ( n ulp )
+*> j
*> \endverbatim
*
* Authors:
@@ -135,18 +136,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
SUBROUTINE CGET22( TRANSA, TRANSE, TRANSW, N, A, LDA, E, LDE, W,
$ WORK, RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER TRANSA, TRANSE, TRANSW
@@ -299,7 +297,7 @@
RESULT( 1 ) = ( ERRNRM / ANORM ) / ULP
ELSE
IF( ANORM.LT.ONE ) THEN
- RESULT( 1 ) = ( MIN( ERRNRM, ANORM ) / ANORM ) / ULP
+ RESULT( 1 ) = ONE / ULP
ELSE
RESULT( 1 ) = MIN( ERRNRM / ANORM, ONE ) / ULP
END IF
diff --git a/lapack-netlib/TESTING/EIG/cget23.f b/lapack-netlib/TESTING/EIG/cget23.f
index 1a2d4fb48..b4a8c4631 100644
--- a/lapack-netlib/TESTING/EIG/cget23.f
+++ b/lapack-netlib/TESTING/EIG/cget23.f
@@ -357,8 +357,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
@@ -368,10 +366,9 @@
$ RCONDE, RCNDE1, RCDEIN, SCALE, SCALE1, RESULT,
$ WORK, LWORK, RWORK, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL COMP
diff --git a/lapack-netlib/TESTING/EIG/cget24.f b/lapack-netlib/TESTING/EIG/cget24.f
index e97003a2f..4674b6226 100644
--- a/lapack-netlib/TESTING/EIG/cget24.f
+++ b/lapack-netlib/TESTING/EIG/cget24.f
@@ -325,8 +325,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
@@ -335,10 +333,9 @@
$ RCDVIN, NSLCT, ISLCT, ISRT, RESULT, WORK,
$ LWORK, RWORK, BWORK, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL COMP
diff --git a/lapack-netlib/TESTING/EIG/cget35.f b/lapack-netlib/TESTING/EIG/cget35.f
index 241f3ea30..4f03ab9ee 100644
--- a/lapack-netlib/TESTING/EIG/cget35.f
+++ b/lapack-netlib/TESTING/EIG/cget35.f
@@ -77,17 +77,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
SUBROUTINE CGET35( RMAX, LMAX, NINFO, KNT, NIN )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER KNT, LMAX, NIN, NINFO
diff --git a/lapack-netlib/TESTING/EIG/cget36.f b/lapack-netlib/TESTING/EIG/cget36.f
index 4b46f3bc3..7f943f256 100644
--- a/lapack-netlib/TESTING/EIG/cget36.f
+++ b/lapack-netlib/TESTING/EIG/cget36.f
@@ -78,17 +78,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
SUBROUTINE CGET36( RMAX, LMAX, NINFO, KNT, NIN )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER KNT, LMAX, NIN, NINFO
diff --git a/lapack-netlib/TESTING/EIG/cget37.f b/lapack-netlib/TESTING/EIG/cget37.f
index 536e4ca3e..c2a6589f3 100644
--- a/lapack-netlib/TESTING/EIG/cget37.f
+++ b/lapack-netlib/TESTING/EIG/cget37.f
@@ -83,17 +83,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
SUBROUTINE CGET37( RMAX, LMAX, NINFO, KNT, NIN )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER KNT, NIN
diff --git a/lapack-netlib/TESTING/EIG/cget38.f b/lapack-netlib/TESTING/EIG/cget38.f
index bbf920934..9925f3fd7 100644
--- a/lapack-netlib/TESTING/EIG/cget38.f
+++ b/lapack-netlib/TESTING/EIG/cget38.f
@@ -84,17 +84,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
SUBROUTINE CGET38( RMAX, LMAX, NINFO, KNT, NIN )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER KNT, NIN
diff --git a/lapack-netlib/TESTING/EIG/cget51.f b/lapack-netlib/TESTING/EIG/cget51.f
index ec58086d4..3781c6a88 100644
--- a/lapack-netlib/TESTING/EIG/cget51.f
+++ b/lapack-netlib/TESTING/EIG/cget51.f
@@ -147,18 +147,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
SUBROUTINE CGET51( ITYPE, N, A, LDA, B, LDB, U, LDU, V, LDV, WORK,
$ RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER ITYPE, LDA, LDB, LDU, LDV, N
diff --git a/lapack-netlib/TESTING/EIG/cget52.f b/lapack-netlib/TESTING/EIG/cget52.f
index d0debc535..30bf6ba39 100644
--- a/lapack-netlib/TESTING/EIG/cget52.f
+++ b/lapack-netlib/TESTING/EIG/cget52.f
@@ -153,18 +153,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
SUBROUTINE CGET52( LEFT, N, A, LDA, B, LDB, E, LDE, ALPHA, BETA,
$ WORK, RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL LEFT
@@ -237,7 +234,7 @@
BETMAX = SAFMAX / MAX( ONE, ANORM )
*
* Compute error matrix.
-* Column i = ( b(i) A - a(i) B ) E(i) / max( |a(i) B| |b(i) A| )
+* Column i = ( b(i) A - a(i) B ) E(i) / max( |a(i) B|, |b(i) A| )
*
DO 10 JVEC = 1, N
ALPHAI = ALPHA( JVEC )
@@ -277,7 +274,7 @@
DO 20 J = 1, N
TEMP1 = MAX( TEMP1, ABS1( E( J, JVEC ) ) )
20 CONTINUE
- ENRMER = MAX( ENRMER, TEMP1-ONE )
+ ENRMER = MAX( ENRMER, ABS( TEMP1-ONE ) )
30 CONTINUE
*
* Compute RESULT(2) : the normalization error in E.
diff --git a/lapack-netlib/TESTING/EIG/cget54.f b/lapack-netlib/TESTING/EIG/cget54.f
index 955a23400..ce8376fc6 100644
--- a/lapack-netlib/TESTING/EIG/cget54.f
+++ b/lapack-netlib/TESTING/EIG/cget54.f
@@ -148,18 +148,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
SUBROUTINE CGET54( N, A, LDA, B, LDB, S, LDS, T, LDT, U, LDU, V,
$ LDV, WORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LDB, LDS, LDT, LDU, LDV, N
diff --git a/lapack-netlib/TESTING/EIG/cglmts.f b/lapack-netlib/TESTING/EIG/cglmts.f
index 101c07601..ecf8699f2 100644
--- a/lapack-netlib/TESTING/EIG/cglmts.f
+++ b/lapack-netlib/TESTING/EIG/cglmts.f
@@ -142,18 +142,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
SUBROUTINE CGLMTS( N, M, P, A, AF, LDA, B, BF, LDB, D, DF,
$ X, U, WORK, LWORK, RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LDB, LWORK, M, P, N
diff --git a/lapack-netlib/TESTING/EIG/cgqrts.f b/lapack-netlib/TESTING/EIG/cgqrts.f
index a1d8b807c..6a5bcc2d4 100644
--- a/lapack-netlib/TESTING/EIG/cgqrts.f
+++ b/lapack-netlib/TESTING/EIG/cgqrts.f
@@ -168,18 +168,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
SUBROUTINE CGQRTS( N, M, P, A, AF, Q, R, LDA, TAUA, B, BF, Z, T,
$ BWK, LDB, TAUB, WORK, LWORK, RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LDB, LWORK, M, P, N
diff --git a/lapack-netlib/TESTING/EIG/cgrqts.f b/lapack-netlib/TESTING/EIG/cgrqts.f
index e024c78a0..103820ec1 100644
--- a/lapack-netlib/TESTING/EIG/cgrqts.f
+++ b/lapack-netlib/TESTING/EIG/cgrqts.f
@@ -168,18 +168,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
SUBROUTINE CGRQTS( M, P, N, A, AF, Q, R, LDA, TAUA, B, BF, Z, T,
$ BWK, LDB, TAUB, WORK, LWORK, RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LDB, LWORK, M, P, N
diff --git a/lapack-netlib/TESTING/EIG/cgsvts3.f b/lapack-netlib/TESTING/EIG/cgsvts3.f
index 7e6e4352a..699f14b1c 100644
--- a/lapack-netlib/TESTING/EIG/cgsvts3.f
+++ b/lapack-netlib/TESTING/EIG/cgsvts3.f
@@ -200,8 +200,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date August 2015
-*
*> \ingroup complex_eig
*
* =====================================================================
@@ -209,10 +207,9 @@
$ LDV, Q, LDQ, ALPHA, BETA, R, LDR, IWORK, WORK,
$ LWORK, RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* August 2015
*
* .. Scalar Arguments ..
INTEGER LDA, LDB, LDQ, LDR, LDU, LDV, LWORK, M, N, P
diff --git a/lapack-netlib/TESTING/EIG/chbt21.f b/lapack-netlib/TESTING/EIG/chbt21.f
index 76eb7d115..b41936aa5 100644
--- a/lapack-netlib/TESTING/EIG/chbt21.f
+++ b/lapack-netlib/TESTING/EIG/chbt21.f
@@ -144,18 +144,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
SUBROUTINE CHBT21( UPLO, N, KA, KS, A, LDA, D, E, U, LDU, WORK,
$ RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/EIG/chet21.f b/lapack-netlib/TESTING/EIG/chet21.f
index d5c4f1348..a274681c9 100644
--- a/lapack-netlib/TESTING/EIG/chet21.f
+++ b/lapack-netlib/TESTING/EIG/chet21.f
@@ -206,18 +206,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
SUBROUTINE CHET21( ITYPE, UPLO, N, KBAND, A, LDA, D, E, U, LDU, V,
$ LDV, TAU, WORK, RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/EIG/chet22.f b/lapack-netlib/TESTING/EIG/chet22.f
index 354387f2a..27f22e9a4 100644
--- a/lapack-netlib/TESTING/EIG/chet22.f
+++ b/lapack-netlib/TESTING/EIG/chet22.f
@@ -153,18 +153,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
SUBROUTINE CHET22( ITYPE, UPLO, N, M, KBAND, A, LDA, D, E, U, LDU,
$ V, LDV, TAU, WORK, RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/EIG/chkxer.f b/lapack-netlib/TESTING/EIG/chkxer.f
index 26d6e4688..fd00bb65a 100644
--- a/lapack-netlib/TESTING/EIG/chkxer.f
+++ b/lapack-netlib/TESTING/EIG/chkxer.f
@@ -34,17 +34,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
SUBROUTINE CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL LERR, OK
@@ -66,6 +63,6 @@
9999 FORMAT( ' *** Illegal value of parameter number ', I2,
$ ' not detected by ', A6, ' ***' )
*
-* End of CHKXER.
+* End of CHKXER
*
END
diff --git a/lapack-netlib/TESTING/EIG/chpt21.f b/lapack-netlib/TESTING/EIG/chpt21.f
index f20921bd9..bc342ca35 100644
--- a/lapack-netlib/TESTING/EIG/chpt21.f
+++ b/lapack-netlib/TESTING/EIG/chpt21.f
@@ -220,18 +220,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
SUBROUTINE CHPT21( ITYPE, UPLO, N, KBAND, AP, D, E, U, LDU, VP,
$ TAU, WORK, RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/EIG/chst01.f b/lapack-netlib/TESTING/EIG/chst01.f
index f0c428c88..286daee2c 100644
--- a/lapack-netlib/TESTING/EIG/chst01.f
+++ b/lapack-netlib/TESTING/EIG/chst01.f
@@ -132,18 +132,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
SUBROUTINE CHST01( N, ILO, IHI, A, LDA, H, LDH, Q, LDQ, WORK,
$ LWORK, RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER IHI, ILO, LDA, LDH, LDQ, LWORK, N
diff --git a/lapack-netlib/TESTING/EIG/clarfy.f b/lapack-netlib/TESTING/EIG/clarfy.f
index a5743858c..80329cab4 100644
--- a/lapack-netlib/TESTING/EIG/clarfy.f
+++ b/lapack-netlib/TESTING/EIG/clarfy.f
@@ -101,17 +101,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
SUBROUTINE CLARFY( UPLO, N, V, INCV, TAU, C, LDC, WORK )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/EIG/clarhs.f b/lapack-netlib/TESTING/EIG/clarhs.f
index 1143be85d..2d70abe21 100644
--- a/lapack-netlib/TESTING/EIG/clarhs.f
+++ b/lapack-netlib/TESTING/EIG/clarhs.f
@@ -30,8 +30,7 @@
*> CLARHS chooses a set of NRHS random solution vectors and sets
*> up the right hand sides for the linear system
*> op( A ) * X = B,
-*> where op( A ) may be A, A**T (transpose of A), or A**H (conjugate
-*> transpose of A).
+*> where op(A) = A, A**T or A**H, depending on TRANS.
*> \endverbatim
*
* Arguments:
@@ -85,9 +84,9 @@
*> TRANS is CHARACTER*1
*> Used only if A is nonsymmetric; specifies the operation
*> applied to the matrix A.
-*> = 'N': B := A * X
-*> = 'T': B := A**T * X
-*> = 'C': B := A**H * X
+*> = 'N': B := A * X (No transpose)
+*> = 'T': B := A**T * X (Transpose)
+*> = 'C': B := A**H * X (Conjugate transpose)
*> \endverbatim
*>
*> \param[in] M
@@ -201,18 +200,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complex_eig
*
* =====================================================================
SUBROUTINE CLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS,
$ A, LDA, X, LDX, B, LDB, ISEED, INFO )
*
-* -- LAPACK test routine (version 3.7.1) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2017
*
* .. Scalar Arguments ..
CHARACTER TRANS, UPLO, XTYPE
diff --git a/lapack-netlib/TESTING/EIG/clatm4.f b/lapack-netlib/TESTING/EIG/clatm4.f
index 833234f99..12d0c6318 100644
--- a/lapack-netlib/TESTING/EIG/clatm4.f
+++ b/lapack-netlib/TESTING/EIG/clatm4.f
@@ -163,18 +163,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
SUBROUTINE CLATM4( ITYPE, N, NZ1, NZ2, RSIGN, AMAGN, RCOND,
$ TRIANG, IDIST, ISEED, A, LDA )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL RSIGN
diff --git a/lapack-netlib/TESTING/EIG/clctes.f b/lapack-netlib/TESTING/EIG/clctes.f
index 6a7e71c4d..9bf95cbc4 100644
--- a/lapack-netlib/TESTING/EIG/clctes.f
+++ b/lapack-netlib/TESTING/EIG/clctes.f
@@ -51,17 +51,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
LOGICAL FUNCTION CLCTES( Z, D )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2016
*
* .. Scalar Arguments ..
COMPLEX D, Z
diff --git a/lapack-netlib/TESTING/EIG/clctsx.f b/lapack-netlib/TESTING/EIG/clctsx.f
index fbf19e40b..39c5cf321 100644
--- a/lapack-netlib/TESTING/EIG/clctsx.f
+++ b/lapack-netlib/TESTING/EIG/clctsx.f
@@ -50,17 +50,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
LOGICAL FUNCTION CLCTSX( ALPHA, BETA )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
COMPLEX ALPHA, BETA
diff --git a/lapack-netlib/TESTING/EIG/clsets.f b/lapack-netlib/TESTING/EIG/clsets.f
index 13e037df6..2124a9e09 100644
--- a/lapack-netlib/TESTING/EIG/clsets.f
+++ b/lapack-netlib/TESTING/EIG/clsets.f
@@ -147,18 +147,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
SUBROUTINE CLSETS( M, P, N, A, AF, LDA, B, BF, LDB, C, CF,
$ D, DF, X, WORK, LWORK, RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LDB, LWORK, M, P, N
diff --git a/lapack-netlib/TESTING/EIG/csbmv.f b/lapack-netlib/TESTING/EIG/csbmv.f
index dc1b2330d..567ea4517 100644
--- a/lapack-netlib/TESTING/EIG/csbmv.f
+++ b/lapack-netlib/TESTING/EIG/csbmv.f
@@ -144,18 +144,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
SUBROUTINE CSBMV( UPLO, N, K, ALPHA, A, LDA, X, INCX, BETA, Y,
$ INCY )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/EIG/csgt01.f b/lapack-netlib/TESTING/EIG/csgt01.f
index e6d6bb3e2..828669d48 100644
--- a/lapack-netlib/TESTING/EIG/csgt01.f
+++ b/lapack-netlib/TESTING/EIG/csgt01.f
@@ -144,18 +144,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
SUBROUTINE CSGT01( ITYPE, UPLO, N, M, A, LDA, B, LDB, Z, LDZ, D,
$ WORK, RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/EIG/cslect.f b/lapack-netlib/TESTING/EIG/cslect.f
index 1092b630a..be324ec3c 100644
--- a/lapack-netlib/TESTING/EIG/cslect.f
+++ b/lapack-netlib/TESTING/EIG/cslect.f
@@ -49,17 +49,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
LOGICAL FUNCTION CSLECT( Z )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2016
*
* .. Scalar Arguments ..
COMPLEX Z
diff --git a/lapack-netlib/TESTING/EIG/cstt21.f b/lapack-netlib/TESTING/EIG/cstt21.f
index 3fdfa1675..58f426961 100644
--- a/lapack-netlib/TESTING/EIG/cstt21.f
+++ b/lapack-netlib/TESTING/EIG/cstt21.f
@@ -125,18 +125,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
SUBROUTINE CSTT21( N, KBAND, AD, AE, SD, SE, U, LDU, WORK, RWORK,
$ RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER KBAND, LDU, N
diff --git a/lapack-netlib/TESTING/EIG/cstt22.f b/lapack-netlib/TESTING/EIG/cstt22.f
index 2db3736e8..bd09f6302 100644
--- a/lapack-netlib/TESTING/EIG/cstt22.f
+++ b/lapack-netlib/TESTING/EIG/cstt22.f
@@ -137,18 +137,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
SUBROUTINE CSTT22( N, M, KBAND, AD, AE, SD, SE, U, LDU, WORK,
$ LDWORK, RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER KBAND, LDU, LDWORK, M, N
diff --git a/lapack-netlib/TESTING/EIG/cunt01.f b/lapack-netlib/TESTING/EIG/cunt01.f
index 20c568218..d8928954f 100644
--- a/lapack-netlib/TESTING/EIG/cunt01.f
+++ b/lapack-netlib/TESTING/EIG/cunt01.f
@@ -118,18 +118,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
SUBROUTINE CUNT01( ROWCOL, M, N, U, LDU, WORK, LWORK, RWORK,
$ RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER ROWCOL
diff --git a/lapack-netlib/TESTING/EIG/cunt03.f b/lapack-netlib/TESTING/EIG/cunt03.f
index 8e1fd207f..56165f954 100644
--- a/lapack-netlib/TESTING/EIG/cunt03.f
+++ b/lapack-netlib/TESTING/EIG/cunt03.f
@@ -154,18 +154,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_eig
*
* =====================================================================
SUBROUTINE CUNT03( RC, MU, MV, N, K, U, LDU, V, LDV, WORK, LWORK,
$ RWORK, RESULT, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*( * ) RC
diff --git a/lapack-netlib/TESTING/EIG/dbdt01.f b/lapack-netlib/TESTING/EIG/dbdt01.f
index 4b2219e5d..69e0b5ffc 100644
--- a/lapack-netlib/TESTING/EIG/dbdt01.f
+++ b/lapack-netlib/TESTING/EIG/dbdt01.f
@@ -27,13 +27,13 @@
*> \verbatim
*>
*> DBDT01 reconstructs a general matrix A from its bidiagonal form
-*> A = Q * B * P'
-*> where Q (m by min(m,n)) and P' (min(m,n) by n) are orthogonal
+*> A = Q * B * P**T
+*> where Q (m by min(m,n)) and P**T (min(m,n) by n) are orthogonal
*> matrices and B is bidiagonal.
*>
*> The test ratio to test the reduction is
-*> RESID = norm( A - Q * B * PT ) / ( n * norm(A) * EPS )
-*> where PT = P' and EPS is the machine precision.
+*> RESID = norm(A - Q * B * P**T) / ( n * norm(A) * EPS )
+*> where EPS is the machine precision.
*> \endverbatim
*
* Arguments:
@@ -48,7 +48,7 @@
*> \param[in] N
*> \verbatim
*> N is INTEGER
-*> The number of columns of the matrices A and P'.
+*> The number of columns of the matrices A and P**T.
*> \endverbatim
*>
*> \param[in] KD
@@ -77,7 +77,7 @@
*> \verbatim
*> Q is DOUBLE PRECISION array, dimension (LDQ,N)
*> The m by min(m,n) orthogonal matrix Q in the reduction
-*> A = Q * B * P'.
+*> A = Q * B * P**T.
*> \endverbatim
*>
*> \param[in] LDQ
@@ -102,8 +102,8 @@
*> \param[in] PT
*> \verbatim
*> PT is DOUBLE PRECISION array, dimension (LDPT,N)
-*> The min(m,n) by n orthogonal matrix P' in the reduction
-*> A = Q * B * P'.
+*> The min(m,n) by n orthogonal matrix P**T in the reduction
+*> A = Q * B * P**T.
*> \endverbatim
*>
*> \param[in] LDPT
@@ -121,7 +121,8 @@
*> \param[out] RESID
*> \verbatim
*> RESID is DOUBLE PRECISION
-*> The test ratio: norm(A - Q * B * P') / ( n * norm(A) * EPS )
+*> The test ratio:
+*> norm(A - Q * B * P**T) / ( n * norm(A) * EPS )
*> \endverbatim
*
* Authors:
@@ -132,18 +133,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
SUBROUTINE DBDT01( M, N, KD, A, LDA, Q, LDQ, D, E, PT, LDPT, WORK,
$ RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER KD, LDA, LDPT, LDQ, M, N
@@ -183,7 +181,7 @@
RETURN
END IF
*
-* Compute A - Q * B * P' one column at a time.
+* Compute A - Q * B * P**T one column at a time.
*
RESID = ZERO
IF( KD.NE.0 ) THEN
@@ -261,7 +259,7 @@
END IF
END IF
*
-* Compute norm(A - Q * B * P') / ( n * norm(A) * EPS )
+* Compute norm(A - Q * B * P**T) / ( n * norm(A) * EPS )
*
ANORM = DLANGE( '1', M, N, A, LDA, WORK )
EPS = DLAMCH( 'Precision' )
diff --git a/lapack-netlib/TESTING/EIG/dbdt02.f b/lapack-netlib/TESTING/EIG/dbdt02.f
index 2f7c8c1f9..76e3ff713 100644
--- a/lapack-netlib/TESTING/EIG/dbdt02.f
+++ b/lapack-netlib/TESTING/EIG/dbdt02.f
@@ -25,7 +25,8 @@
*>
*> \verbatim
*>
-*> DBDT02 tests the change of basis C = U' * B by computing the residual
+*> DBDT02 tests the change of basis C = U**H * B by computing the
+*> residual
*>
*> RESID = norm( B - U * C ) / ( max(m,n) * norm(B) * EPS ),
*>
@@ -64,7 +65,7 @@
*> \param[in] C
*> \verbatim
*> C is DOUBLE PRECISION array, dimension (LDC,N)
-*> The m by n matrix C, assumed to contain U' * B.
+*> The m by n matrix C, assumed to contain U**H * B.
*> \endverbatim
*>
*> \param[in] LDC
@@ -104,17 +105,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
SUBROUTINE DBDT02( M, N, B, LDB, C, LDC, U, LDU, WORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDB, LDC, LDU, M, N
diff --git a/lapack-netlib/TESTING/EIG/dbdt03.f b/lapack-netlib/TESTING/EIG/dbdt03.f
index 80c047331..8af6162c9 100644
--- a/lapack-netlib/TESTING/EIG/dbdt03.f
+++ b/lapack-netlib/TESTING/EIG/dbdt03.f
@@ -127,18 +127,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
SUBROUTINE DBDT03( UPLO, N, KD, D, E, U, LDU, S, VT, LDVT, WORK,
$ RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/EIG/dbdt04.f b/lapack-netlib/TESTING/EIG/dbdt04.f
index 494442cc9..1c0713555 100644
--- a/lapack-netlib/TESTING/EIG/dbdt04.f
+++ b/lapack-netlib/TESTING/EIG/dbdt04.f
@@ -123,18 +123,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
SUBROUTINE DBDT04( UPLO, N, D, E, S, NS, U, LDU, VT, LDVT, WORK,
$ RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/EIG/dbdt05.f b/lapack-netlib/TESTING/EIG/dbdt05.f
index 356bb5fc8..e4e6fcac6 100644
--- a/lapack-netlib/TESTING/EIG/dbdt05.f
+++ b/lapack-netlib/TESTING/EIG/dbdt05.f
@@ -1,3 +1,5 @@
+*> \brief \b DBDT05
+*
* =========== DOCUMENTATION ===========
*
* Online html documentation available at
@@ -117,18 +119,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
SUBROUTINE DBDT05( M, N, A, LDA, S, NS, U, LDU,
$ VT, LDVT, WORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LDU, LDVT, M, N, NS
diff --git a/lapack-netlib/TESTING/EIG/dchkbb.f b/lapack-netlib/TESTING/EIG/dchkbb.f
index 51a29585b..9fec99728 100644
--- a/lapack-netlib/TESTING/EIG/dchkbb.f
+++ b/lapack-netlib/TESTING/EIG/dchkbb.f
@@ -345,8 +345,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
@@ -358,7 +356,6 @@
* -- LAPACK test routine (input) --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDAB, LDC, LDP, LDQ, LWORK, NOUNIT,
diff --git a/lapack-netlib/TESTING/EIG/dchkbd.f b/lapack-netlib/TESTING/EIG/dchkbd.f
index 0557574d3..a24acfab2 100644
--- a/lapack-netlib/TESTING/EIG/dchkbd.f
+++ b/lapack-netlib/TESTING/EIG/dchkbd.f
@@ -483,8 +483,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup double_eig
*
* =====================================================================
@@ -493,10 +491,9 @@
$ Y, Z, Q, LDQ, PT, LDPT, U, VT, WORK, LWORK,
$ IWORK, NOUT, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDPT, LDQ, LDX, LWORK, NOUT, NRHS,
diff --git a/lapack-netlib/TESTING/EIG/dchkbk.f b/lapack-netlib/TESTING/EIG/dchkbk.f
index 2accd4bfd..364b8f6b1 100644
--- a/lapack-netlib/TESTING/EIG/dchkbk.f
+++ b/lapack-netlib/TESTING/EIG/dchkbk.f
@@ -48,17 +48,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
SUBROUTINE DCHKBK( NIN, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER NIN, NOUT
diff --git a/lapack-netlib/TESTING/EIG/dchkbl.f b/lapack-netlib/TESTING/EIG/dchkbl.f
index 403d4edc5..7237dacf2 100644
--- a/lapack-netlib/TESTING/EIG/dchkbl.f
+++ b/lapack-netlib/TESTING/EIG/dchkbl.f
@@ -47,17 +47,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
SUBROUTINE DCHKBL( NIN, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER NIN, NOUT
diff --git a/lapack-netlib/TESTING/EIG/dchkec.f b/lapack-netlib/TESTING/EIG/dchkec.f
index 0b0f7c1e3..854961884 100644
--- a/lapack-netlib/TESTING/EIG/dchkec.f
+++ b/lapack-netlib/TESTING/EIG/dchkec.f
@@ -24,7 +24,7 @@
*>
*> DCHKEC tests eigen- condition estimation routines
*> DLALN2, DLASY2, DLANV2, DLAQTR, DLAEXC,
-*> DTRSYL, DTREXC, DTRSNA, DTRSEN
+*> DTRSYL, DTREXC, DTRSNA, DTRSEN, DTGEXC
*>
*> In all cases, the routine runs through a fixed set of numerical
*> examples, subjects them to various tests, and compares the test
@@ -69,17 +69,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
SUBROUTINE DCHKEC( THRESH, TSTERR, NIN, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
@@ -95,9 +92,9 @@
INTEGER KLAEXC, KLALN2, KLANV2, KLAQTR, KLASY2, KTREXC,
$ KTRSEN, KTRSNA, KTRSYL, LLAEXC, LLALN2, LLANV2,
$ LLAQTR, LLASY2, LTREXC, LTRSYL, NLANV2, NLAQTR,
- $ NLASY2, NTESTS, NTRSYL
+ $ NLASY2, NTESTS, NTRSYL, KTGEXC, NTGEXC, LTGEXC
DOUBLE PRECISION EPS, RLAEXC, RLALN2, RLANV2, RLAQTR, RLASY2,
- $ RTREXC, RTRSYL, SFMIN
+ $ RTREXC, RTRSYL, SFMIN, RTGEXC
* ..
* .. Local Arrays ..
INTEGER LTRSEN( 3 ), LTRSNA( 3 ), NLAEXC( 2 ),
@@ -107,7 +104,7 @@
* ..
* .. External Subroutines ..
EXTERNAL DERREC, DGET31, DGET32, DGET33, DGET34, DGET35,
- $ DGET36, DGET37, DGET38, DGET39
+ $ DGET36, DGET37, DGET38, DGET39, DGET40
* ..
* .. External Functions ..
DOUBLE PRECISION DLAMCH
@@ -189,9 +186,15 @@
OK = .FALSE.
WRITE( NOUT, FMT = 9991 )RLAQTR, LLAQTR, NLAQTR, KLAQTR
END IF
+*
+ CALL DGET40( RTGEXC, LTGEXC, NTGEXC, KTGEXC, NIN )
+ IF( RTGEXC.GT.THRESH ) THEN
+ OK = .FALSE.
+ WRITE( NOUT, FMT = 9986 )RTGEXC, LTGEXC, NTGEXC, KTGEXC
+ END IF
*
NTESTS = KLALN2 + KLASY2 + KLANV2 + KLAEXC + KTRSYL + KTREXC +
- $ KTRSNA + KTRSEN + KLAQTR
+ $ KTRSNA + KTRSEN + KLAQTR + KTGEXC
IF( OK )
$ WRITE( NOUT, FMT = 9990 )PATH, NTESTS
*
@@ -218,11 +221,13 @@
$ 'old ( ', I6, ' tests run)' )
9989 FORMAT( ' Tests of the Nonsymmetric eigenproblem condition estim',
$ 'ation routines', / ' DLALN2, DLASY2, DLANV2, DLAEXC, DTRS',
- $ 'YL, DTREXC, DTRSNA, DTRSEN, DLAQTR', / )
+ $ 'YL, DTREXC, DTRSNA, DTRSEN, DLAQTR, DTGEXC', / )
9988 FORMAT( ' Relative machine precision (EPS) = ', D16.6, / ' Safe ',
$ 'minimum (SFMIN) = ', D16.6, / )
9987 FORMAT( ' Routines pass computational tests if test ratio is les',
$ 's than', F8.2, / / )
+ 9986 FORMAT( ' Error in DTGEXC: RMAX =', D12.3, / ' LMAX = ', I8, ' N',
+ $ 'INFO=', I8, ' KNT=', I8 )
*
* End of DCHKEC
*
diff --git a/lapack-netlib/TESTING/EIG/dchkee.F b/lapack-netlib/TESTING/EIG/dchkee.F
index 89b6958fe..2b8e0b371 100644
--- a/lapack-netlib/TESTING/EIG/dchkee.F
+++ b/lapack-netlib/TESTING/EIG/dchkee.F
@@ -1033,8 +1033,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup double_eig
*
* =====================================================================
@@ -1044,10 +1042,9 @@
use omp_lib
#endif
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2016
*
* =====================================================================
*
diff --git a/lapack-netlib/TESTING/EIG/dchkgg.f b/lapack-netlib/TESTING/EIG/dchkgg.f
index 912ca4ae0..15e1360ea 100644
--- a/lapack-netlib/TESTING/EIG/dchkgg.f
+++ b/lapack-netlib/TESTING/EIG/dchkgg.f
@@ -500,8 +500,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup double_eig
*
* =====================================================================
@@ -511,10 +509,9 @@
$ BETA1, ALPHR3, ALPHI3, BETA3, EVECTL, EVECTR,
$ WORK, LWORK, LLWORK, RESULT, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2016
*
* .. Scalar Arguments ..
LOGICAL TSTDIF
diff --git a/lapack-netlib/TESTING/EIG/dchkgk.f b/lapack-netlib/TESTING/EIG/dchkgk.f
index 85c7325d4..9ba567d74 100644
--- a/lapack-netlib/TESTING/EIG/dchkgk.f
+++ b/lapack-netlib/TESTING/EIG/dchkgk.f
@@ -47,17 +47,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
SUBROUTINE DCHKGK( NIN, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER NIN, NOUT
diff --git a/lapack-netlib/TESTING/EIG/dchkgl.f b/lapack-netlib/TESTING/EIG/dchkgl.f
index d7fd0cadc..60fee9870 100644
--- a/lapack-netlib/TESTING/EIG/dchkgl.f
+++ b/lapack-netlib/TESTING/EIG/dchkgl.f
@@ -46,17 +46,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
SUBROUTINE DCHKGL( NIN, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER NIN, NOUT
diff --git a/lapack-netlib/TESTING/EIG/dchkhs.f b/lapack-netlib/TESTING/EIG/dchkhs.f
index 375a70e9a..2e5749896 100644
--- a/lapack-netlib/TESTING/EIG/dchkhs.f
+++ b/lapack-netlib/TESTING/EIG/dchkhs.f
@@ -401,8 +401,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
@@ -412,10 +410,9 @@
$ EVECTY, EVECTX, UU, TAU, WORK, NWORK, IWORK,
$ SELECT, RESULT, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDU, NOUNIT, NSIZES, NTYPES, NWORK
diff --git a/lapack-netlib/TESTING/EIG/dchksb.f b/lapack-netlib/TESTING/EIG/dchksb.f
index b95e595de..86f849b77 100644
--- a/lapack-netlib/TESTING/EIG/dchksb.f
+++ b/lapack-netlib/TESTING/EIG/dchksb.f
@@ -284,8 +284,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
@@ -293,10 +291,9 @@
$ THRESH, NOUNIT, A, LDA, SD, SE, U, LDU, WORK,
$ LWORK, RESULT, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDU, LWORK, NOUNIT, NSIZES, NTYPES,
diff --git a/lapack-netlib/TESTING/EIG/dchksb2stg.f b/lapack-netlib/TESTING/EIG/dchksb2stg.f
index 88f6e18d3..878da8b6f 100644
--- a/lapack-netlib/TESTING/EIG/dchksb2stg.f
+++ b/lapack-netlib/TESTING/EIG/dchksb2stg.f
@@ -1,4 +1,4 @@
-*> \brief \b DCHKSBSTG
+*> \brief \b DCHKSB2STG
*
* =========== DOCUMENTATION ===========
*
@@ -21,6 +21,7 @@
* LOGICAL DOTYPE( * )
* INTEGER ISEED( 4 ), KK( * ), NN( * )
* DOUBLE PRECISION A( LDA, * ), RESULT( * ), SD( * ), SE( * ),
+* $ D1( * ), D2( * ), D3( * ),
* $ U( LDU, * ), WORK( * )
* ..
*
@@ -30,18 +31,18 @@
*>
*> \verbatim
*>
-*> DCHKSBSTG tests the reduction of a symmetric band matrix to tridiagonal
+*> DCHKSB2STG tests the reduction of a symmetric band matrix to tridiagonal
*> form, used with the symmetric eigenvalue problem.
*>
*> DSBTRD factors a symmetric band matrix A as U S U' , where ' means
*> transpose, S is symmetric tridiagonal, and U is orthogonal.
*> DSBTRD can use either just the lower or just the upper triangle
-*> of A; DCHKSBSTG checks both cases.
+*> of A; DCHKSB2STG checks both cases.
*>
*> DSYTRD_SB2ST factors a symmetric band matrix A as U S U' ,
*> where ' means transpose, S is symmetric tridiagonal, and U is
*> orthogonal. DSYTRD_SB2ST can use either just the lower or just
-*> the upper triangle of A; DCHKSBSTG checks both cases.
+*> the upper triangle of A; DCHKSB2STG checks both cases.
*>
*> DSTEQR factors S as Z D1 Z'.
*> D1 is the matrix of eigenvalues computed when Z is not computed
@@ -51,7 +52,7 @@
*> D3 is the matrix of eigenvalues computed when Z is not computed
*> and from the S resulting of DSYTRD_SB2ST "L".
*>
-*> When DCHKSBSTG is called, a number of matrix "sizes" ("n's"), a number
+*> When DCHKSB2STG is called, a number of matrix "sizes" ("n's"), a number
*> of bandwidths ("k's"), and a number of matrix "types" are
*> specified. For each size ("n"), each bandwidth ("k") less than or
*> equal to "n", and each type of matrix, one matrix will be generated
@@ -125,7 +126,7 @@
*> \verbatim
*> NSIZES is INTEGER
*> The number of sizes of matrices to use. If it is zero,
-*> DCHKSBSTG does nothing. It must be at least zero.
+*> DCHKSB2STG does nothing. It must be at least zero.
*> \endverbatim
*>
*> \param[in] NN
@@ -140,7 +141,7 @@
*> \verbatim
*> NWDTHS is INTEGER
*> The number of bandwidths to use. If it is zero,
-*> DCHKSBSTG does nothing. It must be at least zero.
+*> DCHKSB2STG does nothing. It must be at least zero.
*> \endverbatim
*>
*> \param[in] KK
@@ -153,7 +154,7 @@
*> \param[in] NTYPES
*> \verbatim
*> NTYPES is INTEGER
-*> The number of elements in DOTYPE. If it is zero, DCHKSBSTG
+*> The number of elements in DOTYPE. If it is zero, DCHKSB2STG
*> does nothing. It must be at least zero. If it is MAXTYP+1
*> and NSIZES is 1, then an additional type, MAXTYP+1 is
*> defined, which is to use whatever matrix is in A. This
@@ -183,7 +184,7 @@
*> congruential sequence limited to small integers, and so
*> should produce machine independent random numbers. The
*> values of ISEED are changed on exit, and can be used in the
-*> next call to DCHKSBSTG to continue the same random number
+*> next call to DCHKSB2STG to continue the same random number
*> sequence.
*> \endverbatim
*>
@@ -234,6 +235,21 @@
*> computed by DSBTRD.
*> \endverbatim
*>
+*> \param[out] D1
+*> \verbatim
+*> D1 is DOUBLE PRECISION array, dimension (max(NN))
+*> \endverbatim
+*>
+*> \param[out] D2
+*> \verbatim
+*> D2 is DOUBLE PRECISION array, dimension (max(NN))
+*> \endverbatim
+*>
+*> \param[out] D3
+*> \verbatim
+*> D3 is DOUBLE PRECISION array, dimension (max(NN))
+*> \endverbatim
+*>
*> \param[out] U
*> \verbatim
*> U is DOUBLE PRECISION array, dimension (LDU, max(NN))
@@ -307,8 +323,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup double_eig
*
* =====================================================================
@@ -316,10 +330,9 @@
$ ISEED, THRESH, NOUNIT, A, LDA, SD, SE, D1,
$ D2, D3, U, LDU, WORK, LWORK, RESULT, INFO )
*
-* -- LAPACK test routine (version 3.7.1) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2017
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDU, LWORK, NOUNIT, NSIZES, NTYPES,
@@ -422,7 +435,7 @@
END IF
*
IF( INFO.NE.0 ) THEN
- CALL XERBLA( 'DCHKSBSTG', -INFO )
+ CALL XERBLA( 'DCHKSB2STG', -INFO )
RETURN
END IF
*
@@ -827,12 +840,12 @@
CALL DLASUM( 'DSB', NOUNIT, NERRS, NTESTT )
RETURN
*
- 9999 FORMAT( ' DCHKSBSTG: ', A, ' returned INFO=', I6, '.', / 9X, 'N=',
+ 9999 FORMAT( ' DCHKSB2STG: ', A, ' returned INFO=', I6, '.', / 9X, 'N=',
$ I6, ', JTYPE=', I6, ', ISEED=(', 3( I5, ',' ), I5, ')' )
*
9998 FORMAT( / 1X, A3,
$ ' -- Real Symmetric Banded Tridiagonal Reduction Routines' )
- 9997 FORMAT( ' Matrix types (see DCHKSBSTG for details): ' )
+ 9997 FORMAT( ' Matrix types (see DCHKSB2STG for details): ' )
*
9996 FORMAT( / ' Special Matrices:',
$ / ' 1=Zero matrix. ',
@@ -863,6 +876,6 @@
9993 FORMAT( ' N=', I5, ', K=', I4, ', seed=', 4( I4, ',' ), ' type ',
$ I2, ', test(', I2, ')=', G10.3 )
*
-* End of DCHKSBSTG
+* End of DCHKSB2STG
*
END
diff --git a/lapack-netlib/TESTING/EIG/dchkst.f b/lapack-netlib/TESTING/EIG/dchkst.f
index 1b4d85f79..2e04f68c5 100644
--- a/lapack-netlib/TESTING/EIG/dchkst.f
+++ b/lapack-netlib/TESTING/EIG/dchkst.f
@@ -581,8 +581,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
@@ -591,10 +589,9 @@
$ WA1, WA2, WA3, WR, U, LDU, V, VP, TAU, Z, WORK,
$ LWORK, IWORK, LIWORK, RESULT, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDU, LIWORK, LWORK, NOUNIT, NSIZES,
diff --git a/lapack-netlib/TESTING/EIG/dchkst2stg.f b/lapack-netlib/TESTING/EIG/dchkst2stg.f
index 7115175c2..2c98b802d 100644
--- a/lapack-netlib/TESTING/EIG/dchkst2stg.f
+++ b/lapack-netlib/TESTING/EIG/dchkst2stg.f
@@ -602,8 +602,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
@@ -612,10 +610,9 @@
$ WA1, WA2, WA3, WR, U, LDU, V, VP, TAU, Z, WORK,
$ LWORK, IWORK, LIWORK, RESULT, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDU, LIWORK, LWORK, NOUNIT, NSIZES,
@@ -1058,7 +1055,6 @@
END IF
END IF
*
-*
* Do Tests 3 and 4 which are similar to 11 and 12 but with the
* D1 computed using the standard 1-stage reduction as reference
*
@@ -1718,7 +1714,6 @@
END IF
END IF
*
-*
* Do test 28
*
TEMP2 = TWO*( TWO*N-ONE )*ULP*
@@ -1817,7 +1812,6 @@
RESULT( 31 ) = TEMP2 / MAX( UNFL,
$ ULP*MAX( TEMP1, TEMP2 ) )
*
-*
* Call DSTEMR(V,V) to compute D1 and Z, do tests.
*
* Compute D1 and Z
@@ -1919,7 +1913,6 @@
RESULT( 34 ) = ZERO
END IF
*
-*
* Call DSTEMR(V,A) to compute D1 and Z, do tests.
*
* Compute D1 and Z
@@ -1976,7 +1969,7 @@
END IF
END IF
*
-* Do Test 34
+* Do Test 37
*
TEMP1 = ZERO
TEMP2 = ZERO
@@ -1995,7 +1988,6 @@
*
* End of Loop -- Check for RESULT(j) > THRESH
*
-*
* Print out tests which fail.
*
DO 290 JR = 1, NTEST
@@ -2063,6 +2055,7 @@
$ ', test(', I2, ')=', G10.3 )
*
9988 FORMAT( / 'Test performed: see DCHKST2STG for details.', / )
+*
* End of DCHKST2STG
*
END
diff --git a/lapack-netlib/TESTING/EIG/dckcsd.f b/lapack-netlib/TESTING/EIG/dckcsd.f
index 063a5ef5c..90ba75b4c 100644
--- a/lapack-netlib/TESTING/EIG/dckcsd.f
+++ b/lapack-netlib/TESTING/EIG/dckcsd.f
@@ -175,8 +175,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
@@ -184,10 +182,9 @@
$ MMAX, X, XF, U1, U2, V1T, V2T, THETA, IWORK,
$ WORK, RWORK, NIN, NOUT, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, NIN, NM, NMATS, MMAX, NOUT
@@ -208,11 +205,12 @@
PARAMETER ( NTESTS = 15 )
INTEGER NTYPES
PARAMETER ( NTYPES = 4 )
- DOUBLE PRECISION GAPDIGIT, ONE, ORTH, PIOVER2, TEN, ZERO
+ DOUBLE PRECISION GAPDIGIT, ONE, ORTH, TEN, ZERO
PARAMETER ( GAPDIGIT = 18.0D0, ONE = 1.0D0,
$ ORTH = 1.0D-12,
- $ PIOVER2 = 1.57079632679489662D0,
$ TEN = 10.0D0, ZERO = 0.0D0 )
+ DOUBLE PRECISION PIOVER2
+ PARAMETER ( PIOVER2 = 1.57079632679489661923132169163975144210D0 )
* ..
* .. Local Scalars ..
LOGICAL FIRSTT
diff --git a/lapack-netlib/TESTING/EIG/dckglm.f b/lapack-netlib/TESTING/EIG/dckglm.f
index a47e9dbe1..389ba4932 100644
--- a/lapack-netlib/TESTING/EIG/dckglm.f
+++ b/lapack-netlib/TESTING/EIG/dckglm.f
@@ -158,8 +158,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
@@ -167,10 +165,9 @@
$ NMAX, A, AF, B, BF, X, WORK, RWORK, NIN, NOUT,
$ INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, NIN, NMATS, NMAX, NN, NOUT
diff --git a/lapack-netlib/TESTING/EIG/dckgqr.f b/lapack-netlib/TESTING/EIG/dckgqr.f
index eb86643fc..a810facc0 100644
--- a/lapack-netlib/TESTING/EIG/dckgqr.f
+++ b/lapack-netlib/TESTING/EIG/dckgqr.f
@@ -201,8 +201,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
@@ -210,10 +208,9 @@
$ THRESH, NMAX, A, AF, AQ, AR, TAUA, B, BF, BZ,
$ BT, BWK, TAUB, WORK, RWORK, NIN, NOUT, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, NIN, NM, NMATS, NMAX, NN, NOUT, NP
diff --git a/lapack-netlib/TESTING/EIG/dckgsv.f b/lapack-netlib/TESTING/EIG/dckgsv.f
index bc57ff841..3b60dde6b 100644
--- a/lapack-netlib/TESTING/EIG/dckgsv.f
+++ b/lapack-netlib/TESTING/EIG/dckgsv.f
@@ -189,8 +189,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
@@ -198,10 +196,9 @@
$ NMAX, A, AF, B, BF, U, V, Q, ALPHA, BETA, R,
$ IWORK, WORK, RWORK, NIN, NOUT, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, NIN, NM, NMATS, NMAX, NOUT
diff --git a/lapack-netlib/TESTING/EIG/dcklse.f b/lapack-netlib/TESTING/EIG/dcklse.f
index 7d9b3f594..b2dbbf1e5 100644
--- a/lapack-netlib/TESTING/EIG/dcklse.f
+++ b/lapack-netlib/TESTING/EIG/dcklse.f
@@ -158,8 +158,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
@@ -167,10 +165,9 @@
$ NMAX, A, AF, B, BF, X, WORK, RWORK, NIN, NOUT,
$ INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, NIN, NMATS, NMAX, NN, NOUT
diff --git a/lapack-netlib/TESTING/EIG/dcsdts.f b/lapack-netlib/TESTING/EIG/dcsdts.f
index 14ffc7814..a671a8a25 100644
--- a/lapack-netlib/TESTING/EIG/dcsdts.f
+++ b/lapack-netlib/TESTING/EIG/dcsdts.f
@@ -220,8 +220,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
@@ -229,10 +227,9 @@
$ LDV1T, V2T, LDV2T, THETA, IWORK, WORK, LWORK,
$ RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDX, LDU1, LDU2, LDV1T, LDV2T, LWORK, M, P, Q
@@ -248,11 +245,12 @@
* =====================================================================
*
* .. Parameters ..
- DOUBLE PRECISION PIOVER2, REALONE, REALZERO
- PARAMETER ( PIOVER2 = 1.57079632679489662D0,
- $ REALONE = 1.0D0, REALZERO = 0.0D0 )
+ DOUBLE PRECISION REALONE, REALZERO
+ PARAMETER ( REALONE = 1.0D0, REALZERO = 0.0D0 )
DOUBLE PRECISION ZERO, ONE
PARAMETER ( ZERO = 0.0D0, ONE = 1.0D0 )
+ DOUBLE PRECISION PIOVER2
+ PARAMETER ( PIOVER2 = 1.57079632679489661923132169163975144210D0 )
* ..
* .. Local Scalars ..
INTEGER I, INFO, R
diff --git a/lapack-netlib/TESTING/EIG/ddrges.f b/lapack-netlib/TESTING/EIG/ddrges.f
index 035ba04d0..abb10547a 100644
--- a/lapack-netlib/TESTING/EIG/ddrges.f
+++ b/lapack-netlib/TESTING/EIG/ddrges.f
@@ -393,8 +393,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup double_eig
*
* =====================================================================
@@ -403,10 +401,9 @@
$ ALPHAI, BETA, WORK, LWORK, RESULT, BWORK,
$ INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* 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 3b23deebe..770ae09c0 100644
--- a/lapack-netlib/TESTING/EIG/ddrges3.f
+++ b/lapack-netlib/TESTING/EIG/ddrges3.f
@@ -393,8 +393,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date February 2015
-*
*> \ingroup double_eig
*
* =====================================================================
@@ -403,10 +401,9 @@
$ ALPHAI, BETA, WORK, LWORK, RESULT, BWORK,
$ INFO )
*
-* -- LAPACK test routine (version 3.6.1) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* February 2015
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDQ, LWORK, NOUNIT, NSIZES, NTYPES
@@ -749,6 +746,14 @@
RSUB = 5
END IF
*
+* Call XLAENV to set the parameters used in DLAQZ0
+*
+ CALL XLAENV( 12, 10 )
+ CALL XLAENV( 13, 12 )
+ CALL XLAENV( 14, 13 )
+ CALL XLAENV( 15, 2 )
+ CALL XLAENV( 17, 10 )
+*
* Call DGGES3 to compute H, T, Q, Z, alpha, and beta.
*
CALL DLACPY( 'Full', N, N, A, LDA, S, LDA )
diff --git a/lapack-netlib/TESTING/EIG/ddrgev.f b/lapack-netlib/TESTING/EIG/ddrgev.f
index c587e66ab..536ab36e1 100644
--- a/lapack-netlib/TESTING/EIG/ddrgev.f
+++ b/lapack-netlib/TESTING/EIG/ddrgev.f
@@ -398,8 +398,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup double_eig
*
* =====================================================================
@@ -408,10 +406,9 @@
$ ALPHAR, ALPHAI, BETA, ALPHR1, ALPHI1, BETA1,
$ WORK, LWORK, RESULT, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* 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 1c60e4434..20a64361c 100644
--- a/lapack-netlib/TESTING/EIG/ddrgev3.f
+++ b/lapack-netlib/TESTING/EIG/ddrgev3.f
@@ -398,8 +398,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date February 2015
-*
*> \ingroup double_eig
*
* =====================================================================
@@ -408,10 +406,9 @@
$ ALPHAR, ALPHAI, BETA, ALPHR1, ALPHI1, BETA1,
$ WORK, LWORK, RESULT, INFO )
*
-* -- LAPACK test routine (version 3.6.1) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* February 2015
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDQ, LDQE, LWORK, NOUNIT, NSIZES,
@@ -434,7 +431,7 @@
DOUBLE PRECISION ZERO, ONE
PARAMETER ( ZERO = 0.0D+0, ONE = 1.0D+0 )
INTEGER MAXTYP
- PARAMETER ( MAXTYP = 26 )
+ PARAMETER ( MAXTYP = 27 )
* ..
* .. Local Scalars ..
LOGICAL BADNN
@@ -465,26 +462,26 @@
INTRINSIC ABS, DBLE, MAX, MIN, SIGN
* ..
* .. Data statements ..
- DATA KCLASS / 15*1, 10*2, 1*3 /
+ DATA KCLASS / 15*1, 10*2, 1*3, 1*4 /
DATA KZ1 / 0, 1, 2, 1, 3, 3 /
DATA KZ2 / 0, 0, 1, 2, 1, 1 /
DATA KADD / 0, 0, 0, 0, 3, 2 /
DATA KATYPE / 0, 1, 0, 1, 2, 3, 4, 1, 4, 4, 1, 1, 4,
- $ 4, 4, 2, 4, 5, 8, 7, 9, 4*4, 0 /
+ $ 4, 4, 2, 4, 5, 8, 7, 9, 4*4, 0, 0 /
DATA KBTYPE / 0, 0, 1, 1, 2, -3, 1, 4, 1, 1, 4, 4,
- $ 1, 1, -4, 2, -4, 8*8, 0 /
+ $ 1, 1, -4, 2, -4, 8*8, 0, 0 /
DATA KAZERO / 6*1, 2, 1, 2*2, 2*1, 2*2, 3, 1, 3,
- $ 4*5, 4*3, 1 /
+ $ 4*5, 4*3, 1, 1 /
DATA KBZERO / 6*1, 1, 2, 2*1, 2*2, 2*1, 4, 1, 4,
- $ 4*6, 4*4, 1 /
+ $ 4*6, 4*4, 1, 1 /
DATA KAMAGN / 8*1, 2, 3, 2, 3, 2, 3, 7*1, 2, 3, 3,
- $ 2, 1 /
+ $ 2, 1, 3 /
DATA KBMAGN / 8*1, 3, 2, 3, 2, 2, 3, 7*1, 3, 2, 3,
- $ 2, 1 /
- DATA KTRIAN / 16*0, 10*1 /
+ $ 2, 1, 3 /
+ DATA KTRIAN / 16*0, 11*1 /
DATA IASIGN / 6*0, 2, 0, 2*2, 2*0, 3*2, 0, 2, 3*0,
- $ 5*2, 0 /
- DATA IBSIGN / 7*0, 2, 2*0, 2*2, 2*0, 2, 0, 2, 9*0 /
+ $ 5*2, 2*0 /
+ DATA IBSIGN / 7*0, 2, 2*0, 2*2, 2*0, 2, 0, 2, 10*0 /
* ..
* .. Executable Statements ..
*
@@ -591,7 +588,8 @@
* Description of control parameters:
*
* KZLASS: =1 means w/o rotation, =2 means w/ rotation,
-* =3 means random.
+* =3 means random, =4 means random generalized
+* upper Hessenberg.
* KATYPE: the "type" to be passed to DLATM4 for computing A.
* KAZERO: the pattern of zeros on the diagonal for A:
* =1: ( xxx ), =2: (0, xxx ) =3: ( 0, 0, xxx, 0 ),
@@ -705,7 +703,7 @@
IF( IERR.NE.0 )
$ GO TO 90
END IF
- ELSE
+ ELSE IF (KCLASS( JTYPE ).EQ.3) THEN
*
* Random matrices
*
@@ -717,6 +715,32 @@
$ DLARND( 2, ISEED )
70 CONTINUE
80 CONTINUE
+ ELSE
+*
+* Random upper Hessenberg pencil with singular B
+*
+ DO 81 JC = 1, N
+ DO 71 JR = 1, min( JC + 1, N)
+ A( JR, JC ) = RMAGN( KAMAGN( JTYPE ) )*
+ $ DLARND( 2, ISEED )
+ 71 CONTINUE
+ DO 72 JR = JC + 2, N
+ A( JR, JC ) = ZERO
+ 72 CONTINUE
+ 81 CONTINUE
+ DO 82 JC = 1, N
+ DO 73 JR = 1, JC
+ B( JR, JC ) = RMAGN( KAMAGN( JTYPE ) )*
+ $ DLARND( 2, ISEED )
+ 73 CONTINUE
+ DO 74 JR = JC + 1, N
+ B( JR, JC ) = ZERO
+ 74 CONTINUE
+ 82 CONTINUE
+ DO 83 JC = 1, N, 4
+ B( JC, JC ) = ZERO
+ 83 CONTINUE
+
END IF
*
90 CONTINUE
@@ -734,6 +758,14 @@
RESULT( I ) = -ONE
110 CONTINUE
*
+* Call XLAENV to set the parameters used in DLAQZ0
+*
+ CALL XLAENV( 12, 10 )
+ CALL XLAENV( 13, 12 )
+ CALL XLAENV( 14, 13 )
+ CALL XLAENV( 15, 2 )
+ CALL XLAENV( 17, 10 )
+*
* Call DGGEV3 to compute eigenvalues and eigenvectors.
*
CALL DLACPY( ' ', N, N, A, LDA, S, LDA )
diff --git a/lapack-netlib/TESTING/EIG/ddrgsx.f b/lapack-netlib/TESTING/EIG/ddrgsx.f
index 7fe9dfc14..b3f5e23f4 100644
--- a/lapack-netlib/TESTING/EIG/ddrgsx.f
+++ b/lapack-netlib/TESTING/EIG/ddrgsx.f
@@ -350,8 +350,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup double_eig
*
* =====================================================================
@@ -359,10 +357,9 @@
$ BI, Z, Q, ALPHAR, ALPHAI, BETA, C, LDC, S,
$ WORK, LWORK, IWORK, LIWORK, BWORK, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* 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 32d08b5d7..c63762134 100644
--- a/lapack-netlib/TESTING/EIG/ddrgvx.f
+++ b/lapack-netlib/TESTING/EIG/ddrgvx.f
@@ -290,8 +290,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup double_eig
*
* =====================================================================
@@ -300,10 +298,9 @@
$ RSCALE, S, DTRU, DIF, DIFTRU, WORK, LWORK,
$ IWORK, LIWORK, RESULT, BWORK, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* April 2012
*
* .. Scalar Arguments ..
INTEGER IHI, ILO, INFO, LDA, LIWORK, LWORK, NIN, NOUT,
diff --git a/lapack-netlib/TESTING/EIG/ddrvbd.f b/lapack-netlib/TESTING/EIG/ddrvbd.f
index bd4ae60da..ce83234bf 100644
--- a/lapack-netlib/TESTING/EIG/ddrvbd.f
+++ b/lapack-netlib/TESTING/EIG/ddrvbd.f
@@ -357,8 +357,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup double_eig
*
* =====================================================================
@@ -368,10 +366,9 @@
*
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDU, LDVT, LWORK, NOUT, NSIZES,
diff --git a/lapack-netlib/TESTING/EIG/ddrves.f b/lapack-netlib/TESTING/EIG/ddrves.f
index 2904b633a..d2c2218b0 100644
--- a/lapack-netlib/TESTING/EIG/ddrves.f
+++ b/lapack-netlib/TESTING/EIG/ddrves.f
@@ -379,8 +379,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup double_eig
*
* =====================================================================
@@ -388,10 +386,9 @@
$ NOUNIT, A, LDA, H, HT, WR, WI, WRT, WIT, VS,
$ LDVS, RESULT, WORK, NWORK, IWORK, BWORK, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDVS, NOUNIT, NSIZES, NTYPES, NWORK
diff --git a/lapack-netlib/TESTING/EIG/ddrvev.f b/lapack-netlib/TESTING/EIG/ddrvev.f
index a3e6a2023..3b39fa977 100644
--- a/lapack-netlib/TESTING/EIG/ddrvev.f
+++ b/lapack-netlib/TESTING/EIG/ddrvev.f
@@ -396,8 +396,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
@@ -406,10 +404,9 @@
$ VR, LDVR, LRE, LDLRE, RESULT, WORK, NWORK,
$ IWORK, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDLRE, LDVL, LDVR, NOUNIT, NSIZES,
diff --git a/lapack-netlib/TESTING/EIG/ddrvsg.f b/lapack-netlib/TESTING/EIG/ddrvsg.f
index de094fcd8..0b49c8404 100644
--- a/lapack-netlib/TESTING/EIG/ddrvsg.f
+++ b/lapack-netlib/TESTING/EIG/ddrvsg.f
@@ -346,8 +346,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
@@ -355,10 +353,9 @@
$ NOUNIT, A, LDA, B, LDB, D, Z, LDZ, AB, BB, AP,
$ BP, WORK, NWORK, IWORK, LIWORK, RESULT, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDB, LDZ, LIWORK, NOUNIT, NSIZES,
diff --git a/lapack-netlib/TESTING/EIG/ddrvsg2stg.f b/lapack-netlib/TESTING/EIG/ddrvsg2stg.f
index 700e4f74d..196c6b48e 100644
--- a/lapack-netlib/TESTING/EIG/ddrvsg2stg.f
+++ b/lapack-netlib/TESTING/EIG/ddrvsg2stg.f
@@ -352,8 +352,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
@@ -364,10 +362,9 @@
*
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDB, LDZ, LIWORK, NOUNIT, NSIZES,
diff --git a/lapack-netlib/TESTING/EIG/ddrvst.f b/lapack-netlib/TESTING/EIG/ddrvst.f
index efa75406f..a25077018 100644
--- a/lapack-netlib/TESTING/EIG/ddrvst.f
+++ b/lapack-netlib/TESTING/EIG/ddrvst.f
@@ -443,8 +443,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
@@ -453,10 +451,9 @@
$ WA2, WA3, U, LDU, V, TAU, Z, WORK, LWORK,
$ IWORK, LIWORK, RESULT, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDU, LIWORK, LWORK, NOUNIT, NSIZES,
diff --git a/lapack-netlib/TESTING/EIG/ddrvst2stg.f b/lapack-netlib/TESTING/EIG/ddrvst2stg.f
index 489c385a1..c9a2632bb 100644
--- a/lapack-netlib/TESTING/EIG/ddrvst2stg.f
+++ b/lapack-netlib/TESTING/EIG/ddrvst2stg.f
@@ -443,8 +443,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
@@ -453,10 +451,9 @@
$ WA2, WA3, U, LDU, V, TAU, Z, WORK, LWORK,
$ IWORK, LIWORK, RESULT, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDU, LIWORK, LWORK, NOUNIT, NSIZES,
@@ -2796,7 +2793,7 @@ c LIWEDC = 12
RESULT( NTEST ) = ULPINV
RESULT( NTEST+1 ) = ULPINV
RESULT( NTEST+2 ) = ULPINV
- GO TO 700
+ GO TO 1720
END IF
END IF
*
@@ -2823,13 +2820,13 @@ c LIWEDC = 12
RETURN
ELSE
RESULT( NTEST ) = ULPINV
- GO TO 700
+ GO TO 1720
END IF
END IF
*
IF( M3.EQ.0 .AND. N.GT.0 ) THEN
RESULT( NTEST ) = ULPINV
- GO TO 700
+ GO TO 1720
END IF
*
* Do test 78 (or +54)
diff --git a/lapack-netlib/TESTING/EIG/ddrvsx.f b/lapack-netlib/TESTING/EIG/ddrvsx.f
index 9006f1a92..c032a4a0c 100644
--- a/lapack-netlib/TESTING/EIG/ddrvsx.f
+++ b/lapack-netlib/TESTING/EIG/ddrvsx.f
@@ -444,8 +444,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup double_eig
*
* =====================================================================
@@ -454,10 +452,9 @@
$ WIT, WRTMP, WITMP, VS, LDVS, VS1, RESULT, WORK,
$ LWORK, IWORK, BWORK, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDVS, LWORK, NIUNIT, NOUNIT, NSIZES,
diff --git a/lapack-netlib/TESTING/EIG/ddrvvx.f b/lapack-netlib/TESTING/EIG/ddrvvx.f
index b088f6cc3..cbb78d2b6 100644
--- a/lapack-netlib/TESTING/EIG/ddrvvx.f
+++ b/lapack-netlib/TESTING/EIG/ddrvvx.f
@@ -510,8 +510,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup double_eig
*
* =====================================================================
@@ -521,10 +519,9 @@
$ RCDVIN, RCONDE, RCNDE1, RCDEIN, SCALE, SCALE1,
$ RESULT, WORK, NWORK, IWORK, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* 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 934eb2066..914274ff2 100644
--- a/lapack-netlib/TESTING/EIG/derrbd.f
+++ b/lapack-netlib/TESTING/EIG/derrbd.f
@@ -48,17 +48,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup double_eig
*
* =====================================================================
SUBROUTINE DERRBD( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/EIG/derrec.f b/lapack-netlib/TESTING/EIG/derrec.f
index dc0828e0c..d5863ad42 100644
--- a/lapack-netlib/TESTING/EIG/derrec.f
+++ b/lapack-netlib/TESTING/EIG/derrec.f
@@ -49,17 +49,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
SUBROUTINE DERREC( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/EIG/derred.f b/lapack-netlib/TESTING/EIG/derred.f
index 94264e256..6df517825 100644
--- a/lapack-netlib/TESTING/EIG/derred.f
+++ b/lapack-netlib/TESTING/EIG/derred.f
@@ -63,17 +63,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup double_eig
*
* =====================================================================
SUBROUTINE DERRED( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/EIG/derrgg.f b/lapack-netlib/TESTING/EIG/derrgg.f
index 5671e9447..6fc61b872 100644
--- a/lapack-netlib/TESTING/EIG/derrgg.f
+++ b/lapack-netlib/TESTING/EIG/derrgg.f
@@ -50,17 +50,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup double_eig
*
* =====================================================================
SUBROUTINE DERRGG( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
@@ -99,7 +96,7 @@
$ DGGHRD, DGGLSE, DGGQRF, DGGRQF,
$ DHGEQZ, DORCSD, DTGEVC, DTGEXC, DTGSEN, DTGSJA,
$ DTGSNA, DTGSYL, DGGHD3, DGGES3, DGGEV3,
- $ DGGSVD3, DGGSVP3
+ $ DGGSVD3, DGGSVP3, XLAENV
* ..
* .. Scalars in Common ..
LOGICAL LERR, OK
@@ -137,6 +134,14 @@
NT = 0
LWORK = 1
*
+* Call XLAENV to set the parameters used in CLAQZ0
+*
+ CALL XLAENV( 12, 10 )
+ CALL XLAENV( 13, 12 )
+ CALL XLAENV( 14, 13 )
+ CALL XLAENV( 15, 2 )
+ CALL XLAENV( 17, 10 )
+*
* Test error exits for the GG path.
*
IF( LSAMEN( 2, C2, 'GG' ) ) THEN
@@ -872,6 +877,11 @@
*
* DGGEV3
*
+ CALL XLAENV( 12, 20 )
+ CALL XLAENV( 13, 4 )
+ CALL XLAENV( 14, 13 )
+ CALL XLAENV( 15, 2 )
+ CALL XLAENV( 17, 10 )
SRNAMT = 'DGGEV3 '
INFOT = 1
CALL DGGEV3( '/', 'N', 1, A, 1, B, 1, R1, R2, R3, Q, 1, U, 1,
diff --git a/lapack-netlib/TESTING/EIG/derrhs.f b/lapack-netlib/TESTING/EIG/derrhs.f
index a8a2b865e..fec41c0f0 100644
--- a/lapack-netlib/TESTING/EIG/derrhs.f
+++ b/lapack-netlib/TESTING/EIG/derrhs.f
@@ -48,17 +48,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
SUBROUTINE DERRHS( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/EIG/derrst.f b/lapack-netlib/TESTING/EIG/derrst.f
index a544cfbfb..f297e5a7d 100644
--- a/lapack-netlib/TESTING/EIG/derrst.f
+++ b/lapack-netlib/TESTING/EIG/derrst.f
@@ -54,17 +54,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
SUBROUTINE DERRST( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/EIG/dget02.f b/lapack-netlib/TESTING/EIG/dget02.f
index a0337eeec..d286029a0 100644
--- a/lapack-netlib/TESTING/EIG/dget02.f
+++ b/lapack-netlib/TESTING/EIG/dget02.f
@@ -28,9 +28,11 @@
*> \verbatim
*>
*> DGET02 computes the residual for a solution of a system of linear
-*> equations A*x = b or A'*x = b:
-*> RESID = norm(B - A*X) / ( norm(A) * norm(X) * EPS ),
-*> where EPS is the machine epsilon.
+*> equations op(A)*X = B:
+*> RESID = norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ),
+*> where op(A) = A or A**T, depending on TRANS, and EPS is the
+*> machine epsilon.
+*> The norm used is the 1-norm.
*> \endverbatim
*
* Arguments:
@@ -40,9 +42,9 @@
*> \verbatim
*> TRANS is CHARACTER*1
*> Specifies the form of the system of equations:
-*> = 'N': A *x = b
-*> = 'T': A'*x = b, where A' is the transpose of A
-*> = 'C': A'*x = b, where A' is the transpose of A
+*> = 'N': A * X = B (No transpose)
+*> = 'T': A**T * X = B (Transpose)
+*> = 'C': A**H * X = B (Conjugate transpose = Transpose)
*> \endverbatim
*>
*> \param[in] M
@@ -114,7 +116,7 @@
*> \verbatim
*> RESID is DOUBLE PRECISION
*> The maximum over the number of right hand sides of
-*> norm(B - A*X) / ( norm(A) * norm(X) * EPS ).
+*> norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ).
*> \endverbatim
*
* Authors:
@@ -125,18 +127,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup double_eig
*
* =====================================================================
SUBROUTINE DGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB,
$ RWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.1) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2017
*
* .. Scalar Arguments ..
CHARACTER TRANS
@@ -189,19 +188,23 @@
* Exit with RESID = 1/EPS if ANORM = 0.
*
EPS = DLAMCH( 'Epsilon' )
+ IF( LSAME( TRANS, 'N' ) ) THEN
ANORM = DLANGE( '1', M, N, A, LDA, RWORK )
+ ELSE
+ ANORM = DLANGE( 'I', M, N, A, LDA, RWORK )
+ END IF
IF( ANORM.LE.ZERO ) THEN
RESID = ONE / EPS
RETURN
END IF
*
-* Compute B - A*X (or B - A'*X ) and store in B.
+* Compute B - op(A)*X and store in B.
*
CALL DGEMM( TRANS, 'No transpose', N1, NRHS, N2, -ONE, A, LDA, X,
$ LDX, ONE, B, LDB )
*
* Compute the maximum over the number of right hand sides of
-* norm(B - A*X) / ( norm(A) * norm(X) * EPS ) .
+* norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ) .
*
RESID = ZERO
DO 10 J = 1, NRHS
diff --git a/lapack-netlib/TESTING/EIG/dget10.f b/lapack-netlib/TESTING/EIG/dget10.f
index e0b3577d6..684172f6b 100644
--- a/lapack-netlib/TESTING/EIG/dget10.f
+++ b/lapack-netlib/TESTING/EIG/dget10.f
@@ -86,17 +86,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
SUBROUTINE DGET10( M, N, A, LDA, B, LDB, WORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LDB, M, N
diff --git a/lapack-netlib/TESTING/EIG/dget22.f b/lapack-netlib/TESTING/EIG/dget22.f
index ff7ba15aa..e19552ff7 100644
--- a/lapack-netlib/TESTING/EIG/dget22.f
+++ b/lapack-netlib/TESTING/EIG/dget22.f
@@ -149,6 +149,7 @@
*> RESULT is DOUBLE PRECISION array, dimension (2)
*> RESULT(1) = | A E - E W | / ( |A| |E| ulp )
*> RESULT(2) = max | m-norm(E(j)) - 1 | / ( n ulp )
+*> j
*> \endverbatim
*
* Authors:
@@ -159,18 +160,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
SUBROUTINE DGET22( TRANSA, TRANSE, TRANSW, N, A, LDA, E, LDE, WR,
$ WI, WORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER TRANSA, TRANSE, TRANSW
@@ -366,7 +364,7 @@
RESULT( 1 ) = ( ERRNRM / ANORM ) / ULP
ELSE
IF( ANORM.LT.ONE ) THEN
- RESULT( 1 ) = ( MIN( ERRNRM, ANORM ) / ANORM ) / ULP
+ RESULT( 1 ) = ONE / ULP
ELSE
RESULT( 1 ) = MIN( ERRNRM / ANORM, ONE ) / ULP
END IF
diff --git a/lapack-netlib/TESTING/EIG/dget23.f b/lapack-netlib/TESTING/EIG/dget23.f
index 8c801aeee..215166904 100644
--- a/lapack-netlib/TESTING/EIG/dget23.f
+++ b/lapack-netlib/TESTING/EIG/dget23.f
@@ -367,8 +367,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
@@ -378,10 +376,9 @@
$ RCONDE, RCNDE1, RCDEIN, SCALE, SCALE1, RESULT,
$ WORK, LWORK, IWORK, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL COMP
diff --git a/lapack-netlib/TESTING/EIG/dget24.f b/lapack-netlib/TESTING/EIG/dget24.f
index a3c01756c..eeb9109e9 100644
--- a/lapack-netlib/TESTING/EIG/dget24.f
+++ b/lapack-netlib/TESTING/EIG/dget24.f
@@ -333,8 +333,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
@@ -343,10 +341,9 @@
$ LDVS, VS1, RCDEIN, RCDVIN, NSLCT, ISLCT,
$ RESULT, WORK, LWORK, IWORK, BWORK, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL COMP
diff --git a/lapack-netlib/TESTING/EIG/dget31.f b/lapack-netlib/TESTING/EIG/dget31.f
index 267ed7798..b952a91d2 100644
--- a/lapack-netlib/TESTING/EIG/dget31.f
+++ b/lapack-netlib/TESTING/EIG/dget31.f
@@ -84,17 +84,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
SUBROUTINE DGET31( RMAX, LMAX, NINFO, KNT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER KNT, LMAX
diff --git a/lapack-netlib/TESTING/EIG/dget32.f b/lapack-netlib/TESTING/EIG/dget32.f
index 59fccf068..faf1773bb 100644
--- a/lapack-netlib/TESTING/EIG/dget32.f
+++ b/lapack-netlib/TESTING/EIG/dget32.f
@@ -75,17 +75,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
SUBROUTINE DGET32( RMAX, LMAX, NINFO, KNT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER KNT, LMAX, NINFO
diff --git a/lapack-netlib/TESTING/EIG/dget33.f b/lapack-netlib/TESTING/EIG/dget33.f
index eb6b4516d..c4f3b69ce 100644
--- a/lapack-netlib/TESTING/EIG/dget33.f
+++ b/lapack-netlib/TESTING/EIG/dget33.f
@@ -69,17 +69,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
SUBROUTINE DGET33( RMAX, LMAX, NINFO, KNT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER KNT, LMAX, NINFO
diff --git a/lapack-netlib/TESTING/EIG/dget34.f b/lapack-netlib/TESTING/EIG/dget34.f
index d3939f765..67f0df99f 100644
--- a/lapack-netlib/TESTING/EIG/dget34.f
+++ b/lapack-netlib/TESTING/EIG/dget34.f
@@ -36,7 +36,7 @@
*> offdiagonal with differing signs) and A1 and C1 are returned with the
*> same properties.
*>
-*> The test code verifies these last last assertions, as well as that
+*> The test code verifies these last assertions, as well as that
*> the residual in the above equation is small.
*> \endverbatim
*
@@ -75,17 +75,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
SUBROUTINE DGET34( RMAX, LMAX, NINFO, KNT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER KNT, LMAX
diff --git a/lapack-netlib/TESTING/EIG/dget35.f b/lapack-netlib/TESTING/EIG/dget35.f
index c5d4dece5..a7908fca2 100644
--- a/lapack-netlib/TESTING/EIG/dget35.f
+++ b/lapack-netlib/TESTING/EIG/dget35.f
@@ -71,17 +71,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
SUBROUTINE DGET35( RMAX, LMAX, NINFO, KNT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER KNT, LMAX, NINFO
diff --git a/lapack-netlib/TESTING/EIG/dget36.f b/lapack-netlib/TESTING/EIG/dget36.f
index 83bed283a..8725ae2e4 100644
--- a/lapack-netlib/TESTING/EIG/dget36.f
+++ b/lapack-netlib/TESTING/EIG/dget36.f
@@ -81,17 +81,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
SUBROUTINE DGET36( RMAX, LMAX, NINFO, KNT, NIN )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER KNT, LMAX, NIN
diff --git a/lapack-netlib/TESTING/EIG/dget37.f b/lapack-netlib/TESTING/EIG/dget37.f
index 2a4132c6a..fbdf50be2 100644
--- a/lapack-netlib/TESTING/EIG/dget37.f
+++ b/lapack-netlib/TESTING/EIG/dget37.f
@@ -83,17 +83,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
SUBROUTINE DGET37( RMAX, LMAX, NINFO, KNT, NIN )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER KNT, NIN
diff --git a/lapack-netlib/TESTING/EIG/dget38.f b/lapack-netlib/TESTING/EIG/dget38.f
index c677e3175..a0fb6daec 100644
--- a/lapack-netlib/TESTING/EIG/dget38.f
+++ b/lapack-netlib/TESTING/EIG/dget38.f
@@ -84,17 +84,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
SUBROUTINE DGET38( RMAX, LMAX, NINFO, KNT, NIN )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER KNT, NIN
diff --git a/lapack-netlib/TESTING/EIG/dget39.f b/lapack-netlib/TESTING/EIG/dget39.f
index 17e66c8e6..773d39c71 100644
--- a/lapack-netlib/TESTING/EIG/dget39.f
+++ b/lapack-netlib/TESTING/EIG/dget39.f
@@ -96,17 +96,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
SUBROUTINE DGET39( RMAX, LMAX, NINFO, KNT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER KNT, LMAX, NINFO
diff --git a/lapack-netlib/TESTING/EIG/dget40.f b/lapack-netlib/TESTING/EIG/dget40.f
new file mode 100644
index 000000000..4d087f524
--- /dev/null
+++ b/lapack-netlib/TESTING/EIG/dget40.f
@@ -0,0 +1,223 @@
+*> \brief \b DGET40
+*
+* =========== DOCUMENTATION ===========
+*
+* Online html documentation available at
+* http://www.netlib.org/lapack/explore-html/
+*
+* Definition:
+* ===========
+*
+* SUBROUTINE DGET40( RMAX, LMAX, NINFO, KNT, NIN )
+*
+* .. Scalar Arguments ..
+* INTEGER KNT, LMAX, NIN
+* DOUBLE PRECISION RMAX
+* ..
+* .. Array Arguments ..
+* INTEGER NINFO( 3 )
+*
+*
+*> \par Purpose:
+* =============
+*>
+*> \verbatim
+*>
+*> DGET40 tests DTGEXC, a routine for swapping adjacent blocks (either
+*> 1 by 1 or 2 by 2) on the diagonal of a pencil in real generalized Schur form.
+*> Thus, DTGEXC computes an orthogonal matrices Q and Z such that
+*>
+*> Q' * ( [ A B ], [ D E ] ) * Z = ( [ C1 B1 ], [ F1 E1 ] )
+*> ( [ 0 C ] [ F ] ) ( [ 0 A1 ] [ D1] )
+*>
+*> where (C1,F1) is similar to (C,F) and (A1,D1) is similar to (A,D).
+*> Both (A,D) and (C,F) are assumed to be in standard form
+*> and (A1,D1) and (C1,F1) are returned with the
+*> same properties.
+*> \endverbatim
+*
+* Arguments:
+* ==========
+*
+*> \param[out] RMAX
+*> \verbatim
+*> RMAX is DOUBLE PRECISION
+*> Value of the largest test ratio.
+*> \endverbatim
+*>
+*> \param[out] LMAX
+*> \verbatim
+*> LMAX is INTEGER
+*> Example number where largest test ratio achieved.
+*> \endverbatim
+*>
+*> \param[out] NINFO
+*> \verbatim
+*> NINFO is INTEGER(3)
+*> Number of examples where INFO is nonzero.
+*> \endverbatim
+*>
+*> \param[out] KNT
+*> \verbatim
+*> KNT is INTEGER
+*> Total number of examples tested.
+*> \endverbatim
+*>
+*> \param[out] NIN
+*> \verbatim
+*> NINFO is INTEGER
+*> \endverbatim
+*
+* Authors:
+* ========
+*
+*> \author Univ. of Tennessee
+*> \author Univ. of California Berkeley
+*> \author Univ. of Colorado Denver
+*> \author NAG Ltd.
+*
+*> \ingroup double_eig
+*
+* =====================================================================
+ SUBROUTINE DGET40( RMAX, LMAX, NINFO, KNT, NIN )
+*
+* -- LAPACK test routine --
+* -- LAPACK is a software package provided by Univ. of Tennessee, --
+* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
+*
+* .. Scalar Arguments ..
+ INTEGER KNT, LMAX, NIN
+ DOUBLE PRECISION RMAX
+* ..
+* .. Array Arguments ..
+ INTEGER NINFO( 3 )
+* ..
+*
+* =====================================================================
+*
+* .. Parameters ..
+ DOUBLE PRECISION ZERO, ONE
+ PARAMETER ( ZERO = 0.0D0, ONE = 1.0D0 )
+ INTEGER LDT, LWORK
+ PARAMETER ( LDT = 10, LWORK = 100 + 4*LDT + 16 )
+* ..
+* .. Local Scalars ..
+ INTEGER I, IFST, IFST1, IFST2, IFSTSV, ILST, ILST1,
+ $ ILST2, ILSTSV, INFO1, INFO2, J, LOC, N
+ DOUBLE PRECISION EPS, RES
+* ..
+* .. Local Arrays ..
+ DOUBLE PRECISION Q( LDT, LDT ), Z( LDT, LDT ), RESULT( 4 ),
+ $ T( LDT, LDT ), T1( LDT, LDT ), T2( LDT, LDT ),
+ $ S( LDT, LDT ), S1( LDT, LDT ), S2( LDT, LDT ),
+ $ TMP( LDT, LDT ), WORK( LWORK )
+* ..
+* .. External Functions ..
+ DOUBLE PRECISION DLAMCH
+ EXTERNAL DLAMCH
+* ..
+* .. External Subroutines ..
+ EXTERNAL DHST01, DLACPY, DLASET, DTGEXC
+* ..
+* .. Intrinsic Functions ..
+ INTRINSIC ABS, SIGN
+* ..
+* .. Executable Statements ..
+*
+ EPS = DLAMCH( 'P' )
+ RMAX = ZERO
+ LMAX = 0
+ KNT = 0
+ NINFO( 1 ) = 0
+ NINFO( 2 ) = 0
+ NINFO( 3 ) = 0
+*
+* Read input data until N=0
+*
+ 10 CONTINUE
+ READ( NIN, FMT = * )N, IFST, ILST
+ IF( N.EQ.0 )
+ $ RETURN
+ KNT = KNT + 1
+ DO 20 I = 1, N
+ READ( NIN, FMT = * )( TMP( I, J ), J = 1, N )
+ 20 CONTINUE
+ CALL DLACPY( 'F', N, N, TMP, LDT, T, LDT )
+ CALL DLACPY( 'F', N, N, TMP, LDT, T1, LDT )
+ CALL DLACPY( 'F', N, N, TMP, LDT, T2, LDT )
+ DO 25 I = 1, N
+ READ( NIN, FMT = * )( TMP( I, J ), J = 1, N )
+ 25 CONTINUE
+ CALL DLACPY( 'F', N, N, TMP, LDT, S, LDT )
+ CALL DLACPY( 'F', N, N, TMP, LDT, S1, LDT )
+ CALL DLACPY( 'F', N, N, TMP, LDT, S2, LDT )
+ IFSTSV = IFST
+ ILSTSV = ILST
+ IFST1 = IFST
+ ILST1 = ILST
+ IFST2 = IFST
+ ILST2 = ILST
+ RES = ZERO
+*
+* Test without accumulating Q and Z
+*
+ CALL DLASET( 'Full', N, N, ZERO, ONE, Q, LDT )
+ CALL DLASET( 'Full', N, N, ZERO, ONE, Z, LDT )
+ CALL DTGEXC( .FALSE., .FALSE., N, T1, LDT, S1, LDT, Q, LDT,
+ $ Z, LDT, IFST1, ILST1, WORK, LWORK, INFO1 )
+ DO 40 I = 1, N
+ DO 30 J = 1, N
+ IF( I.EQ.J .AND. Q( I, J ).NE.ONE )
+ $ RES = RES + ONE / EPS
+ IF( I.NE.J .AND. Q( I, J ).NE.ZERO )
+ $ RES = RES + ONE / EPS
+ IF( I.EQ.J .AND. Z( I, J ).NE.ONE )
+ $ RES = RES + ONE / EPS
+ IF( I.NE.J .AND. Z( I, J ).NE.ZERO )
+ $ RES = RES + ONE / EPS
+ 30 CONTINUE
+ 40 CONTINUE
+*
+* Test with accumulating Q
+*
+ CALL DLASET( 'Full', N, N, ZERO, ONE, Q, LDT )
+ CALL DLASET( 'Full', N, N, ZERO, ONE, Z, LDT )
+ CALL DTGEXC( .TRUE., .TRUE., N, T2, LDT, S2, LDT, Q, LDT,
+ $ Z, LDT, IFST2, ILST2, WORK, LWORK, INFO2 )
+*
+* Compare T1 with T2 and S1 with S2
+*
+ DO 60 I = 1, N
+ DO 50 J = 1, N
+ IF( T1( I, J ).NE.T2( I, J ) )
+ $ RES = RES + ONE / EPS
+ IF( S1( I, J ).NE.S2( I, J ) )
+ $ RES = RES + ONE / EPS
+ 50 CONTINUE
+ 60 CONTINUE
+ IF( IFST1.NE.IFST2 )
+ $ RES = RES + ONE / EPS
+ IF( ILST1.NE.ILST2 )
+ $ RES = RES + ONE / EPS
+ IF( INFO1.NE.INFO2 )
+ $ RES = RES + ONE / EPS
+*
+* Test orthogonality of Q and Z and backward error on T2 and S2
+*
+ CALL DGET51( 1, N, T, LDT, T2, LDT, Q, LDT, Z, LDT, WORK,
+ $ RESULT( 1 ) )
+ CALL DGET51( 1, N, S, LDT, S2, LDT, Q, LDT, Z, LDT, WORK,
+ $ RESULT( 2 ) )
+ CALL DGET51( 3, N, T, LDT, T2, LDT, Q, LDT, Q, LDT, WORK,
+ $ RESULT( 3 ) )
+ CALL DGET51( 3, N, T, LDT, T2, LDT, Z, LDT, Z, LDT, WORK,
+ $ RESULT( 4 ) )
+ RES = RES + RESULT( 1 ) + RESULT( 2 ) + RESULT( 3 ) + RESULT( 4 )
+*
+* Read next matrix pair
+*
+ GO TO 10
+*
+* End of DGET40
+*
+ END
diff --git a/lapack-netlib/TESTING/EIG/dget51.f b/lapack-netlib/TESTING/EIG/dget51.f
index 530da5b50..27a403016 100644
--- a/lapack-netlib/TESTING/EIG/dget51.f
+++ b/lapack-netlib/TESTING/EIG/dget51.f
@@ -141,18 +141,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
SUBROUTINE DGET51( ITYPE, N, A, LDA, B, LDB, U, LDU, V, LDV, WORK,
$ RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER ITYPE, LDA, LDB, LDU, LDV, N
diff --git a/lapack-netlib/TESTING/EIG/dget52.f b/lapack-netlib/TESTING/EIG/dget52.f
index e236fccb1..68196f5f3 100644
--- a/lapack-netlib/TESTING/EIG/dget52.f
+++ b/lapack-netlib/TESTING/EIG/dget52.f
@@ -191,18 +191,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
SUBROUTINE DGET52( LEFT, N, A, LDA, B, LDB, E, LDE, ALPHAR,
$ ALPHAI, BETA, WORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL LEFT
@@ -266,7 +263,7 @@
BETMAX = SAFMAX / MAX( ONE, ANORM )
*
* Compute error matrix.
-* Column i = ( b(i) A - a(i) B ) E(i) / max( |a(i) B| |b(i) A| )
+* Column i = ( b(i) A - a(i) B ) E(i) / max( |a(i) B|, |b(i) A| )
*
ILCPLX = .FALSE.
DO 10 JVEC = 1, N
@@ -360,14 +357,14 @@
DO 20 J = 1, N
TEMP1 = MAX( TEMP1, ABS( E( J, JVEC ) ) )
20 CONTINUE
- ENRMER = MAX( ENRMER, TEMP1-ONE )
+ ENRMER = MAX( ENRMER, ABS( TEMP1-ONE ) )
ELSE
ILCPLX = .TRUE.
DO 30 J = 1, N
TEMP1 = MAX( TEMP1, ABS( E( J, JVEC ) )+
$ ABS( E( J, JVEC+1 ) ) )
30 CONTINUE
- ENRMER = MAX( ENRMER, TEMP1-ONE )
+ ENRMER = MAX( ENRMER, ABS( TEMP1-ONE ) )
END IF
END IF
40 CONTINUE
diff --git a/lapack-netlib/TESTING/EIG/dget53.f b/lapack-netlib/TESTING/EIG/dget53.f
index 9cacb3540..ca0e830a7 100644
--- a/lapack-netlib/TESTING/EIG/dget53.f
+++ b/lapack-netlib/TESTING/EIG/dget53.f
@@ -119,17 +119,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
SUBROUTINE DGET53( A, LDA, B, LDB, SCALE, WR, WI, RESULT, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDB
diff --git a/lapack-netlib/TESTING/EIG/dget54.f b/lapack-netlib/TESTING/EIG/dget54.f
index 172daabe9..5ea593310 100644
--- a/lapack-netlib/TESTING/EIG/dget54.f
+++ b/lapack-netlib/TESTING/EIG/dget54.f
@@ -148,18 +148,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
SUBROUTINE DGET54( N, A, LDA, B, LDB, S, LDS, T, LDT, U, LDU, V,
$ LDV, WORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LDB, LDS, LDT, LDU, LDV, N
diff --git a/lapack-netlib/TESTING/EIG/dglmts.f b/lapack-netlib/TESTING/EIG/dglmts.f
index 1f40fe499..0286a757c 100644
--- a/lapack-netlib/TESTING/EIG/dglmts.f
+++ b/lapack-netlib/TESTING/EIG/dglmts.f
@@ -138,18 +138,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
SUBROUTINE DGLMTS( N, M, P, A, AF, LDA, B, BF, LDB, D, DF, X, U,
$ WORK, LWORK, RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LDB, LWORK, M, N, P
diff --git a/lapack-netlib/TESTING/EIG/dgqrts.f b/lapack-netlib/TESTING/EIG/dgqrts.f
index 34f0bab56..4ea8a0ec9 100644
--- a/lapack-netlib/TESTING/EIG/dgqrts.f
+++ b/lapack-netlib/TESTING/EIG/dgqrts.f
@@ -168,18 +168,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
SUBROUTINE DGQRTS( N, M, P, A, AF, Q, R, LDA, TAUA, B, BF, Z, T,
$ BWK, LDB, TAUB, WORK, LWORK, RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LDB, LWORK, M, N, P
diff --git a/lapack-netlib/TESTING/EIG/dgrqts.f b/lapack-netlib/TESTING/EIG/dgrqts.f
index 4e38b0a74..c69aeee23 100644
--- a/lapack-netlib/TESTING/EIG/dgrqts.f
+++ b/lapack-netlib/TESTING/EIG/dgrqts.f
@@ -168,18 +168,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
SUBROUTINE DGRQTS( M, P, N, A, AF, Q, R, LDA, TAUA, B, BF, Z, T,
$ BWK, LDB, TAUB, WORK, LWORK, RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LDB, LWORK, M, N, P
diff --git a/lapack-netlib/TESTING/EIG/dgsvts3.f b/lapack-netlib/TESTING/EIG/dgsvts3.f
index 131aa81bc..8a0ebac03 100644
--- a/lapack-netlib/TESTING/EIG/dgsvts3.f
+++ b/lapack-netlib/TESTING/EIG/dgsvts3.f
@@ -201,8 +201,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date August 2015
-*
*> \ingroup double_eig
*
* =====================================================================
@@ -210,10 +208,9 @@
$ LDV, Q, LDQ, ALPHA, BETA, R, LDR, IWORK, WORK,
$ LWORK, RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* August 2015
*
* .. Scalar Arguments ..
INTEGER LDA, LDB, LDQ, LDR, LDU, LDV, LWORK, M, N, P
diff --git a/lapack-netlib/TESTING/EIG/dhst01.f b/lapack-netlib/TESTING/EIG/dhst01.f
index 9e7ae0201..79925881b 100644
--- a/lapack-netlib/TESTING/EIG/dhst01.f
+++ b/lapack-netlib/TESTING/EIG/dhst01.f
@@ -126,18 +126,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
SUBROUTINE DHST01( N, ILO, IHI, A, LDA, H, LDH, Q, LDQ, WORK,
$ LWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER IHI, ILO, LDA, LDH, LDQ, LWORK, N
diff --git a/lapack-netlib/TESTING/EIG/dlafts.f b/lapack-netlib/TESTING/EIG/dlafts.f
index 634c52c1b..64a0bfc52 100644
--- a/lapack-netlib/TESTING/EIG/dlafts.f
+++ b/lapack-netlib/TESTING/EIG/dlafts.f
@@ -91,18 +91,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
SUBROUTINE DLAFTS( TYPE, M, N, IMAT, NTESTS, RESULT, ISEED,
$ THRESH, IOUNIT, IE )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 TYPE
diff --git a/lapack-netlib/TESTING/EIG/dlahd2.f b/lapack-netlib/TESTING/EIG/dlahd2.f
index efb32c917..a6c65635f 100644
--- a/lapack-netlib/TESTING/EIG/dlahd2.f
+++ b/lapack-netlib/TESTING/EIG/dlahd2.f
@@ -58,17 +58,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
SUBROUTINE DLAHD2( IOUNIT, PATH )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/EIG/dlarfy.f b/lapack-netlib/TESTING/EIG/dlarfy.f
index a0b0ebb31..dc0e328e7 100644
--- a/lapack-netlib/TESTING/EIG/dlarfy.f
+++ b/lapack-netlib/TESTING/EIG/dlarfy.f
@@ -101,17 +101,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
SUBROUTINE DLARFY( UPLO, N, V, INCV, TAU, C, LDC, WORK )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/EIG/dlarhs.f b/lapack-netlib/TESTING/EIG/dlarhs.f
index 74b22792a..58bee151b 100644
--- a/lapack-netlib/TESTING/EIG/dlarhs.f
+++ b/lapack-netlib/TESTING/EIG/dlarhs.f
@@ -30,7 +30,7 @@
*> DLARHS chooses a set of NRHS random solution vectors and sets
*> up the right hand sides for the linear system
*> op( A ) * X = B,
-*> where op( A ) may be A or A' (transpose of A).
+*> where op(A) = A or A**T, depending on TRANS.
*> \endverbatim
*
* Arguments:
@@ -79,10 +79,11 @@
*> \param[in] TRANS
*> \verbatim
*> TRANS is CHARACTER*1
-*> Specifies the operation applied to the matrix A.
-*> = 'N': System is A * x = b
-*> = 'T': System is A'* x = b
-*> = 'C': System is A'* x = b
+*> Used only if A is nonsymmetric; specifies the operation
+*> applied to the matrix A.
+*> = 'N': B := A * X (No transpose)
+*> = 'T': B := A**T * X (Transpose)
+*> = 'C': B := A**H * X (Conjugate transpose = Transpose)
*> \endverbatim
*>
*> \param[in] M
@@ -196,18 +197,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup double_eig
*
* =====================================================================
SUBROUTINE DLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS,
$ A, LDA, X, LDX, B, LDB, ISEED, INFO )
*
-* -- LAPACK test routine (version 3.7.1) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2017
*
* .. Scalar Arguments ..
CHARACTER TRANS, UPLO, XTYPE
diff --git a/lapack-netlib/TESTING/EIG/dlasum.f b/lapack-netlib/TESTING/EIG/dlasum.f
index 555c405a1..d5b8717b4 100644
--- a/lapack-netlib/TESTING/EIG/dlasum.f
+++ b/lapack-netlib/TESTING/EIG/dlasum.f
@@ -36,17 +36,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
SUBROUTINE DLASUM( TYPE, IOUNIT, IE, NRUN )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 TYPE
diff --git a/lapack-netlib/TESTING/EIG/dlatb9.f b/lapack-netlib/TESTING/EIG/dlatb9.f
index 42ce5a07a..70647889b 100644
--- a/lapack-netlib/TESTING/EIG/dlatb9.f
+++ b/lapack-netlib/TESTING/EIG/dlatb9.f
@@ -161,8 +161,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
@@ -170,10 +168,9 @@
$ ANORM, BNORM, MODEA, MODEB, CNDNMA, CNDNMB,
$ DISTA, DISTB )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DISTA, DISTB, TYPE
diff --git a/lapack-netlib/TESTING/EIG/dlatm4.f b/lapack-netlib/TESTING/EIG/dlatm4.f
index 04de323d5..266c10ff1 100644
--- a/lapack-netlib/TESTING/EIG/dlatm4.f
+++ b/lapack-netlib/TESTING/EIG/dlatm4.f
@@ -167,18 +167,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
SUBROUTINE DLATM4( ITYPE, N, NZ1, NZ2, ISIGN, AMAGN, RCOND,
$ TRIANG, IDIST, ISEED, A, LDA )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER IDIST, ISIGN, ITYPE, LDA, N, NZ1, NZ2
diff --git a/lapack-netlib/TESTING/EIG/dlctes.f b/lapack-netlib/TESTING/EIG/dlctes.f
index 082c4514e..039dfb2aa 100644
--- a/lapack-netlib/TESTING/EIG/dlctes.f
+++ b/lapack-netlib/TESTING/EIG/dlctes.f
@@ -61,17 +61,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup double_eig
*
* =====================================================================
LOGICAL FUNCTION DLCTES( ZR, ZI, D )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2016
*
* .. Scalar Arguments ..
DOUBLE PRECISION D, ZI, ZR
diff --git a/lapack-netlib/TESTING/EIG/dlctsx.f b/lapack-netlib/TESTING/EIG/dlctsx.f
index f852b60a7..878262070 100644
--- a/lapack-netlib/TESTING/EIG/dlctsx.f
+++ b/lapack-netlib/TESTING/EIG/dlctsx.f
@@ -58,17 +58,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
LOGICAL FUNCTION DLCTSX( AR, AI, BETA )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
DOUBLE PRECISION AI, AR, BETA
diff --git a/lapack-netlib/TESTING/EIG/dlsets.f b/lapack-netlib/TESTING/EIG/dlsets.f
index f2303614c..3616183a5 100644
--- a/lapack-netlib/TESTING/EIG/dlsets.f
+++ b/lapack-netlib/TESTING/EIG/dlsets.f
@@ -143,18 +143,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
SUBROUTINE DLSETS( M, P, N, A, AF, LDA, B, BF, LDB, C, CF, D, DF,
$ X, WORK, LWORK, RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LDB, LWORK, M, N, P
diff --git a/lapack-netlib/TESTING/EIG/dort01.f b/lapack-netlib/TESTING/EIG/dort01.f
index 32694bd07..eb1d7a7ec 100644
--- a/lapack-netlib/TESTING/EIG/dort01.f
+++ b/lapack-netlib/TESTING/EIG/dort01.f
@@ -109,17 +109,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
SUBROUTINE DORT01( ROWCOL, M, N, U, LDU, WORK, LWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER ROWCOL
diff --git a/lapack-netlib/TESTING/EIG/dort03.f b/lapack-netlib/TESTING/EIG/dort03.f
index 46f34574f..a7ce1588e 100644
--- a/lapack-netlib/TESTING/EIG/dort03.f
+++ b/lapack-netlib/TESTING/EIG/dort03.f
@@ -148,18 +148,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
SUBROUTINE DORT03( RC, MU, MV, N, K, U, LDU, V, LDV, WORK, LWORK,
$ RESULT, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*( * ) RC
diff --git a/lapack-netlib/TESTING/EIG/dsbt21.f b/lapack-netlib/TESTING/EIG/dsbt21.f
index 54795623b..33a0c807b 100644
--- a/lapack-netlib/TESTING/EIG/dsbt21.f
+++ b/lapack-netlib/TESTING/EIG/dsbt21.f
@@ -139,18 +139,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
SUBROUTINE DSBT21( UPLO, N, KA, KS, A, LDA, D, E, U, LDU, WORK,
$ RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/EIG/dsgt01.f b/lapack-netlib/TESTING/EIG/dsgt01.f
index bb3e42b4c..db76456c6 100644
--- a/lapack-netlib/TESTING/EIG/dsgt01.f
+++ b/lapack-netlib/TESTING/EIG/dsgt01.f
@@ -138,18 +138,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
SUBROUTINE DSGT01( ITYPE, UPLO, N, M, A, LDA, B, LDB, Z, LDZ, D,
$ WORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
@@ -240,6 +237,6 @@
*
RETURN
*
-* End of DDGT01
+* End of DSGT01
*
END
diff --git a/lapack-netlib/TESTING/EIG/dslect.f b/lapack-netlib/TESTING/EIG/dslect.f
index af5846799..e2ef8df88 100644
--- a/lapack-netlib/TESTING/EIG/dslect.f
+++ b/lapack-netlib/TESTING/EIG/dslect.f
@@ -55,17 +55,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup double_eig
*
* =====================================================================
LOGICAL FUNCTION DSLECT( ZR, ZI )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2016
*
* .. Scalar Arguments ..
DOUBLE PRECISION ZI, ZR
diff --git a/lapack-netlib/TESTING/EIG/dspt21.f b/lapack-netlib/TESTING/EIG/dspt21.f
index 4b1d360c5..7fba320f4 100644
--- a/lapack-netlib/TESTING/EIG/dspt21.f
+++ b/lapack-netlib/TESTING/EIG/dspt21.f
@@ -213,18 +213,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
SUBROUTINE DSPT21( ITYPE, UPLO, N, KBAND, AP, D, E, U, LDU, VP,
$ TAU, WORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/EIG/dstech.f b/lapack-netlib/TESTING/EIG/dstech.f
index 23ae8e575..00a1406ea 100644
--- a/lapack-netlib/TESTING/EIG/dstech.f
+++ b/lapack-netlib/TESTING/EIG/dstech.f
@@ -94,17 +94,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
SUBROUTINE DSTECH( N, A, B, EIG, TOL, WORK, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, N
diff --git a/lapack-netlib/TESTING/EIG/dstect.f b/lapack-netlib/TESTING/EIG/dstect.f
index 1a8aef33b..d23f8dc4b 100644
--- a/lapack-netlib/TESTING/EIG/dstect.f
+++ b/lapack-netlib/TESTING/EIG/dstect.f
@@ -75,17 +75,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
SUBROUTINE DSTECT( N, A, B, SHIFT, NUM )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER N, NUM
diff --git a/lapack-netlib/TESTING/EIG/dstt21.f b/lapack-netlib/TESTING/EIG/dstt21.f
index 9d289ffc7..6eca6e6b7 100644
--- a/lapack-netlib/TESTING/EIG/dstt21.f
+++ b/lapack-netlib/TESTING/EIG/dstt21.f
@@ -119,18 +119,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
SUBROUTINE DSTT21( N, KBAND, AD, AE, SD, SE, U, LDU, WORK,
$ RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER KBAND, LDU, N
diff --git a/lapack-netlib/TESTING/EIG/dstt22.f b/lapack-netlib/TESTING/EIG/dstt22.f
index 5cdc056c9..fc68590cf 100644
--- a/lapack-netlib/TESTING/EIG/dstt22.f
+++ b/lapack-netlib/TESTING/EIG/dstt22.f
@@ -131,18 +131,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
SUBROUTINE DSTT22( N, M, KBAND, AD, AE, SD, SE, U, LDU, WORK,
$ LDWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER KBAND, LDU, LDWORK, M, N
diff --git a/lapack-netlib/TESTING/EIG/dsvdch.f b/lapack-netlib/TESTING/EIG/dsvdch.f
index 9f3129dd2..58cfb5cb6 100644
--- a/lapack-netlib/TESTING/EIG/dsvdch.f
+++ b/lapack-netlib/TESTING/EIG/dsvdch.f
@@ -90,17 +90,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
SUBROUTINE DSVDCH( N, S, E, SVD, TOL, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, N
diff --git a/lapack-netlib/TESTING/EIG/dsvdct.f b/lapack-netlib/TESTING/EIG/dsvdct.f
index ddb1ebf68..6f87c5712 100644
--- a/lapack-netlib/TESTING/EIG/dsvdct.f
+++ b/lapack-netlib/TESTING/EIG/dsvdct.f
@@ -80,17 +80,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
SUBROUTINE DSVDCT( N, S, E, SHIFT, NUM )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER N, NUM
diff --git a/lapack-netlib/TESTING/EIG/dsxt1.f b/lapack-netlib/TESTING/EIG/dsxt1.f
index 6d482c2fe..97b323ca0 100644
--- a/lapack-netlib/TESTING/EIG/dsxt1.f
+++ b/lapack-netlib/TESTING/EIG/dsxt1.f
@@ -98,18 +98,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
DOUBLE PRECISION FUNCTION DSXT1( IJOB, D1, N1, D2, N2, ABSTOL,
$ ULP, UNFL )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER IJOB, N1, N2
diff --git a/lapack-netlib/TESTING/EIG/dsyt21.f b/lapack-netlib/TESTING/EIG/dsyt21.f
index e00bd0db2..86c506902 100644
--- a/lapack-netlib/TESTING/EIG/dsyt21.f
+++ b/lapack-netlib/TESTING/EIG/dsyt21.f
@@ -199,18 +199,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
SUBROUTINE DSYT21( ITYPE, UPLO, N, KBAND, A, LDA, D, E, U, LDU, V,
$ LDV, TAU, WORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/EIG/dsyt22.f b/lapack-netlib/TESTING/EIG/dsyt22.f
index 09e4aeb82..5a98f9095 100644
--- a/lapack-netlib/TESTING/EIG/dsyt22.f
+++ b/lapack-netlib/TESTING/EIG/dsyt22.f
@@ -149,18 +149,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
SUBROUTINE DSYT22( ITYPE, UPLO, N, M, KBAND, A, LDA, D, E, U, LDU,
$ V, LDV, TAU, WORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/EIG/ilaenv.f b/lapack-netlib/TESTING/EIG/ilaenv.f
index d99f52ea9..2b6c6f091 100644
--- a/lapack-netlib/TESTING/EIG/ilaenv.f
+++ b/lapack-netlib/TESTING/EIG/ilaenv.f
@@ -122,8 +122,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup OTHERauxiliary
*
*> \par Further Details:
@@ -153,10 +151,9 @@
INTEGER FUNCTION ILAENV( ISPEC, NAME, OPTS, N1, N2, N3,
$ N4 )
*
-* -- LAPACK test routine (version 3.8.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2017
*
* .. Scalar Arguments ..
CHARACTER*( * ) NAME, OPTS
@@ -297,6 +294,9 @@ C ILAENV = 0
END IF
*
RETURN
+*
+* End of ILAENV2STAGE
+*
END
INTEGER FUNCTION IPARMQ( ISPEC, NAME, OPTS, N, ILO, IHI, LWORK )
*
diff --git a/lapack-netlib/TESTING/EIG/sbdt01.f b/lapack-netlib/TESTING/EIG/sbdt01.f
index 7523e1b5b..fdc30a51e 100644
--- a/lapack-netlib/TESTING/EIG/sbdt01.f
+++ b/lapack-netlib/TESTING/EIG/sbdt01.f
@@ -27,13 +27,13 @@
*> \verbatim
*>
*> SBDT01 reconstructs a general matrix A from its bidiagonal form
-*> A = Q * B * P'
-*> where Q (m by min(m,n)) and P' (min(m,n) by n) are orthogonal
+*> A = Q * B * P**T
+*> where Q (m by min(m,n)) and P**T (min(m,n) by n) are orthogonal
*> matrices and B is bidiagonal.
*>
*> The test ratio to test the reduction is
-*> RESID = norm( A - Q * B * PT ) / ( n * norm(A) * EPS )
-*> where PT = P' and EPS is the machine precision.
+*> RESID = norm(A - Q * B * P**T) / ( n * norm(A) * EPS )
+*> where EPS is the machine precision.
*> \endverbatim
*
* Arguments:
@@ -48,7 +48,7 @@
*> \param[in] N
*> \verbatim
*> N is INTEGER
-*> The number of columns of the matrices A and P'.
+*> The number of columns of the matrices A and P**T.
*> \endverbatim
*>
*> \param[in] KD
@@ -77,7 +77,7 @@
*> \verbatim
*> Q is REAL array, dimension (LDQ,N)
*> The m by min(m,n) orthogonal matrix Q in the reduction
-*> A = Q * B * P'.
+*> A = Q * B * P**T.
*> \endverbatim
*>
*> \param[in] LDQ
@@ -102,8 +102,8 @@
*> \param[in] PT
*> \verbatim
*> PT is REAL array, dimension (LDPT,N)
-*> The min(m,n) by n orthogonal matrix P' in the reduction
-*> A = Q * B * P'.
+*> The min(m,n) by n orthogonal matrix P**T in the reduction
+*> A = Q * B * P**T.
*> \endverbatim
*>
*> \param[in] LDPT
@@ -121,7 +121,8 @@
*> \param[out] RESID
*> \verbatim
*> RESID is REAL
-*> The test ratio: norm(A - Q * B * P') / ( n * norm(A) * EPS )
+*> The test ratio:
+*> norm(A - Q * B * P**T) / ( n * norm(A) * EPS )
*> \endverbatim
*
* Authors:
@@ -132,18 +133,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
SUBROUTINE SBDT01( M, N, KD, A, LDA, Q, LDQ, D, E, PT, LDPT, WORK,
$ RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER KD, LDA, LDPT, LDQ, M, N
@@ -183,7 +181,7 @@
RETURN
END IF
*
-* Compute A - Q * B * P' one column at a time.
+* Compute A - Q * B * P**T one column at a time.
*
RESID = ZERO
IF( KD.NE.0 ) THEN
@@ -261,7 +259,7 @@
END IF
END IF
*
-* Compute norm(A - Q * B * P') / ( n * norm(A) * EPS )
+* Compute norm(A - Q * B * P**T) / ( n * norm(A) * EPS )
*
ANORM = SLANGE( '1', M, N, A, LDA, WORK )
EPS = SLAMCH( 'Precision' )
diff --git a/lapack-netlib/TESTING/EIG/sbdt02.f b/lapack-netlib/TESTING/EIG/sbdt02.f
index b31e64935..1cf8a2272 100644
--- a/lapack-netlib/TESTING/EIG/sbdt02.f
+++ b/lapack-netlib/TESTING/EIG/sbdt02.f
@@ -25,7 +25,8 @@
*>
*> \verbatim
*>
-*> SBDT02 tests the change of basis C = U' * B by computing the residual
+*> SBDT02 tests the change of basis C = U**H * B by computing the
+*> residual
*>
*> RESID = norm( B - U * C ) / ( max(m,n) * norm(B) * EPS ),
*>
@@ -64,7 +65,7 @@
*> \param[in] C
*> \verbatim
*> C is REAL array, dimension (LDC,N)
-*> The m by n matrix C, assumed to contain U' * B.
+*> The m by n matrix C, assumed to contain U**H * B.
*> \endverbatim
*>
*> \param[in] LDC
@@ -104,17 +105,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
SUBROUTINE SBDT02( M, N, B, LDB, C, LDC, U, LDU, WORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDB, LDC, LDU, M, N
diff --git a/lapack-netlib/TESTING/EIG/sbdt03.f b/lapack-netlib/TESTING/EIG/sbdt03.f
index 73e58cea7..1956325e9 100644
--- a/lapack-netlib/TESTING/EIG/sbdt03.f
+++ b/lapack-netlib/TESTING/EIG/sbdt03.f
@@ -127,18 +127,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
SUBROUTINE SBDT03( UPLO, N, KD, D, E, U, LDU, S, VT, LDVT, WORK,
$ RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/EIG/sbdt04.f b/lapack-netlib/TESTING/EIG/sbdt04.f
index c41987635..a97cc28c1 100644
--- a/lapack-netlib/TESTING/EIG/sbdt04.f
+++ b/lapack-netlib/TESTING/EIG/sbdt04.f
@@ -123,18 +123,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
SUBROUTINE SBDT04( UPLO, N, D, E, S, NS, U, LDU, VT, LDVT, WORK,
$ RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/EIG/sbdt05.f b/lapack-netlib/TESTING/EIG/sbdt05.f
index e3e79e91e..121c35a90 100644
--- a/lapack-netlib/TESTING/EIG/sbdt05.f
+++ b/lapack-netlib/TESTING/EIG/sbdt05.f
@@ -1,3 +1,5 @@
+*> \brief \b SBDT05
+*
* =========== DOCUMENTATION ===========
*
* Online html documentation available at
@@ -117,18 +119,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
SUBROUTINE SBDT05( M, N, A, LDA, S, NS, U, LDU,
$ VT, LDVT, WORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LDU, LDVT, M, N, NS
diff --git a/lapack-netlib/TESTING/EIG/schkbb.f b/lapack-netlib/TESTING/EIG/schkbb.f
index 55f18c0af..a3d48d737 100644
--- a/lapack-netlib/TESTING/EIG/schkbb.f
+++ b/lapack-netlib/TESTING/EIG/schkbb.f
@@ -345,8 +345,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
@@ -358,7 +356,6 @@
* -- LAPACK test routine (input) --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDAB, LDC, LDP, LDQ, LWORK, NOUNIT,
diff --git a/lapack-netlib/TESTING/EIG/schkbd.f b/lapack-netlib/TESTING/EIG/schkbd.f
index 4da7798fb..ba19cddd2 100644
--- a/lapack-netlib/TESTING/EIG/schkbd.f
+++ b/lapack-netlib/TESTING/EIG/schkbd.f
@@ -483,8 +483,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup single_eig
*
* =====================================================================
@@ -493,10 +491,9 @@
$ Y, Z, Q, LDQ, PT, LDPT, U, VT, WORK, LWORK,
$ IWORK, NOUT, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDPT, LDQ, LDX, LWORK, NOUT, NRHS,
diff --git a/lapack-netlib/TESTING/EIG/schkbk.f b/lapack-netlib/TESTING/EIG/schkbk.f
index 37a636bc2..182401757 100644
--- a/lapack-netlib/TESTING/EIG/schkbk.f
+++ b/lapack-netlib/TESTING/EIG/schkbk.f
@@ -48,17 +48,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
SUBROUTINE SCHKBK( NIN, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER NIN, NOUT
diff --git a/lapack-netlib/TESTING/EIG/schkbl.f b/lapack-netlib/TESTING/EIG/schkbl.f
index ebce7cd83..e0634603b 100644
--- a/lapack-netlib/TESTING/EIG/schkbl.f
+++ b/lapack-netlib/TESTING/EIG/schkbl.f
@@ -47,17 +47,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
SUBROUTINE SCHKBL( NIN, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER NIN, NOUT
diff --git a/lapack-netlib/TESTING/EIG/schkec.f b/lapack-netlib/TESTING/EIG/schkec.f
index d4dff03ea..e6123e1ad 100644
--- a/lapack-netlib/TESTING/EIG/schkec.f
+++ b/lapack-netlib/TESTING/EIG/schkec.f
@@ -24,7 +24,7 @@
*>
*> SCHKEC tests eigen- condition estimation routines
*> SLALN2, SLASY2, SLANV2, SLAQTR, SLAEXC,
-*> STRSYL, STREXC, STRSNA, STRSEN
+*> STRSYL, STREXC, STRSNA, STRSEN, STGEXC
*>
*> In all cases, the routine runs through a fixed set of numerical
*> examples, subjects them to various tests, and compares the test
@@ -69,17 +69,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
SUBROUTINE SCHKEC( THRESH, TSTERR, NIN, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
@@ -95,9 +92,9 @@
INTEGER KLAEXC, KLALN2, KLANV2, KLAQTR, KLASY2, KTREXC,
$ KTRSEN, KTRSNA, KTRSYL, LLAEXC, LLALN2, LLANV2,
$ LLAQTR, LLASY2, LTREXC, LTRSYL, NLANV2, NLAQTR,
- $ NLASY2, NTESTS, NTRSYL
+ $ NLASY2, NTESTS, NTRSYL, KTGEXC, NTGEXC, LTGEXC
REAL EPS, RLAEXC, RLALN2, RLANV2, RLAQTR, RLASY2,
- $ RTREXC, RTRSYL, SFMIN
+ $ RTREXC, RTRSYL, SFMIN, RTGEXC
* ..
* .. Local Arrays ..
INTEGER LTRSEN( 3 ), LTRSNA( 3 ), NLAEXC( 2 ),
@@ -107,7 +104,7 @@
* ..
* .. External Subroutines ..
EXTERNAL SERREC, SGET31, SGET32, SGET33, SGET34, SGET35,
- $ SGET36, SGET37, SGET38, SGET39
+ $ SGET36, SGET37, SGET38, SGET39, SGET40
* ..
* .. External Functions ..
REAL SLAMCH
@@ -189,6 +186,12 @@
OK = .FALSE.
WRITE( NOUT, FMT = 9991 )RLAQTR, LLAQTR, NLAQTR, KLAQTR
END IF
+*
+ CALL SGET40( RTGEXC, LTGEXC, NTGEXC, KTGEXC, NIN )
+ IF( RTGEXC.GT.THRESH ) THEN
+ OK = .FALSE.
+ WRITE( NOUT, FMT = 9986 )RTGEXC, LTGEXC, NTGEXC, KTGEXC
+ END IF
*
NTESTS = KLALN2 + KLASY2 + KLANV2 + KLAEXC + KTRSYL + KTREXC +
$ KTRSNA + KTRSEN + KLAQTR
@@ -223,6 +226,8 @@
$ 'minimum (SFMIN) = ', E16.6, / )
9987 FORMAT( ' Routines pass computational tests if test ratio is les',
$ 's than', F8.2, / / )
+ 9986 FORMAT( ' Error in STGEXC: RMAX =', E12.3, / ' LMAX = ', I8, ' N',
+ $ 'INFO=', I8, ' KNT=', I8 )
*
* End of SCHKEC
*
diff --git a/lapack-netlib/TESTING/EIG/schkee.F b/lapack-netlib/TESTING/EIG/schkee.F
index b58433959..bf04b5e5b 100644
--- a/lapack-netlib/TESTING/EIG/schkee.F
+++ b/lapack-netlib/TESTING/EIG/schkee.F
@@ -1033,8 +1033,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup single_eig
*
* =====================================================================
@@ -1044,10 +1042,9 @@
use omp_lib
#endif
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2016
*
* =====================================================================
*
diff --git a/lapack-netlib/TESTING/EIG/schkgg.f b/lapack-netlib/TESTING/EIG/schkgg.f
index 6b18a68ba..fff2a6c2e 100644
--- a/lapack-netlib/TESTING/EIG/schkgg.f
+++ b/lapack-netlib/TESTING/EIG/schkgg.f
@@ -500,8 +500,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup single_eig
*
* =====================================================================
@@ -511,10 +509,9 @@
$ BETA1, ALPHR3, ALPHI3, BETA3, EVECTL, EVECTR,
$ WORK, LWORK, LLWORK, RESULT, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2016
*
* .. Scalar Arguments ..
LOGICAL TSTDIF
diff --git a/lapack-netlib/TESTING/EIG/schkgk.f b/lapack-netlib/TESTING/EIG/schkgk.f
index 6d86a1380..d8d98ca96 100644
--- a/lapack-netlib/TESTING/EIG/schkgk.f
+++ b/lapack-netlib/TESTING/EIG/schkgk.f
@@ -47,17 +47,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
SUBROUTINE SCHKGK( NIN, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER NIN, NOUT
diff --git a/lapack-netlib/TESTING/EIG/schkgl.f b/lapack-netlib/TESTING/EIG/schkgl.f
index 51b6ff8f7..5ce99d90a 100644
--- a/lapack-netlib/TESTING/EIG/schkgl.f
+++ b/lapack-netlib/TESTING/EIG/schkgl.f
@@ -46,17 +46,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
SUBROUTINE SCHKGL( NIN, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER NIN, NOUT
diff --git a/lapack-netlib/TESTING/EIG/schkhs.f b/lapack-netlib/TESTING/EIG/schkhs.f
index fab38c2be..ab0e90138 100644
--- a/lapack-netlib/TESTING/EIG/schkhs.f
+++ b/lapack-netlib/TESTING/EIG/schkhs.f
@@ -401,8 +401,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
@@ -412,10 +410,9 @@
$ EVECTY, EVECTX, UU, TAU, WORK, NWORK, IWORK,
$ SELECT, RESULT, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDU, NOUNIT, NSIZES, NTYPES, NWORK
diff --git a/lapack-netlib/TESTING/EIG/schksb.f b/lapack-netlib/TESTING/EIG/schksb.f
index e68a95cb5..b93e9e680 100644
--- a/lapack-netlib/TESTING/EIG/schksb.f
+++ b/lapack-netlib/TESTING/EIG/schksb.f
@@ -284,8 +284,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
@@ -293,10 +291,9 @@
$ THRESH, NOUNIT, A, LDA, SD, SE, U, LDU, WORK,
$ LWORK, RESULT, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDU, LWORK, NOUNIT, NSIZES, NTYPES,
diff --git a/lapack-netlib/TESTING/EIG/schksb2stg.f b/lapack-netlib/TESTING/EIG/schksb2stg.f
index 7308bb690..5de920497 100644
--- a/lapack-netlib/TESTING/EIG/schksb2stg.f
+++ b/lapack-netlib/TESTING/EIG/schksb2stg.f
@@ -1,4 +1,4 @@
-*> \brief \b SCHKSBSTG
+*> \brief \b SCHKSB2STG
*
* =========== DOCUMENTATION ===========
*
@@ -21,6 +21,7 @@
* LOGICAL DOTYPE( * )
* INTEGER ISEED( 4 ), KK( * ), NN( * )
* REAL A( LDA, * ), RESULT( * ), SD( * ), SE( * ),
+* $ D1( * ), D2( * ), D3( * ),
* $ U( LDU, * ), WORK( * )
* ..
*
@@ -30,18 +31,18 @@
*>
*> \verbatim
*>
-*> SCHKSBSTG tests the reduction of a symmetric band matrix to tridiagonal
+*> SCHKSB2STG tests the reduction of a symmetric band matrix to tridiagonal
*> form, used with the symmetric eigenvalue problem.
*>
*> SSBTRD factors a symmetric band matrix A as U S U' , where ' means
*> transpose, S is symmetric tridiagonal, and U is orthogonal.
*> SSBTRD can use either just the lower or just the upper triangle
-*> of A; SCHKSBSTG checks both cases.
+*> of A; SCHKSB2STG checks both cases.
*>
*> SSYTRD_SB2ST factors a symmetric band matrix A as U S U' ,
*> where ' means transpose, S is symmetric tridiagonal, and U is
*> orthogonal. SSYTRD_SB2ST can use either just the lower or just
-*> the upper triangle of A; SCHKSBSTG checks both cases.
+*> the upper triangle of A; SCHKSB2STG checks both cases.
*>
*> SSTEQR factors S as Z D1 Z'.
*> D1 is the matrix of eigenvalues computed when Z is not computed
@@ -51,7 +52,7 @@
*> D3 is the matrix of eigenvalues computed when Z is not computed
*> and from the S resulting of SSYTRD_SB2ST "L".
*>
-*> When SCHKSBSTG is called, a number of matrix "sizes" ("n's"), a number
+*> When SCHKSB2STG is called, a number of matrix "sizes" ("n's"), a number
*> of bandwidths ("k's"), and a number of matrix "types" are
*> specified. For each size ("n"), each bandwidth ("k") less than or
*> equal to "n", and each type of matrix, one matrix will be generated
@@ -125,7 +126,7 @@
*> \verbatim
*> NSIZES is INTEGER
*> The number of sizes of matrices to use. If it is zero,
-*> SCHKSBSTG does nothing. It must be at least zero.
+*> SCHKSB2STG does nothing. It must be at least zero.
*> \endverbatim
*>
*> \param[in] NN
@@ -140,7 +141,7 @@
*> \verbatim
*> NWDTHS is INTEGER
*> The number of bandwidths to use. If it is zero,
-*> SCHKSBSTG does nothing. It must be at least zero.
+*> SCHKSB2STG does nothing. It must be at least zero.
*> \endverbatim
*>
*> \param[in] KK
@@ -153,7 +154,7 @@
*> \param[in] NTYPES
*> \verbatim
*> NTYPES is INTEGER
-*> The number of elements in DOTYPE. If it is zero, SCHKSBSTG
+*> The number of elements in DOTYPE. If it is zero, SCHKSB2STG
*> does nothing. It must be at least zero. If it is MAXTYP+1
*> and NSIZES is 1, then an additional type, MAXTYP+1 is
*> defined, which is to use whatever matrix is in A. This
@@ -183,7 +184,7 @@
*> congruential sequence limited to small integers, and so
*> should produce machine independent random numbers. The
*> values of ISEED are changed on exit, and can be used in the
-*> next call to SCHKSBSTG to continue the same random number
+*> next call to SCHKSB2STG to continue the same random number
*> sequence.
*> \endverbatim
*>
@@ -234,6 +235,21 @@
*> computed by SSBTRD.
*> \endverbatim
*>
+*> \param[out] D1
+*> \verbatim
+*> D1 is REAL array, dimension (max(NN))
+*> \endverbatim
+*>
+*> \param[out] D2
+*> \verbatim
+*> D2 is REAL array, dimension (max(NN))
+*> \endverbatim
+*>
+*> \param[out] D3
+*> \verbatim
+*> D3 is REAL array, dimension (max(NN))
+*> \endverbatim
+*>
*> \param[out] U
*> \verbatim
*> U is REAL array, dimension (LDU, max(NN))
@@ -307,8 +323,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup single_eig
*
* =====================================================================
@@ -316,10 +330,9 @@
$ ISEED, THRESH, NOUNIT, A, LDA, SD, SE, D1,
$ D2, D3, U, LDU, WORK, LWORK, RESULT, INFO )
*
-* -- LAPACK test routine (version 3.7.1) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2017
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDU, LWORK, NOUNIT, NSIZES, NTYPES,
@@ -422,7 +435,7 @@
END IF
*
IF( INFO.NE.0 ) THEN
- CALL XERBLA( 'SCHKSBSTG', -INFO )
+ CALL XERBLA( 'SCHKSB2STG', -INFO )
RETURN
END IF
*
@@ -743,8 +756,8 @@
* the one from above. Compare it with D1 computed
* using the SSBTRD.
*
- CALL SLASET( 'Full', N, 1, ZERO, ZERO, SD, 1 )
- CALL SLASET( 'Full', N, 1, ZERO, ZERO, SE, 1 )
+ CALL SLASET( 'Full', N, 1, ZERO, ZERO, SD, N )
+ CALL SLASET( 'Full', N, 1, ZERO, ZERO, SE, N )
CALL SLACPY( ' ', K+1, N, A, LDA, U, LDU )
LH = MAX(1, 4*N)
LW = LWORK - LH
@@ -827,12 +840,12 @@
CALL SLASUM( 'SSB', NOUNIT, NERRS, NTESTT )
RETURN
*
- 9999 FORMAT( ' SCHKSBSTG: ', A, ' returned INFO=', I6, '.', / 9X, 'N=',
+ 9999 FORMAT( ' SCHKSB2STG: ', A, ' returned INFO=', I6, '.', / 9X, 'N=',
$ I6, ', JTYPE=', I6, ', ISEED=(', 3( I5, ',' ), I5, ')' )
*
9998 FORMAT( / 1X, A3,
$ ' -- Real Symmetric Banded Tridiagonal Reduction Routines' )
- 9997 FORMAT( ' Matrix types (see SCHKSBSTG for details): ' )
+ 9997 FORMAT( ' Matrix types (see SCHKSB2STG for details): ' )
*
9996 FORMAT( / ' Special Matrices:',
$ / ' 1=Zero matrix. ',
@@ -863,6 +876,6 @@
9993 FORMAT( ' N=', I5, ', K=', I4, ', seed=', 4( I4, ',' ), ' type ',
$ I2, ', test(', I2, ')=', G10.3 )
*
-* End of SCHKSBSTG
+* End of SCHKSB2STG
*
END
diff --git a/lapack-netlib/TESTING/EIG/schkst.f b/lapack-netlib/TESTING/EIG/schkst.f
index a851bbbbf..10622d77a 100644
--- a/lapack-netlib/TESTING/EIG/schkst.f
+++ b/lapack-netlib/TESTING/EIG/schkst.f
@@ -581,8 +581,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
@@ -591,10 +589,9 @@
$ WA1, WA2, WA3, WR, U, LDU, V, VP, TAU, Z, WORK,
$ LWORK, IWORK, LIWORK, RESULT, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDU, LIWORK, LWORK, NOUNIT, NSIZES,
diff --git a/lapack-netlib/TESTING/EIG/schkst2stg.f b/lapack-netlib/TESTING/EIG/schkst2stg.f
index 83edb9dce..ac5a3fc39 100644
--- a/lapack-netlib/TESTING/EIG/schkst2stg.f
+++ b/lapack-netlib/TESTING/EIG/schkst2stg.f
@@ -602,8 +602,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
@@ -612,10 +610,9 @@
$ WA1, WA2, WA3, WR, U, LDU, V, VP, TAU, Z, WORK,
$ LWORK, IWORK, LIWORK, RESULT, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDU, LIWORK, LWORK, NOUNIT, NSIZES,
@@ -1032,8 +1029,8 @@
* the one from above. Compare it with D1 computed
* using the 1-stage.
*
- CALL SLASET( 'Full', N, 1, ZERO, ZERO, SD, 1 )
- CALL SLASET( 'Full', N, 1, ZERO, ZERO, SE, 1 )
+ CALL SLASET( 'Full', N, 1, ZERO, ZERO, SD, N )
+ CALL SLASET( 'Full', N, 1, ZERO, ZERO, SE, N )
CALL SLACPY( "L", N, N, A, LDA, V, LDU )
CALL SSYTRD_2STAGE( 'N', "L", N, V, LDU, SD, SE, TAU,
$ WORK, LH, WORK( LH+1 ), LW, IINFO )
@@ -1058,7 +1055,6 @@
END IF
END IF
*
-*
* Do Tests 3 and 4 which are similar to 11 and 12 but with the
* D1 computed using the standard 1-stage reduction as reference
*
@@ -1718,7 +1714,6 @@
END IF
END IF
*
-*
* Do test 28
*
TEMP2 = TWO*( TWO*N-ONE )*ULP*
@@ -1817,7 +1812,6 @@
RESULT( 31 ) = TEMP2 / MAX( UNFL,
$ ULP*MAX( TEMP1, TEMP2 ) )
*
-*
* Call SSTEMR(V,V) to compute D1 and Z, do tests.
*
* Compute D1 and Z
@@ -1919,7 +1913,6 @@
RESULT( 34 ) = ZERO
END IF
*
-*
* Call SSTEMR(V,A) to compute D1 and Z, do tests.
*
* Compute D1 and Z
@@ -1976,7 +1969,7 @@
END IF
END IF
*
-* Do Test 34
+* Do Test 37
*
TEMP1 = ZERO
TEMP2 = ZERO
@@ -1995,7 +1988,6 @@
*
* End of Loop -- Check for RESULT(j) > THRESH
*
-*
* Print out tests which fail.
*
DO 290 JR = 1, NTEST
@@ -2063,6 +2055,7 @@
$ ', test(', I2, ')=', G10.3 )
*
9988 FORMAT( / 'Test performed: see SCHKST2STG for details.', / )
+*
* End of SCHKST2STG
*
END
diff --git a/lapack-netlib/TESTING/EIG/sckcsd.f b/lapack-netlib/TESTING/EIG/sckcsd.f
index be91eed51..d8158779b 100644
--- a/lapack-netlib/TESTING/EIG/sckcsd.f
+++ b/lapack-netlib/TESTING/EIG/sckcsd.f
@@ -175,8 +175,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
@@ -184,10 +182,9 @@
$ MMAX, X, XF, U1, U2, V1T, V2T, THETA, IWORK,
$ WORK, RWORK, NIN, NOUT, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, NIN, NM, NMATS, MMAX, NOUT
@@ -208,11 +205,11 @@
PARAMETER ( NTESTS = 15 )
INTEGER NTYPES
PARAMETER ( NTYPES = 4 )
- REAL GAPDIGIT, ONE, ORTH, PIOVER2, TEN, ZERO
+ REAL GAPDIGIT, ONE, ORTH, TEN, ZERO
PARAMETER ( GAPDIGIT = 10.0E0, ONE = 1.0E0,
- $ ORTH = 1.0E-4,
- $ PIOVER2 = 1.57079632679489662E0,
- $ TEN = 10.0E0, ZERO = 0.0E0 )
+ $ ORTH = 1.0E-4, TEN = 10.0E0, ZERO = 0.0E0 )
+ REAL PIOVER2
+ PARAMETER ( PIOVER2 = 1.57079632679489661923132169163975144210E0 )
* ..
* .. Local Scalars ..
LOGICAL FIRSTT
diff --git a/lapack-netlib/TESTING/EIG/sckglm.f b/lapack-netlib/TESTING/EIG/sckglm.f
index 0ac104615..167cb61de 100644
--- a/lapack-netlib/TESTING/EIG/sckglm.f
+++ b/lapack-netlib/TESTING/EIG/sckglm.f
@@ -158,8 +158,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
@@ -167,10 +165,9 @@
$ NMAX, A, AF, B, BF, X, WORK, RWORK, NIN, NOUT,
$ INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, NIN, NMATS, NMAX, NN, NOUT
diff --git a/lapack-netlib/TESTING/EIG/sckgqr.f b/lapack-netlib/TESTING/EIG/sckgqr.f
index 73656315b..919879504 100644
--- a/lapack-netlib/TESTING/EIG/sckgqr.f
+++ b/lapack-netlib/TESTING/EIG/sckgqr.f
@@ -201,8 +201,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
@@ -210,10 +208,9 @@
$ THRESH, NMAX, A, AF, AQ, AR, TAUA, B, BF, BZ,
$ BT, BWK, TAUB, WORK, RWORK, NIN, NOUT, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, NIN, NM, NMATS, NMAX, NN, NOUT, NP
diff --git a/lapack-netlib/TESTING/EIG/sckgsv.f b/lapack-netlib/TESTING/EIG/sckgsv.f
index 6e2b76e7b..20838b5ba 100644
--- a/lapack-netlib/TESTING/EIG/sckgsv.f
+++ b/lapack-netlib/TESTING/EIG/sckgsv.f
@@ -189,8 +189,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
@@ -198,10 +196,9 @@
$ NMAX, A, AF, B, BF, U, V, Q, ALPHA, BETA, R,
$ IWORK, WORK, RWORK, NIN, NOUT, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, NIN, NM, NMATS, NMAX, NOUT
diff --git a/lapack-netlib/TESTING/EIG/scklse.f b/lapack-netlib/TESTING/EIG/scklse.f
index daf1145d5..123217688 100644
--- a/lapack-netlib/TESTING/EIG/scklse.f
+++ b/lapack-netlib/TESTING/EIG/scklse.f
@@ -158,8 +158,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
@@ -167,10 +165,9 @@
$ NMAX, A, AF, B, BF, X, WORK, RWORK, NIN, NOUT,
$ INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, NIN, NMATS, NMAX, NN, NOUT
diff --git a/lapack-netlib/TESTING/EIG/scsdts.f b/lapack-netlib/TESTING/EIG/scsdts.f
index 8ddf119c1..1debe8341 100644
--- a/lapack-netlib/TESTING/EIG/scsdts.f
+++ b/lapack-netlib/TESTING/EIG/scsdts.f
@@ -220,8 +220,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
@@ -229,10 +227,9 @@
$ LDV1T, V2T, LDV2T, THETA, IWORK, WORK, LWORK,
$ RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDX, LDU1, LDU2, LDV1T, LDV2T, LWORK, M, P, Q
@@ -248,11 +245,12 @@
* =====================================================================
*
* .. Parameters ..
- REAL PIOVER2, REALONE, REALZERO
- PARAMETER ( PIOVER2 = 1.57079632679489662E0,
- $ REALONE = 1.0E0, REALZERO = 0.0E0 )
+ REAL REALONE, REALZERO
+ PARAMETER ( REALONE = 1.0E0, REALZERO = 0.0E0 )
REAL ZERO, ONE
PARAMETER ( ZERO = 0.0E0, ONE = 1.0E0 )
+ REAL PIOVER2
+ PARAMETER ( PIOVER2 = 1.57079632679489661923132169163975144210E0 )
* ..
* .. Local Scalars ..
INTEGER I, INFO, R
diff --git a/lapack-netlib/TESTING/EIG/sdrges.f b/lapack-netlib/TESTING/EIG/sdrges.f
index 4e98bfff0..73d23125c 100644
--- a/lapack-netlib/TESTING/EIG/sdrges.f
+++ b/lapack-netlib/TESTING/EIG/sdrges.f
@@ -393,8 +393,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup single_eig
*
* =====================================================================
@@ -403,10 +401,9 @@
$ ALPHAI, BETA, WORK, LWORK, RESULT, BWORK,
$ INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* 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 90351f6df..9c8272578 100644
--- a/lapack-netlib/TESTING/EIG/sdrges3.f
+++ b/lapack-netlib/TESTING/EIG/sdrges3.f
@@ -393,8 +393,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date February 2015
-*
*> \ingroup single_eig
*
* =====================================================================
@@ -403,10 +401,9 @@
$ ALPHAI, BETA, WORK, LWORK, RESULT, BWORK,
$ INFO )
*
-* -- LAPACK test routine (version 3.6.1) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* February 2015
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDQ, LWORK, NOUNIT, NSIZES, NTYPES
@@ -749,6 +746,14 @@
RSUB = 5
END IF
*
+* Call XLAENV to set the parameters used in SLAQZ0
+*
+ CALL XLAENV( 12, 10 )
+ CALL XLAENV( 13, 12 )
+ CALL XLAENV( 14, 13 )
+ CALL XLAENV( 15, 2 )
+ CALL XLAENV( 17, 10 )
+*
* Call SGGES3 to compute H, T, Q, Z, alpha, and beta.
*
CALL SLACPY( 'Full', N, N, A, LDA, S, LDA )
diff --git a/lapack-netlib/TESTING/EIG/sdrgev.f b/lapack-netlib/TESTING/EIG/sdrgev.f
index d3f8a06ac..5254a9723 100644
--- a/lapack-netlib/TESTING/EIG/sdrgev.f
+++ b/lapack-netlib/TESTING/EIG/sdrgev.f
@@ -398,8 +398,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup single_eig
*
* =====================================================================
@@ -408,10 +406,9 @@
$ ALPHAR, ALPHAI, BETA, ALPHR1, ALPHI1, BETA1,
$ WORK, LWORK, RESULT, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* 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 9492d43bf..1b1d82292 100644
--- a/lapack-netlib/TESTING/EIG/sdrgev3.f
+++ b/lapack-netlib/TESTING/EIG/sdrgev3.f
@@ -398,8 +398,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date February 2015
-*
*> \ingroup single_eig
*
* =====================================================================
@@ -408,10 +406,9 @@
$ ALPHAR, ALPHAI, BETA, ALPHR1, ALPHI1, BETA1,
$ WORK, LWORK, RESULT, INFO )
*
-* -- LAPACK test routine (version 3.6.1) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* February 2015
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDQ, LDQE, LWORK, NOUNIT, NSIZES,
@@ -734,6 +731,14 @@
RESULT( I ) = -ONE
110 CONTINUE
*
+* Call XLAENV to set the parameters used in SLAQZ0
+*
+ CALL XLAENV( 12, 10 )
+ CALL XLAENV( 13, 12 )
+ CALL XLAENV( 14, 13 )
+ CALL XLAENV( 15, 2 )
+ CALL XLAENV( 17, 10 )
+*
* Call SGGEV3 to compute eigenvalues and eigenvectors.
*
CALL SLACPY( ' ', N, N, A, LDA, S, LDA )
diff --git a/lapack-netlib/TESTING/EIG/sdrgsx.f b/lapack-netlib/TESTING/EIG/sdrgsx.f
index 58e63e793..ce0d59214 100644
--- a/lapack-netlib/TESTING/EIG/sdrgsx.f
+++ b/lapack-netlib/TESTING/EIG/sdrgsx.f
@@ -350,8 +350,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup single_eig
*
* =====================================================================
@@ -359,10 +357,9 @@
$ AI, BI, Z, Q, ALPHAR, ALPHAI, BETA, C, LDC, S,
$ WORK, LWORK, IWORK, LIWORK, BWORK, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* 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 b6cc91dc4..f6da720ad 100644
--- a/lapack-netlib/TESTING/EIG/sdrgvx.f
+++ b/lapack-netlib/TESTING/EIG/sdrgvx.f
@@ -291,8 +291,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup single_eig
*
* =====================================================================
@@ -301,10 +299,9 @@
$ RSCALE, S, STRU, DIF, DIFTRU, WORK, LWORK,
$ IWORK, LIWORK, RESULT, BWORK, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* 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 101c8ba09..de6d5a412 100644
--- a/lapack-netlib/TESTING/EIG/sdrvbd.f
+++ b/lapack-netlib/TESTING/EIG/sdrvbd.f
@@ -357,8 +357,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup single_eig
*
* =====================================================================
@@ -366,10 +364,9 @@
$ A, LDA, U, LDU, VT, LDVT, ASAV, USAV, VTSAV, S,
$ SSAV, E, WORK, LWORK, IWORK, NOUT, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2016
*
IMPLICIT NONE
*
diff --git a/lapack-netlib/TESTING/EIG/sdrves.f b/lapack-netlib/TESTING/EIG/sdrves.f
index 64cd86118..4e3dc0a6d 100644
--- a/lapack-netlib/TESTING/EIG/sdrves.f
+++ b/lapack-netlib/TESTING/EIG/sdrves.f
@@ -379,8 +379,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup single_eig
*
* =====================================================================
@@ -388,10 +386,9 @@
$ NOUNIT, A, LDA, H, HT, WR, WI, WRT, WIT, VS,
$ LDVS, RESULT, WORK, NWORK, IWORK, BWORK, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDVS, NOUNIT, NSIZES, NTYPES, NWORK
diff --git a/lapack-netlib/TESTING/EIG/sdrvev.f b/lapack-netlib/TESTING/EIG/sdrvev.f
index 4888bc8bf..6d5e34bf6 100644
--- a/lapack-netlib/TESTING/EIG/sdrvev.f
+++ b/lapack-netlib/TESTING/EIG/sdrvev.f
@@ -396,8 +396,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
@@ -406,10 +404,9 @@
$ VR, LDVR, LRE, LDLRE, RESULT, WORK, NWORK,
$ IWORK, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDLRE, LDVL, LDVR, NOUNIT, NSIZES,
diff --git a/lapack-netlib/TESTING/EIG/sdrvsg.f b/lapack-netlib/TESTING/EIG/sdrvsg.f
index c6eeec6d9..4a57223c8 100644
--- a/lapack-netlib/TESTING/EIG/sdrvsg.f
+++ b/lapack-netlib/TESTING/EIG/sdrvsg.f
@@ -346,8 +346,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
@@ -355,10 +353,9 @@
$ NOUNIT, A, LDA, B, LDB, D, Z, LDZ, AB, BB, AP,
$ BP, WORK, NWORK, IWORK, LIWORK, RESULT, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDB, LDZ, LIWORK, NOUNIT, NSIZES,
diff --git a/lapack-netlib/TESTING/EIG/sdrvsg2stg.f b/lapack-netlib/TESTING/EIG/sdrvsg2stg.f
index 66ba8c4dd..ebd169977 100644
--- a/lapack-netlib/TESTING/EIG/sdrvsg2stg.f
+++ b/lapack-netlib/TESTING/EIG/sdrvsg2stg.f
@@ -352,8 +352,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup real_eig
*
* =====================================================================
@@ -364,10 +362,9 @@
*
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDB, LDZ, LIWORK, NOUNIT, NSIZES,
diff --git a/lapack-netlib/TESTING/EIG/sdrvst.f b/lapack-netlib/TESTING/EIG/sdrvst.f
index 00e14f396..ea0cf66f9 100644
--- a/lapack-netlib/TESTING/EIG/sdrvst.f
+++ b/lapack-netlib/TESTING/EIG/sdrvst.f
@@ -443,8 +443,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
@@ -453,10 +451,9 @@
$ WA2, WA3, U, LDU, V, TAU, Z, WORK, LWORK,
$ IWORK, LIWORK, RESULT, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDU, LIWORK, LWORK, NOUNIT, NSIZES,
diff --git a/lapack-netlib/TESTING/EIG/sdrvst2stg.f b/lapack-netlib/TESTING/EIG/sdrvst2stg.f
index 32a3de05f..a13a58b48 100644
--- a/lapack-netlib/TESTING/EIG/sdrvst2stg.f
+++ b/lapack-netlib/TESTING/EIG/sdrvst2stg.f
@@ -443,8 +443,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
@@ -453,10 +451,9 @@
$ WA2, WA3, U, LDU, V, TAU, Z, WORK, LWORK,
$ IWORK, LIWORK, RESULT, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDU, LIWORK, LWORK, NOUNIT, NSIZES,
diff --git a/lapack-netlib/TESTING/EIG/sdrvsx.f b/lapack-netlib/TESTING/EIG/sdrvsx.f
index 25ca8b1c5..b6f772f5b 100644
--- a/lapack-netlib/TESTING/EIG/sdrvsx.f
+++ b/lapack-netlib/TESTING/EIG/sdrvsx.f
@@ -444,8 +444,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup single_eig
*
* =====================================================================
@@ -454,10 +452,9 @@
$ WIT, WRTMP, WITMP, VS, LDVS, VS1, RESULT, WORK,
$ LWORK, IWORK, BWORK, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDVS, LWORK, NIUNIT, NOUNIT, NSIZES,
diff --git a/lapack-netlib/TESTING/EIG/sdrvvx.f b/lapack-netlib/TESTING/EIG/sdrvvx.f
index 1c574e736..70e59bcea 100644
--- a/lapack-netlib/TESTING/EIG/sdrvvx.f
+++ b/lapack-netlib/TESTING/EIG/sdrvvx.f
@@ -509,8 +509,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup single_eig
*
* =====================================================================
@@ -520,10 +518,9 @@
$ RCDVIN, RCONDE, RCNDE1, RCDEIN, SCALE, SCALE1,
$ RESULT, WORK, NWORK, IWORK, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* 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 96f51dfe8..f8962596c 100644
--- a/lapack-netlib/TESTING/EIG/serrbd.f
+++ b/lapack-netlib/TESTING/EIG/serrbd.f
@@ -48,17 +48,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup single_eig
*
* =====================================================================
SUBROUTINE SERRBD( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/EIG/serrec.f b/lapack-netlib/TESTING/EIG/serrec.f
index 6414a8200..249f0e642 100644
--- a/lapack-netlib/TESTING/EIG/serrec.f
+++ b/lapack-netlib/TESTING/EIG/serrec.f
@@ -49,17 +49,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
SUBROUTINE SERREC( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/EIG/serred.f b/lapack-netlib/TESTING/EIG/serred.f
index 7d3772e84..b52aa1624 100644
--- a/lapack-netlib/TESTING/EIG/serred.f
+++ b/lapack-netlib/TESTING/EIG/serred.f
@@ -63,17 +63,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup single_eig
*
* =====================================================================
SUBROUTINE SERRED( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/EIG/serrgg.f b/lapack-netlib/TESTING/EIG/serrgg.f
index 5025103eb..7824f8618 100644
--- a/lapack-netlib/TESTING/EIG/serrgg.f
+++ b/lapack-netlib/TESTING/EIG/serrgg.f
@@ -50,17 +50,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup single_eig
*
* =====================================================================
SUBROUTINE SERRGG( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
@@ -99,7 +96,7 @@
$ SGGHRD, SGGLSE, SGGQRF, SGGRQF,
$ SHGEQZ, SORCSD, STGEVC, STGEXC, STGSEN, STGSJA,
$ STGSNA, STGSYL, SGGES3, SGGEV3, SGGHD3,
- $ SGGSVD3, SGGSVP3
+ $ SGGSVD3, SGGSVP3, XLAENV
* ..
* .. Scalars in Common ..
LOGICAL LERR, OK
@@ -137,6 +134,14 @@
NT = 0
LWORK = 1
*
+* Call XLAENV to set the parameters used in CLAQZ0
+*
+ CALL XLAENV( 12, 10 )
+ CALL XLAENV( 13, 12 )
+ CALL XLAENV( 14, 13 )
+ CALL XLAENV( 15, 2 )
+ CALL XLAENV( 17, 10 )
+*
* Test error exits for the GG path.
*
IF( LSAMEN( 2, C2, 'GG' ) ) THEN
diff --git a/lapack-netlib/TESTING/EIG/serrhs.f b/lapack-netlib/TESTING/EIG/serrhs.f
index b78267cc8..8f0ff98a1 100644
--- a/lapack-netlib/TESTING/EIG/serrhs.f
+++ b/lapack-netlib/TESTING/EIG/serrhs.f
@@ -48,17 +48,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
SUBROUTINE SERRHS( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/EIG/serrst.f b/lapack-netlib/TESTING/EIG/serrst.f
index 7e5383866..afb6d4faf 100644
--- a/lapack-netlib/TESTING/EIG/serrst.f
+++ b/lapack-netlib/TESTING/EIG/serrst.f
@@ -54,17 +54,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
SUBROUTINE SERRST( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/EIG/sget02.f b/lapack-netlib/TESTING/EIG/sget02.f
index a47b901d3..5b205ff87 100644
--- a/lapack-netlib/TESTING/EIG/sget02.f
+++ b/lapack-netlib/TESTING/EIG/sget02.f
@@ -28,9 +28,11 @@
*> \verbatim
*>
*> SGET02 computes the residual for a solution of a system of linear
-*> equations A*x = b or A'*x = b:
-*> RESID = norm(B - A*X) / ( norm(A) * norm(X) * EPS ),
-*> where EPS is the machine epsilon.
+*> equations op(A)*X = B:
+*> RESID = norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ),
+*> where op(A) = A or A**T, depending on TRANS, and EPS is the
+*> machine epsilon.
+*> The norm used is the 1-norm.
*> \endverbatim
*
* Arguments:
@@ -40,9 +42,9 @@
*> \verbatim
*> TRANS is CHARACTER*1
*> Specifies the form of the system of equations:
-*> = 'N': A *x = b
-*> = 'T': A'*x = b, where A' is the transpose of A
-*> = 'C': A'*x = b, where A' is the transpose of A
+*> = 'N': A * X = B (No transpose)
+*> = 'T': A**T * X = B (Transpose)
+*> = 'C': A**H * X = B (Conjugate transpose = Transpose)
*> \endverbatim
*>
*> \param[in] M
@@ -114,7 +116,7 @@
*> \verbatim
*> RESID is REAL
*> The maximum over the number of right hand sides of
-*> norm(B - A*X) / ( norm(A) * norm(X) * EPS ).
+*> norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ).
*> \endverbatim
*
* Authors:
@@ -125,18 +127,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup single_eig
*
* =====================================================================
SUBROUTINE SGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB,
$ RWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.1) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2017
*
* .. Scalar Arguments ..
CHARACTER TRANS
@@ -189,19 +188,23 @@
* Exit with RESID = 1/EPS if ANORM = 0.
*
EPS = SLAMCH( 'Epsilon' )
+ IF( LSAME( TRANS, 'N' ) ) THEN
ANORM = SLANGE( '1', M, N, A, LDA, RWORK )
+ ELSE
+ ANORM = SLANGE( 'I', M, N, A, LDA, RWORK )
+ END IF
IF( ANORM.LE.ZERO ) THEN
RESID = ONE / EPS
RETURN
END IF
*
-* Compute B - A*X (or B - A'*X ) and store in B.
+* Compute B - op(A)*X and store in B.
*
CALL SGEMM( TRANS, 'No transpose', N1, NRHS, N2, -ONE, A, LDA, X,
$ LDX, ONE, B, LDB )
*
* Compute the maximum over the number of right hand sides of
-* norm(B - A*X) / ( norm(A) * norm(X) * EPS ) .
+* norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ) .
*
RESID = ZERO
DO 10 J = 1, NRHS
diff --git a/lapack-netlib/TESTING/EIG/sget10.f b/lapack-netlib/TESTING/EIG/sget10.f
index 8c489d58a..cbec05bf6 100644
--- a/lapack-netlib/TESTING/EIG/sget10.f
+++ b/lapack-netlib/TESTING/EIG/sget10.f
@@ -86,17 +86,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
SUBROUTINE SGET10( M, N, A, LDA, B, LDB, WORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LDB, M, N
diff --git a/lapack-netlib/TESTING/EIG/sget22.f b/lapack-netlib/TESTING/EIG/sget22.f
index 1fcd2b095..ddfc2592f 100644
--- a/lapack-netlib/TESTING/EIG/sget22.f
+++ b/lapack-netlib/TESTING/EIG/sget22.f
@@ -149,6 +149,7 @@
*> RESULT is REAL array, dimension (2)
*> RESULT(1) = | A E - E W | / ( |A| |E| ulp )
*> RESULT(2) = max | m-norm(E(j)) - 1 | / ( n ulp )
+*> j
*> \endverbatim
*
* Authors:
@@ -159,18 +160,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
SUBROUTINE SGET22( TRANSA, TRANSE, TRANSW, N, A, LDA, E, LDE, WR,
$ WI, WORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER TRANSA, TRANSE, TRANSW
@@ -366,7 +364,7 @@
RESULT( 1 ) = ( ERRNRM / ANORM ) / ULP
ELSE
IF( ANORM.LT.ONE ) THEN
- RESULT( 1 ) = ( MIN( ERRNRM, ANORM ) / ANORM ) / ULP
+ RESULT( 1 ) = ONE / ULP
ELSE
RESULT( 1 ) = MIN( ERRNRM / ANORM, ONE ) / ULP
END IF
diff --git a/lapack-netlib/TESTING/EIG/sget23.f b/lapack-netlib/TESTING/EIG/sget23.f
index ac936bc89..827578181 100644
--- a/lapack-netlib/TESTING/EIG/sget23.f
+++ b/lapack-netlib/TESTING/EIG/sget23.f
@@ -367,8 +367,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
@@ -378,10 +376,9 @@
$ RCONDE, RCNDE1, RCDEIN, SCALE, SCALE1, RESULT,
$ WORK, LWORK, IWORK, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL COMP
diff --git a/lapack-netlib/TESTING/EIG/sget24.f b/lapack-netlib/TESTING/EIG/sget24.f
index e0b75ff0f..fef876255 100644
--- a/lapack-netlib/TESTING/EIG/sget24.f
+++ b/lapack-netlib/TESTING/EIG/sget24.f
@@ -333,8 +333,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
@@ -343,10 +341,9 @@
$ LDVS, VS1, RCDEIN, RCDVIN, NSLCT, ISLCT,
$ RESULT, WORK, LWORK, IWORK, BWORK, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL COMP
diff --git a/lapack-netlib/TESTING/EIG/sget31.f b/lapack-netlib/TESTING/EIG/sget31.f
index 00b05ad77..e6214007b 100644
--- a/lapack-netlib/TESTING/EIG/sget31.f
+++ b/lapack-netlib/TESTING/EIG/sget31.f
@@ -84,17 +84,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
SUBROUTINE SGET31( RMAX, LMAX, NINFO, KNT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER KNT, LMAX
diff --git a/lapack-netlib/TESTING/EIG/sget32.f b/lapack-netlib/TESTING/EIG/sget32.f
index 60547e034..7a0efd082 100644
--- a/lapack-netlib/TESTING/EIG/sget32.f
+++ b/lapack-netlib/TESTING/EIG/sget32.f
@@ -75,17 +75,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
SUBROUTINE SGET32( RMAX, LMAX, NINFO, KNT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER KNT, LMAX, NINFO
diff --git a/lapack-netlib/TESTING/EIG/sget33.f b/lapack-netlib/TESTING/EIG/sget33.f
index c1859f4e4..48cee8d44 100644
--- a/lapack-netlib/TESTING/EIG/sget33.f
+++ b/lapack-netlib/TESTING/EIG/sget33.f
@@ -69,17 +69,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
SUBROUTINE SGET33( RMAX, LMAX, NINFO, KNT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER KNT, LMAX, NINFO
diff --git a/lapack-netlib/TESTING/EIG/sget34.f b/lapack-netlib/TESTING/EIG/sget34.f
index 87c7ac99a..27f705ca3 100644
--- a/lapack-netlib/TESTING/EIG/sget34.f
+++ b/lapack-netlib/TESTING/EIG/sget34.f
@@ -75,17 +75,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
SUBROUTINE SGET34( RMAX, LMAX, NINFO, KNT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER KNT, LMAX
diff --git a/lapack-netlib/TESTING/EIG/sget35.f b/lapack-netlib/TESTING/EIG/sget35.f
index 919a6469f..46c8b699f 100644
--- a/lapack-netlib/TESTING/EIG/sget35.f
+++ b/lapack-netlib/TESTING/EIG/sget35.f
@@ -71,17 +71,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
SUBROUTINE SGET35( RMAX, LMAX, NINFO, KNT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER KNT, LMAX, NINFO
diff --git a/lapack-netlib/TESTING/EIG/sget36.f b/lapack-netlib/TESTING/EIG/sget36.f
index bf419869c..47eae95e4 100644
--- a/lapack-netlib/TESTING/EIG/sget36.f
+++ b/lapack-netlib/TESTING/EIG/sget36.f
@@ -81,17 +81,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
SUBROUTINE SGET36( RMAX, LMAX, NINFO, KNT, NIN )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER KNT, LMAX, NIN
diff --git a/lapack-netlib/TESTING/EIG/sget37.f b/lapack-netlib/TESTING/EIG/sget37.f
index 7e63f9bdf..eb10424bf 100644
--- a/lapack-netlib/TESTING/EIG/sget37.f
+++ b/lapack-netlib/TESTING/EIG/sget37.f
@@ -83,17 +83,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
SUBROUTINE SGET37( RMAX, LMAX, NINFO, KNT, NIN )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER KNT, NIN
diff --git a/lapack-netlib/TESTING/EIG/sget38.f b/lapack-netlib/TESTING/EIG/sget38.f
index ca3475bf9..636dfb70e 100644
--- a/lapack-netlib/TESTING/EIG/sget38.f
+++ b/lapack-netlib/TESTING/EIG/sget38.f
@@ -84,17 +84,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
SUBROUTINE SGET38( RMAX, LMAX, NINFO, KNT, NIN )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER KNT, NIN
diff --git a/lapack-netlib/TESTING/EIG/sget39.f b/lapack-netlib/TESTING/EIG/sget39.f
index f6c0f7e7c..dbcabf9d7 100644
--- a/lapack-netlib/TESTING/EIG/sget39.f
+++ b/lapack-netlib/TESTING/EIG/sget39.f
@@ -96,17 +96,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
SUBROUTINE SGET39( RMAX, LMAX, NINFO, KNT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER KNT, LMAX, NINFO
diff --git a/lapack-netlib/TESTING/EIG/sget40.f b/lapack-netlib/TESTING/EIG/sget40.f
new file mode 100644
index 000000000..1fd3d400d
--- /dev/null
+++ b/lapack-netlib/TESTING/EIG/sget40.f
@@ -0,0 +1,223 @@
+*> \brief \b SGET40
+*
+* =========== DOCUMENTATION ===========
+*
+* Online html documentation available at
+* http://www.netlib.org/lapack/explore-html/
+*
+* Definition:
+* ===========
+*
+* SUBROUTINE SGET40( RMAX, LMAX, NINFO, KNT, NIN )
+*
+* .. Scalar Arguments ..
+* INTEGER KNT, LMAX, NIN
+* REAL RMAX
+* ..
+* .. Array Arguments ..
+* INTEGER NINFO( 3 )
+*
+*
+*> \par Purpose:
+* =============
+*>
+*> \verbatim
+*>
+*> SGET40 tests STGEXC, a routine for swapping adjacent blocks (either
+*> 1 by 1 or 2 by 2) on the diagonal of a pencil in real generalized Schur form.
+*> Thus, STGEXC computes an orthogonal matrices Q and Z such that
+*>
+*> Q' * ( [ A B ], [ D E ] ) * Z = ( [ C1 B1 ], [ F1 E1 ] )
+*> ( [ 0 C ] [ F ] ) ( [ 0 A1 ] [ D1] )
+*>
+*> where (C1,F1) is similar to (C,F) and (A1,D1) is similar to (A,D).
+*> Both (A,D) and (C,F) are assumed to be in standard form
+*> and (A1,D1) and (C1,F1) are returned with the
+*> same properties.
+*> \endverbatim
+*
+* Arguments:
+* ==========
+*
+*> \param[out] RMAX
+*> \verbatim
+*> RMAX is REAL
+*> Value of the largest test ratio.
+*> \endverbatim
+*>
+*> \param[out] LMAX
+*> \verbatim
+*> LMAX is INTEGER
+*> Example number where largest test ratio achieved.
+*> \endverbatim
+*>
+*> \param[out] NINFO
+*> \verbatim
+*> NINFO is INTEGER
+*> Number of examples where INFO is nonzero.
+*> \endverbatim
+*>
+*> \param[out] KNT
+*> \verbatim
+*> KNT is INTEGER
+*> Total number of examples tested.
+*> \endverbatim
+*>
+*> \param[out] NIN
+*> \verbatim
+*> NINFO is INTEGER
+*> \endverbatim
+*
+* Authors:
+* ========
+*
+*> \author Univ. of Tennessee
+*> \author Univ. of California Berkeley
+*> \author Univ. of Colorado Denver
+*> \author NAG Ltd.
+*
+*> \ingroup double_eig
+*
+* =====================================================================
+ SUBROUTINE SGET40( RMAX, LMAX, NINFO, KNT, NIN )
+*
+* -- LAPACK test routine --
+* -- LAPACK is a software package provided by Univ. of Tennessee, --
+* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
+*
+* .. Scalar Arguments ..
+ INTEGER KNT, LMAX, NIN
+ REAL RMAX
+* ..
+* .. Array Arguments ..
+ INTEGER NINFO( 3 )
+* ..
+*
+* =====================================================================
+*
+* .. Parameters ..
+ REAL ZERO, ONE
+ PARAMETER ( ZERO = 0.0, ONE = 1.0 )
+ INTEGER LDT, LWORK
+ PARAMETER ( LDT = 10, LWORK = 100 + 4*LDT + 16 )
+* ..
+* .. Local Scalars ..
+ INTEGER I, IFST, IFST1, IFST2, IFSTSV, ILST, ILST1,
+ $ ILST2, ILSTSV, INFO1, INFO2, J, LOC, N
+ REAL EPS, RES
+* ..
+* .. Local Arrays ..
+ REAL Q( LDT, LDT ), Z( LDT, LDT ), RESULT( 4 ),
+ $ T( LDT, LDT ), T1( LDT, LDT ), T2( LDT, LDT ),
+ $ S( LDT, LDT ), S1( LDT, LDT ), S2( LDT, LDT ),
+ $ TMP( LDT, LDT ), WORK( LWORK )
+* ..
+* .. External Functions ..
+ REAL SLAMCH
+ EXTERNAL SLAMCH
+* ..
+* .. External Subroutines ..
+ EXTERNAL SGET51, SLACPY, SLASET, STGEXC
+* ..
+* .. Intrinsic Functions ..
+ INTRINSIC ABS, SIGN
+* ..
+* .. Executable Statements ..
+*
+ EPS = SLAMCH( 'P' )
+ RMAX = ZERO
+ LMAX = 0
+ KNT = 0
+ NINFO( 1 ) = 0
+ NINFO( 2 ) = 0
+ NINFO( 3 ) = 0
+*
+* Read input data until N=0
+*
+ 10 CONTINUE
+ READ( NIN, FMT = * )N, IFST, ILST
+ IF( N.EQ.0 )
+ $ RETURN
+ KNT = KNT + 1
+ DO 20 I = 1, N
+ READ( NIN, FMT = * )( TMP( I, J ), J = 1, N )
+ 20 CONTINUE
+ CALL SLACPY( 'F', N, N, TMP, LDT, T, LDT )
+ CALL SLACPY( 'F', N, N, TMP, LDT, T1, LDT )
+ CALL SLACPY( 'F', N, N, TMP, LDT, T2, LDT )
+ DO 25 I = 1, N
+ READ( NIN, FMT = * )( TMP( I, J ), J = 1, N )
+ 25 CONTINUE
+ CALL SLACPY( 'F', N, N, TMP, LDT, S, LDT )
+ CALL SLACPY( 'F', N, N, TMP, LDT, S1, LDT )
+ CALL SLACPY( 'F', N, N, TMP, LDT, S2, LDT )
+ IFSTSV = IFST
+ ILSTSV = ILST
+ IFST1 = IFST
+ ILST1 = ILST
+ IFST2 = IFST
+ ILST2 = ILST
+ RES = ZERO
+*
+* Test without accumulating Q and Z
+*
+ CALL SLASET( 'Full', N, N, ZERO, ONE, Q, LDT )
+ CALL SLASET( 'Full', N, N, ZERO, ONE, Z, LDT )
+ CALL STGEXC( .FALSE., .FALSE., N, T1, LDT, S1, LDT, Q, LDT,
+ $ Z, LDT, IFST1, ILST1, WORK, LWORK, INFO1 )
+ DO 40 I = 1, N
+ DO 30 J = 1, N
+ IF( I.EQ.J .AND. Q( I, J ).NE.ONE )
+ $ RES = RES + ONE / EPS
+ IF( I.NE.J .AND. Q( I, J ).NE.ZERO )
+ $ RES = RES + ONE / EPS
+ IF( I.EQ.J .AND. Z( I, J ).NE.ONE )
+ $ RES = RES + ONE / EPS
+ IF( I.NE.J .AND. Z( I, J ).NE.ZERO )
+ $ RES = RES + ONE / EPS
+ 30 CONTINUE
+ 40 CONTINUE
+*
+* Test with accumulating Q
+*
+ CALL SLASET( 'Full', N, N, ZERO, ONE, Q, LDT )
+ CALL SLASET( 'Full', N, N, ZERO, ONE, Z, LDT )
+ CALL STGEXC( .TRUE., .TRUE., N, T2, LDT, S2, LDT, Q, LDT,
+ $ Z, LDT, IFST2, ILST2, WORK, LWORK, INFO2 )
+*
+* Compare T1 with T2 and S1 with S2
+*
+ DO 60 I = 1, N
+ DO 50 J = 1, N
+ IF( T1( I, J ).NE.T2( I, J ) )
+ $ RES = RES + ONE / EPS
+ IF( S1( I, J ).NE.S2( I, J ) )
+ $ RES = RES + ONE / EPS
+ 50 CONTINUE
+ 60 CONTINUE
+ IF( IFST1.NE.IFST2 )
+ $ RES = RES + ONE / EPS
+ IF( ILST1.NE.ILST2 )
+ $ RES = RES + ONE / EPS
+ IF( INFO1.NE.INFO2 )
+ $ RES = RES + ONE / EPS
+*
+* Test orthogonality of Q and Z and backward error on T2 and S2
+*
+ CALL SGET51( 1, N, T, LDT, T2, LDT, Q, LDT, Z, LDT, WORK,
+ $ RESULT( 1 ) )
+ CALL SGET51( 1, N, S, LDT, S2, LDT, Q, LDT, Z, LDT, WORK,
+ $ RESULT( 2 ) )
+ CALL SGET51( 3, N, T, LDT, T2, LDT, Q, LDT, Q, LDT, WORK,
+ $ RESULT( 3 ) )
+ CALL SGET51( 3, N, T, LDT, T2, LDT, Z, LDT, Z, LDT, WORK,
+ $ RESULT( 4 ) )
+ RES = RES + RESULT( 1 ) + RESULT( 2 ) + RESULT( 3 ) + RESULT( 4 )
+*
+* Read next matrix pair
+*
+ GO TO 10
+*
+* End of SGET40
+*
+ END
diff --git a/lapack-netlib/TESTING/EIG/sget51.f b/lapack-netlib/TESTING/EIG/sget51.f
index 750cc7ce1..2067b8c3d 100644
--- a/lapack-netlib/TESTING/EIG/sget51.f
+++ b/lapack-netlib/TESTING/EIG/sget51.f
@@ -141,18 +141,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
SUBROUTINE SGET51( ITYPE, N, A, LDA, B, LDB, U, LDU, V, LDV, WORK,
$ RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER ITYPE, LDA, LDB, LDU, LDV, N
diff --git a/lapack-netlib/TESTING/EIG/sget52.f b/lapack-netlib/TESTING/EIG/sget52.f
index 135ab1903..9f5412602 100644
--- a/lapack-netlib/TESTING/EIG/sget52.f
+++ b/lapack-netlib/TESTING/EIG/sget52.f
@@ -191,18 +191,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
SUBROUTINE SGET52( LEFT, N, A, LDA, B, LDB, E, LDE, ALPHAR,
$ ALPHAI, BETA, WORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL LEFT
@@ -266,7 +263,7 @@
BETMAX = SAFMAX / MAX( ONE, ANORM )
*
* Compute error matrix.
-* Column i = ( b(i) A - a(i) B ) E(i) / max( |a(i) B| |b(i) A| )
+* Column i = ( b(i) A - a(i) B ) E(i) / max( |a(i) B|, |b(i) A| )
*
ILCPLX = .FALSE.
DO 10 JVEC = 1, N
@@ -360,14 +357,14 @@
DO 20 J = 1, N
TEMP1 = MAX( TEMP1, ABS( E( J, JVEC ) ) )
20 CONTINUE
- ENRMER = MAX( ENRMER, TEMP1-ONE )
+ ENRMER = MAX( ENRMER, ABS( TEMP1-ONE ) )
ELSE
ILCPLX = .TRUE.
DO 30 J = 1, N
TEMP1 = MAX( TEMP1, ABS( E( J, JVEC ) )+
$ ABS( E( J, JVEC+1 ) ) )
30 CONTINUE
- ENRMER = MAX( ENRMER, TEMP1-ONE )
+ ENRMER = MAX( ENRMER, ABS( TEMP1-ONE ) )
END IF
END IF
40 CONTINUE
diff --git a/lapack-netlib/TESTING/EIG/sget53.f b/lapack-netlib/TESTING/EIG/sget53.f
index 0811db75f..11decbe82 100644
--- a/lapack-netlib/TESTING/EIG/sget53.f
+++ b/lapack-netlib/TESTING/EIG/sget53.f
@@ -119,17 +119,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
SUBROUTINE SGET53( A, LDA, B, LDB, SCALE, WR, WI, RESULT, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDB
diff --git a/lapack-netlib/TESTING/EIG/sget54.f b/lapack-netlib/TESTING/EIG/sget54.f
index adc5886ba..8d73a2913 100644
--- a/lapack-netlib/TESTING/EIG/sget54.f
+++ b/lapack-netlib/TESTING/EIG/sget54.f
@@ -148,18 +148,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
SUBROUTINE SGET54( N, A, LDA, B, LDB, S, LDS, T, LDT, U, LDU, V,
$ LDV, WORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LDB, LDS, LDT, LDU, LDV, N
diff --git a/lapack-netlib/TESTING/EIG/sglmts.f b/lapack-netlib/TESTING/EIG/sglmts.f
index 1ae58da70..0859b3e0d 100644
--- a/lapack-netlib/TESTING/EIG/sglmts.f
+++ b/lapack-netlib/TESTING/EIG/sglmts.f
@@ -141,18 +141,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
SUBROUTINE SGLMTS( N, M, P, A, AF, LDA, B, BF, LDB, D, DF,
$ X, U, WORK, LWORK, RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LDB, LWORK, M, P, N
diff --git a/lapack-netlib/TESTING/EIG/sgqrts.f b/lapack-netlib/TESTING/EIG/sgqrts.f
index 2ed6dfc47..eacdc858f 100644
--- a/lapack-netlib/TESTING/EIG/sgqrts.f
+++ b/lapack-netlib/TESTING/EIG/sgqrts.f
@@ -168,18 +168,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
SUBROUTINE SGQRTS( N, M, P, A, AF, Q, R, LDA, TAUA, B, BF, Z, T,
$ BWK, LDB, TAUB, WORK, LWORK, RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LDB, LWORK, M, P, N
diff --git a/lapack-netlib/TESTING/EIG/sgrqts.f b/lapack-netlib/TESTING/EIG/sgrqts.f
index 0e26783c6..005adcacc 100644
--- a/lapack-netlib/TESTING/EIG/sgrqts.f
+++ b/lapack-netlib/TESTING/EIG/sgrqts.f
@@ -169,18 +169,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
SUBROUTINE SGRQTS( M, P, N, A, AF, Q, R, LDA, TAUA, B, BF, Z, T,
$ BWK, LDB, TAUB, WORK, LWORK, RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LDB, LWORK, M, P, N
diff --git a/lapack-netlib/TESTING/EIG/sgsvts3.f b/lapack-netlib/TESTING/EIG/sgsvts3.f
index 50ccd378b..b9b87be8c 100644
--- a/lapack-netlib/TESTING/EIG/sgsvts3.f
+++ b/lapack-netlib/TESTING/EIG/sgsvts3.f
@@ -201,8 +201,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date August 2015
-*
*> \ingroup single_eig
*
* =====================================================================
@@ -210,10 +208,9 @@
$ LDV, Q, LDQ, ALPHA, BETA, R, LDR, IWORK, WORK,
$ LWORK, RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* August 2015
*
* .. Scalar Arguments ..
INTEGER LDA, LDB, LDQ, LDR, LDU, LDV, LWORK, M, N, P
diff --git a/lapack-netlib/TESTING/EIG/shst01.f b/lapack-netlib/TESTING/EIG/shst01.f
index 50fd36185..97b14c211 100644
--- a/lapack-netlib/TESTING/EIG/shst01.f
+++ b/lapack-netlib/TESTING/EIG/shst01.f
@@ -126,18 +126,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
SUBROUTINE SHST01( N, ILO, IHI, A, LDA, H, LDH, Q, LDQ, WORK,
$ LWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER IHI, ILO, LDA, LDH, LDQ, LWORK, N
diff --git a/lapack-netlib/TESTING/EIG/slafts.f b/lapack-netlib/TESTING/EIG/slafts.f
index 008c118ad..7bbb389d3 100644
--- a/lapack-netlib/TESTING/EIG/slafts.f
+++ b/lapack-netlib/TESTING/EIG/slafts.f
@@ -91,18 +91,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
SUBROUTINE SLAFTS( TYPE, M, N, IMAT, NTESTS, RESULT, ISEED,
$ THRESH, IOUNIT, IE )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 TYPE
diff --git a/lapack-netlib/TESTING/EIG/slahd2.f b/lapack-netlib/TESTING/EIG/slahd2.f
index 440f95891..401c247b7 100644
--- a/lapack-netlib/TESTING/EIG/slahd2.f
+++ b/lapack-netlib/TESTING/EIG/slahd2.f
@@ -58,17 +58,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
SUBROUTINE SLAHD2( IOUNIT, PATH )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/EIG/slarfy.f b/lapack-netlib/TESTING/EIG/slarfy.f
index 340c54413..c2a819fe1 100644
--- a/lapack-netlib/TESTING/EIG/slarfy.f
+++ b/lapack-netlib/TESTING/EIG/slarfy.f
@@ -101,17 +101,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
SUBROUTINE SLARFY( UPLO, N, V, INCV, TAU, C, LDC, WORK )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/EIG/slarhs.f b/lapack-netlib/TESTING/EIG/slarhs.f
index 1e73842e3..01b1d2879 100644
--- a/lapack-netlib/TESTING/EIG/slarhs.f
+++ b/lapack-netlib/TESTING/EIG/slarhs.f
@@ -30,7 +30,7 @@
*> SLARHS chooses a set of NRHS random solution vectors and sets
*> up the right hand sides for the linear system
*> op( A ) * X = B,
-*> where op( A ) may be A or A' (transpose of A).
+*> where op(A) = A or A**T, depending on TRANS.
*> \endverbatim
*
* Arguments:
@@ -79,10 +79,11 @@
*> \param[in] TRANS
*> \verbatim
*> TRANS is CHARACTER*1
-*> Specifies the operation applied to the matrix A.
-*> = 'N': System is A * x = b
-*> = 'T': System is A'* x = b
-*> = 'C': System is A'* x = b
+*> Used only if A is nonsymmetric; specifies the operation
+*> applied to the matrix A.
+*> = 'N': B := A * X (No transpose)
+*> = 'T': B := A**T * X (Transpose)
+*> = 'C': B := A**H * X (Conjugate transpose = Transpose)
*> \endverbatim
*>
*> \param[in] M
@@ -196,18 +197,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup single_eig
*
* =====================================================================
SUBROUTINE SLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS,
$ A, LDA, X, LDX, B, LDB, ISEED, INFO )
*
-* -- LAPACK test routine (version 3.7.1) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2017
*
* .. Scalar Arguments ..
CHARACTER TRANS, UPLO, XTYPE
diff --git a/lapack-netlib/TESTING/EIG/slasum.f b/lapack-netlib/TESTING/EIG/slasum.f
index 58fd58081..fa1e43388 100644
--- a/lapack-netlib/TESTING/EIG/slasum.f
+++ b/lapack-netlib/TESTING/EIG/slasum.f
@@ -33,17 +33,15 @@
* \author Univ. of Colorado Denver
* \author NAG Ltd.
*
-* \date December 2016
-*
+
* \ingroup single_eig
*
* =====================================================================
SUBROUTINE SLASUM( TYPE, IOUNIT, IE, NRUN )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 TYPE
diff --git a/lapack-netlib/TESTING/EIG/slatb9.f b/lapack-netlib/TESTING/EIG/slatb9.f
index 49fb16288..f8638a46a 100644
--- a/lapack-netlib/TESTING/EIG/slatb9.f
+++ b/lapack-netlib/TESTING/EIG/slatb9.f
@@ -161,8 +161,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
@@ -170,10 +168,9 @@
$ KLB, KUB, ANORM, BNORM, MODEA, MODEB,
$ CNDNMA, CNDNMB, DISTA, DISTB )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DISTA, DISTB, TYPE
diff --git a/lapack-netlib/TESTING/EIG/slatm4.f b/lapack-netlib/TESTING/EIG/slatm4.f
index 3607c04ba..3c40de70f 100644
--- a/lapack-netlib/TESTING/EIG/slatm4.f
+++ b/lapack-netlib/TESTING/EIG/slatm4.f
@@ -167,18 +167,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
SUBROUTINE SLATM4( ITYPE, N, NZ1, NZ2, ISIGN, AMAGN, RCOND,
$ TRIANG, IDIST, ISEED, A, LDA )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER IDIST, ISIGN, ITYPE, LDA, N, NZ1, NZ2
diff --git a/lapack-netlib/TESTING/EIG/slctes.f b/lapack-netlib/TESTING/EIG/slctes.f
index 8753d43a2..d5dec3fef 100644
--- a/lapack-netlib/TESTING/EIG/slctes.f
+++ b/lapack-netlib/TESTING/EIG/slctes.f
@@ -61,17 +61,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup single_eig
*
* =====================================================================
LOGICAL FUNCTION SLCTES( ZR, ZI, D )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2016
*
* .. Scalar Arguments ..
REAL D, ZI, ZR
diff --git a/lapack-netlib/TESTING/EIG/slctsx.f b/lapack-netlib/TESTING/EIG/slctsx.f
index 084d2a8bb..d650baed9 100644
--- a/lapack-netlib/TESTING/EIG/slctsx.f
+++ b/lapack-netlib/TESTING/EIG/slctsx.f
@@ -58,17 +58,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
LOGICAL FUNCTION SLCTSX( AR, AI, BETA )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
REAL AI, AR, BETA
diff --git a/lapack-netlib/TESTING/EIG/slsets.f b/lapack-netlib/TESTING/EIG/slsets.f
index ad483bcd0..0fb66decf 100644
--- a/lapack-netlib/TESTING/EIG/slsets.f
+++ b/lapack-netlib/TESTING/EIG/slsets.f
@@ -147,18 +147,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
SUBROUTINE SLSETS( M, P, N, A, AF, LDA, B, BF, LDB, C, CF,
$ D, DF, X, WORK, LWORK, RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LDB, LWORK, M, P, N
diff --git a/lapack-netlib/TESTING/EIG/sort01.f b/lapack-netlib/TESTING/EIG/sort01.f
index d013c70c5..c8fb5ff6e 100644
--- a/lapack-netlib/TESTING/EIG/sort01.f
+++ b/lapack-netlib/TESTING/EIG/sort01.f
@@ -109,17 +109,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
SUBROUTINE SORT01( ROWCOL, M, N, U, LDU, WORK, LWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER ROWCOL
diff --git a/lapack-netlib/TESTING/EIG/sort03.f b/lapack-netlib/TESTING/EIG/sort03.f
index 09a941487..3ca35705a 100644
--- a/lapack-netlib/TESTING/EIG/sort03.f
+++ b/lapack-netlib/TESTING/EIG/sort03.f
@@ -148,18 +148,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
SUBROUTINE SORT03( RC, MU, MV, N, K, U, LDU, V, LDV, WORK, LWORK,
$ RESULT, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*( * ) RC
diff --git a/lapack-netlib/TESTING/EIG/ssbt21.f b/lapack-netlib/TESTING/EIG/ssbt21.f
index 7ef5ad9b3..f4b4fbe0c 100644
--- a/lapack-netlib/TESTING/EIG/ssbt21.f
+++ b/lapack-netlib/TESTING/EIG/ssbt21.f
@@ -139,18 +139,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
SUBROUTINE SSBT21( UPLO, N, KA, KS, A, LDA, D, E, U, LDU, WORK,
$ RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/EIG/ssgt01.f b/lapack-netlib/TESTING/EIG/ssgt01.f
index e4af48ddb..b606422a6 100644
--- a/lapack-netlib/TESTING/EIG/ssgt01.f
+++ b/lapack-netlib/TESTING/EIG/ssgt01.f
@@ -138,18 +138,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
SUBROUTINE SSGT01( ITYPE, UPLO, N, M, A, LDA, B, LDB, Z, LDZ, D,
$ WORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/EIG/sslect.f b/lapack-netlib/TESTING/EIG/sslect.f
index 5a85e2520..1880f02a6 100644
--- a/lapack-netlib/TESTING/EIG/sslect.f
+++ b/lapack-netlib/TESTING/EIG/sslect.f
@@ -55,17 +55,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup single_eig
*
* =====================================================================
LOGICAL FUNCTION SSLECT( ZR, ZI )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2016
*
* .. Scalar Arguments ..
REAL ZI, ZR
diff --git a/lapack-netlib/TESTING/EIG/sspt21.f b/lapack-netlib/TESTING/EIG/sspt21.f
index 4ecb04c0e..6945f142e 100644
--- a/lapack-netlib/TESTING/EIG/sspt21.f
+++ b/lapack-netlib/TESTING/EIG/sspt21.f
@@ -213,18 +213,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
SUBROUTINE SSPT21( ITYPE, UPLO, N, KBAND, AP, D, E, U, LDU, VP,
$ TAU, WORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/EIG/sstech.f b/lapack-netlib/TESTING/EIG/sstech.f
index d383e47ce..f05e1efa0 100644
--- a/lapack-netlib/TESTING/EIG/sstech.f
+++ b/lapack-netlib/TESTING/EIG/sstech.f
@@ -94,17 +94,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
SUBROUTINE SSTECH( N, A, B, EIG, TOL, WORK, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, N
diff --git a/lapack-netlib/TESTING/EIG/sstect.f b/lapack-netlib/TESTING/EIG/sstect.f
index 314d0f68e..94a265369 100644
--- a/lapack-netlib/TESTING/EIG/sstect.f
+++ b/lapack-netlib/TESTING/EIG/sstect.f
@@ -75,17 +75,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
SUBROUTINE SSTECT( N, A, B, SHIFT, NUM )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER N, NUM
diff --git a/lapack-netlib/TESTING/EIG/sstt21.f b/lapack-netlib/TESTING/EIG/sstt21.f
index 5045d7f0f..90984502d 100644
--- a/lapack-netlib/TESTING/EIG/sstt21.f
+++ b/lapack-netlib/TESTING/EIG/sstt21.f
@@ -119,18 +119,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
SUBROUTINE SSTT21( N, KBAND, AD, AE, SD, SE, U, LDU, WORK,
$ RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER KBAND, LDU, N
diff --git a/lapack-netlib/TESTING/EIG/sstt22.f b/lapack-netlib/TESTING/EIG/sstt22.f
index 0a65e4d5d..f07405fb7 100644
--- a/lapack-netlib/TESTING/EIG/sstt22.f
+++ b/lapack-netlib/TESTING/EIG/sstt22.f
@@ -131,18 +131,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
SUBROUTINE SSTT22( N, M, KBAND, AD, AE, SD, SE, U, LDU, WORK,
$ LDWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER KBAND, LDU, LDWORK, M, N
diff --git a/lapack-netlib/TESTING/EIG/ssvdch.f b/lapack-netlib/TESTING/EIG/ssvdch.f
index 73654f7cf..e85181b14 100644
--- a/lapack-netlib/TESTING/EIG/ssvdch.f
+++ b/lapack-netlib/TESTING/EIG/ssvdch.f
@@ -90,17 +90,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
SUBROUTINE SSVDCH( N, S, E, SVD, TOL, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, N
diff --git a/lapack-netlib/TESTING/EIG/ssvdct.f b/lapack-netlib/TESTING/EIG/ssvdct.f
index 8db20bad7..9b6aad315 100644
--- a/lapack-netlib/TESTING/EIG/ssvdct.f
+++ b/lapack-netlib/TESTING/EIG/ssvdct.f
@@ -80,17 +80,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
SUBROUTINE SSVDCT( N, S, E, SHIFT, NUM )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER N, NUM
diff --git a/lapack-netlib/TESTING/EIG/ssxt1.f b/lapack-netlib/TESTING/EIG/ssxt1.f
index 858ef8c6f..3fa6d6bb8 100644
--- a/lapack-netlib/TESTING/EIG/ssxt1.f
+++ b/lapack-netlib/TESTING/EIG/ssxt1.f
@@ -98,18 +98,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
REAL FUNCTION SSXT1( IJOB, D1, N1, D2, N2, ABSTOL,
$ ULP, UNFL )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER IJOB, N1, N2
diff --git a/lapack-netlib/TESTING/EIG/ssyt21.f b/lapack-netlib/TESTING/EIG/ssyt21.f
index fc7ca6a2a..b14fdf67b 100644
--- a/lapack-netlib/TESTING/EIG/ssyt21.f
+++ b/lapack-netlib/TESTING/EIG/ssyt21.f
@@ -199,18 +199,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
SUBROUTINE SSYT21( ITYPE, UPLO, N, KBAND, A, LDA, D, E, U, LDU, V,
$ LDV, TAU, WORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/EIG/ssyt22.f b/lapack-netlib/TESTING/EIG/ssyt22.f
index 38fc3e555..2319bb2db 100644
--- a/lapack-netlib/TESTING/EIG/ssyt22.f
+++ b/lapack-netlib/TESTING/EIG/ssyt22.f
@@ -149,18 +149,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_eig
*
* =====================================================================
SUBROUTINE SSYT22( ITYPE, UPLO, N, M, KBAND, A, LDA, D, E, U, LDU,
$ V, LDV, TAU, WORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/EIG/xerbla.f b/lapack-netlib/TESTING/EIG/xerbla.f
index d57f6bcf8..e5fd23715 100644
--- a/lapack-netlib/TESTING/EIG/xerbla.f
+++ b/lapack-netlib/TESTING/EIG/xerbla.f
@@ -52,8 +52,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup aux_eig
*
*> \par Further Details:
@@ -75,10 +73,9 @@
* =====================================================================
SUBROUTINE XERBLA( SRNAME, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*(*) SRNAME
diff --git a/lapack-netlib/TESTING/EIG/xlaenv.f b/lapack-netlib/TESTING/EIG/xlaenv.f
index e973bc2cb..23b6c7567 100644
--- a/lapack-netlib/TESTING/EIG/xlaenv.f
+++ b/lapack-netlib/TESTING/EIG/xlaenv.f
@@ -74,17 +74,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup aux_eig
*
* =====================================================================
SUBROUTINE XLAENV( ISPEC, NVALUE )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER ISPEC, NVALUE
diff --git a/lapack-netlib/TESTING/EIG/zbdt01.f b/lapack-netlib/TESTING/EIG/zbdt01.f
index ead9f1050..afe2fa89a 100644
--- a/lapack-netlib/TESTING/EIG/zbdt01.f
+++ b/lapack-netlib/TESTING/EIG/zbdt01.f
@@ -28,13 +28,13 @@
*> \verbatim
*>
*> ZBDT01 reconstructs a general matrix A from its bidiagonal form
-*> A = Q * B * P'
-*> where Q (m by min(m,n)) and P' (min(m,n) by n) are unitary
+*> A = Q * B * P**H
+*> where Q (m by min(m,n)) and P**H (min(m,n) by n) are unitary
*> matrices and B is bidiagonal.
*>
*> The test ratio to test the reduction is
-*> RESID = norm( A - Q * B * PT ) / ( n * norm(A) * EPS )
-*> where PT = P' and EPS is the machine precision.
+*> RESID = norm(A - Q * B * P**H) / ( n * norm(A) * EPS )
+*> where EPS is the machine precision.
*> \endverbatim
*
* Arguments:
@@ -49,7 +49,7 @@
*> \param[in] N
*> \verbatim
*> N is INTEGER
-*> The number of columns of the matrices A and P'.
+*> The number of columns of the matrices A and P**H.
*> \endverbatim
*>
*> \param[in] KD
@@ -78,7 +78,7 @@
*> \verbatim
*> Q is COMPLEX*16 array, dimension (LDQ,N)
*> The m by min(m,n) unitary matrix Q in the reduction
-*> A = Q * B * P'.
+*> A = Q * B * P**H.
*> \endverbatim
*>
*> \param[in] LDQ
@@ -103,8 +103,8 @@
*> \param[in] PT
*> \verbatim
*> PT is COMPLEX*16 array, dimension (LDPT,N)
-*> The min(m,n) by n unitary matrix P' in the reduction
-*> A = Q * B * P'.
+*> The min(m,n) by n unitary matrix P**H in the reduction
+*> A = Q * B * P**H.
*> \endverbatim
*>
*> \param[in] LDPT
@@ -127,7 +127,8 @@
*> \param[out] RESID
*> \verbatim
*> RESID is DOUBLE PRECISION
-*> The test ratio: norm(A - Q * B * P') / ( n * norm(A) * EPS )
+*> The test ratio:
+*> norm(A - Q * B * P**H) / ( n * norm(A) * EPS )
*> \endverbatim
*
* Authors:
@@ -138,18 +139,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
SUBROUTINE ZBDT01( M, N, KD, A, LDA, Q, LDQ, D, E, PT, LDPT, WORK,
$ RWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER KD, LDA, LDPT, LDQ, M, N
@@ -190,7 +188,7 @@
RETURN
END IF
*
-* Compute A - Q * B * P' one column at a time.
+* Compute A - Q * B * P**H one column at a time.
*
RESID = ZERO
IF( KD.NE.0 ) THEN
@@ -268,7 +266,7 @@
END IF
END IF
*
-* Compute norm(A - Q * B * P') / ( n * norm(A) * EPS )
+* Compute norm(A - Q * B * P**H) / ( n * norm(A) * EPS )
*
ANORM = ZLANGE( '1', M, N, A, LDA, RWORK )
EPS = DLAMCH( 'Precision' )
diff --git a/lapack-netlib/TESTING/EIG/zbdt02.f b/lapack-netlib/TESTING/EIG/zbdt02.f
index 2101a2e0c..27117a7d1 100644
--- a/lapack-netlib/TESTING/EIG/zbdt02.f
+++ b/lapack-netlib/TESTING/EIG/zbdt02.f
@@ -27,7 +27,8 @@
*>
*> \verbatim
*>
-*> ZBDT02 tests the change of basis C = U' * B by computing the residual
+*> ZBDT02 tests the change of basis C = U**H * B by computing the
+*> residual
*>
*> RESID = norm( B - U * C ) / ( max(m,n) * norm(B) * EPS ),
*>
@@ -66,7 +67,7 @@
*> \param[in] C
*> \verbatim
*> C is COMPLEX*16 array, dimension (LDC,N)
-*> The m by n matrix C, assumed to contain U' * B.
+*> The m by n matrix C, assumed to contain U**H * B.
*> \endverbatim
*>
*> \param[in] LDC
@@ -111,18 +112,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
SUBROUTINE ZBDT02( M, N, B, LDB, C, LDC, U, LDU, WORK, RWORK,
$ RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDB, LDC, LDU, M, N
diff --git a/lapack-netlib/TESTING/EIG/zbdt03.f b/lapack-netlib/TESTING/EIG/zbdt03.f
index 079d4ffb0..289e55585 100644
--- a/lapack-netlib/TESTING/EIG/zbdt03.f
+++ b/lapack-netlib/TESTING/EIG/zbdt03.f
@@ -127,18 +127,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
SUBROUTINE ZBDT03( UPLO, N, KD, D, E, U, LDU, S, VT, LDVT, WORK,
$ RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/EIG/zbdt05.f b/lapack-netlib/TESTING/EIG/zbdt05.f
index f262351e4..c6298e7e3 100644
--- a/lapack-netlib/TESTING/EIG/zbdt05.f
+++ b/lapack-netlib/TESTING/EIG/zbdt05.f
@@ -117,18 +117,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_eig
*
* =====================================================================
SUBROUTINE ZBDT05( M, N, A, LDA, S, NS, U, LDU,
$ VT, LDVT, WORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LDU, LDVT, M, N, NS
diff --git a/lapack-netlib/TESTING/EIG/zchkbb.f b/lapack-netlib/TESTING/EIG/zchkbb.f
index 877caffa5..b9e165ce8 100644
--- a/lapack-netlib/TESTING/EIG/zchkbb.f
+++ b/lapack-netlib/TESTING/EIG/zchkbb.f
@@ -351,8 +351,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
@@ -364,7 +362,6 @@
* -- LAPACK test routine (input) --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDAB, LDC, LDP, LDQ, LWORK, NOUNIT,
diff --git a/lapack-netlib/TESTING/EIG/zchkbd.f b/lapack-netlib/TESTING/EIG/zchkbd.f
index b3d560554..034cf57cf 100644
--- a/lapack-netlib/TESTING/EIG/zchkbd.f
+++ b/lapack-netlib/TESTING/EIG/zchkbd.f
@@ -405,8 +405,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
@@ -415,10 +413,9 @@
$ Y, Z, Q, LDQ, PT, LDPT, U, VT, WORK, LWORK,
$ RWORK, NOUT, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDPT, LDQ, LDX, LWORK, NOUT, NRHS,
diff --git a/lapack-netlib/TESTING/EIG/zchkbk.f b/lapack-netlib/TESTING/EIG/zchkbk.f
index 4f9f43cc9..206e9c2b9 100644
--- a/lapack-netlib/TESTING/EIG/zchkbk.f
+++ b/lapack-netlib/TESTING/EIG/zchkbk.f
@@ -48,17 +48,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
SUBROUTINE ZCHKBK( NIN, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER NIN, NOUT
diff --git a/lapack-netlib/TESTING/EIG/zchkbl.f b/lapack-netlib/TESTING/EIG/zchkbl.f
index 6e0a18118..f623bc311 100644
--- a/lapack-netlib/TESTING/EIG/zchkbl.f
+++ b/lapack-netlib/TESTING/EIG/zchkbl.f
@@ -47,17 +47,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
SUBROUTINE ZCHKBL( NIN, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER NIN, NOUT
diff --git a/lapack-netlib/TESTING/EIG/zchkec.f b/lapack-netlib/TESTING/EIG/zchkec.f
index 86643969b..1e1c29e0d 100644
--- a/lapack-netlib/TESTING/EIG/zchkec.f
+++ b/lapack-netlib/TESTING/EIG/zchkec.f
@@ -68,17 +68,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
SUBROUTINE ZCHKEC( THRESH, TSTERR, NIN, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/EIG/zchkee.F b/lapack-netlib/TESTING/EIG/zchkee.F
index fb418a43b..b14127553 100644
--- a/lapack-netlib/TESTING/EIG/zchkee.F
+++ b/lapack-netlib/TESTING/EIG/zchkee.F
@@ -1027,8 +1027,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
@@ -1038,10 +1036,9 @@
use omp_lib
#endif
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2016
*
* =====================================================================
*
diff --git a/lapack-netlib/TESTING/EIG/zchkgg.f b/lapack-netlib/TESTING/EIG/zchkgg.f
index 2f99d76f3..5e6797f50 100644
--- a/lapack-netlib/TESTING/EIG/zchkgg.f
+++ b/lapack-netlib/TESTING/EIG/zchkgg.f
@@ -492,8 +492,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
@@ -503,10 +501,9 @@
$ ALPHA3, BETA3, EVECTL, EVECTR, WORK, LWORK,
$ RWORK, LLWORK, RESULT, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2016
*
* .. Scalar Arguments ..
LOGICAL TSTDIF
diff --git a/lapack-netlib/TESTING/EIG/zchkgk.f b/lapack-netlib/TESTING/EIG/zchkgk.f
index 56a34fe0c..083841177 100644
--- a/lapack-netlib/TESTING/EIG/zchkgk.f
+++ b/lapack-netlib/TESTING/EIG/zchkgk.f
@@ -47,17 +47,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
SUBROUTINE ZCHKGK( NIN, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER NIN, NOUT
diff --git a/lapack-netlib/TESTING/EIG/zchkgl.f b/lapack-netlib/TESTING/EIG/zchkgl.f
index 48afa62a1..27c8babc9 100644
--- a/lapack-netlib/TESTING/EIG/zchkgl.f
+++ b/lapack-netlib/TESTING/EIG/zchkgl.f
@@ -46,17 +46,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
SUBROUTINE ZCHKGL( NIN, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER NIN, NOUT
diff --git a/lapack-netlib/TESTING/EIG/zchkhb.f b/lapack-netlib/TESTING/EIG/zchkhb.f
index a4c658ff3..080ce8170 100644
--- a/lapack-netlib/TESTING/EIG/zchkhb.f
+++ b/lapack-netlib/TESTING/EIG/zchkhb.f
@@ -289,8 +289,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
@@ -298,10 +296,9 @@
$ THRESH, NOUNIT, A, LDA, SD, SE, U, LDU, WORK,
$ LWORK, RWORK, RESULT, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDU, LWORK, NOUNIT, NSIZES, NTYPES,
diff --git a/lapack-netlib/TESTING/EIG/zchkhb2stg.f b/lapack-netlib/TESTING/EIG/zchkhb2stg.f
index 05434e4e3..786df7882 100644
--- a/lapack-netlib/TESTING/EIG/zchkhb2stg.f
+++ b/lapack-netlib/TESTING/EIG/zchkhb2stg.f
@@ -1,4 +1,4 @@
-*> \brief \b ZCHKHBSTG
+*> \brief \b ZCHKHB2STG
*
* =========== DOCUMENTATION ===========
*
@@ -8,7 +8,7 @@
* Definition:
* ===========
*
-* SUBROUTINE ZCHKHBSTG( NSIZES, NN, NWDTHS, KK, NTYPES, DOTYPE,
+* SUBROUTINE ZCHKHB2STG( NSIZES, NN, NWDTHS, KK, NTYPES, DOTYPE,
* ISEED, THRESH, NOUNIT, A, LDA, SD, SE, D1,
* D2, D3, U, LDU, WORK, LWORK, RWORK RESULT,
* INFO )
@@ -21,7 +21,8 @@
* .. Array Arguments ..
* LOGICAL DOTYPE( * )
* INTEGER ISEED( 4 ), KK( * ), NN( * )
-* DOUBLE PRECISION RESULT( * ), RWORK( * ), SD( * ), SE( * )
+* DOUBLE PRECISION RESULT( * ), RWORK( * ), SD( * ), SE( * ),
+* $ D1( * ), D2( * ), D3( * )
* COMPLEX*16 A( LDA, * ), U( LDU, * ), WORK( * )
* ..
*
@@ -31,18 +32,18 @@
*>
*> \verbatim
*>
-*> ZCHKHBSTG tests the reduction of a Hermitian band matrix to tridiagonal
+*> ZCHKHB2STG tests the reduction of a Hermitian band matrix to tridiagonal
*> from, used with the Hermitian eigenvalue problem.
*>
*> ZHBTRD factors a Hermitian band matrix A as U S U* , where * means
*> conjugate transpose, S is symmetric tridiagonal, and U is unitary.
*> ZHBTRD can use either just the lower or just the upper triangle
-*> of A; ZCHKHBSTG checks both cases.
+*> of A; ZCHKHB2STG checks both cases.
*>
*> ZHETRD_HB2ST factors a Hermitian band matrix A as U S U* ,
*> where * means conjugate transpose, S is symmetric tridiagonal, and U is
*> unitary. ZHETRD_HB2ST can use either just the lower or just
-*> the upper triangle of A; ZCHKHBSTG checks both cases.
+*> the upper triangle of A; ZCHKHB2STG checks both cases.
*>
*> DSTEQR factors S as Z D1 Z'.
*> D1 is the matrix of eigenvalues computed when Z is not computed
@@ -52,7 +53,7 @@
*> D3 is the matrix of eigenvalues computed when Z is not computed
*> and from the S resulting of DSYTRD_SB2ST "L".
*>
-*> When ZCHKHBSTG is called, a number of matrix "sizes" ("n's"), a number
+*> When ZCHKHB2STG is called, a number of matrix "sizes" ("n's"), a number
*> of bandwidths ("k's"), and a number of matrix "types" are
*> specified. For each size ("n"), each bandwidth ("k") less than or
*> equal to "n", and each type of matrix, one matrix will be generated
@@ -126,7 +127,7 @@
*> \verbatim
*> NSIZES is INTEGER
*> The number of sizes of matrices to use. If it is zero,
-*> ZCHKHBSTG does nothing. It must be at least zero.
+*> ZCHKHB2STG does nothing. It must be at least zero.
*> \endverbatim
*>
*> \param[in] NN
@@ -141,7 +142,7 @@
*> \verbatim
*> NWDTHS is INTEGER
*> The number of bandwidths to use. If it is zero,
-*> ZCHKHBSTG does nothing. It must be at least zero.
+*> ZCHKHB2STG does nothing. It must be at least zero.
*> \endverbatim
*>
*> \param[in] KK
@@ -154,7 +155,7 @@
*> \param[in] NTYPES
*> \verbatim
*> NTYPES is INTEGER
-*> The number of elements in DOTYPE. If it is zero, ZCHKHBSTG
+*> The number of elements in DOTYPE. If it is zero, ZCHKHB2STG
*> does nothing. It must be at least zero. If it is MAXTYP+1
*> and NSIZES is 1, then an additional type, MAXTYP+1 is
*> defined, which is to use whatever matrix is in A. This
@@ -184,7 +185,7 @@
*> congruential sequence limited to small integers, and so
*> should produce machine independent random numbers. The
*> values of ISEED are changed on exit, and can be used in the
-*> next call to ZCHKHBSTG to continue the same random number
+*> next call to ZCHKHB2STG to continue the same random number
*> sequence.
*> \endverbatim
*>
@@ -235,6 +236,20 @@
*> computed by ZHBTRD.
*> \endverbatim
*>
+*> \param[out] D1
+*> \verbatim
+*> D1 is DOUBLE PRECISION array, dimension (max(NN))
+*> \endverbatim
+*>
+*> \param[out] D2
+*> \verbatim
+*> D2 is DOUBLE PRECISION array, dimension (max(NN))
+*> \endverbatim
+*>*> \param[out] D3
+*> \verbatim
+*> D3 is DOUBLE PRECISION array, dimension (max(NN))
+*> \endverbatim
+*>
*> \param[out] U
*> \verbatim
*> U is COMPLEX*16 array, dimension (LDU, max(NN))
@@ -313,8 +328,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complex16_eig
*
* =====================================================================
@@ -323,10 +336,9 @@
$ D2, D3, U, LDU, WORK, LWORK, RWORK, RESULT,
$ INFO )
*
-* -- LAPACK test routine (version 3.7.1) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2017
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDU, LWORK, NOUNIT, NSIZES, NTYPES,
@@ -432,7 +444,7 @@
END IF
*
IF( INFO.NE.0 ) THEN
- CALL XERBLA( 'ZCHKHBSTG', -INFO )
+ CALL XERBLA( 'ZCHKHB2STG', -INFO )
RETURN
END IF
*
@@ -837,7 +849,7 @@
CALL DLASUM( 'ZHB', NOUNIT, NERRS, NTESTT )
RETURN
*
- 9999 FORMAT( ' ZCHKHBSTG: ', A, ' returned INFO=', I6, '.', / 9X, 'N=',
+ 9999 FORMAT( ' ZCHKHB2STG: ', A, ' returned INFO=', I6, '.', / 9X, 'N=',
$ I6, ', JTYPE=', I6, ', ISEED=(', 3( I5, ',' ), I5, ')' )
9998 FORMAT( / 1X, A3,
$ ' -- Complex Hermitian Banded Tridiagonal Reduction Routines'
@@ -873,6 +885,6 @@
9993 FORMAT( ' N=', I5, ', K=', I4, ', seed=', 4( I4, ',' ), ' type ',
$ I2, ', test(', I2, ')=', G10.3 )
*
-* End of ZCHKHBSTG
+* End of ZCHKHB2STG
*
END
diff --git a/lapack-netlib/TESTING/EIG/zchkhs.f b/lapack-netlib/TESTING/EIG/zchkhs.f
index ec89b44f9..52962a041 100644
--- a/lapack-netlib/TESTING/EIG/zchkhs.f
+++ b/lapack-netlib/TESTING/EIG/zchkhs.f
@@ -401,8 +401,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
@@ -412,10 +410,9 @@
$ WORK, NWORK, RWORK, IWORK, SELECT, RESULT,
$ INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDU, NOUNIT, NSIZES, NTYPES, NWORK
diff --git a/lapack-netlib/TESTING/EIG/zchkst.f b/lapack-netlib/TESTING/EIG/zchkst.f
index cd45e98e1..60496dde1 100644
--- a/lapack-netlib/TESTING/EIG/zchkst.f
+++ b/lapack-netlib/TESTING/EIG/zchkst.f
@@ -593,8 +593,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
@@ -604,10 +602,9 @@
$ LWORK, RWORK, LRWORK, IWORK, LIWORK, RESULT,
$ INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDU, LIWORK, LRWORK, LWORK, NOUNIT,
diff --git a/lapack-netlib/TESTING/EIG/zchkst2stg.f b/lapack-netlib/TESTING/EIG/zchkst2stg.f
index 4eadca4f3..b1ef80816 100644
--- a/lapack-netlib/TESTING/EIG/zchkst2stg.f
+++ b/lapack-netlib/TESTING/EIG/zchkst2stg.f
@@ -614,8 +614,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
@@ -625,10 +623,9 @@
$ LWORK, RWORK, LRWORK, IWORK, LIWORK, RESULT,
$ INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDU, LIWORK, LRWORK, LWORK, NOUNIT,
@@ -690,7 +687,7 @@
$ XERBLA, ZCOPY, ZHET21, ZHETRD, ZHPT21, ZHPTRD,
$ ZLACPY, ZLASET, ZLATMR, ZLATMS, ZPTEQR, ZSTEDC,
$ ZSTEMR, ZSTEIN, ZSTEQR, ZSTT21, ZSTT22, ZUNGTR,
- $ ZUPGTR, ZHETRD_2STAGE
+ $ ZUPGTR, ZHETRD_2STAGE, DLASET
* ..
* .. Intrinsic Functions ..
INTRINSIC ABS, DBLE, DCONJG, INT, LOG, MAX, MIN, SQRT
@@ -1075,7 +1072,6 @@
END IF
END IF
*
-*
* Do Tests 3 and 4 which are similar to 11 and 12 but with the
* D1 computed using the standard 1-stage reduction as reference
*
@@ -1738,7 +1734,6 @@
END IF
END IF
*
-*
* Do test 28
*
TEMP2 = TWO*( TWO*N-ONE )*ULP*
@@ -1795,7 +1790,6 @@
*
* Do Tests 29 and 30
*
-*
* Call ZSTEMR to compute D2, do tests.
*
* Compute D2
@@ -1835,7 +1829,6 @@
RESULT( 31 ) = TEMP2 / MAX( UNFL,
$ ULP*MAX( TEMP1, TEMP2 ) )
*
-*
* Call ZSTEMR(V,V) to compute D1 and Z, do tests.
*
* Compute D1 and Z
@@ -1937,7 +1930,6 @@
RESULT( 34 ) = ZERO
END IF
*
-*
* Call ZSTEMR(V,A) to compute D1 and Z, do tests.
*
* Compute D1 and Z
@@ -1994,7 +1986,7 @@
END IF
END IF
*
-* Do Test 34
+* Do Test 37
*
TEMP1 = ZERO
TEMP2 = ZERO
@@ -2013,7 +2005,6 @@
*
* End of Loop -- Check for RESULT(j) > THRESH
*
-*
* Print out tests which fail.
*
DO 290 JR = 1, NTEST
@@ -2088,6 +2079,7 @@
$ 4( I4, ',' ), ' result ', I3, ' is', 1P, D10.3 )
*
9987 FORMAT( / 'Test performed: see ZCHKST2STG for details.', / )
+*
* End of ZCHKST2STG
*
END
diff --git a/lapack-netlib/TESTING/EIG/zckcsd.f b/lapack-netlib/TESTING/EIG/zckcsd.f
index 92760337c..c37831657 100644
--- a/lapack-netlib/TESTING/EIG/zckcsd.f
+++ b/lapack-netlib/TESTING/EIG/zckcsd.f
@@ -175,8 +175,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
@@ -184,10 +182,9 @@
$ MMAX, X, XF, U1, U2, V1T, V2T, THETA, IWORK,
$ WORK, RWORK, NIN, NOUT, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, NIN, NM, NMATS, MMAX, NOUT
@@ -208,13 +205,14 @@
PARAMETER ( NTESTS = 15 )
INTEGER NTYPES
PARAMETER ( NTYPES = 4 )
- DOUBLE PRECISION GAPDIGIT, ORTH, PIOVER2, REALONE, REALZERO, TEN
+ DOUBLE PRECISION GAPDIGIT, ORTH, REALONE, REALZERO, TEN
PARAMETER ( GAPDIGIT = 18.0D0, ORTH = 1.0D-12,
- $ PIOVER2 = 1.57079632679489662D0,
$ REALONE = 1.0D0, REALZERO = 0.0D0,
$ TEN = 10.0D0 )
COMPLEX*16 ONE, ZERO
PARAMETER ( ONE = (1.0D0,0.0D0), ZERO = (0.0D0,0.0D0) )
+ DOUBLE PRECISION PIOVER2
+ PARAMETER ( PIOVER2 = 1.57079632679489661923132169163975144210D0 )
* ..
* .. Local Scalars ..
LOGICAL FIRSTT
diff --git a/lapack-netlib/TESTING/EIG/zckglm.f b/lapack-netlib/TESTING/EIG/zckglm.f
index 565c74791..ff8101bb9 100644
--- a/lapack-netlib/TESTING/EIG/zckglm.f
+++ b/lapack-netlib/TESTING/EIG/zckglm.f
@@ -159,8 +159,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
@@ -168,10 +166,9 @@
$ NMAX, A, AF, B, BF, X, WORK, RWORK, NIN, NOUT,
$ INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, NIN, NMATS, NMAX, NN, NOUT
diff --git a/lapack-netlib/TESTING/EIG/zckgqr.f b/lapack-netlib/TESTING/EIG/zckgqr.f
index 2d137785b..769d0f8b0 100644
--- a/lapack-netlib/TESTING/EIG/zckgqr.f
+++ b/lapack-netlib/TESTING/EIG/zckgqr.f
@@ -202,8 +202,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
@@ -211,10 +209,9 @@
$ THRESH, NMAX, A, AF, AQ, AR, TAUA, B, BF, BZ,
$ BT, BWK, TAUB, WORK, RWORK, NIN, NOUT, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, NIN, NM, NMATS, NMAX, NN, NOUT, NP
diff --git a/lapack-netlib/TESTING/EIG/zckgsv.f b/lapack-netlib/TESTING/EIG/zckgsv.f
index 32352fc06..800aa5edd 100644
--- a/lapack-netlib/TESTING/EIG/zckgsv.f
+++ b/lapack-netlib/TESTING/EIG/zckgsv.f
@@ -189,8 +189,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
@@ -198,10 +196,9 @@
$ NMAX, A, AF, B, BF, U, V, Q, ALPHA, BETA, R,
$ IWORK, WORK, RWORK, NIN, NOUT, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, NIN, NM, NMATS, NMAX, NOUT
diff --git a/lapack-netlib/TESTING/EIG/zcklse.f b/lapack-netlib/TESTING/EIG/zcklse.f
index e38a4c0a8..26b0298e3 100644
--- a/lapack-netlib/TESTING/EIG/zcklse.f
+++ b/lapack-netlib/TESTING/EIG/zcklse.f
@@ -159,8 +159,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
@@ -168,10 +166,9 @@
$ NMAX, A, AF, B, BF, X, WORK, RWORK, NIN, NOUT,
$ INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, NIN, NMATS, NMAX, NN, NOUT
diff --git a/lapack-netlib/TESTING/EIG/zcsdts.f b/lapack-netlib/TESTING/EIG/zcsdts.f
index c5fd68eb9..c96cb1613 100644
--- a/lapack-netlib/TESTING/EIG/zcsdts.f
+++ b/lapack-netlib/TESTING/EIG/zcsdts.f
@@ -220,8 +220,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
@@ -229,10 +227,9 @@
$ LDV1T, V2T, LDV2T, THETA, IWORK, WORK, LWORK,
$ RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDX, LDU1, LDU2, LDV1T, LDV2T, LWORK, M, P, Q
@@ -248,11 +245,12 @@
* =====================================================================
*
* .. Parameters ..
- DOUBLE PRECISION PIOVER2, REALONE, REALZERO
- PARAMETER ( PIOVER2 = 1.57079632679489662D0,
- $ REALONE = 1.0D0, REALZERO = 0.0D0 )
+ DOUBLE PRECISION REALONE, REALZERO
+ PARAMETER ( REALONE = 1.0D0, REALZERO = 0.0D0 )
COMPLEX*16 ZERO, ONE
PARAMETER ( ZERO = (0.0D0,0.0D0), ONE = (1.0D0,0.0D0) )
+ DOUBLE PRECISION PIOVER2
+ PARAMETER ( PIOVER2 = 1.57079632679489661923132169163975144210D0 )
* ..
* .. Local Scalars ..
INTEGER I, INFO, R
diff --git a/lapack-netlib/TESTING/EIG/zdrges.f b/lapack-netlib/TESTING/EIG/zdrges.f
index c09984e09..580573814 100644
--- a/lapack-netlib/TESTING/EIG/zdrges.f
+++ b/lapack-netlib/TESTING/EIG/zdrges.f
@@ -372,8 +372,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
@@ -381,10 +379,9 @@
$ NOUNIT, A, LDA, B, S, T, Q, LDQ, Z, ALPHA,
$ BETA, WORK, LWORK, RWORK, RESULT, BWORK, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* 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 2b3be003c..b678e4704 100644
--- a/lapack-netlib/TESTING/EIG/zdrges3.f
+++ b/lapack-netlib/TESTING/EIG/zdrges3.f
@@ -372,8 +372,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date February 2015
-*
*> \ingroup complex16_eig
*
* =====================================================================
@@ -382,10 +380,9 @@
$ BETA, WORK, LWORK, RWORK, RESULT, BWORK,
$ INFO )
*
-* -- LAPACK test routine (version 3.6.1) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* February 2015
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDQ, LWORK, NOUNIT, NSIZES, NTYPES
@@ -744,6 +741,14 @@
RSUB = 5
END IF
*
+* Call XLAENV to set the parameters used in ZLAQZ0
+*
+ CALL XLAENV( 12, 10 )
+ CALL XLAENV( 13, 12 )
+ CALL XLAENV( 14, 13 )
+ CALL XLAENV( 15, 2 )
+ CALL XLAENV( 17, 10 )
+*
* Call ZGGES3 to compute H, T, Q, Z, alpha, and beta.
*
CALL ZLACPY( 'Full', N, N, A, LDA, S, LDA )
diff --git a/lapack-netlib/TESTING/EIG/zdrgev.f b/lapack-netlib/TESTING/EIG/zdrgev.f
index 2588816a5..e7389183b 100644
--- a/lapack-netlib/TESTING/EIG/zdrgev.f
+++ b/lapack-netlib/TESTING/EIG/zdrgev.f
@@ -389,8 +389,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
@@ -399,10 +397,9 @@
$ ALPHA, BETA, ALPHA1, BETA1, WORK, LWORK, RWORK,
$ RESULT, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* 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 11e8562d7..4ccc98776 100644
--- a/lapack-netlib/TESTING/EIG/zdrgev3.f
+++ b/lapack-netlib/TESTING/EIG/zdrgev3.f
@@ -389,8 +389,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date February 2015
-*
*> \ingroup complex16_eig
*
* =====================================================================
@@ -399,10 +397,9 @@
$ ALPHA, BETA, ALPHA1, BETA1, WORK, LWORK,
$ RWORK, RESULT, INFO )
*
-* -- LAPACK test routine (version 3.6.1) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* February 2015
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDQ, LDQE, LWORK, NOUNIT, NSIZES,
@@ -736,6 +733,14 @@
RESULT( I ) = -ONE
110 CONTINUE
*
+* Call XLAENV to set the parameters used in ZLAQZ0
+*
+ CALL XLAENV( 12, 10 )
+ CALL XLAENV( 13, 12 )
+ CALL XLAENV( 14, 13 )
+ CALL XLAENV( 15, 2 )
+ CALL XLAENV( 17, 10 )
+*
* Call ZGGEV3 to compute eigenvalues and eigenvectors.
*
CALL ZLACPY( ' ', N, N, A, LDA, S, LDA )
diff --git a/lapack-netlib/TESTING/EIG/zdrgsx.f b/lapack-netlib/TESTING/EIG/zdrgsx.f
index f5821e520..096ed3c22 100644
--- a/lapack-netlib/TESTING/EIG/zdrgsx.f
+++ b/lapack-netlib/TESTING/EIG/zdrgsx.f
@@ -340,8 +340,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
@@ -349,10 +347,9 @@
$ BI, Z, Q, ALPHA, BETA, C, LDC, S, WORK, LWORK,
$ RWORK, IWORK, LIWORK, BWORK, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* 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 4a6956451..72e0303fb 100644
--- a/lapack-netlib/TESTING/EIG/zdrgvx.f
+++ b/lapack-netlib/TESTING/EIG/zdrgvx.f
@@ -287,8 +287,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
@@ -297,10 +295,9 @@
$ S, DTRU, DIF, DIFTRU, WORK, LWORK, RWORK,
$ IWORK, LIWORK, RESULT, BWORK, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* 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 105e9dff7..916dbf722 100644
--- a/lapack-netlib/TESTING/EIG/zdrvbd.f
+++ b/lapack-netlib/TESTING/EIG/zdrvbd.f
@@ -391,8 +391,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
@@ -401,10 +399,9 @@
$ SSAV, E, WORK, LWORK, RWORK, IWORK, NOUNIT,
$ INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2016
*
IMPLICIT NONE
*
diff --git a/lapack-netlib/TESTING/EIG/zdrves.f b/lapack-netlib/TESTING/EIG/zdrves.f
index 7a625e1b7..d3f237c23 100644
--- a/lapack-netlib/TESTING/EIG/zdrves.f
+++ b/lapack-netlib/TESTING/EIG/zdrves.f
@@ -369,8 +369,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
@@ -378,10 +376,9 @@
$ NOUNIT, A, LDA, H, HT, W, WT, VS, LDVS, RESULT,
$ WORK, NWORK, RWORK, IWORK, BWORK, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDVS, NOUNIT, NSIZES, NTYPES, NWORK
diff --git a/lapack-netlib/TESTING/EIG/zdrvev.f b/lapack-netlib/TESTING/EIG/zdrvev.f
index e818f7ea6..4fbb10e10 100644
--- a/lapack-netlib/TESTING/EIG/zdrvev.f
+++ b/lapack-netlib/TESTING/EIG/zdrvev.f
@@ -381,8 +381,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
@@ -391,10 +389,9 @@
$ LRE, LDLRE, RESULT, WORK, NWORK, RWORK, IWORK,
$ INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDLRE, LDVL, LDVR, NOUNIT, NSIZES,
diff --git a/lapack-netlib/TESTING/EIG/zdrvsg.f b/lapack-netlib/TESTING/EIG/zdrvsg.f
index 8238dceef..336514a3f 100644
--- a/lapack-netlib/TESTING/EIG/zdrvsg.f
+++ b/lapack-netlib/TESTING/EIG/zdrvsg.f
@@ -360,8 +360,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
@@ -370,10 +368,9 @@
$ BP, WORK, NWORK, RWORK, LRWORK, IWORK, LIWORK,
$ RESULT, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDB, LDZ, LIWORK, LRWORK, NOUNIT,
diff --git a/lapack-netlib/TESTING/EIG/zdrvsg2stg.f b/lapack-netlib/TESTING/EIG/zdrvsg2stg.f
index 8929b33c4..4bdf2849e 100644
--- a/lapack-netlib/TESTING/EIG/zdrvsg2stg.f
+++ b/lapack-netlib/TESTING/EIG/zdrvsg2stg.f
@@ -366,8 +366,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
@@ -378,10 +376,9 @@
*
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDB, LDZ, LIWORK, LRWORK, NOUNIT,
diff --git a/lapack-netlib/TESTING/EIG/zdrvst.f b/lapack-netlib/TESTING/EIG/zdrvst.f
index cf2dc03ed..384e58de1 100644
--- a/lapack-netlib/TESTING/EIG/zdrvst.f
+++ b/lapack-netlib/TESTING/EIG/zdrvst.f
@@ -328,8 +328,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
@@ -338,10 +336,9 @@
$ LDU, V, TAU, Z, WORK, LWORK, RWORK, LRWORK,
$ IWORK, LIWORK, RESULT, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDU, LIWORK, LRWORK, LWORK, NOUNIT,
diff --git a/lapack-netlib/TESTING/EIG/zdrvst2stg.f b/lapack-netlib/TESTING/EIG/zdrvst2stg.f
index de072c9a3..4a88e5218 100644
--- a/lapack-netlib/TESTING/EIG/zdrvst2stg.f
+++ b/lapack-netlib/TESTING/EIG/zdrvst2stg.f
@@ -328,8 +328,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complex16_eig
*
* =====================================================================
@@ -338,10 +336,9 @@
$ LDU, V, TAU, Z, WORK, LWORK, RWORK, LRWORK,
$ IWORK, LIWORK, RESULT, INFO )
*
-* -- LAPACK test routine (version 3.7.1) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2017
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDU, LIWORK, LRWORK, LWORK, NOUNIT,
diff --git a/lapack-netlib/TESTING/EIG/zdrvsx.f b/lapack-netlib/TESTING/EIG/zdrvsx.f
index ba3ffab6c..ac7a2d6eb 100644
--- a/lapack-netlib/TESTING/EIG/zdrvsx.f
+++ b/lapack-netlib/TESTING/EIG/zdrvsx.f
@@ -425,8 +425,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
@@ -435,10 +433,9 @@
$ LDVS, VS1, RESULT, WORK, LWORK, RWORK, BWORK,
$ INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDVS, LWORK, NIUNIT, NOUNIT, NSIZES,
diff --git a/lapack-netlib/TESTING/EIG/zdrvvx.f b/lapack-netlib/TESTING/EIG/zdrvvx.f
index 9492e0623..830313c72 100644
--- a/lapack-netlib/TESTING/EIG/zdrvvx.f
+++ b/lapack-netlib/TESTING/EIG/zdrvvx.f
@@ -485,8 +485,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
@@ -496,10 +494,9 @@
$ RCONDE, RCNDE1, RCDEIN, SCALE, SCALE1, RESULT,
$ WORK, NWORK, RWORK, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDLRE, LDVL, LDVR, NIUNIT, NOUNIT,
diff --git a/lapack-netlib/TESTING/EIG/zerrbd.f b/lapack-netlib/TESTING/EIG/zerrbd.f
index f44ef4098..f1dde9266 100644
--- a/lapack-netlib/TESTING/EIG/zerrbd.f
+++ b/lapack-netlib/TESTING/EIG/zerrbd.f
@@ -47,17 +47,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
SUBROUTINE ZERRBD( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/EIG/zerrec.f b/lapack-netlib/TESTING/EIG/zerrec.f
index a35a0de2f..dc6129da9 100644
--- a/lapack-netlib/TESTING/EIG/zerrec.f
+++ b/lapack-netlib/TESTING/EIG/zerrec.f
@@ -49,17 +49,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
SUBROUTINE ZERREC( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/EIG/zerred.f b/lapack-netlib/TESTING/EIG/zerred.f
index 013dc16c5..d1219c02b 100644
--- a/lapack-netlib/TESTING/EIG/zerred.f
+++ b/lapack-netlib/TESTING/EIG/zerred.f
@@ -63,17 +63,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
SUBROUTINE ZERRED( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/EIG/zerrgg.f b/lapack-netlib/TESTING/EIG/zerrgg.f
index 0e3a861df..26e8df983 100644
--- a/lapack-netlib/TESTING/EIG/zerrgg.f
+++ b/lapack-netlib/TESTING/EIG/zerrgg.f
@@ -50,17 +50,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
SUBROUTINE ZERRGG( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
@@ -100,7 +97,7 @@
$ ZGGHRD, ZGGLSE, ZGGQRF, ZGGRQF,
$ ZHGEQZ, ZTGEVC, ZTGEXC, ZTGSEN, ZTGSJA, ZTGSNA,
$ ZTGSYL, ZUNCSD, ZGGES3, ZGGEV3, ZGGHD3,
- $ ZGGSVD3, ZGGSVP3
+ $ ZGGSVD3, ZGGSVP3, XLAENV
* ..
* .. Scalars in Common ..
LOGICAL LERR, OK
@@ -138,6 +135,14 @@
NT = 0
LWORK = 1
*
+* Call XLAENV to set the parameters used in CLAQZ0
+*
+ CALL XLAENV( 12, 10 )
+ CALL XLAENV( 13, 12 )
+ CALL XLAENV( 14, 13 )
+ CALL XLAENV( 15, 2 )
+ CALL XLAENV( 17, 10 )
+*
* Test error exits for the GG path.
*
IF( LSAMEN( 2, C2, 'GG' ) ) THEN
diff --git a/lapack-netlib/TESTING/EIG/zerrhs.f b/lapack-netlib/TESTING/EIG/zerrhs.f
index 4949ceaa5..582338947 100644
--- a/lapack-netlib/TESTING/EIG/zerrhs.f
+++ b/lapack-netlib/TESTING/EIG/zerrhs.f
@@ -48,17 +48,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
SUBROUTINE ZERRHS( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/EIG/zerrst.f b/lapack-netlib/TESTING/EIG/zerrst.f
index b906c96df..5b0e6f820 100644
--- a/lapack-netlib/TESTING/EIG/zerrst.f
+++ b/lapack-netlib/TESTING/EIG/zerrst.f
@@ -55,17 +55,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complex16_eig
*
* =====================================================================
SUBROUTINE ZERRST( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.1) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2017
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/EIG/zget02.f b/lapack-netlib/TESTING/EIG/zget02.f
index efea82567..1b1ea3d42 100644
--- a/lapack-netlib/TESTING/EIG/zget02.f
+++ b/lapack-netlib/TESTING/EIG/zget02.f
@@ -28,9 +28,10 @@
*> \verbatim
*>
*> ZGET02 computes the residual for a solution of a system of linear
-*> equations A*x = b or A'*x = b:
-*> RESID = norm(B - A*X) / ( norm(A) * norm(X) * EPS ),
-*> where EPS is the machine epsilon.
+*> equations op(A)*X = B:
+*> RESID = norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ),
+*> where op(A) = A, A**T, or A**H, depending on TRANS, and EPS is the
+*> machine epsilon.
*> \endverbatim
*
* Arguments:
@@ -40,9 +41,9 @@
*> \verbatim
*> TRANS is CHARACTER*1
*> Specifies the form of the system of equations:
-*> = 'N': A *x = b
-*> = 'T': A^T*x = b, where A^T is the transpose of A
-*> = 'C': A^H*x = b, where A^H is the conjugate transpose of A
+*> = 'N': A * X = B (No transpose)
+*> = 'T': A**T * X = B (Transpose)
+*> = 'C': A**H * X = B (Conjugate transpose)
*> \endverbatim
*>
*> \param[in] M
@@ -114,7 +115,7 @@
*> \verbatim
*> RESID is DOUBLE PRECISION
*> The maximum over the number of right hand sides of
-*> norm(B - A*X) / ( norm(A) * norm(X) * EPS ).
+*> norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ).
*> \endverbatim
*
* Authors:
@@ -125,18 +126,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complex16_eig
*
* =====================================================================
SUBROUTINE ZGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB,
$ RWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.1) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2017
*
* .. Scalar Arguments ..
CHARACTER TRANS
@@ -191,19 +189,23 @@
* Exit with RESID = 1/EPS if ANORM = 0.
*
EPS = DLAMCH( 'Epsilon' )
+ IF( LSAME( TRANS, 'N' ) ) THEN
ANORM = ZLANGE( '1', M, N, A, LDA, RWORK )
+ ELSE
+ ANORM = ZLANGE( 'I', M, N, A, LDA, RWORK )
+ END IF
IF( ANORM.LE.ZERO ) THEN
RESID = ONE / EPS
RETURN
END IF
*
-* Compute B - A*X (or B - A'*X ) and store in B.
+* Compute B - op(A)*X and store in B.
*
CALL ZGEMM( TRANS, 'No transpose', N1, NRHS, N2, -CONE, A, LDA, X,
$ LDX, CONE, B, LDB )
*
* Compute the maximum over the number of right hand sides of
-* norm(B - A*X) / ( norm(A) * norm(X) * EPS ) .
+* norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ) .
*
RESID = ZERO
DO 10 J = 1, NRHS
diff --git a/lapack-netlib/TESTING/EIG/zget10.f b/lapack-netlib/TESTING/EIG/zget10.f
index ee7fcbb51..4442fc8ec 100644
--- a/lapack-netlib/TESTING/EIG/zget10.f
+++ b/lapack-netlib/TESTING/EIG/zget10.f
@@ -92,17 +92,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
SUBROUTINE ZGET10( M, N, A, LDA, B, LDB, WORK, RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LDB, M, N
diff --git a/lapack-netlib/TESTING/EIG/zget22.f b/lapack-netlib/TESTING/EIG/zget22.f
index 68e16baaa..73ed0ac34 100644
--- a/lapack-netlib/TESTING/EIG/zget22.f
+++ b/lapack-netlib/TESTING/EIG/zget22.f
@@ -125,6 +125,7 @@
*> RESULT is DOUBLE PRECISION array, dimension (2)
*> RESULT(1) = | A E - E W | / ( |A| |E| ulp )
*> RESULT(2) = max | m-norm(E(j)) - 1 | / ( n ulp )
+*> j
*> \endverbatim
*
* Authors:
@@ -135,18 +136,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
SUBROUTINE ZGET22( TRANSA, TRANSE, TRANSW, N, A, LDA, E, LDE, W,
$ WORK, RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER TRANSA, TRANSE, TRANSW
@@ -299,7 +297,7 @@
RESULT( 1 ) = ( ERRNRM / ANORM ) / ULP
ELSE
IF( ANORM.LT.ONE ) THEN
- RESULT( 1 ) = ( MIN( ERRNRM, ANORM ) / ANORM ) / ULP
+ RESULT( 1 ) = ONE / ULP
ELSE
RESULT( 1 ) = MIN( ERRNRM / ANORM, ONE ) / ULP
END IF
diff --git a/lapack-netlib/TESTING/EIG/zget23.f b/lapack-netlib/TESTING/EIG/zget23.f
index 39fe15299..fc48a5e1b 100644
--- a/lapack-netlib/TESTING/EIG/zget23.f
+++ b/lapack-netlib/TESTING/EIG/zget23.f
@@ -357,8 +357,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
@@ -368,10 +366,9 @@
$ RCONDE, RCNDE1, RCDEIN, SCALE, SCALE1, RESULT,
$ WORK, LWORK, RWORK, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL COMP
diff --git a/lapack-netlib/TESTING/EIG/zget24.f b/lapack-netlib/TESTING/EIG/zget24.f
index 1641a018c..670611e91 100644
--- a/lapack-netlib/TESTING/EIG/zget24.f
+++ b/lapack-netlib/TESTING/EIG/zget24.f
@@ -325,8 +325,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
@@ -335,10 +333,9 @@
$ RCDVIN, NSLCT, ISLCT, ISRT, RESULT, WORK,
$ LWORK, RWORK, BWORK, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL COMP
diff --git a/lapack-netlib/TESTING/EIG/zget35.f b/lapack-netlib/TESTING/EIG/zget35.f
index 2ea73a2c5..5da48bcb0 100644
--- a/lapack-netlib/TESTING/EIG/zget35.f
+++ b/lapack-netlib/TESTING/EIG/zget35.f
@@ -77,17 +77,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
SUBROUTINE ZGET35( RMAX, LMAX, NINFO, KNT, NIN )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER KNT, LMAX, NIN, NINFO
diff --git a/lapack-netlib/TESTING/EIG/zget36.f b/lapack-netlib/TESTING/EIG/zget36.f
index d5bc06ea9..c7a79b99f 100644
--- a/lapack-netlib/TESTING/EIG/zget36.f
+++ b/lapack-netlib/TESTING/EIG/zget36.f
@@ -78,17 +78,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
SUBROUTINE ZGET36( RMAX, LMAX, NINFO, KNT, NIN )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER KNT, LMAX, NIN, NINFO
diff --git a/lapack-netlib/TESTING/EIG/zget37.f b/lapack-netlib/TESTING/EIG/zget37.f
index 85aaf7949..63680e855 100644
--- a/lapack-netlib/TESTING/EIG/zget37.f
+++ b/lapack-netlib/TESTING/EIG/zget37.f
@@ -83,17 +83,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
SUBROUTINE ZGET37( RMAX, LMAX, NINFO, KNT, NIN )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER KNT, NIN
diff --git a/lapack-netlib/TESTING/EIG/zget38.f b/lapack-netlib/TESTING/EIG/zget38.f
index c88a383bd..43b538fcf 100644
--- a/lapack-netlib/TESTING/EIG/zget38.f
+++ b/lapack-netlib/TESTING/EIG/zget38.f
@@ -84,17 +84,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
SUBROUTINE ZGET38( RMAX, LMAX, NINFO, KNT, NIN )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER KNT, NIN
diff --git a/lapack-netlib/TESTING/EIG/zget51.f b/lapack-netlib/TESTING/EIG/zget51.f
index e019127a3..7b2ea679a 100644
--- a/lapack-netlib/TESTING/EIG/zget51.f
+++ b/lapack-netlib/TESTING/EIG/zget51.f
@@ -147,18 +147,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
SUBROUTINE ZGET51( ITYPE, N, A, LDA, B, LDB, U, LDU, V, LDV, WORK,
$ RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER ITYPE, LDA, LDB, LDU, LDV, N
diff --git a/lapack-netlib/TESTING/EIG/zget52.f b/lapack-netlib/TESTING/EIG/zget52.f
index 75126d33d..e22939a6c 100644
--- a/lapack-netlib/TESTING/EIG/zget52.f
+++ b/lapack-netlib/TESTING/EIG/zget52.f
@@ -154,18 +154,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
SUBROUTINE ZGET52( LEFT, N, A, LDA, B, LDB, E, LDE, ALPHA, BETA,
$ WORK, RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL LEFT
@@ -238,7 +235,7 @@
BETMAX = SAFMAX / MAX( ONE, ANORM )
*
* Compute error matrix.
-* Column i = ( b(i) A - a(i) B ) E(i) / max( |a(i) B| |b(i) A| )
+* Column i = ( b(i) A - a(i) B ) E(i) / max( |a(i) B|, |b(i) A| )
*
DO 10 JVEC = 1, N
ALPHAI = ALPHA( JVEC )
@@ -278,7 +275,7 @@
DO 20 J = 1, N
TEMP1 = MAX( TEMP1, ABS1( E( J, JVEC ) ) )
20 CONTINUE
- ENRMER = MAX( ENRMER, TEMP1-ONE )
+ ENRMER = MAX( ENRMER, ABS( TEMP1-ONE ) )
30 CONTINUE
*
* Compute RESULT(2) : the normalization error in E.
diff --git a/lapack-netlib/TESTING/EIG/zget54.f b/lapack-netlib/TESTING/EIG/zget54.f
index 106e29074..6ac622018 100644
--- a/lapack-netlib/TESTING/EIG/zget54.f
+++ b/lapack-netlib/TESTING/EIG/zget54.f
@@ -148,18 +148,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
SUBROUTINE ZGET54( N, A, LDA, B, LDB, S, LDS, T, LDT, U, LDU, V,
$ LDV, WORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LDB, LDS, LDT, LDU, LDV, N
diff --git a/lapack-netlib/TESTING/EIG/zglmts.f b/lapack-netlib/TESTING/EIG/zglmts.f
index 344ae3a09..63664241d 100644
--- a/lapack-netlib/TESTING/EIG/zglmts.f
+++ b/lapack-netlib/TESTING/EIG/zglmts.f
@@ -138,18 +138,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
SUBROUTINE ZGLMTS( N, M, P, A, AF, LDA, B, BF, LDB, D, DF, X, U,
$ WORK, LWORK, RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LDB, LWORK, M, N, P
diff --git a/lapack-netlib/TESTING/EIG/zgqrts.f b/lapack-netlib/TESTING/EIG/zgqrts.f
index c963dee93..7d331414a 100644
--- a/lapack-netlib/TESTING/EIG/zgqrts.f
+++ b/lapack-netlib/TESTING/EIG/zgqrts.f
@@ -168,18 +168,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
SUBROUTINE ZGQRTS( N, M, P, A, AF, Q, R, LDA, TAUA, B, BF, Z, T,
$ BWK, LDB, TAUB, WORK, LWORK, RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LDB, LWORK, M, N, P
diff --git a/lapack-netlib/TESTING/EIG/zgrqts.f b/lapack-netlib/TESTING/EIG/zgrqts.f
index 3a1473723..f62b23a6f 100644
--- a/lapack-netlib/TESTING/EIG/zgrqts.f
+++ b/lapack-netlib/TESTING/EIG/zgrqts.f
@@ -168,18 +168,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
SUBROUTINE ZGRQTS( M, P, N, A, AF, Q, R, LDA, TAUA, B, BF, Z, T,
$ BWK, LDB, TAUB, WORK, LWORK, RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LDB, LWORK, M, N, P
diff --git a/lapack-netlib/TESTING/EIG/zgsvts3.f b/lapack-netlib/TESTING/EIG/zgsvts3.f
index fa9bb38d9..729a6f3ce 100644
--- a/lapack-netlib/TESTING/EIG/zgsvts3.f
+++ b/lapack-netlib/TESTING/EIG/zgsvts3.f
@@ -200,8 +200,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date August 2015
-*
*> \ingroup complex16_eig
*
* =====================================================================
@@ -209,10 +207,9 @@
$ LDV, Q, LDQ, ALPHA, BETA, R, LDR, IWORK, WORK,
$ LWORK, RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* August 2015
*
* .. Scalar Arguments ..
INTEGER LDA, LDB, LDQ, LDR, LDU, LDV, LWORK, M, N, P
diff --git a/lapack-netlib/TESTING/EIG/zhbt21.f b/lapack-netlib/TESTING/EIG/zhbt21.f
index 68125854c..cedf8344f 100644
--- a/lapack-netlib/TESTING/EIG/zhbt21.f
+++ b/lapack-netlib/TESTING/EIG/zhbt21.f
@@ -144,18 +144,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
SUBROUTINE ZHBT21( UPLO, N, KA, KS, A, LDA, D, E, U, LDU, WORK,
$ RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/EIG/zhet21.f b/lapack-netlib/TESTING/EIG/zhet21.f
index cb854a850..d254f85e9 100644
--- a/lapack-netlib/TESTING/EIG/zhet21.f
+++ b/lapack-netlib/TESTING/EIG/zhet21.f
@@ -206,18 +206,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
SUBROUTINE ZHET21( ITYPE, UPLO, N, KBAND, A, LDA, D, E, U, LDU, V,
$ LDV, TAU, WORK, RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/EIG/zhet22.f b/lapack-netlib/TESTING/EIG/zhet22.f
index 8ef73aef3..6606d250b 100644
--- a/lapack-netlib/TESTING/EIG/zhet22.f
+++ b/lapack-netlib/TESTING/EIG/zhet22.f
@@ -153,18 +153,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
SUBROUTINE ZHET22( ITYPE, UPLO, N, M, KBAND, A, LDA, D, E, U, LDU,
$ V, LDV, TAU, WORK, RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/EIG/zhpt21.f b/lapack-netlib/TESTING/EIG/zhpt21.f
index 825d387c7..70734dafe 100644
--- a/lapack-netlib/TESTING/EIG/zhpt21.f
+++ b/lapack-netlib/TESTING/EIG/zhpt21.f
@@ -220,18 +220,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
SUBROUTINE ZHPT21( ITYPE, UPLO, N, KBAND, AP, D, E, U, LDU, VP,
$ TAU, WORK, RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/EIG/zhst01.f b/lapack-netlib/TESTING/EIG/zhst01.f
index b98045fab..ebb1c4895 100644
--- a/lapack-netlib/TESTING/EIG/zhst01.f
+++ b/lapack-netlib/TESTING/EIG/zhst01.f
@@ -132,18 +132,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
SUBROUTINE ZHST01( N, ILO, IHI, A, LDA, H, LDH, Q, LDQ, WORK,
$ LWORK, RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER IHI, ILO, LDA, LDH, LDQ, LWORK, N
diff --git a/lapack-netlib/TESTING/EIG/zlarfy.f b/lapack-netlib/TESTING/EIG/zlarfy.f
index 57605731b..e0cb2f979 100644
--- a/lapack-netlib/TESTING/EIG/zlarfy.f
+++ b/lapack-netlib/TESTING/EIG/zlarfy.f
@@ -101,17 +101,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
SUBROUTINE ZLARFY( UPLO, N, V, INCV, TAU, C, LDC, WORK )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/EIG/zlarhs.f b/lapack-netlib/TESTING/EIG/zlarhs.f
index f2fe47e9b..f5b03dbff 100644
--- a/lapack-netlib/TESTING/EIG/zlarhs.f
+++ b/lapack-netlib/TESTING/EIG/zlarhs.f
@@ -30,8 +30,7 @@
*> ZLARHS chooses a set of NRHS random solution vectors and sets
*> up the right hand sides for the linear system
*> op( A ) * X = B,
-*> where op( A ) may be A, A**T (transpose of A), or A**H (conjugate
-*> transpose of A).
+*> where op(A) = A, A**T, or A**H, depending on TRANS.
*> \endverbatim
*
* Arguments:
@@ -85,9 +84,9 @@
*> TRANS is CHARACTER*1
*> Used only if A is nonsymmetric; specifies the operation
*> applied to the matrix A.
-*> = 'N': B := A * X
-*> = 'T': B := A**T * X
-*> = 'C': B := A**H * X
+*> = 'N': B := A * X (No transpose)
+*> = 'T': B := A**T * X (Transpose)
+*> = 'C': B := A**H * X (Conjugate transpose)
*> \endverbatim
*>
*> \param[in] M
@@ -201,18 +200,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complex16_eig
*
* =====================================================================
SUBROUTINE ZLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS,
$ A, LDA, X, LDX, B, LDB, ISEED, INFO )
*
-* -- LAPACK test routine (version 3.7.1) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2017
*
* .. Scalar Arguments ..
CHARACTER TRANS, UPLO, XTYPE
diff --git a/lapack-netlib/TESTING/EIG/zlatm4.f b/lapack-netlib/TESTING/EIG/zlatm4.f
index 429404f2f..122399387 100644
--- a/lapack-netlib/TESTING/EIG/zlatm4.f
+++ b/lapack-netlib/TESTING/EIG/zlatm4.f
@@ -163,18 +163,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
SUBROUTINE ZLATM4( ITYPE, N, NZ1, NZ2, RSIGN, AMAGN, RCOND,
$ TRIANG, IDIST, ISEED, A, LDA )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL RSIGN
diff --git a/lapack-netlib/TESTING/EIG/zlctes.f b/lapack-netlib/TESTING/EIG/zlctes.f
index 4b471b751..a7ac8b067 100644
--- a/lapack-netlib/TESTING/EIG/zlctes.f
+++ b/lapack-netlib/TESTING/EIG/zlctes.f
@@ -51,17 +51,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
LOGICAL FUNCTION ZLCTES( Z, D )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2016
*
* .. Scalar Arguments ..
COMPLEX*16 D, Z
diff --git a/lapack-netlib/TESTING/EIG/zlctsx.f b/lapack-netlib/TESTING/EIG/zlctsx.f
index 9f30e61fe..95d3e1325 100644
--- a/lapack-netlib/TESTING/EIG/zlctsx.f
+++ b/lapack-netlib/TESTING/EIG/zlctsx.f
@@ -50,17 +50,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
LOGICAL FUNCTION ZLCTSX( ALPHA, BETA )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
COMPLEX*16 ALPHA, BETA
diff --git a/lapack-netlib/TESTING/EIG/zlsets.f b/lapack-netlib/TESTING/EIG/zlsets.f
index 6f324ea80..8c8ff01b2 100644
--- a/lapack-netlib/TESTING/EIG/zlsets.f
+++ b/lapack-netlib/TESTING/EIG/zlsets.f
@@ -143,18 +143,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
SUBROUTINE ZLSETS( M, P, N, A, AF, LDA, B, BF, LDB, C, CF, D, DF,
$ X, WORK, LWORK, RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LDB, LWORK, M, N, P
diff --git a/lapack-netlib/TESTING/EIG/zsbmv.f b/lapack-netlib/TESTING/EIG/zsbmv.f
index 643882550..ad8baee59 100644
--- a/lapack-netlib/TESTING/EIG/zsbmv.f
+++ b/lapack-netlib/TESTING/EIG/zsbmv.f
@@ -144,18 +144,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
SUBROUTINE ZSBMV( UPLO, N, K, ALPHA, A, LDA, X, INCX, BETA, Y,
$ INCY )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/EIG/zsgt01.f b/lapack-netlib/TESTING/EIG/zsgt01.f
index e512253db..97e10fcea 100644
--- a/lapack-netlib/TESTING/EIG/zsgt01.f
+++ b/lapack-netlib/TESTING/EIG/zsgt01.f
@@ -144,18 +144,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
SUBROUTINE ZSGT01( ITYPE, UPLO, N, M, A, LDA, B, LDB, Z, LDZ, D,
$ WORK, RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
@@ -250,6 +247,6 @@
*
RETURN
*
-* End of CDGT01
+* End of ZDGT01
*
END
diff --git a/lapack-netlib/TESTING/EIG/zslect.f b/lapack-netlib/TESTING/EIG/zslect.f
index 519c7764f..ec6ff4e01 100644
--- a/lapack-netlib/TESTING/EIG/zslect.f
+++ b/lapack-netlib/TESTING/EIG/zslect.f
@@ -49,17 +49,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
LOGICAL FUNCTION ZSLECT( Z )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2016
*
* .. Scalar Arguments ..
COMPLEX*16 Z
diff --git a/lapack-netlib/TESTING/EIG/zstt21.f b/lapack-netlib/TESTING/EIG/zstt21.f
index f2e32a12e..4df1f7fe2 100644
--- a/lapack-netlib/TESTING/EIG/zstt21.f
+++ b/lapack-netlib/TESTING/EIG/zstt21.f
@@ -125,18 +125,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
SUBROUTINE ZSTT21( N, KBAND, AD, AE, SD, SE, U, LDU, WORK, RWORK,
$ RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER KBAND, LDU, N
diff --git a/lapack-netlib/TESTING/EIG/zstt22.f b/lapack-netlib/TESTING/EIG/zstt22.f
index c0f684fc3..b21773b16 100644
--- a/lapack-netlib/TESTING/EIG/zstt22.f
+++ b/lapack-netlib/TESTING/EIG/zstt22.f
@@ -137,18 +137,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
SUBROUTINE ZSTT22( N, M, KBAND, AD, AE, SD, SE, U, LDU, WORK,
$ LDWORK, RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER KBAND, LDU, LDWORK, M, N
diff --git a/lapack-netlib/TESTING/EIG/zunt01.f b/lapack-netlib/TESTING/EIG/zunt01.f
index d2d64227f..040c88f44 100644
--- a/lapack-netlib/TESTING/EIG/zunt01.f
+++ b/lapack-netlib/TESTING/EIG/zunt01.f
@@ -118,18 +118,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
SUBROUTINE ZUNT01( ROWCOL, M, N, U, LDU, WORK, LWORK, RWORK,
$ RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER ROWCOL
diff --git a/lapack-netlib/TESTING/EIG/zunt03.f b/lapack-netlib/TESTING/EIG/zunt03.f
index 4560410a3..2ab2cde0d 100644
--- a/lapack-netlib/TESTING/EIG/zunt03.f
+++ b/lapack-netlib/TESTING/EIG/zunt03.f
@@ -154,18 +154,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_eig
*
* =====================================================================
SUBROUTINE ZUNT03( RC, MU, MV, N, K, U, LDU, V, LDV, WORK, LWORK,
$ RWORK, RESULT, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*( * ) RC
diff --git a/lapack-netlib/TESTING/LIN/CMakeLists.txt b/lapack-netlib/TESTING/LIN/CMakeLists.txt
index fc55b8a96..2c3e2a5fd 100644
--- a/lapack-netlib/TESTING/LIN/CMakeLists.txt
+++ b/lapack-netlib/TESTING/LIN/CMakeLists.txt
@@ -239,8 +239,7 @@ set(ZLINTSTRFP zchkrfp.f zdrvrfp.f zdrvrf1.f zdrvrf2.f zdrvrf3.f zdrvrf4.f zerrr
macro(add_lin_executable name)
add_executable(${name} ${ARGN})
- target_link_libraries(${name} openblas${SUFFIX64_UNDERSCORE})
-#${TMGLIB} ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
+ target_link_libraries(${name} ${TMGLIB} ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
endmacro()
if(BUILD_SINGLE)
diff --git a/lapack-netlib/TESTING/LIN/Makefile b/lapack-netlib/TESTING/LIN/Makefile
index 54b26455e..8be813c8c 100644
--- a/lapack-netlib/TESTING/LIN/Makefile
+++ b/lapack-netlib/TESTING/LIN/Makefile
@@ -270,34 +270,34 @@ proto-complex: xlintstrfc
proto-complex16: xlintstzc xlintstrfz
xlintsts: $(ALINTST) $(SLINTST) $(SCLNTST) $(TMGLIB) $(VARLIB) ../$(LAPACKLIB) $(XBLASLIB) $(BLASLIB)
- $(LOADER) $(FFLAGS) $(LDFLAGS) -o $@ $^
+ $(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^
xlintstc: $(ALINTST) $(CLINTST) $(SCLNTST) $(TMGLIB) $(VARLIB) ../$(LAPACKLIB) $(XBLASLIB) $(BLASLIB)
- $(LOADER) $(FFLAGS) $(LDFLAGS) -o $@ $^
+ $(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^
xlintstd: $(ALINTST) $(DLINTST) $(DZLNTST) $(TMGLIB) $(VARLIB) ../$(LAPACKLIB) $(XBLASLIB) $(BLASLIB)
- $(LOADER) $(FFLAGS) $(LDFLAGS) -o $@ $^
+ $(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^
xlintstz: $(ALINTST) $(ZLINTST) $(DZLNTST) $(TMGLIB) $(VARLIB) ../$(LAPACKLIB) $(XBLASLIB) $(BLASLIB)
- $(LOADER) $(FFLAGS) $(LDFLAGS) -o $@ $^
+ $(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^
xlintstds: $(DSLINTST) $(TMGLIB) $(VARLIB) ../$(LAPACKLIB) $(BLASLIB)
- $(LOADER) $(FFLAGS) $(LDFLAGS) -o $@ $^
+ $(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^
xlintstzc: $(ZCLINTST) $(TMGLIB) $(VARLIB) ../$(LAPACKLIB) $(BLASLIB)
- $(LOADER) $(FFLAGS) $(LDFLAGS) -o $@ $^
+ $(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^
xlintstrfs: $(SLINTSTRFP) $(TMGLIB) $(VARLIB) ../$(LAPACKLIB) $(BLASLIB)
- $(LOADER) $(FFLAGS) $(LDFLAGS) -o $@ $^
+ $(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^
xlintstrfd: $(DLINTSTRFP) $(TMGLIB) $(VARLIB) ../$(LAPACKLIB) $(BLASLIB)
- $(LOADER) $(FFLAGS) $(LDFLAGS) -o $@ $^
+ $(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^
xlintstrfc: $(CLINTSTRFP) $(TMGLIB) $(VARLIB) ../$(LAPACKLIB) $(BLASLIB)
- $(LOADER) $(FFLAGS) $(LDFLAGS) -o $@ $^
+ $(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^
xlintstrfz: $(ZLINTSTRFP) $(TMGLIB) $(VARLIB) ../$(LAPACKLIB) $(BLASLIB)
- $(LOADER) $(FFLAGS) $(LDFLAGS) -o $@ $^
+ $(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^
$(ALINTST): $(FRC)
$(SCLNTST): $(FRC)
diff --git a/lapack-netlib/TESTING/LIN/aladhd.f b/lapack-netlib/TESTING/LIN/aladhd.f
index a31621db2..f2a1c3951 100644
--- a/lapack-netlib/TESTING/LIN/aladhd.f
+++ b/lapack-netlib/TESTING/LIN/aladhd.f
@@ -83,17 +83,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup aux_lin
*
* =====================================================================
SUBROUTINE ALADHD( IOUNIT, PATH )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/LIN/alaerh.f b/lapack-netlib/TESTING/LIN/alaerh.f
index 5677940c8..1845888a6 100644
--- a/lapack-netlib/TESTING/LIN/alaerh.f
+++ b/lapack-netlib/TESTING/LIN/alaerh.f
@@ -139,18 +139,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup aux_lin
*
* =====================================================================
SUBROUTINE ALAERH( PATH, SUBNAM, INFO, INFOE, OPTS, M, N, KL, KU,
$ N5, IMAT, NFAIL, NERRS, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/LIN/alaesm.f b/lapack-netlib/TESTING/LIN/alaesm.f
index 6e01f2490..391da22d4 100644
--- a/lapack-netlib/TESTING/LIN/alaesm.f
+++ b/lapack-netlib/TESTING/LIN/alaesm.f
@@ -56,17 +56,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup aux_lin
*
* =====================================================================
SUBROUTINE ALAESM( PATH, OK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL OK
diff --git a/lapack-netlib/TESTING/LIN/alahd.f b/lapack-netlib/TESTING/LIN/alahd.f
index 8f4cd58da..2cc0fba06 100644
--- a/lapack-netlib/TESTING/LIN/alahd.f
+++ b/lapack-netlib/TESTING/LIN/alahd.f
@@ -86,6 +86,8 @@
*> _QS: QR variants
*> _QT: QRT (general matrices)
*> _QX: QRT (triangular-pentagonal matrices)
+*> _TS: QR routines for tall-skinny and short-wide matrices
+*> _HH: Householder reconstruction for tall-skinny matrices
*> The first character must be one of S, D, C, or Z (C or Z only
*> if complex).
*> \endverbatim
@@ -98,17 +100,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup aux_lin
*
* =====================================================================
SUBROUTINE ALAHD( IOUNIT, PATH )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
@@ -708,7 +707,7 @@
*
ELSE IF( LSAMEN( 2, P2, 'TS' ) ) THEN
*
-* QRT (triangular-pentagonal)
+* TS: QR routines for tall-skinny and short-wide matrices
*
WRITE( IOUNIT, FMT = 8004 ) PATH
WRITE( IOUNIT, FMT = '( '' Test ratios:'' )' )
@@ -718,6 +717,19 @@
WRITE( IOUNIT, FMT = 8038 ) 4
WRITE( IOUNIT, FMT = 8039 ) 5
WRITE( IOUNIT, FMT = 8040 ) 6
+*
+ ELSE IF( LSAMEN( 2, P2, 'HH' ) ) THEN
+*
+* HH: Householder reconstruction for tall-skinny matrices
+*
+ WRITE( IOUNIT, FMT = 8005 ) PATH
+ WRITE( IOUNIT, FMT = '( '' Test ratios:'' )' )
+ WRITE( IOUNIT, FMT = 8050 ) 1
+ WRITE( IOUNIT, FMT = 8051 ) 2
+ WRITE( IOUNIT, FMT = 8052 ) 3
+ WRITE( IOUNIT, FMT = 8053 ) 4
+ WRITE( IOUNIT, FMT = 8054 ) 5
+ WRITE( IOUNIT, FMT = 8055 ) 6
*
ELSE
*
@@ -763,7 +775,9 @@
8003 FORMAT( / 1X, A3, ': LQT factorization for ',
$ 'triangular-pentagonal matrices' )
8004 FORMAT( / 1X, A3, ': TS factorization for ',
- $ 'tall-skiny or short-wide matrices' )
+ $ 'tall-skinny or short-wide matrices' )
+ 8005 FORMAT( / 1X, A3, ': Householder recostruction from TSQR',
+ $ ' factorization output ', /,' for tall-skinny matrices.' )
*
* GE matrix types
*
@@ -1036,7 +1050,7 @@
9929 FORMAT( ' Test ratios (1-3: ', A1, 'TZRZF):' )
9920 FORMAT( 3X, ' 7-10: same as 3-6', 3X, ' 11-14: same as 3-6' )
9921 FORMAT( ' Test ratios:', / ' (1-2: ', A1, 'GELS, 3-6: ', A1,
- $ 'GELSY, 7-10: ', A1, 'GELSS, 11-14: ', A1, 'GELSD, 15-16: '
+ $ 'GELSY, 7-10: ', A1, 'GELSS, 11-14: ', A1, 'GELSD, 15-16: ',
$ A1, 'GETSLS)')
9928 FORMAT( 7X, 'where ALPHA = ( 1 + SQRT( 17 ) ) / 8' )
9927 FORMAT( 3X, I2, ': ABS( Largest element in L )', / 12X,
@@ -1081,6 +1095,14 @@
8039 FORMAT(3X,I2,': norm( C*Q - C*Q ) / ( (M+N) * norm(C) * EPS )' )
8040 FORMAT(3X,I2,
$ ': norm( C*Q'' - C*Q'' ) / ( (M+N) * norm(C) * EPS )')
+*
+ 8050 FORMAT(3X,I2,': norm( R - Q''*A ) / ( M * norm(A) * EPS )' )
+ 8051 FORMAT(3X,I2,': norm( I - Q''*Q ) / ( M * EPS )' )
+ 8052 FORMAT(3X,I2,': norm( Q*C - Q*C ) / ( M * norm(C) * EPS )' )
+ 8053 FORMAT(3X,I2,': norm( Q''*C - Q''*C ) / ( M * norm(C) * EPS )')
+ 8054 FORMAT(3X,I2,': norm( C*Q - C*Q ) / ( M * norm(C) * EPS )' )
+ 8055 FORMAT(3X,I2,': norm( C*Q'' - C*Q'' ) / ( M * norm(C) * EPS )')
+
*
RETURN
*
diff --git a/lapack-netlib/TESTING/LIN/alareq.f b/lapack-netlib/TESTING/LIN/alareq.f
index e1b084deb..db18775eb 100644
--- a/lapack-netlib/TESTING/LIN/alareq.f
+++ b/lapack-netlib/TESTING/LIN/alareq.f
@@ -83,17 +83,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup aux_lin
*
* =====================================================================
SUBROUTINE ALAREQ( PATH, NMATS, DOTYPE, NTYPES, NIN, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/LIN/alasum.f b/lapack-netlib/TESTING/LIN/alasum.f
index bd5d3af9b..432b8df45 100644
--- a/lapack-netlib/TESTING/LIN/alasum.f
+++ b/lapack-netlib/TESTING/LIN/alasum.f
@@ -66,17 +66,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup aux_lin
*
* =====================================================================
SUBROUTINE ALASUM( TYPE, NOUT, NFAIL, NRUN, NERRS )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 TYPE
diff --git a/lapack-netlib/TESTING/LIN/alasvm.f b/lapack-netlib/TESTING/LIN/alasvm.f
index 3fcbcca38..d9e500013 100644
--- a/lapack-netlib/TESTING/LIN/alasvm.f
+++ b/lapack-netlib/TESTING/LIN/alasvm.f
@@ -66,17 +66,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup aux_lin
*
* =====================================================================
SUBROUTINE ALASVM( TYPE, NOUT, NFAIL, NRUN, NERRS )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 TYPE
diff --git a/lapack-netlib/TESTING/LIN/cchkeq.f b/lapack-netlib/TESTING/LIN/cchkeq.f
index 7c79d68f8..e2f092fc6 100644
--- a/lapack-netlib/TESTING/LIN/cchkeq.f
+++ b/lapack-netlib/TESTING/LIN/cchkeq.f
@@ -47,17 +47,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CCHKEQ( THRESH, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER NOUT
diff --git a/lapack-netlib/TESTING/LIN/cchkgb.f b/lapack-netlib/TESTING/LIN/cchkgb.f
index 4a3f187a1..9bb6f29b7 100644
--- a/lapack-netlib/TESTING/LIN/cchkgb.f
+++ b/lapack-netlib/TESTING/LIN/cchkgb.f
@@ -160,7 +160,7 @@
*> \param[out] RWORK
*> \verbatim
*> RWORK is REAL array, dimension
-*> (max(NMAX,2*NSMAX))
+*> (NMAX+2*NSMAX)
*> \endverbatim
*>
*> \param[out] IWORK
@@ -182,8 +182,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
@@ -191,10 +189,9 @@
$ NSVAL, THRESH, TSTERR, A, LA, AFAC, LAFAC, B,
$ X, XACT, WORK, RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
@@ -566,7 +563,7 @@
END IF
*
*+ TEST 2:
-* Solve and compute residual for A * X = B.
+* Solve and compute residual for op(A) * X = B.
*
SRNAMT = 'CLARHS'
CALL CLARHS( PATH, XTYPE, ' ', TRANS, N,
@@ -592,7 +589,7 @@
$ WORK, LDB )
CALL CGBT02( TRANS, M, N, KL, KU, NRHS, A,
$ LDA, X, LDB, WORK, LDB,
- $ RESULT( 2 ) )
+ $ RWORK, RESULT( 2 ) )
*
*+ TEST 3:
* Check solution from generated exact
diff --git a/lapack-netlib/TESTING/LIN/cchkge.f b/lapack-netlib/TESTING/LIN/cchkge.f
index 3fe22d0ef..0ee1c85c5 100644
--- a/lapack-netlib/TESTING/LIN/cchkge.f
+++ b/lapack-netlib/TESTING/LIN/cchkge.f
@@ -78,7 +78,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
@@ -177,8 +177,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
@@ -186,10 +184,9 @@
$ NSVAL, THRESH, TSTERR, NMAX, A, AFAC, AINV, B,
$ X, XACT, WORK, RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/cchkgt.f b/lapack-netlib/TESTING/LIN/cchkgt.f
index a6780400c..b6fd5e4b5 100644
--- a/lapack-netlib/TESTING/LIN/cchkgt.f
+++ b/lapack-netlib/TESTING/LIN/cchkgt.f
@@ -139,18 +139,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CCHKGT( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR,
$ A, AF, B, X, XACT, WORK, RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/cchkhe.f b/lapack-netlib/TESTING/LIN/cchkhe.f
index 72dd71f66..1ff025757 100644
--- a/lapack-netlib/TESTING/LIN/cchkhe.f
+++ b/lapack-netlib/TESTING/LIN/cchkhe.f
@@ -65,7 +65,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
@@ -162,8 +162,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2013
-*
*> \ingroup complex_lin
*
* =====================================================================
@@ -171,10 +169,9 @@
$ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X,
$ XACT, WORK, RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.5.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2013
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/cchkhe_aa.f b/lapack-netlib/TESTING/LIN/cchkhe_aa.f
index 8dd551a72..487f9941e 100644
--- a/lapack-netlib/TESTING/LIN/cchkhe_aa.f
+++ b/lapack-netlib/TESTING/LIN/cchkhe_aa.f
@@ -65,7 +65,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
@@ -162,9 +162,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
-*
*> \ingroup complex_lin
*
* =====================================================================
@@ -172,10 +169,9 @@
$ THRESH, TSTERR, NMAX, A, AFAC, AINV, B,
$ X, XACT, WORK, RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.8.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2017
*
IMPLICIT NONE
*
diff --git a/lapack-netlib/TESTING/LIN/cchkhe_aa_2stage.f b/lapack-netlib/TESTING/LIN/cchkhe_aa_2stage.f
index 06b2134fa..30a61261f 100644
--- a/lapack-netlib/TESTING/LIN/cchkhe_aa_2stage.f
+++ b/lapack-netlib/TESTING/LIN/cchkhe_aa_2stage.f
@@ -66,7 +66,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
@@ -163,9 +163,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
-*
*> \ingroup complex_lin
*
* =====================================================================
@@ -173,10 +170,9 @@
$ NSVAL, THRESH, TSTERR, NMAX, A, AFAC, AINV,
$ B, X, XACT, WORK, RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.8.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2017
*
IMPLICIT NONE
*
@@ -579,6 +575,6 @@ c NT = 1
$ I6 )
RETURN
*
-* End of CCHKSY_AA_2STAGE
+* End of CCHKHE_AA_2STAGE
*
END
diff --git a/lapack-netlib/TESTING/LIN/cchkhe_rk.f b/lapack-netlib/TESTING/LIN/cchkhe_rk.f
index 24a4f3785..4f9801f88 100644
--- a/lapack-netlib/TESTING/LIN/cchkhe_rk.f
+++ b/lapack-netlib/TESTING/LIN/cchkhe_rk.f
@@ -66,7 +66,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
@@ -168,8 +168,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
@@ -177,10 +175,9 @@
$ THRESH, TSTERR, NMAX, A, AFAC, E, AINV, B,
$ X, XACT, WORK, RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
@@ -493,7 +490,7 @@
CALL CLACPY( UPLO, N, N, AFAC, LDA, AINV, LDA )
SRNAMT = 'CHETRI_3'
*
-* Another reason that we need to compute the invesrse
+* Another reason that we need to compute the inverse
* is that CPOT03 produces RCONDC which is used later
* in TEST6 and TEST7.
*
diff --git a/lapack-netlib/TESTING/LIN/cchkhe_rook.f b/lapack-netlib/TESTING/LIN/cchkhe_rook.f
index ace7844f8..72a4a1d4d 100644
--- a/lapack-netlib/TESTING/LIN/cchkhe_rook.f
+++ b/lapack-netlib/TESTING/LIN/cchkhe_rook.f
@@ -66,7 +66,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
@@ -163,8 +163,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
@@ -172,10 +170,9 @@
$ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X,
$ XACT, WORK, RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/cchkhp.f b/lapack-netlib/TESTING/LIN/cchkhp.f
index d07bfd24a..8d7cf477a 100644
--- a/lapack-netlib/TESTING/LIN/cchkhp.f
+++ b/lapack-netlib/TESTING/LIN/cchkhp.f
@@ -155,8 +155,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
@@ -164,10 +162,9 @@
$ NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK,
$ IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/cchklq.f b/lapack-netlib/TESTING/LIN/cchklq.f
index a407203f0..54107d047 100644
--- a/lapack-netlib/TESTING/LIN/cchklq.f
+++ b/lapack-netlib/TESTING/LIN/cchklq.f
@@ -187,8 +187,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
@@ -196,10 +194,9 @@
$ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AL, AC,
$ B, X, XACT, TAU, WORK, RWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/cchklqt.f b/lapack-netlib/TESTING/LIN/cchklqt.f
index 8dfd394c6..7ec8b2c62 100644
--- a/lapack-netlib/TESTING/LIN/cchklqt.f
+++ b/lapack-netlib/TESTING/LIN/cchklqt.f
@@ -76,7 +76,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
@@ -94,8 +94,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
@@ -103,10 +101,9 @@
$ NBVAL, NOUT )
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/cchklqtp.f b/lapack-netlib/TESTING/LIN/cchklqtp.f
index 1ecc1072d..987c0c365 100644
--- a/lapack-netlib/TESTING/LIN/cchklqtp.f
+++ b/lapack-netlib/TESTING/LIN/cchklqtp.f
@@ -76,7 +76,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
@@ -94,8 +94,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
@@ -103,10 +101,9 @@
$ NBVAL, NOUT )
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/cchkpb.f b/lapack-netlib/TESTING/LIN/cchkpb.f
index 8517168fe..4d1ab6f4f 100644
--- a/lapack-netlib/TESTING/LIN/cchkpb.f
+++ b/lapack-netlib/TESTING/LIN/cchkpb.f
@@ -65,7 +65,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
@@ -159,8 +159,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
@@ -168,10 +166,9 @@
$ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X,
$ XACT, WORK, RWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/cchkpo.f b/lapack-netlib/TESTING/LIN/cchkpo.f
index 93ad9c34f..8cf85bf6e 100644
--- a/lapack-netlib/TESTING/LIN/cchkpo.f
+++ b/lapack-netlib/TESTING/LIN/cchkpo.f
@@ -65,7 +65,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
@@ -159,8 +159,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
@@ -168,10 +166,9 @@
$ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X,
$ XACT, WORK, RWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/cchkpp.f b/lapack-netlib/TESTING/LIN/cchkpp.f
index 9d7a8b5c6..8b736e52b 100644
--- a/lapack-netlib/TESTING/LIN/cchkpp.f
+++ b/lapack-netlib/TESTING/LIN/cchkpp.f
@@ -150,8 +150,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
@@ -159,10 +157,9 @@
$ NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK,
$ NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/cchkps.f b/lapack-netlib/TESTING/LIN/cchkps.f
index cf1da91bf..d77ffc026 100644
--- a/lapack-netlib/TESTING/LIN/cchkps.f
+++ b/lapack-netlib/TESTING/LIN/cchkps.f
@@ -64,7 +64,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the block size NB.
*> \endverbatim
*>
@@ -145,8 +145,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
@@ -154,10 +152,9 @@
$ THRESH, TSTERR, NMAX, A, AFAC, PERM, PIV, WORK,
$ RWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
REAL THRESH
diff --git a/lapack-netlib/TESTING/LIN/cchkpt.f b/lapack-netlib/TESTING/LIN/cchkpt.f
index a1c28af76..2ec802064 100644
--- a/lapack-netlib/TESTING/LIN/cchkpt.f
+++ b/lapack-netlib/TESTING/LIN/cchkpt.f
@@ -139,18 +139,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CCHKPT( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR,
$ A, D, E, B, X, XACT, WORK, RWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/cchkq3.f b/lapack-netlib/TESTING/LIN/cchkq3.f
index 10c29e14e..e06565539 100644
--- a/lapack-netlib/TESTING/LIN/cchkq3.f
+++ b/lapack-netlib/TESTING/LIN/cchkq3.f
@@ -149,8 +149,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
@@ -158,10 +156,9 @@
$ THRESH, A, COPYA, S, TAU, WORK, RWORK,
$ IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER NM, NN, NNB, NOUT
diff --git a/lapack-netlib/TESTING/LIN/cchkql.f b/lapack-netlib/TESTING/LIN/cchkql.f
index 12b7ceded..34c6ca6a7 100644
--- a/lapack-netlib/TESTING/LIN/cchkql.f
+++ b/lapack-netlib/TESTING/LIN/cchkql.f
@@ -187,8 +187,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
@@ -196,10 +194,9 @@
$ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AL, AC,
$ B, X, XACT, TAU, WORK, RWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/cchkqr.f b/lapack-netlib/TESTING/LIN/cchkqr.f
index 7c9ded012..7ea178eaf 100644
--- a/lapack-netlib/TESTING/LIN/cchkqr.f
+++ b/lapack-netlib/TESTING/LIN/cchkqr.f
@@ -192,8 +192,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
@@ -201,10 +199,9 @@
$ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AR, AC,
$ B, X, XACT, TAU, WORK, RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/cchkqrt.f b/lapack-netlib/TESTING/LIN/cchkqrt.f
index 6f5552bb3..7aeb6df4b 100644
--- a/lapack-netlib/TESTING/LIN/cchkqrt.f
+++ b/lapack-netlib/TESTING/LIN/cchkqrt.f
@@ -76,7 +76,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
@@ -94,8 +94,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
@@ -103,10 +101,9 @@
$ NBVAL, NOUT )
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/cchkqrtp.f b/lapack-netlib/TESTING/LIN/cchkqrtp.f
index 3d8dd2a38..6820c9004 100644
--- a/lapack-netlib/TESTING/LIN/cchkqrtp.f
+++ b/lapack-netlib/TESTING/LIN/cchkqrtp.f
@@ -76,7 +76,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
@@ -94,8 +94,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
@@ -103,10 +101,9 @@
$ NBVAL, NOUT )
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/cchkrfp.f b/lapack-netlib/TESTING/LIN/cchkrfp.f
index 6a692f71d..58d55c31c 100644
--- a/lapack-netlib/TESTING/LIN/cchkrfp.f
+++ b/lapack-netlib/TESTING/LIN/cchkrfp.f
@@ -52,17 +52,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup complex_lin
*
* =====================================================================
PROGRAM CCHKRFP
*
-* -- LAPACK test routine (version 3.7.1) --
+* -- LAPACK test routine --
* -- 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/LIN/cchkrq.f b/lapack-netlib/TESTING/LIN/cchkrq.f
index 9a42dc135..48050c51f 100644
--- a/lapack-netlib/TESTING/LIN/cchkrq.f
+++ b/lapack-netlib/TESTING/LIN/cchkrq.f
@@ -192,8 +192,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
@@ -201,10 +199,9 @@
$ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AR, AC,
$ B, X, XACT, TAU, WORK, RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/cchksp.f b/lapack-netlib/TESTING/LIN/cchksp.f
index 5109ac740..584cf426c 100644
--- a/lapack-netlib/TESTING/LIN/cchksp.f
+++ b/lapack-netlib/TESTING/LIN/cchksp.f
@@ -155,8 +155,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
@@ -164,10 +162,9 @@
$ NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK,
$ IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/cchksy.f b/lapack-netlib/TESTING/LIN/cchksy.f
index d25417f7a..c933f0c96 100644
--- a/lapack-netlib/TESTING/LIN/cchksy.f
+++ b/lapack-netlib/TESTING/LIN/cchksy.f
@@ -65,7 +65,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
@@ -162,8 +162,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2013
-*
*> \ingroup complex_lin
*
* =====================================================================
@@ -171,10 +169,9 @@
$ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X,
$ XACT, WORK, RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.5.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2013
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/cchksy_aa.f b/lapack-netlib/TESTING/LIN/cchksy_aa.f
index 3a38d87a4..015d5a68e 100644
--- a/lapack-netlib/TESTING/LIN/cchksy_aa.f
+++ b/lapack-netlib/TESTING/LIN/cchksy_aa.f
@@ -64,7 +64,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
@@ -161,10 +161,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
-* @generated from LIN/dchksy_aa.f, fortran d -> c, Wed Nov 16 21:34:18 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
@@ -172,10 +168,9 @@
$ THRESH, TSTERR, NMAX, A, AFAC, AINV, B,
$ X, XACT, WORK, RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.8.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2017
*
IMPLICIT NONE
*
diff --git a/lapack-netlib/TESTING/LIN/cchksy_aa_2stage.f b/lapack-netlib/TESTING/LIN/cchksy_aa_2stage.f
index c17ae54e6..bede7cca5 100644
--- a/lapack-netlib/TESTING/LIN/cchksy_aa_2stage.f
+++ b/lapack-netlib/TESTING/LIN/cchksy_aa_2stage.f
@@ -66,7 +66,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
@@ -163,8 +163,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup complex_lin
*
* =====================================================================
@@ -172,10 +170,9 @@
$ NSVAL, THRESH, TSTERR, NMAX, A, AFAC, AINV,
$ B, X, XACT, WORK, RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.8.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2017
*
IMPLICIT NONE
*
diff --git a/lapack-netlib/TESTING/LIN/cchksy_rk.f b/lapack-netlib/TESTING/LIN/cchksy_rk.f
index 9475bb753..f4954054f 100644
--- a/lapack-netlib/TESTING/LIN/cchksy_rk.f
+++ b/lapack-netlib/TESTING/LIN/cchksy_rk.f
@@ -66,7 +66,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
@@ -168,8 +168,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
@@ -177,10 +175,9 @@
$ THRESH, TSTERR, NMAX, A, AFAC, E, AINV, B,
$ X, XACT, WORK, RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
@@ -505,7 +502,7 @@
CALL CLACPY( UPLO, N, N, AFAC, LDA, AINV, LDA )
SRNAMT = 'CSYTRI_3'
*
-* Another reason that we need to compute the invesrse
+* Another reason that we need to compute the inverse
* is that CSYT03 produces RCONDC which is used later
* in TEST6 and TEST7.
*
diff --git a/lapack-netlib/TESTING/LIN/cchksy_rook.f b/lapack-netlib/TESTING/LIN/cchksy_rook.f
index 84802f3b8..203108980 100644
--- a/lapack-netlib/TESTING/LIN/cchksy_rook.f
+++ b/lapack-netlib/TESTING/LIN/cchksy_rook.f
@@ -66,7 +66,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
@@ -163,8 +163,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
@@ -172,10 +170,9 @@
$ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X,
$ XACT, WORK, RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/cchktb.f b/lapack-netlib/TESTING/LIN/cchktb.f
index 027e3ecd8..865b9de32 100644
--- a/lapack-netlib/TESTING/LIN/cchktb.f
+++ b/lapack-netlib/TESTING/LIN/cchktb.f
@@ -141,18 +141,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CCHKTB( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR,
$ NMAX, AB, AINV, B, X, XACT, WORK, RWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/cchktp.f b/lapack-netlib/TESTING/LIN/cchktp.f
index 98c4b080b..18242ff54 100644
--- a/lapack-netlib/TESTING/LIN/cchktp.f
+++ b/lapack-netlib/TESTING/LIN/cchktp.f
@@ -142,8 +142,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
@@ -151,10 +149,9 @@
$ NMAX, AP, AINVP, B, X, XACT, WORK, RWORK,
$ NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/cchktr.f b/lapack-netlib/TESTING/LIN/cchktr.f
index ec731b73d..ce1ecf761 100644
--- a/lapack-netlib/TESTING/LIN/cchktr.f
+++ b/lapack-netlib/TESTING/LIN/cchktr.f
@@ -154,8 +154,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
@@ -163,10 +161,9 @@
$ THRESH, TSTERR, NMAX, A, AINV, B, X, XACT,
$ WORK, RWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/cchktsqr.f b/lapack-netlib/TESTING/LIN/cchktsqr.f
index 62b6ce434..0a85d7cf1 100644
--- a/lapack-netlib/TESTING/LIN/cchktsqr.f
+++ b/lapack-netlib/TESTING/LIN/cchktsqr.f
@@ -76,7 +76,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
@@ -94,8 +94,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
@@ -103,10 +101,9 @@
$ NBVAL, NOUT )
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
@@ -254,6 +251,6 @@
$ ', NB=', I5,' test(', I2, ')=', G12.5 )
RETURN
*
-* End of CCHKQRT
+* End of CCHKTSQR
*
END
diff --git a/lapack-netlib/TESTING/LIN/cchktz.f b/lapack-netlib/TESTING/LIN/cchktz.f
index 4926773a6..192b1c390 100644
--- a/lapack-netlib/TESTING/LIN/cchktz.f
+++ b/lapack-netlib/TESTING/LIN/cchktz.f
@@ -129,18 +129,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CCHKTZ( DOTYPE, NM, MVAL, NN, NVAL, THRESH, TSTERR, A,
$ COPYA, S, TAU, WORK, RWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/cchkunhr_col.f b/lapack-netlib/TESTING/LIN/cchkunhr_col.f
index 0d6a9063d..b2f233e25 100644
--- a/lapack-netlib/TESTING/LIN/cchkunhr_col.f
+++ b/lapack-netlib/TESTING/LIN/cchkunhr_col.f
@@ -82,7 +82,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
diff --git a/lapack-netlib/TESTING/LIN/cdrvgb.f b/lapack-netlib/TESTING/LIN/cdrvgb.f
index 42e26028a..389725eae 100644
--- a/lapack-netlib/TESTING/LIN/cdrvgb.f
+++ b/lapack-netlib/TESTING/LIN/cdrvgb.f
@@ -141,7 +141,7 @@
*> \param[out] RWORK
*> \verbatim
*> RWORK is REAL array, dimension
-*> (max(NMAX,2*NRHS))
+*> (NMAX+2*NRHS)
*> \endverbatim
*>
*> \param[out] IWORK
@@ -163,8 +163,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
@@ -172,10 +170,9 @@
$ AFB, LAFB, ASAV, B, BSAV, X, XACT, S, WORK,
$ RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
@@ -585,7 +582,8 @@
$ WORK, LDB )
CALL CGBT02( 'No transpose', N, N, KL,
$ KU, NRHS, A, LDA, X, LDB,
- $ WORK, LDB, RESULT( 2 ) )
+ $ WORK, LDB, RWORK,
+ $ RESULT( 2 ) )
*
* Check solution from generated exact
* solution.
@@ -702,6 +700,7 @@
$ WORK, LDB )
CALL CGBT02( TRANS, N, N, KL, KU, NRHS,
$ ASAV, LDA, X, LDB, WORK, LDB,
+ $ RWORK( 2*NRHS+1 ),
$ RESULT( 2 ) )
*
* Check solution from generated exact
diff --git a/lapack-netlib/TESTING/LIN/cdrvgbx.f b/lapack-netlib/TESTING/LIN/cdrvgbx.f
index b043c1089..68ff66e07 100644
--- a/lapack-netlib/TESTING/LIN/cdrvgbx.f
+++ b/lapack-netlib/TESTING/LIN/cdrvgbx.f
@@ -144,7 +144,7 @@
*> \param[out] RWORK
*> \verbatim
*> RWORK is REAL array, dimension
-*> (max(NMAX,2*NRHS))
+*> (max(2*NMAX,NMAX+2*NRHS))
*> \endverbatim
*>
*> \param[out] IWORK
@@ -166,8 +166,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
@@ -175,10 +173,9 @@
$ AFB, LAFB, ASAV, B, BSAV, X, XACT, S, WORK,
$ RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
@@ -593,7 +590,8 @@
$ WORK, LDB )
CALL CGBT02( 'No transpose', N, N, KL,
$ KU, NRHS, A, LDA, X, LDB,
- $ WORK, LDB, RESULT( 2 ) )
+ $ WORK, LDB, RWORK,
+ $ RESULT( 2 ) )
*
* Check solution from generated exact
* solution.
@@ -711,6 +709,7 @@
$ WORK, LDB )
CALL CGBT02( TRANS, N, N, KL, KU, NRHS,
$ ASAV, LDA, X, LDB, WORK, LDB,
+ $ RWORK( 2*NRHS+1 ),
$ RESULT( 2 ) )
*
* Check solution from generated exact
@@ -900,7 +899,8 @@ c write(*,*) 'begin cgbsvxx testing'
CALL CLACPY( 'Full', N, NRHS, BSAV, LDB, WORK,
$ LDB )
CALL CGBT02( TRANS, N, N, KL, KU, NRHS, ASAV,
- $ LDA, X, LDB, WORK, LDB, RESULT( 2 ) )
+ $ LDA, X, LDB, WORK, LDB, RWORK,
+ $ RESULT( 2 ) )
*
* Check solution from generated exact solution.
*
@@ -1030,6 +1030,6 @@ c write(*,*) 'begin cgbsvxx testing'
*
RETURN
*
-* End of CDRVGB
+* End of CDRVGBX
*
END
diff --git a/lapack-netlib/TESTING/LIN/cdrvge.f b/lapack-netlib/TESTING/LIN/cdrvge.f
index 054e7e84e..386bd3108 100644
--- a/lapack-netlib/TESTING/LIN/cdrvge.f
+++ b/lapack-netlib/TESTING/LIN/cdrvge.f
@@ -155,8 +155,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
@@ -164,10 +162,9 @@
$ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK,
$ RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/cdrvgex.f b/lapack-netlib/TESTING/LIN/cdrvgex.f
index 9b075908f..d989261db 100644
--- a/lapack-netlib/TESTING/LIN/cdrvgex.f
+++ b/lapack-netlib/TESTING/LIN/cdrvgex.f
@@ -158,8 +158,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup complex_lin
*
* =====================================================================
@@ -167,10 +165,9 @@
$ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK,
$ RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* April 2012
*
* .. Scalar Arguments ..
LOGICAL TSTERR
@@ -892,6 +889,6 @@
$ G12.5 )
RETURN
*
-* End of CDRVGE
+* End of CDRVGEX
*
END
diff --git a/lapack-netlib/TESTING/LIN/cdrvgt.f b/lapack-netlib/TESTING/LIN/cdrvgt.f
index 8d431efc5..8d43f640f 100644
--- a/lapack-netlib/TESTING/LIN/cdrvgt.f
+++ b/lapack-netlib/TESTING/LIN/cdrvgt.f
@@ -131,18 +131,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CDRVGT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, AF,
$ B, X, XACT, WORK, RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/cdrvhe.f b/lapack-netlib/TESTING/LIN/cdrvhe.f
index 9d5beb843..de7851e0f 100644
--- a/lapack-netlib/TESTING/LIN/cdrvhe.f
+++ b/lapack-netlib/TESTING/LIN/cdrvhe.f
@@ -144,8 +144,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2013
-*
*> \ingroup complex_lin
*
* =====================================================================
@@ -153,10 +151,9 @@
$ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK,
$ NOUT )
*
-* -- LAPACK test routine (version 3.5.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2013
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/cdrvhe_aa.f b/lapack-netlib/TESTING/LIN/cdrvhe_aa.f
index d56aa45b0..70c4a7e31 100644
--- a/lapack-netlib/TESTING/LIN/cdrvhe_aa.f
+++ b/lapack-netlib/TESTING/LIN/cdrvhe_aa.f
@@ -144,8 +144,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup complex_lin
*
* =====================================================================
@@ -153,10 +151,9 @@
$ NMAX, A, AFAC, AINV, B, X, XACT, WORK,
$ RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.8.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2017
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/cdrvhe_aa_2stage.f b/lapack-netlib/TESTING/LIN/cdrvhe_aa_2stage.f
index 959258e1f..51cef512d 100644
--- a/lapack-netlib/TESTING/LIN/cdrvhe_aa_2stage.f
+++ b/lapack-netlib/TESTING/LIN/cdrvhe_aa_2stage.f
@@ -145,8 +145,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup complex_lin
*
* =====================================================================
@@ -155,10 +153,9 @@
$ NMAX, A, AFAC, AINV, B, X, XACT, WORK,
$ RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.8.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2017
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/cdrvhe_rk.f b/lapack-netlib/TESTING/LIN/cdrvhe_rk.f
index f410277b4..72669ccd1 100644
--- a/lapack-netlib/TESTING/LIN/cdrvhe_rk.f
+++ b/lapack-netlib/TESTING/LIN/cdrvhe_rk.f
@@ -149,8 +149,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
@@ -158,10 +156,9 @@
$ NMAX, A, AFAC, E, AINV, B, X, XACT, WORK,
$ RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
@@ -414,7 +411,7 @@
CALL CLACPY( UPLO, N, N, AFAC, LDA, AINV, LDA )
LWORK = (N+NB+1)*(NB+3)
*
-* We need to copute the invesrse to compute
+* We need to compute the inverse to compute
* RCONDC that is used later in TEST3.
*
CALL CSYTRI_3( UPLO, N, AINV, LDA, E, IWORK,
diff --git a/lapack-netlib/TESTING/LIN/cdrvhe_rook.f b/lapack-netlib/TESTING/LIN/cdrvhe_rook.f
index 6110aadf9..d2f3cb797 100644
--- a/lapack-netlib/TESTING/LIN/cdrvhe_rook.f
+++ b/lapack-netlib/TESTING/LIN/cdrvhe_rook.f
@@ -144,8 +144,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2013
-*
*> \ingroup complex_lin
*
* =====================================================================
@@ -153,10 +151,9 @@
$ NMAX, A, AFAC, AINV, B, X, XACT, WORK,
$ RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.5.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2013
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/cdrvhex.f b/lapack-netlib/TESTING/LIN/cdrvhex.f
index c6604c392..940ad416d 100644
--- a/lapack-netlib/TESTING/LIN/cdrvhex.f
+++ b/lapack-netlib/TESTING/LIN/cdrvhex.f
@@ -148,8 +148,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup complex_lin
*
* =====================================================================
@@ -157,10 +155,9 @@
$ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK,
$ NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* April 2012
*
* .. Scalar Arguments ..
LOGICAL TSTERR
@@ -718,6 +715,6 @@
$ ', type ', I2, ', test ', I2, ', ratio =', G12.5 )
RETURN
*
-* End of CDRVHE
+* End of CDRVHEX
*
END
diff --git a/lapack-netlib/TESTING/LIN/cdrvhp.f b/lapack-netlib/TESTING/LIN/cdrvhp.f
index 875c894fe..27ff71c5e 100644
--- a/lapack-netlib/TESTING/LIN/cdrvhp.f
+++ b/lapack-netlib/TESTING/LIN/cdrvhp.f
@@ -148,8 +148,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
@@ -157,10 +155,9 @@
$ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK,
$ NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/cdrvls.f b/lapack-netlib/TESTING/LIN/cdrvls.f
index f43c10b72..7fe189e5f 100644
--- a/lapack-netlib/TESTING/LIN/cdrvls.f
+++ b/lapack-netlib/TESTING/LIN/cdrvls.f
@@ -183,8 +183,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complex_lin
*
* =====================================================================
@@ -192,10 +190,9 @@
$ NBVAL, NXVAL, THRESH, TSTERR, A, COPYA, B,
$ COPYB, C, S, COPYS, NOUT )
*
-* -- LAPACK test routine (version 3.7.1) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2017
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/cdrvpb.f b/lapack-netlib/TESTING/LIN/cdrvpb.f
index fb43d7f73..7f8a84628 100644
--- a/lapack-netlib/TESTING/LIN/cdrvpb.f
+++ b/lapack-netlib/TESTING/LIN/cdrvpb.f
@@ -150,8 +150,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
@@ -159,10 +157,9 @@
$ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK,
$ RWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/cdrvpo.f b/lapack-netlib/TESTING/LIN/cdrvpo.f
index 8f484d6de..88cca10df 100644
--- a/lapack-netlib/TESTING/LIN/cdrvpo.f
+++ b/lapack-netlib/TESTING/LIN/cdrvpo.f
@@ -150,8 +150,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
@@ -159,10 +157,9 @@
$ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK,
$ RWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/cdrvpox.f b/lapack-netlib/TESTING/LIN/cdrvpox.f
index cc08095d6..4103b543e 100644
--- a/lapack-netlib/TESTING/LIN/cdrvpox.f
+++ b/lapack-netlib/TESTING/LIN/cdrvpox.f
@@ -153,8 +153,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
@@ -162,10 +160,9 @@
$ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK,
$ RWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
@@ -734,6 +731,6 @@
$ G12.5 )
RETURN
*
-* End of CDRVPO
+* End of CDRVPOX
*
END
diff --git a/lapack-netlib/TESTING/LIN/cdrvpp.f b/lapack-netlib/TESTING/LIN/cdrvpp.f
index 5e38c1850..c2fa2eb76 100644
--- a/lapack-netlib/TESTING/LIN/cdrvpp.f
+++ b/lapack-netlib/TESTING/LIN/cdrvpp.f
@@ -150,8 +150,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
@@ -159,10 +157,9 @@
$ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK,
$ RWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/cdrvpt.f b/lapack-netlib/TESTING/LIN/cdrvpt.f
index 926f22378..41a868b74 100644
--- a/lapack-netlib/TESTING/LIN/cdrvpt.f
+++ b/lapack-netlib/TESTING/LIN/cdrvpt.f
@@ -132,18 +132,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CDRVPT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, D,
$ E, B, X, XACT, WORK, RWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/cdrvrf1.f b/lapack-netlib/TESTING/LIN/cdrvrf1.f
index eb3949807..dec82def2 100644
--- a/lapack-netlib/TESTING/LIN/cdrvrf1.f
+++ b/lapack-netlib/TESTING/LIN/cdrvrf1.f
@@ -88,17 +88,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CDRVRF1( NOUT, NN, NVAL, THRESH, A, LDA, ARF, WORK )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, NN, NOUT
diff --git a/lapack-netlib/TESTING/LIN/cdrvrf2.f b/lapack-netlib/TESTING/LIN/cdrvrf2.f
index d1b9c8752..774e3880f 100644
--- a/lapack-netlib/TESTING/LIN/cdrvrf2.f
+++ b/lapack-netlib/TESTING/LIN/cdrvrf2.f
@@ -82,17 +82,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CDRVRF2( NOUT, NN, NVAL, A, LDA, ARF, AP, ASAV )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, NN, NOUT
diff --git a/lapack-netlib/TESTING/LIN/cdrvrf3.f b/lapack-netlib/TESTING/LIN/cdrvrf3.f
index 2c71d0fc5..1ca816979 100644
--- a/lapack-netlib/TESTING/LIN/cdrvrf3.f
+++ b/lapack-netlib/TESTING/LIN/cdrvrf3.f
@@ -111,18 +111,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2,
+ S_WORK_CLANGE, C_WORK_CGEQRF, TAU )
*
-* -- LAPACK test routine (version 3.7.1) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2017
*
* .. Scalar Arguments ..
INTEGER LDA, NN, NOUT
@@ -259,8 +256,8 @@
* Generate A our NA--by--NA triangular
* matrix.
* Our test is based on forward error so we
-* do want A to be well conditionned! To get
-* a well-conditionned triangular matrix, we
+* do want A to be well conditioned! To get
+* a well-conditioned triangular matrix, we
* take the R factor of the QR/LQ factorization
* of a random matrix.
*
diff --git a/lapack-netlib/TESTING/LIN/cdrvrf4.f b/lapack-netlib/TESTING/LIN/cdrvrf4.f
index d3e6a39c8..047c1760b 100644
--- a/lapack-netlib/TESTING/LIN/cdrvrf4.f
+++ b/lapack-netlib/TESTING/LIN/cdrvrf4.f
@@ -106,18 +106,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CDRVRF4( NOUT, NN, NVAL, THRESH, C1, C2, LDC, CRF, A,
+ LDA, S_WORK_CLANGE )
*
-* -- LAPACK test routine (version 3.7.1) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2017
*
* .. Scalar Arguments ..
INTEGER LDA, LDC, NN, NOUT
diff --git a/lapack-netlib/TESTING/LIN/cdrvrfp.f b/lapack-netlib/TESTING/LIN/cdrvrfp.f
index 362a0e7cb..cffa28d5f 100644
--- a/lapack-netlib/TESTING/LIN/cdrvrfp.f
+++ b/lapack-netlib/TESTING/LIN/cdrvrfp.f
@@ -232,8 +232,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
@@ -244,10 +242,9 @@
+ C_WORK_CPOT03, S_WORK_CLATMS, S_WORK_CLANHE,
+ S_WORK_CPOT01, S_WORK_CPOT02, S_WORK_CPOT03 )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER NN, NNS, NNT, NOUT
diff --git a/lapack-netlib/TESTING/LIN/cdrvsp.f b/lapack-netlib/TESTING/LIN/cdrvsp.f
index 169ebaa5a..d7a9748d1 100644
--- a/lapack-netlib/TESTING/LIN/cdrvsp.f
+++ b/lapack-netlib/TESTING/LIN/cdrvsp.f
@@ -148,8 +148,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
@@ -157,10 +155,9 @@
$ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK,
$ NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/cdrvsy.f b/lapack-netlib/TESTING/LIN/cdrvsy.f
index 475e90200..27a697e8b 100644
--- a/lapack-netlib/TESTING/LIN/cdrvsy.f
+++ b/lapack-netlib/TESTING/LIN/cdrvsy.f
@@ -144,8 +144,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2013
-*
*> \ingroup complex_lin
*
* =====================================================================
@@ -153,10 +151,9 @@
$ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK,
$ NOUT )
*
-* -- LAPACK test routine (version 3.5.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2013
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/cdrvsy_aa.f b/lapack-netlib/TESTING/LIN/cdrvsy_aa.f
index a9e53de4f..7814d3ae6 100644
--- a/lapack-netlib/TESTING/LIN/cdrvsy_aa.f
+++ b/lapack-netlib/TESTING/LIN/cdrvsy_aa.f
@@ -144,10 +144,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
-* @generated from LIN/ddrvsy_aa.f, fortran d -> c, Thu Nov 17 12:14:51 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
@@ -155,10 +151,9 @@
$ NMAX, A, AFAC, AINV, B, X, XACT, WORK,
$ RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.8.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2017
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/cdrvsy_aa_2stage.f b/lapack-netlib/TESTING/LIN/cdrvsy_aa_2stage.f
index 2b766bcbd..3059a4c9c 100644
--- a/lapack-netlib/TESTING/LIN/cdrvsy_aa_2stage.f
+++ b/lapack-netlib/TESTING/LIN/cdrvsy_aa_2stage.f
@@ -145,8 +145,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup complex_lin
*
* =====================================================================
@@ -155,10 +153,9 @@
$ NMAX, A, AFAC, AINV, B, X, XACT, WORK,
$ RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.8.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2017
*
* .. Scalar Arguments ..
LOGICAL TSTERR
@@ -485,6 +482,6 @@ c NT = 2
$ ', test ', I2, ', ratio =', G12.5 )
RETURN
*
-* End of SDRVSY_AA_2STAGE
+* End of CSDRVSY_AA_2STAGE
*
END
diff --git a/lapack-netlib/TESTING/LIN/cdrvsy_rk.f b/lapack-netlib/TESTING/LIN/cdrvsy_rk.f
index d3ed8c0a9..baa9e178d 100644
--- a/lapack-netlib/TESTING/LIN/cdrvsy_rk.f
+++ b/lapack-netlib/TESTING/LIN/cdrvsy_rk.f
@@ -148,8 +148,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
@@ -157,10 +155,9 @@
$ NMAX, A, AFAC, E, AINV, B, X, XACT, WORK,
$ RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
@@ -423,7 +420,7 @@
CALL CLACPY( UPLO, N, N, AFAC, LDA, AINV, LDA )
LWORK = (N+NB+1)*(NB+3)
*
-* We need to copute the invesrse to compute
+* We need to compute the inverse to compute
* RCONDC that is used later in TEST3.
*
CALL CSYTRI_3( UPLO, N, AINV, LDA, E, IWORK,
diff --git a/lapack-netlib/TESTING/LIN/cdrvsy_rook.f b/lapack-netlib/TESTING/LIN/cdrvsy_rook.f
index 4dab87576..4dc04c029 100644
--- a/lapack-netlib/TESTING/LIN/cdrvsy_rook.f
+++ b/lapack-netlib/TESTING/LIN/cdrvsy_rook.f
@@ -143,8 +143,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2013
-*
*> \ingroup complex_lin
*
* =====================================================================
@@ -152,10 +150,9 @@
$ NMAX, A, AFAC, AINV, B, X, XACT, WORK,
$ RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.5.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2013
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/cdrvsyx.f b/lapack-netlib/TESTING/LIN/cdrvsyx.f
index cc4f754ce..309f7f870 100644
--- a/lapack-netlib/TESTING/LIN/cdrvsyx.f
+++ b/lapack-netlib/TESTING/LIN/cdrvsyx.f
@@ -148,8 +148,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup complex_lin
*
* =====================================================================
@@ -157,10 +155,9 @@
$ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK,
$ NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* April 2012
*
* .. Scalar Arguments ..
LOGICAL TSTERR
@@ -724,6 +721,6 @@
$ ', type ', I2, ', test ', I2, ', ratio =', G12.5 )
RETURN
*
-* End of CDRVSY
+* End of CDRVSYX
*
END
diff --git a/lapack-netlib/TESTING/LIN/cebchvxx.f b/lapack-netlib/TESTING/LIN/cebchvxx.f
index 00f92f4e3..a10a8f6f7 100644
--- a/lapack-netlib/TESTING/LIN/cebchvxx.f
+++ b/lapack-netlib/TESTING/LIN/cebchvxx.f
@@ -89,8 +89,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
@@ -504,5 +502,7 @@ c$$$ WRITE(*,*)
8000 FORMAT( ' C', A2, 'SVXX: N =', I2, ', INFO = ', I3,
$ ', ORCOND = ', G12.5, ', real RCOND = ', G12.5 )
-
+*
+* End of CEBCHVXX
+*
END
diff --git a/lapack-netlib/TESTING/LIN/cerrge.f b/lapack-netlib/TESTING/LIN/cerrge.f
index 93f26f9dc..1fcf656f7 100644
--- a/lapack-netlib/TESTING/LIN/cerrge.f
+++ b/lapack-netlib/TESTING/LIN/cerrge.f
@@ -48,17 +48,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CERRGE( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/LIN/cerrgex.f b/lapack-netlib/TESTING/LIN/cerrgex.f
index 02230245b..9858faeaa 100644
--- a/lapack-netlib/TESTING/LIN/cerrgex.f
+++ b/lapack-netlib/TESTING/LIN/cerrgex.f
@@ -51,17 +51,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CERRGE( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
@@ -560,6 +557,6 @@
*
RETURN
*
-* End of CERRGE
+* End of CERRGEX
*
END
diff --git a/lapack-netlib/TESTING/LIN/cerrgt.f b/lapack-netlib/TESTING/LIN/cerrgt.f
index f95db6706..c342133eb 100644
--- a/lapack-netlib/TESTING/LIN/cerrgt.f
+++ b/lapack-netlib/TESTING/LIN/cerrgt.f
@@ -48,17 +48,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CERRGT( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/LIN/cerrhe.f b/lapack-netlib/TESTING/LIN/cerrhe.f
index 9e8daa219..d0c5cf6b5 100644
--- a/lapack-netlib/TESTING/LIN/cerrhe.f
+++ b/lapack-netlib/TESTING/LIN/cerrhe.f
@@ -48,17 +48,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CERRHE( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.8.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2017
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/LIN/cerrhex.f b/lapack-netlib/TESTING/LIN/cerrhex.f
index e10a5404f..b6c889798 100644
--- a/lapack-netlib/TESTING/LIN/cerrhex.f
+++ b/lapack-netlib/TESTING/LIN/cerrhex.f
@@ -51,17 +51,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CERRHE( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
@@ -609,6 +606,6 @@
*
RETURN
*
-* End of CERRHE
+* End of CERRHEX
*
END
diff --git a/lapack-netlib/TESTING/LIN/cerrlq.f b/lapack-netlib/TESTING/LIN/cerrlq.f
index 822380c9a..1036835b4 100644
--- a/lapack-netlib/TESTING/LIN/cerrlq.f
+++ b/lapack-netlib/TESTING/LIN/cerrlq.f
@@ -48,17 +48,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CERRLQ( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/LIN/cerrlqt.f b/lapack-netlib/TESTING/LIN/cerrlqt.f
index 6e2d8b321..4ee50cd6c 100644
--- a/lapack-netlib/TESTING/LIN/cerrlqt.f
+++ b/lapack-netlib/TESTING/LIN/cerrlqt.f
@@ -48,18 +48,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE CERRLQT( PATH, NUNIT )
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/LIN/cerrlqtp.f b/lapack-netlib/TESTING/LIN/cerrlqtp.f
index 7786dc1d3..a4e7f9d48 100644
--- a/lapack-netlib/TESTING/LIN/cerrlqtp.f
+++ b/lapack-netlib/TESTING/LIN/cerrlqtp.f
@@ -48,18 +48,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE CERRLQTP( PATH, NUNIT )
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
@@ -220,6 +217,6 @@
*
RETURN
*
-* End of CERRLQT
+* End of CERRLQTP
*
END
diff --git a/lapack-netlib/TESTING/LIN/cerrls.f b/lapack-netlib/TESTING/LIN/cerrls.f
index 5510b1c5e..48e44ad86 100644
--- a/lapack-netlib/TESTING/LIN/cerrls.f
+++ b/lapack-netlib/TESTING/LIN/cerrls.f
@@ -48,17 +48,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CERRLS( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/LIN/cerrpo.f b/lapack-netlib/TESTING/LIN/cerrpo.f
index 19f7afbad..40ebe5220 100644
--- a/lapack-netlib/TESTING/LIN/cerrpo.f
+++ b/lapack-netlib/TESTING/LIN/cerrpo.f
@@ -48,17 +48,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CERRPO( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/LIN/cerrpox.f b/lapack-netlib/TESTING/LIN/cerrpox.f
index eee3726eb..2973a1da5 100644
--- a/lapack-netlib/TESTING/LIN/cerrpox.f
+++ b/lapack-netlib/TESTING/LIN/cerrpox.f
@@ -51,17 +51,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CERRPO( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
@@ -532,6 +529,6 @@
*
RETURN
*
-* End of CERRPO
+* End of CERRPOX
*
END
diff --git a/lapack-netlib/TESTING/LIN/cerrps.f b/lapack-netlib/TESTING/LIN/cerrps.f
index f9aa3cf14..6b19424bc 100644
--- a/lapack-netlib/TESTING/LIN/cerrps.f
+++ b/lapack-netlib/TESTING/LIN/cerrps.f
@@ -48,17 +48,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CERRPS( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER NUNIT
diff --git a/lapack-netlib/TESTING/LIN/cerrql.f b/lapack-netlib/TESTING/LIN/cerrql.f
index 716417b8c..50f97d4dc 100644
--- a/lapack-netlib/TESTING/LIN/cerrql.f
+++ b/lapack-netlib/TESTING/LIN/cerrql.f
@@ -48,17 +48,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CERRQL( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/LIN/cerrqp.f b/lapack-netlib/TESTING/LIN/cerrqp.f
index 3ed463ad8..a2188a71a 100644
--- a/lapack-netlib/TESTING/LIN/cerrqp.f
+++ b/lapack-netlib/TESTING/LIN/cerrqp.f
@@ -47,17 +47,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CERRQP( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/LIN/cerrqr.f b/lapack-netlib/TESTING/LIN/cerrqr.f
index e124d0f81..21cf22936 100644
--- a/lapack-netlib/TESTING/LIN/cerrqr.f
+++ b/lapack-netlib/TESTING/LIN/cerrqr.f
@@ -48,17 +48,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CERRQR( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/LIN/cerrqrt.f b/lapack-netlib/TESTING/LIN/cerrqrt.f
index f391a9b32..48ca7df40 100644
--- a/lapack-netlib/TESTING/LIN/cerrqrt.f
+++ b/lapack-netlib/TESTING/LIN/cerrqrt.f
@@ -48,18 +48,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CERRQRT( PATH, NUNIT )
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/LIN/cerrqrtp.f b/lapack-netlib/TESTING/LIN/cerrqrtp.f
index 34e2ecd39..eec35b3bd 100644
--- a/lapack-netlib/TESTING/LIN/cerrqrtp.f
+++ b/lapack-netlib/TESTING/LIN/cerrqrtp.f
@@ -48,18 +48,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CERRQRTP( PATH, NUNIT )
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
@@ -224,6 +221,6 @@
*
RETURN
*
-* End of CERRQRT
+* End of CERRQRTP
*
END
diff --git a/lapack-netlib/TESTING/LIN/cerrrfp.f b/lapack-netlib/TESTING/LIN/cerrrfp.f
index da02a8885..4f2196c32 100644
--- a/lapack-netlib/TESTING/LIN/cerrrfp.f
+++ b/lapack-netlib/TESTING/LIN/cerrrfp.f
@@ -45,17 +45,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CERRRFP( NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER NUNIT
diff --git a/lapack-netlib/TESTING/LIN/cerrrq.f b/lapack-netlib/TESTING/LIN/cerrrq.f
index bcacdc349..2c8c5978f 100644
--- a/lapack-netlib/TESTING/LIN/cerrrq.f
+++ b/lapack-netlib/TESTING/LIN/cerrrq.f
@@ -48,17 +48,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CERRRQ( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/LIN/cerrsy.f b/lapack-netlib/TESTING/LIN/cerrsy.f
index 17c9f36fb..a236d2d18 100644
--- a/lapack-netlib/TESTING/LIN/cerrsy.f
+++ b/lapack-netlib/TESTING/LIN/cerrsy.f
@@ -48,17 +48,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CERRSY( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.8.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2017
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/LIN/cerrsyx.f b/lapack-netlib/TESTING/LIN/cerrsyx.f
index 617354fab..34972668e 100644
--- a/lapack-netlib/TESTING/LIN/cerrsyx.f
+++ b/lapack-netlib/TESTING/LIN/cerrsyx.f
@@ -51,17 +51,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CERRSY( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
@@ -607,6 +604,6 @@
*
RETURN
*
-* End of CERRSY
+* End of CERRSYX
*
END
diff --git a/lapack-netlib/TESTING/LIN/cerrtr.f b/lapack-netlib/TESTING/LIN/cerrtr.f
index a06c0d751..db65edd88 100644
--- a/lapack-netlib/TESTING/LIN/cerrtr.f
+++ b/lapack-netlib/TESTING/LIN/cerrtr.f
@@ -47,17 +47,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CERRTR( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/LIN/cerrtsqr.f b/lapack-netlib/TESTING/LIN/cerrtsqr.f
index b9d6ce3c3..165c8d681 100644
--- a/lapack-netlib/TESTING/LIN/cerrtsqr.f
+++ b/lapack-netlib/TESTING/LIN/cerrtsqr.f
@@ -48,18 +48,15 @@
*> \author Univ. of Colorado Zenver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE CERRTSQR( PATH, NUNIT )
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
@@ -73,7 +70,7 @@
PARAMETER ( NMAX = 2 )
* ..
* .. Local Scalars ..
- INTEGER I, INFO, J, NB
+ INTEGER I, INFO, J, MB, NB
* ..
* .. Local Arrays ..
COMPLEX A( NMAX, NMAX ), T( NMAX, NMAX ), W( NMAX ),
@@ -133,6 +130,35 @@
CALL CGEQR( 3, 2, A, 3, TAU, 8, W, 0, INFO )
CALL CHKXER( 'CGEQR', INFOT, NOUT, LERR, OK )
*
+* CLATSQR
+*
+ MB = 1
+ NB = 1
+ SRNAMT = 'CLATSQR'
+ INFOT = 1
+ CALL CLATSQR( -1, 0, MB, NB, A, 1, TAU, 1, W, 1, INFO )
+ CALL CHKXER( 'CLATSQR', INFOT, NOUT, LERR, OK )
+ INFOT = 2
+ CALL CLATSQR( 1, 2, MB, NB, A, 1, TAU, 1, W, 1, INFO )
+ CALL CHKXER( 'CLATSQR', INFOT, NOUT, LERR, OK )
+ CALL CLATSQR( 0, -1, MB, NB, A, 1, TAU, 1, W, 1, INFO )
+ CALL CHKXER( 'CLATSQR', INFOT, NOUT, LERR, OK )
+ INFOT = 3
+ CALL CLATSQR( 2, 1, -1, NB, A, 2, TAU, 1, W, 1, INFO )
+ CALL CHKXER( 'CLATSQR', INFOT, NOUT, LERR, OK )
+ INFOT = 4
+ CALL CLATSQR( 2, 1, MB, 2, A, 2, TAU, 1, W, 1, INFO )
+ CALL CHKXER( 'CLATSQR', INFOT, NOUT, LERR, OK )
+ INFOT = 6
+ CALL CLATSQR( 2, 1, MB, NB, A, 1, TAU, 1, W, 1, INFO )
+ CALL CHKXER( 'CLATSQR', INFOT, NOUT, LERR, OK )
+ INFOT = 8
+ CALL CLATSQR( 2, 1, MB, NB, A, 2, TAU, 0, W, 1, INFO )
+ CALL CHKXER( 'CLATSQR', INFOT, NOUT, LERR, OK )
+ INFOT = 10
+ CALL CLATSQR( 2, 1, MB, NB, A, 2, TAU, 2, W, 0, INFO )
+ CALL CHKXER( 'CLATSQR', INFOT, NOUT, LERR, OK )
+*
* CGEMQR
*
TAU(1)=1
@@ -192,6 +218,37 @@
CALL CGELQ( 2, 3, A, 3, TAU, 8, W, 0, INFO )
CALL CHKXER( 'CGELQ', INFOT, NOUT, LERR, OK )
*
+* CLASWLQ
+*
+ MB = 1
+ NB = 1
+ SRNAMT = 'CLASWLQ'
+ INFOT = 1
+ CALL CLASWLQ( -1, 0, MB, NB, A, 1, TAU, 1, W, 1, INFO )
+ CALL CHKXER( 'CLASWLQ', INFOT, NOUT, LERR, OK )
+ INFOT = 2
+ CALL CLASWLQ( 2, 1, MB, NB, A, 1, TAU, 1, W, 1, INFO )
+ CALL CHKXER( 'CLASWLQ', INFOT, NOUT, LERR, OK )
+ CALL CLASWLQ( 0, -1, MB, NB, A, 1, TAU, 1, W, 1, INFO )
+ CALL CHKXER( 'CLASWLQ', INFOT, NOUT, LERR, OK )
+ INFOT = 3
+ CALL CLASWLQ( 1, 2, -1, NB, A, 1, TAU, 1, W, 1, INFO )
+ CALL CHKXER( 'CLASWLQ', INFOT, NOUT, LERR, OK )
+ CALL CLASWLQ( 1, 1, 2, NB, A, 1, TAU, 1, W, 1, INFO )
+ CALL CHKXER( 'CLASWLQ', INFOT, NOUT, LERR, OK )
+ INFOT = 4
+ CALL CLASWLQ( 1, 2, MB, -1, A, 1, TAU, 1, W, 1, INFO )
+ CALL CHKXER( 'CLASWLQ', INFOT, NOUT, LERR, OK )
+ INFOT = 6
+ CALL CLASWLQ( 1, 2, MB, NB, A, 0, TAU, 1, W, 1, INFO )
+ CALL CHKXER( 'CLASWLQ', INFOT, NOUT, LERR, OK )
+ INFOT = 8
+ CALL CLASWLQ( 1, 2, MB, NB, A, 1, TAU, 0, W, 1, INFO )
+ CALL CHKXER( 'CLASWLQ', INFOT, NOUT, LERR, OK )
+ INFOT = 10
+ CALL CLASWLQ( 1, 2, MB, NB, A, 1, TAU, 1, W, 0, INFO )
+ CALL CHKXER( 'CLASWLQ', INFOT, NOUT, LERR, OK )
+*
* CGEMLQ
*
TAU(1)=1
diff --git a/lapack-netlib/TESTING/LIN/cerrtz.f b/lapack-netlib/TESTING/LIN/cerrtz.f
index c6649cf87..4c81279ab 100644
--- a/lapack-netlib/TESTING/LIN/cerrtz.f
+++ b/lapack-netlib/TESTING/LIN/cerrtz.f
@@ -47,17 +47,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CERRTZ( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/LIN/cerrunhr_col.f b/lapack-netlib/TESTING/LIN/cerrunhr_col.f
index 8fd58a683..8a5a820c7 100644
--- a/lapack-netlib/TESTING/LIN/cerrunhr_col.f
+++ b/lapack-netlib/TESTING/LIN/cerrunhr_col.f
@@ -22,7 +22,7 @@
*> \verbatim
*>
*> CERRUNHR_COL tests the error exits for CUNHR_COL that does
-*> Householder reconstruction from the ouput of tall-skinny
+*> Householder reconstruction from the output of tall-skinny
*> factorization CLATSQR.
*> \endverbatim
*
@@ -49,18 +49,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2019
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CERRUNHR_COL( PATH, NUNIT )
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.9.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2019
*
* .. Scalar Arguments ..
CHARACTER(LEN=3) PATH
diff --git a/lapack-netlib/TESTING/LIN/cerrvx.f b/lapack-netlib/TESTING/LIN/cerrvx.f
index 7f929f07f..701abd161 100644
--- a/lapack-netlib/TESTING/LIN/cerrvx.f
+++ b/lapack-netlib/TESTING/LIN/cerrvx.f
@@ -48,17 +48,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CERRVX( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.8.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2017
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/LIN/cerrvxx.f b/lapack-netlib/TESTING/LIN/cerrvxx.f
index 33bad4f9f..8fdd36f7c 100644
--- a/lapack-netlib/TESTING/LIN/cerrvxx.f
+++ b/lapack-netlib/TESTING/LIN/cerrvxx.f
@@ -48,17 +48,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CERRVX( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
@@ -1267,6 +1264,6 @@
*
RETURN
*
-* End of CERRVX
+* End of CERRVXX
*
END
diff --git a/lapack-netlib/TESTING/LIN/cgbt01.f b/lapack-netlib/TESTING/LIN/cgbt01.f
index 947ca3f73..277b0b1ab 100644
--- a/lapack-netlib/TESTING/LIN/cgbt01.f
+++ b/lapack-netlib/TESTING/LIN/cgbt01.f
@@ -118,18 +118,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CGBT01( M, N, KL, KU, A, LDA, AFAC, LDAFAC, IPIV, WORK,
$ RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER KL, KU, LDA, LDAFAC, M, N
diff --git a/lapack-netlib/TESTING/LIN/cgbt02.f b/lapack-netlib/TESTING/LIN/cgbt02.f
index b478fff2d..775827da9 100644
--- a/lapack-netlib/TESTING/LIN/cgbt02.f
+++ b/lapack-netlib/TESTING/LIN/cgbt02.f
@@ -9,7 +9,7 @@
* ===========
*
* SUBROUTINE CGBT02( TRANS, M, N, KL, KU, NRHS, A, LDA, X, LDX, B,
-* LDB, RESID )
+* LDB, RWORK, RESID )
*
* .. Scalar Arguments ..
* CHARACTER TRANS
@@ -17,6 +17,7 @@
* REAL RESID
* ..
* .. Array Arguments ..
+* REAL RWORK( * )
* COMPLEX A( LDA, * ), B( LDB, * ), X( LDX, * )
* ..
*
@@ -27,9 +28,10 @@
*> \verbatim
*>
*> CGBT02 computes the residual for a solution of a banded system of
-*> equations A*x = b or A'*x = b:
-*> RESID = norm( B - A*X ) / ( norm(A) * norm(X) * EPS).
-*> where EPS is the machine precision.
+*> equations op(A)*X = B:
+*> RESID = norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ),
+*> where op(A) = A, A**T, or A**H, depending on TRANS, and EPS is the
+*> machine epsilon.
*> \endverbatim
*
* Arguments:
@@ -39,9 +41,9 @@
*> \verbatim
*> TRANS is CHARACTER*1
*> Specifies the form of the system of equations:
-*> = 'N': A *x = b
-*> = 'T': A'*x = b, where A' is the transpose of A
-*> = 'C': A'*x = b, where A' is the transpose of A
+*> = 'N': A * X = B (No transpose)
+*> = 'T': A**T * X = B (Transpose)
+*> = 'C': A**H * X = B (Conjugate transpose)
*> \endverbatim
*>
*> \param[in] M
@@ -116,11 +118,18 @@
*> LDB >= max(1,M); if TRANS = 'T' or 'C', LDB >= max(1,N).
*> \endverbatim
*>
+*> \param[out] RWORK
+*> \verbatim
+*> RWORK is REAL array, dimension (MAX(1,LRWORK)),
+*> where LRWORK >= M when TRANS = 'T' or 'C'; otherwise, RWORK
+*> is not referenced.
+*> \endverbatim
+*
*> \param[out] RESID
*> \verbatim
*> RESID is REAL
*> The maximum over the number of right hand sides of
-*> norm(B - A*X) / ( norm(A) * norm(X) * EPS ).
+*> norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ).
*> \endverbatim
*
* Authors:
@@ -131,18 +140,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CGBT02( TRANS, M, N, KL, KU, NRHS, A, LDA, X, LDX, B,
- $ LDB, RESID )
+ $ LDB, RWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER TRANS
@@ -150,6 +156,7 @@
REAL RESID
* ..
* .. Array Arguments ..
+ REAL RWORK( * )
COMPLEX A( LDA, * ), B( LDB, * ), X( LDX, * )
* ..
*
@@ -163,18 +170,25 @@
* ..
* .. Local Scalars ..
INTEGER I1, I2, J, KD, N1
- REAL ANORM, BNORM, EPS, XNORM
+ REAL ANORM, BNORM, EPS, TEMP, XNORM
+ COMPLEX CDUM
* ..
* .. External Functions ..
- LOGICAL LSAME
+ LOGICAL LSAME, SISNAN
REAL SCASUM, SLAMCH
- EXTERNAL LSAME, SCASUM, SLAMCH
+ EXTERNAL LSAME, SCASUM, SISNAN, SLAMCH
* ..
* .. External Subroutines ..
EXTERNAL CGBMV
* ..
+* .. Statement Functions ..
+ REAL CABS1
+* ..
* .. Intrinsic Functions ..
- INTRINSIC MAX, MIN
+ INTRINSIC ABS, AIMAG, MAX, MIN, REAL
+* ..
+* .. Statement Function definitions ..
+ CABS1( CDUM ) = ABS( REAL( CDUM ) ) + ABS( AIMAG( CDUM ) )
* ..
* .. Executable Statements ..
*
@@ -188,13 +202,38 @@
* Exit with RESID = 1/EPS if ANORM = 0.
*
EPS = SLAMCH( 'Epsilon' )
- KD = KU + 1
ANORM = ZERO
+ IF( LSAME( TRANS, 'N' ) ) THEN
+*
+* Find norm1(A).
+*
+ KD = KU + 1
DO 10 J = 1, N
I1 = MAX( KD+1-J, 1 )
I2 = MIN( KD+M-J, KL+KD )
- ANORM = MAX( ANORM, SCASUM( I2-I1+1, A( I1, J ), 1 ) )
+ IF( I2.GE.I1 ) THEN
+ TEMP = SCASUM( I2-I1+1, A( I1, J ), 1 )
+ IF( ANORM.LT.TEMP .OR. SISNAN( TEMP ) ) ANORM = TEMP
+ END IF
10 CONTINUE
+ ELSE
+*
+* Find normI(A).
+*
+ DO 12 I1 = 1, M
+ RWORK( I1 ) = ZERO
+ 12 CONTINUE
+ DO 16 J = 1, N
+ KD = KU + 1 - J
+ DO 14 I1 = MAX( 1, J-KU ), MIN( M, J+KL )
+ RWORK( I1 ) = RWORK( I1 ) + CABS1( A( KD+I1, J ) )
+ 14 CONTINUE
+ 16 CONTINUE
+ DO 18 I1 = 1, M
+ TEMP = RWORK( I1 )
+ IF( ANORM.LT.TEMP .OR. SISNAN( TEMP ) ) ANORM = TEMP
+ 18 CONTINUE
+ END IF
IF( ANORM.LE.ZERO ) THEN
RESID = ONE / EPS
RETURN
@@ -206,7 +245,7 @@
N1 = M
END IF
*
-* Compute B - A*X (or B - A'*X )
+* Compute B - op(A)*X
*
DO 20 J = 1, NRHS
CALL CGBMV( TRANS, M, N, KL, KU, -CONE, A, LDA, X( 1, J ), 1,
@@ -214,7 +253,7 @@
20 CONTINUE
*
* Compute the maximum over the number of right hand sides of
-* norm(B - A*X) / ( norm(A) * norm(X) * EPS ).
+* norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ).
*
RESID = ZERO
DO 30 J = 1, NRHS
diff --git a/lapack-netlib/TESTING/LIN/cgbt05.f b/lapack-netlib/TESTING/LIN/cgbt05.f
index a6cfe3a09..a2748594d 100644
--- a/lapack-netlib/TESTING/LIN/cgbt05.f
+++ b/lapack-netlib/TESTING/LIN/cgbt05.f
@@ -30,7 +30,7 @@
*> CGBT05 tests the error bounds from iterative refinement for the
*> computed solution to a system of equations op(A)*X = B, where A is a
*> general band matrix of order n with kl subdiagonals and ku
-*> superdiagonals and op(A) = A or A**T, depending on TRANS.
+*> superdiagonals and op(A) = A, A**T, or A**H, depending on TRANS.
*>
*> RESLTS(1) = test of the error bound
*> = norm(X - XACT) / ( norm(X) * FERR )
@@ -168,18 +168,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CGBT05( TRANS, N, KL, KU, NRHS, AB, LDAB, B, LDB, X,
$ LDX, XACT, LDXACT, FERR, BERR, RESLTS )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER TRANS
diff --git a/lapack-netlib/TESTING/LIN/cgelqs.f b/lapack-netlib/TESTING/LIN/cgelqs.f
index ee08c9b62..47e17a583 100644
--- a/lapack-netlib/TESTING/LIN/cgelqs.f
+++ b/lapack-netlib/TESTING/LIN/cgelqs.f
@@ -113,18 +113,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CGELQS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK,
$ INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS
diff --git a/lapack-netlib/TESTING/LIN/cgennd.f b/lapack-netlib/TESTING/LIN/cgennd.f
index 5b8fefa7d..9667d2473 100644
--- a/lapack-netlib/TESTING/LIN/cgennd.f
+++ b/lapack-netlib/TESTING/LIN/cgennd.f
@@ -61,17 +61,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
LOGICAL FUNCTION CGENND (M, N, A, LDA)
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER M, N, LDA
diff --git a/lapack-netlib/TESTING/LIN/cgeqls.f b/lapack-netlib/TESTING/LIN/cgeqls.f
index b1d36107c..75351220d 100644
--- a/lapack-netlib/TESTING/LIN/cgeqls.f
+++ b/lapack-netlib/TESTING/LIN/cgeqls.f
@@ -114,18 +114,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CGEQLS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK,
$ INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS
diff --git a/lapack-netlib/TESTING/LIN/cgeqrs.f b/lapack-netlib/TESTING/LIN/cgeqrs.f
index 76982924c..13ac7f74f 100644
--- a/lapack-netlib/TESTING/LIN/cgeqrs.f
+++ b/lapack-netlib/TESTING/LIN/cgeqrs.f
@@ -113,18 +113,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CGEQRS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK,
$ INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS
diff --git a/lapack-netlib/TESTING/LIN/cgerqs.f b/lapack-netlib/TESTING/LIN/cgerqs.f
index 5603ed478..32cc5a89a 100644
--- a/lapack-netlib/TESTING/LIN/cgerqs.f
+++ b/lapack-netlib/TESTING/LIN/cgerqs.f
@@ -114,18 +114,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CGERQS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK,
$ INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS
diff --git a/lapack-netlib/TESTING/LIN/cget01.f b/lapack-netlib/TESTING/LIN/cget01.f
index ef84e3fad..8020512c4 100644
--- a/lapack-netlib/TESTING/LIN/cget01.f
+++ b/lapack-netlib/TESTING/LIN/cget01.f
@@ -100,18 +100,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CGET01( M, N, A, LDA, AFAC, LDAFAC, IPIV, RWORK,
$ RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LDAFAC, M, N
diff --git a/lapack-netlib/TESTING/LIN/cget02.f b/lapack-netlib/TESTING/LIN/cget02.f
index 8fe416458..8be6fe072 100644
--- a/lapack-netlib/TESTING/LIN/cget02.f
+++ b/lapack-netlib/TESTING/LIN/cget02.f
@@ -28,9 +28,10 @@
*> \verbatim
*>
*> CGET02 computes the residual for a solution of a system of linear
-*> equations A*x = b or A'*x = b:
-*> RESID = norm(B - A*X) / ( norm(A) * norm(X) * EPS ),
-*> where EPS is the machine epsilon.
+*> equations op(A)*X = B:
+*> RESID = norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ),
+*> where op(A) = A, A**T, or A**H, depending on TRANS, and EPS is the
+*> machine epsilon.
*> \endverbatim
*
* Arguments:
@@ -40,9 +41,9 @@
*> \verbatim
*> TRANS is CHARACTER*1
*> Specifies the form of the system of equations:
-*> = 'N': A *x = b
-*> = 'T': A^T*x = b, where A^T is the transpose of A
-*> = 'C': A^H*x = b, where A^H is the conjugate transpose of A
+*> = 'N': A * X = B (No transpose)
+*> = 'T': A**T * X = B (Transpose)
+*> = 'C': A**H * X = B (Conjugate transpose)
*> \endverbatim
*>
*> \param[in] M
@@ -95,7 +96,7 @@
*> B is COMPLEX array, dimension (LDB,NRHS)
*> On entry, the right hand side vectors for the system of
*> linear equations.
-*> On exit, B is overwritten with the difference B - A*X.
+*> On exit, B is overwritten with the difference B - op(A)*X.
*> \endverbatim
*>
*> \param[in] LDB
@@ -114,7 +115,7 @@
*> \verbatim
*> RESID is REAL
*> The maximum over the number of right hand sides of
-*> norm(B - A*X) / ( norm(A) * norm(X) * EPS ).
+*> norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ).
*> \endverbatim
*
* Authors:
@@ -125,18 +126,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB,
$ RWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER TRANS
@@ -191,19 +189,23 @@
* Exit with RESID = 1/EPS if ANORM = 0.
*
EPS = SLAMCH( 'Epsilon' )
+ IF( LSAME( TRANS, 'N' ) ) THEN
ANORM = CLANGE( '1', M, N, A, LDA, RWORK )
+ ELSE
+ ANORM = CLANGE( 'I', M, N, A, LDA, RWORK )
+ END IF
IF( ANORM.LE.ZERO ) THEN
RESID = ONE / EPS
RETURN
END IF
*
-* Compute B - A*X (or B - A'*X ) and store in B.
+* Compute B - op(A)*X and store in B.
*
CALL CGEMM( TRANS, 'No transpose', N1, NRHS, N2, -CONE, A, LDA, X,
$ LDX, CONE, B, LDB )
*
* Compute the maximum over the number of right hand sides of
-* norm(B - A*X) / ( norm(A) * norm(X) * EPS ) .
+* norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ) .
*
RESID = ZERO
DO 10 J = 1, NRHS
diff --git a/lapack-netlib/TESTING/LIN/cget03.f b/lapack-netlib/TESTING/LIN/cget03.f
index d08c51250..b55435a23 100644
--- a/lapack-netlib/TESTING/LIN/cget03.f
+++ b/lapack-netlib/TESTING/LIN/cget03.f
@@ -102,18 +102,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CGET03( N, A, LDA, AINV, LDAINV, WORK, LDWORK, RWORK,
$ RCOND, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LDAINV, LDWORK, N
diff --git a/lapack-netlib/TESTING/LIN/cget04.f b/lapack-netlib/TESTING/LIN/cget04.f
index a4c8c25af..9aba9910f 100644
--- a/lapack-netlib/TESTING/LIN/cget04.f
+++ b/lapack-netlib/TESTING/LIN/cget04.f
@@ -95,17 +95,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CGET04( N, NRHS, X, LDX, XACT, LDXACT, RCOND, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDX, LDXACT, N, NRHS
diff --git a/lapack-netlib/TESTING/LIN/cget07.f b/lapack-netlib/TESTING/LIN/cget07.f
index f64f6dd8c..5e51dca5a 100644
--- a/lapack-netlib/TESTING/LIN/cget07.f
+++ b/lapack-netlib/TESTING/LIN/cget07.f
@@ -158,18 +158,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CGET07( TRANS, N, NRHS, A, LDA, B, LDB, X, LDX, XACT,
$ LDXACT, FERR, CHKFERR, BERR, RESLTS )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER TRANS
diff --git a/lapack-netlib/TESTING/LIN/cgtt01.f b/lapack-netlib/TESTING/LIN/cgtt01.f
index 425c8c805..e504515c5 100644
--- a/lapack-netlib/TESTING/LIN/cgtt01.f
+++ b/lapack-netlib/TESTING/LIN/cgtt01.f
@@ -126,18 +126,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CGTT01( N, DL, D, DU, DLF, DF, DUF, DU2, IPIV, WORK,
$ LDWORK, RWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDWORK, N
diff --git a/lapack-netlib/TESTING/LIN/cgtt02.f b/lapack-netlib/TESTING/LIN/cgtt02.f
index 658cca323..702e66eed 100644
--- a/lapack-netlib/TESTING/LIN/cgtt02.f
+++ b/lapack-netlib/TESTING/LIN/cgtt02.f
@@ -29,7 +29,7 @@
*>
*> CGTT02 computes the residual for the solution to a tridiagonal
*> system of equations:
-*> RESID = norm(B - op(A)*X) / (norm(A) * norm(X) * EPS),
+*> RESID = norm(B - op(A)*X) / (norm(op(A)) * norm(X) * EPS),
*> where EPS is the machine epsilon.
*> \endverbatim
*
@@ -105,7 +105,7 @@
*> \param[out] RESID
*> \verbatim
*> RESID is REAL
-*> norm(B - op(A)*X) / (norm(A) * norm(X) * EPS)
+*> norm(B - op(A)*X) / (norm(op(A)) * norm(X) * EPS)
*> \endverbatim
*
* Authors:
@@ -116,18 +116,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CGTT02( TRANS, N, NRHS, DL, D, DU, X, LDX, B, LDB,
$ RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER TRANS
@@ -169,7 +166,7 @@
$ RETURN
*
* Compute the maximum over the number of right hand sides of
-* norm(B - op(A)*X) / ( norm(A) * norm(X) * EPS ).
+* norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ).
*
IF( LSAME( TRANS, 'N' ) ) THEN
ANORM = CLANGT( '1', N, DL, D, DU )
@@ -185,7 +182,7 @@
RETURN
END IF
*
-* Compute B - op(A)*X.
+* Compute B - op(A)*X and store in B.
*
CALL CLAGTM( TRANS, N, NRHS, -ONE, DL, D, DU, X, LDX, ONE, B,
$ LDB )
diff --git a/lapack-netlib/TESTING/LIN/cgtt05.f b/lapack-netlib/TESTING/LIN/cgtt05.f
index 9e6722e96..2467cf7c4 100644
--- a/lapack-netlib/TESTING/LIN/cgtt05.f
+++ b/lapack-netlib/TESTING/LIN/cgtt05.f
@@ -157,18 +157,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CGTT05( TRANS, N, NRHS, DL, D, DU, B, LDB, X, LDX,
$ XACT, LDXACT, FERR, BERR, RESLTS )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER TRANS
diff --git a/lapack-netlib/TESTING/LIN/chet01.f b/lapack-netlib/TESTING/LIN/chet01.f
index fe08a49fd..4fc12ed65 100644
--- a/lapack-netlib/TESTING/LIN/chet01.f
+++ b/lapack-netlib/TESTING/LIN/chet01.f
@@ -118,18 +118,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2013
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CHET01( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, LDC,
$ RWORK, RESID )
*
-* -- LAPACK test routine (version 3.5.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2013
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/chet01_3.f b/lapack-netlib/TESTING/LIN/chet01_3.f
index a1b63ae71..58104a357 100644
--- a/lapack-netlib/TESTING/LIN/chet01_3.f
+++ b/lapack-netlib/TESTING/LIN/chet01_3.f
@@ -133,18 +133,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CHET01_3( UPLO, N, A, LDA, AFAC, LDAFAC, E, IPIV, C,
$ LDC, RWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.1) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2017
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/chet01_aa.f b/lapack-netlib/TESTING/LIN/chet01_aa.f
index 3301a317c..8f4ab84e7 100644
--- a/lapack-netlib/TESTING/LIN/chet01_aa.f
+++ b/lapack-netlib/TESTING/LIN/chet01_aa.f
@@ -116,19 +116,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CHET01_AA( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C,
$ LDC, RWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/chet01_rook.f b/lapack-netlib/TESTING/LIN/chet01_rook.f
index 1dddc7dd3..30aa976a0 100644
--- a/lapack-netlib/TESTING/LIN/chet01_rook.f
+++ b/lapack-netlib/TESTING/LIN/chet01_rook.f
@@ -117,18 +117,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2013
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CHET01_ROOK( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C,
$ LDC, RWORK, RESID )
*
-* -- LAPACK test routine (version 3.5.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2013
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/chkxer.f b/lapack-netlib/TESTING/LIN/chkxer.f
index cca9ddb31..d2b2c636a 100644
--- a/lapack-netlib/TESTING/LIN/chkxer.f
+++ b/lapack-netlib/TESTING/LIN/chkxer.f
@@ -34,17 +34,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
*
-* -- LAPACK test routine (version 3.7.1) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2017
*
* .. Scalar Arguments ..
LOGICAL LERR, OK
@@ -66,6 +63,6 @@
9999 FORMAT( ' *** Illegal value of parameter number ', I2,
$ ' not detected by ', A6, ' ***' )
*
-* End of CHKXER.
+* End of CHKXER
*
END
diff --git a/lapack-netlib/TESTING/LIN/chpt01.f b/lapack-netlib/TESTING/LIN/chpt01.f
index ecb0bebcd..9ed6b7f44 100644
--- a/lapack-netlib/TESTING/LIN/chpt01.f
+++ b/lapack-netlib/TESTING/LIN/chpt01.f
@@ -106,17 +106,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CHPT01( UPLO, N, A, AFAC, IPIV, C, LDC, RWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/clahilb.f b/lapack-netlib/TESTING/LIN/clahilb.f
index c54884b9f..ba05c5740 100644
--- a/lapack-netlib/TESTING/LIN/clahilb.f
+++ b/lapack-netlib/TESTING/LIN/clahilb.f
@@ -126,18 +126,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK,
$ INFO, PATH)
*
-* -- LAPACK test routine (version 3.7.1) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2017
*
* .. Scalar Arguments ..
INTEGER N, NRHS, LDA, LDX, LDB, INFO
diff --git a/lapack-netlib/TESTING/LIN/claipd.f b/lapack-netlib/TESTING/LIN/claipd.f
index acc0c5b94..958639c0e 100644
--- a/lapack-netlib/TESTING/LIN/claipd.f
+++ b/lapack-netlib/TESTING/LIN/claipd.f
@@ -76,17 +76,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CLAIPD( N, A, INDA, VINDA )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INDA, N, VINDA
diff --git a/lapack-netlib/TESTING/LIN/claptm.f b/lapack-netlib/TESTING/LIN/claptm.f
index 74eb32853..52febe033 100644
--- a/lapack-netlib/TESTING/LIN/claptm.f
+++ b/lapack-netlib/TESTING/LIN/claptm.f
@@ -121,18 +121,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CLAPTM( UPLO, N, NRHS, ALPHA, D, E, X, LDX, BETA, B,
$ LDB )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/clarhs.f b/lapack-netlib/TESTING/LIN/clarhs.f
index 8b2b31bf8..f0dd2ad91 100644
--- a/lapack-netlib/TESTING/LIN/clarhs.f
+++ b/lapack-netlib/TESTING/LIN/clarhs.f
@@ -30,8 +30,7 @@
*> CLARHS chooses a set of NRHS random solution vectors and sets
*> up the right hand sides for the linear system
*> op( A ) * X = B,
-*> where op( A ) may be A, A**T (transpose of A), or A**H (conjugate
-*> transpose of A).
+*> where op(A) = A, A**T, or A**H, depending on TRANS.
*> \endverbatim
*
* Arguments:
@@ -85,9 +84,9 @@
*> TRANS is CHARACTER*1
*> Used only if A is nonsymmetric; specifies the operation
*> applied to the matrix A.
-*> = 'N': B := A * X
-*> = 'T': B := A**T * X
-*> = 'C': B := A**H * X
+*> = 'N': B := A * X (No transpose)
+*> = 'T': B := A**T * X (Transpose)
+*> = 'C': B := A**H * X (Conjugate transpose)
*> \endverbatim
*>
*> \param[in] M
@@ -201,18 +200,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS,
$ A, LDA, X, LDX, B, LDB, ISEED, INFO )
*
-* -- LAPACK test routine (version 3.7.1) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2017
*
* .. Scalar Arguments ..
CHARACTER TRANS, UPLO, XTYPE
diff --git a/lapack-netlib/TESTING/LIN/clatb4.f b/lapack-netlib/TESTING/LIN/clatb4.f
index a87491db9..eeb0f03a9 100644
--- a/lapack-netlib/TESTING/LIN/clatb4.f
+++ b/lapack-netlib/TESTING/LIN/clatb4.f
@@ -113,18 +113,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CLATB4( PATH, IMAT, M, N, TYPE, KL, KU, ANORM, MODE,
$ CNDNUM, DIST )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIST, TYPE
diff --git a/lapack-netlib/TESTING/LIN/clatb5.f b/lapack-netlib/TESTING/LIN/clatb5.f
index f6a0b5ace..16f27656e 100644
--- a/lapack-netlib/TESTING/LIN/clatb5.f
+++ b/lapack-netlib/TESTING/LIN/clatb5.f
@@ -106,18 +106,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CLATB5( PATH, IMAT, N, TYPE, KL, KU, ANORM, MODE,
$ CNDNUM, DIST )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
REAL ANORM, CNDNUM
@@ -229,6 +226,6 @@
*
RETURN
*
-* End of SLATB5
+* End of CLATB5
*
END
diff --git a/lapack-netlib/TESTING/LIN/clatsp.f b/lapack-netlib/TESTING/LIN/clatsp.f
index 8d6df94df..79bc010ec 100644
--- a/lapack-netlib/TESTING/LIN/clatsp.f
+++ b/lapack-netlib/TESTING/LIN/clatsp.f
@@ -77,17 +77,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CLATSP( UPLO, N, X, ISEED )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/clatsy.f b/lapack-netlib/TESTING/LIN/clatsy.f
index 4a4260b05..111c64998 100644
--- a/lapack-netlib/TESTING/LIN/clatsy.f
+++ b/lapack-netlib/TESTING/LIN/clatsy.f
@@ -82,17 +82,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CLATSY( UPLO, N, X, LDX, ISEED )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/clattb.f b/lapack-netlib/TESTING/LIN/clattb.f
index 4127f8189..c5a21f51f 100644
--- a/lapack-netlib/TESTING/LIN/clattb.f
+++ b/lapack-netlib/TESTING/LIN/clattb.f
@@ -133,18 +133,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CLATTB( IMAT, UPLO, TRANS, DIAG, ISEED, N, KD, AB,
$ LDAB, B, WORK, RWORK, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
diff --git a/lapack-netlib/TESTING/LIN/clattp.f b/lapack-netlib/TESTING/LIN/clattp.f
index e118520dc..82f0585df 100644
--- a/lapack-netlib/TESTING/LIN/clattp.f
+++ b/lapack-netlib/TESTING/LIN/clattp.f
@@ -123,18 +123,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CLATTP( IMAT, UPLO, TRANS, DIAG, ISEED, N, AP, B, WORK,
$ RWORK, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
diff --git a/lapack-netlib/TESTING/LIN/clattr.f b/lapack-netlib/TESTING/LIN/clattr.f
index d959692f8..c26e2f902 100644
--- a/lapack-netlib/TESTING/LIN/clattr.f
+++ b/lapack-netlib/TESTING/LIN/clattr.f
@@ -130,18 +130,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CLATTR( IMAT, UPLO, TRANS, DIAG, ISEED, N, A, LDA, B,
$ WORK, RWORK, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
diff --git a/lapack-netlib/TESTING/LIN/clavhe.f b/lapack-netlib/TESTING/LIN/clavhe.f
index 0a5016778..838c32121 100644
--- a/lapack-netlib/TESTING/LIN/clavhe.f
+++ b/lapack-netlib/TESTING/LIN/clavhe.f
@@ -145,18 +145,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2013
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CLAVHE( UPLO, TRANS, DIAG, N, NRHS, A, LDA, IPIV, B,
$ LDB, INFO )
*
-* -- LAPACK test routine (version 3.5.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2013
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
diff --git a/lapack-netlib/TESTING/LIN/clavhe_rook.f b/lapack-netlib/TESTING/LIN/clavhe_rook.f
index 6fca41618..9d14637ac 100644
--- a/lapack-netlib/TESTING/LIN/clavhe_rook.f
+++ b/lapack-netlib/TESTING/LIN/clavhe_rook.f
@@ -148,18 +148,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2013
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CLAVHE_ROOK( UPLO, TRANS, DIAG, N, NRHS, A, LDA, IPIV,
$ B, LDB, INFO )
*
-* -- LAPACK test routine (version 3.5.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2013
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
diff --git a/lapack-netlib/TESTING/LIN/clavhp.f b/lapack-netlib/TESTING/LIN/clavhp.f
index 1d0176cbc..5715e87f0 100644
--- a/lapack-netlib/TESTING/LIN/clavhp.f
+++ b/lapack-netlib/TESTING/LIN/clavhp.f
@@ -123,18 +123,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CLAVHP( UPLO, TRANS, DIAG, N, NRHS, A, IPIV, B, LDB,
$ INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
diff --git a/lapack-netlib/TESTING/LIN/clavsp.f b/lapack-netlib/TESTING/LIN/clavsp.f
index 311f0b4e1..f23c4d9e5 100644
--- a/lapack-netlib/TESTING/LIN/clavsp.f
+++ b/lapack-netlib/TESTING/LIN/clavsp.f
@@ -123,18 +123,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CLAVSP( UPLO, TRANS, DIAG, N, NRHS, A, IPIV, B, LDB,
$ INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
diff --git a/lapack-netlib/TESTING/LIN/clavsy.f b/lapack-netlib/TESTING/LIN/clavsy.f
index c4d885cc0..f78fef795 100644
--- a/lapack-netlib/TESTING/LIN/clavsy.f
+++ b/lapack-netlib/TESTING/LIN/clavsy.f
@@ -145,18 +145,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2013
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CLAVSY( UPLO, TRANS, DIAG, N, NRHS, A, LDA, IPIV, B,
$ LDB, INFO )
*
-* -- LAPACK test routine (version 3.5.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2013
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
diff --git a/lapack-netlib/TESTING/LIN/clavsy_rook.f b/lapack-netlib/TESTING/LIN/clavsy_rook.f
index 73f6e9acc..604e2de65 100644
--- a/lapack-netlib/TESTING/LIN/clavsy_rook.f
+++ b/lapack-netlib/TESTING/LIN/clavsy_rook.f
@@ -147,18 +147,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2013
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CLAVSY_ROOK( UPLO, TRANS, DIAG, N, NRHS, A, LDA, IPIV,
$ B, LDB, INFO )
*
-* -- LAPACK test routine (version 3.5.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2013
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
diff --git a/lapack-netlib/TESTING/LIN/clqt01.f b/lapack-netlib/TESTING/LIN/clqt01.f
index a62de24a8..b302d3541 100644
--- a/lapack-netlib/TESTING/LIN/clqt01.f
+++ b/lapack-netlib/TESTING/LIN/clqt01.f
@@ -118,18 +118,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CLQT01( M, N, A, AF, Q, L, LDA, TAU, WORK, LWORK,
$ RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/clqt02.f b/lapack-netlib/TESTING/LIN/clqt02.f
index 9b0c86eec..24eb05399 100644
--- a/lapack-netlib/TESTING/LIN/clqt02.f
+++ b/lapack-netlib/TESTING/LIN/clqt02.f
@@ -127,18 +127,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CLQT02( M, N, K, A, AF, Q, L, LDA, TAU, WORK, LWORK,
$ RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER K, LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/clqt03.f b/lapack-netlib/TESTING/LIN/clqt03.f
index 22c299a08..56706ab30 100644
--- a/lapack-netlib/TESTING/LIN/clqt03.f
+++ b/lapack-netlib/TESTING/LIN/clqt03.f
@@ -128,18 +128,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CLQT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK,
$ RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER K, LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/clqt04.f b/lapack-netlib/TESTING/LIN/clqt04.f
index 7581fe5fa..97bae6768 100644
--- a/lapack-netlib/TESTING/LIN/clqt04.f
+++ b/lapack-netlib/TESTING/LIN/clqt04.f
@@ -66,18 +66,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE CLQT04(M,N,NB,RESULT)
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* April 2012
*
* .. Scalar Arguments ..
INTEGER M, N, NB
diff --git a/lapack-netlib/TESTING/LIN/clqt05.f b/lapack-netlib/TESTING/LIN/clqt05.f
index e6595a782..47e335869 100644
--- a/lapack-netlib/TESTING/LIN/clqt05.f
+++ b/lapack-netlib/TESTING/LIN/clqt05.f
@@ -73,18 +73,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE CLQT05(M,N,L,NB,RESULT)
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* April 2012
*
* .. Scalar Arguments ..
INTEGER LWORK, M, N, L, NB, LDT
diff --git a/lapack-netlib/TESTING/LIN/cpbt01.f b/lapack-netlib/TESTING/LIN/cpbt01.f
index 6b0e140e7..33c80666d 100644
--- a/lapack-netlib/TESTING/LIN/cpbt01.f
+++ b/lapack-netlib/TESTING/LIN/cpbt01.f
@@ -112,18 +112,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CPBT01( UPLO, N, KD, A, LDA, AFAC, LDAFAC, RWORK,
$ RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/cpbt02.f b/lapack-netlib/TESTING/LIN/cpbt02.f
index 35d22eecd..d84f38e82 100644
--- a/lapack-netlib/TESTING/LIN/cpbt02.f
+++ b/lapack-netlib/TESTING/LIN/cpbt02.f
@@ -128,18 +128,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CPBT02( UPLO, N, KD, NRHS, A, LDA, X, LDX, B, LDB,
$ RWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/cpbt05.f b/lapack-netlib/TESTING/LIN/cpbt05.f
index afe67695a..6e1a7b119 100644
--- a/lapack-netlib/TESTING/LIN/cpbt05.f
+++ b/lapack-netlib/TESTING/LIN/cpbt05.f
@@ -163,18 +163,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CPBT05( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, X, LDX,
$ XACT, LDXACT, FERR, BERR, RESLTS )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/cpot01.f b/lapack-netlib/TESTING/LIN/cpot01.f
index 4de30b46b..00e195dd6 100644
--- a/lapack-netlib/TESTING/LIN/cpot01.f
+++ b/lapack-netlib/TESTING/LIN/cpot01.f
@@ -67,10 +67,10 @@
*> \param[in,out] AFAC
*> \verbatim
*> AFAC is COMPLEX array, dimension (LDAFAC,N)
-*> On entry, the factor L or U from the L*L' or U'*U
+*> On entry, the factor L or U from the L * L**H or U**H * U
*> factorization of A.
-*> Overwritten with the reconstructed matrix, and then with the
-*> difference L*L' - A (or U'*U - A).
+*> Overwritten with the reconstructed matrix, and then with
+*> the difference L * L**H - A (or U**H * U - A).
*> \endverbatim
*>
*> \param[in] LDAFAC
@@ -87,8 +87,8 @@
*> \param[out] RESID
*> \verbatim
*> RESID is REAL
-*> If UPLO = 'L', norm(L*L' - A) / ( N * norm(A) * EPS )
-*> If UPLO = 'U', norm(U'*U - A) / ( N * norm(A) * EPS )
+*> If UPLO = 'L', norm(L * L**H - A) / ( N * norm(A) * EPS )
+*> If UPLO = 'U', norm(U**H * U - A) / ( N * norm(A) * EPS )
*> \endverbatim
*
* Authors:
@@ -99,17 +99,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CPOT01( UPLO, N, A, LDA, AFAC, LDAFAC, RWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
@@ -172,7 +169,7 @@
END IF
10 CONTINUE
*
-* Compute the product U'*U, overwriting U.
+* Compute the product U**H * U, overwriting U.
*
IF( LSAME( UPLO, 'U' ) ) THEN
DO 20 K = N, 1, -1
@@ -189,7 +186,7 @@
*
20 CONTINUE
*
-* Compute the product L*L', overwriting L.
+* Compute the product L * L**H, overwriting L.
*
ELSE
DO 30 K = N, 1, -1
@@ -209,7 +206,7 @@
30 CONTINUE
END IF
*
-* Compute the difference L*L' - A (or U'*U - A).
+* Compute the difference L * L**H - A (or U**H * U - A).
*
IF( LSAME( UPLO, 'U' ) ) THEN
DO 50 J = 1, N
diff --git a/lapack-netlib/TESTING/LIN/cpot02.f b/lapack-netlib/TESTING/LIN/cpot02.f
index 3c9657650..9578e4b0d 100644
--- a/lapack-netlib/TESTING/LIN/cpot02.f
+++ b/lapack-netlib/TESTING/LIN/cpot02.f
@@ -119,18 +119,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CPOT02( UPLO, N, NRHS, A, LDA, X, LDX, B, LDB, RWORK,
$ RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/cpot03.f b/lapack-netlib/TESTING/LIN/cpot03.f
index 9faee7466..1f6fc9bc4 100644
--- a/lapack-netlib/TESTING/LIN/cpot03.f
+++ b/lapack-netlib/TESTING/LIN/cpot03.f
@@ -118,18 +118,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CPOT03( UPLO, N, A, LDA, AINV, LDAINV, WORK, LDWORK,
$ RWORK, RCOND, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/cpot05.f b/lapack-netlib/TESTING/LIN/cpot05.f
index 438d73c3b..436a15dfe 100644
--- a/lapack-netlib/TESTING/LIN/cpot05.f
+++ b/lapack-netlib/TESTING/LIN/cpot05.f
@@ -157,18 +157,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CPOT05( UPLO, N, NRHS, A, LDA, B, LDB, X, LDX, XACT,
$ LDXACT, FERR, BERR, RESLTS )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/cppt01.f b/lapack-netlib/TESTING/LIN/cppt01.f
index c75c085dd..3a761a4c7 100644
--- a/lapack-netlib/TESTING/LIN/cppt01.f
+++ b/lapack-netlib/TESTING/LIN/cppt01.f
@@ -88,17 +88,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CPPT01( UPLO, N, A, AFAC, RWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/cppt02.f b/lapack-netlib/TESTING/LIN/cppt02.f
index 29336a676..ac5a8dbca 100644
--- a/lapack-netlib/TESTING/LIN/cppt02.f
+++ b/lapack-netlib/TESTING/LIN/cppt02.f
@@ -115,18 +115,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CPPT02( UPLO, N, NRHS, A, X, LDX, B, LDB, RWORK,
$ RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/cppt03.f b/lapack-netlib/TESTING/LIN/cppt03.f
index 175ced173..3383d2437 100644
--- a/lapack-netlib/TESTING/LIN/cppt03.f
+++ b/lapack-netlib/TESTING/LIN/cppt03.f
@@ -102,18 +102,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CPPT03( UPLO, N, A, AINV, WORK, LDWORK, RWORK, RCOND,
$ RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/cppt05.f b/lapack-netlib/TESTING/LIN/cppt05.f
index 1e279bf35..685e823e5 100644
--- a/lapack-netlib/TESTING/LIN/cppt05.f
+++ b/lapack-netlib/TESTING/LIN/cppt05.f
@@ -149,18 +149,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CPPT05( UPLO, N, NRHS, AP, B, LDB, X, LDX, XACT,
$ LDXACT, FERR, BERR, RESLTS )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/cpst01.f b/lapack-netlib/TESTING/LIN/cpst01.f
index d446c0123..26da4b394 100644
--- a/lapack-netlib/TESTING/LIN/cpst01.f
+++ b/lapack-netlib/TESTING/LIN/cpst01.f
@@ -128,18 +128,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CPST01( UPLO, N, A, LDA, AFAC, LDAFAC, PERM, LDPERM,
$ PIV, RWORK, RESID, RANK )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
REAL RESID
diff --git a/lapack-netlib/TESTING/LIN/cptt01.f b/lapack-netlib/TESTING/LIN/cptt01.f
index b3a242b28..e4520ec3d 100644
--- a/lapack-netlib/TESTING/LIN/cptt01.f
+++ b/lapack-netlib/TESTING/LIN/cptt01.f
@@ -85,17 +85,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CPTT01( N, D, E, DF, EF, WORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER N
diff --git a/lapack-netlib/TESTING/LIN/cptt02.f b/lapack-netlib/TESTING/LIN/cptt02.f
index c86ab097f..da4f0e854 100644
--- a/lapack-netlib/TESTING/LIN/cptt02.f
+++ b/lapack-netlib/TESTING/LIN/cptt02.f
@@ -108,17 +108,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CPTT02( UPLO, N, NRHS, D, E, X, LDX, B, LDB, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/cptt05.f b/lapack-netlib/TESTING/LIN/cptt05.f
index 88ae655bf..9762c6841 100644
--- a/lapack-netlib/TESTING/LIN/cptt05.f
+++ b/lapack-netlib/TESTING/LIN/cptt05.f
@@ -142,18 +142,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CPTT05( N, NRHS, D, E, B, LDB, X, LDX, XACT, LDXACT,
$ FERR, BERR, RESLTS )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDB, LDX, LDXACT, N, NRHS
diff --git a/lapack-netlib/TESTING/LIN/cqlt01.f b/lapack-netlib/TESTING/LIN/cqlt01.f
index 884f9c200..2a8fe6b78 100644
--- a/lapack-netlib/TESTING/LIN/cqlt01.f
+++ b/lapack-netlib/TESTING/LIN/cqlt01.f
@@ -118,18 +118,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CQLT01( M, N, A, AF, Q, L, LDA, TAU, WORK, LWORK,
$ RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/cqlt02.f b/lapack-netlib/TESTING/LIN/cqlt02.f
index 42af6b9e1..fc4685aa5 100644
--- a/lapack-netlib/TESTING/LIN/cqlt02.f
+++ b/lapack-netlib/TESTING/LIN/cqlt02.f
@@ -128,18 +128,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CQLT02( M, N, K, A, AF, Q, L, LDA, TAU, WORK, LWORK,
$ RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER K, LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/cqlt03.f b/lapack-netlib/TESTING/LIN/cqlt03.f
index ef1ff2cec..fb1bea003 100644
--- a/lapack-netlib/TESTING/LIN/cqlt03.f
+++ b/lapack-netlib/TESTING/LIN/cqlt03.f
@@ -128,18 +128,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CQLT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK,
$ RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER K, LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/cqpt01.f b/lapack-netlib/TESTING/LIN/cqpt01.f
index aa9ff4d91..79fc2dc66 100644
--- a/lapack-netlib/TESTING/LIN/cqpt01.f
+++ b/lapack-netlib/TESTING/LIN/cqpt01.f
@@ -112,18 +112,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
REAL FUNCTION CQPT01( M, N, K, A, AF, LDA, TAU, JPVT,
$ WORK, LWORK )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER K, LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/cqrt01.f b/lapack-netlib/TESTING/LIN/cqrt01.f
index 6f7420b19..714edc9c7 100644
--- a/lapack-netlib/TESTING/LIN/cqrt01.f
+++ b/lapack-netlib/TESTING/LIN/cqrt01.f
@@ -118,18 +118,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CQRT01( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK,
$ RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/cqrt01p.f b/lapack-netlib/TESTING/LIN/cqrt01p.f
index 814c22dbf..4f12f28c5 100644
--- a/lapack-netlib/TESTING/LIN/cqrt01p.f
+++ b/lapack-netlib/TESTING/LIN/cqrt01p.f
@@ -118,18 +118,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CQRT01P( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK,
$ RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/cqrt02.f b/lapack-netlib/TESTING/LIN/cqrt02.f
index 39f0f3e1a..62f176cd8 100644
--- a/lapack-netlib/TESTING/LIN/cqrt02.f
+++ b/lapack-netlib/TESTING/LIN/cqrt02.f
@@ -127,18 +127,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CQRT02( M, N, K, A, AF, Q, R, LDA, TAU, WORK, LWORK,
$ RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER K, LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/cqrt03.f b/lapack-netlib/TESTING/LIN/cqrt03.f
index 03d7077ab..08bb826c7 100644
--- a/lapack-netlib/TESTING/LIN/cqrt03.f
+++ b/lapack-netlib/TESTING/LIN/cqrt03.f
@@ -128,18 +128,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CQRT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK,
$ RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER K, LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/cqrt04.f b/lapack-netlib/TESTING/LIN/cqrt04.f
index 1b289417d..711bf70cf 100644
--- a/lapack-netlib/TESTING/LIN/cqrt04.f
+++ b/lapack-netlib/TESTING/LIN/cqrt04.f
@@ -66,18 +66,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CQRT04(M,N,NB,RESULT)
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* April 2012
*
* .. Scalar Arguments ..
INTEGER M, N, NB, LDT
diff --git a/lapack-netlib/TESTING/LIN/cqrt05.f b/lapack-netlib/TESTING/LIN/cqrt05.f
index b6ce21da7..d33ecc7c8 100644
--- a/lapack-netlib/TESTING/LIN/cqrt05.f
+++ b/lapack-netlib/TESTING/LIN/cqrt05.f
@@ -73,18 +73,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CQRT05(M,N,L,NB,RESULT)
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* April 2012
*
* .. Scalar Arguments ..
INTEGER LWORK, M, N, L, NB, LDT
diff --git a/lapack-netlib/TESTING/LIN/cqrt11.f b/lapack-netlib/TESTING/LIN/cqrt11.f
index 7445059a4..494d5e9cd 100644
--- a/lapack-netlib/TESTING/LIN/cqrt11.f
+++ b/lapack-netlib/TESTING/LIN/cqrt11.f
@@ -91,17 +91,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
REAL FUNCTION CQRT11( M, K, A, LDA, TAU, WORK, LWORK )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER K, LDA, LWORK, M
diff --git a/lapack-netlib/TESTING/LIN/cqrt12.f b/lapack-netlib/TESTING/LIN/cqrt12.f
index 5659d2b36..4c29423ae 100644
--- a/lapack-netlib/TESTING/LIN/cqrt12.f
+++ b/lapack-netlib/TESTING/LIN/cqrt12.f
@@ -89,18 +89,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
REAL FUNCTION CQRT12( M, N, A, LDA, S, WORK, LWORK,
$ RWORK )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/cqrt13.f b/lapack-netlib/TESTING/LIN/cqrt13.f
index 3368858be..6b2f42aab 100644
--- a/lapack-netlib/TESTING/LIN/cqrt13.f
+++ b/lapack-netlib/TESTING/LIN/cqrt13.f
@@ -84,17 +84,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CQRT13( SCALE, M, N, A, LDA, NORMA, ISEED )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, M, N, SCALE
diff --git a/lapack-netlib/TESTING/LIN/cqrt14.f b/lapack-netlib/TESTING/LIN/cqrt14.f
index b2a31e99d..474af0ed5 100644
--- a/lapack-netlib/TESTING/LIN/cqrt14.f
+++ b/lapack-netlib/TESTING/LIN/cqrt14.f
@@ -108,18 +108,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
REAL FUNCTION CQRT14( TRANS, M, N, NRHS, A, LDA, X,
$ LDX, WORK, LWORK )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER TRANS
@@ -200,7 +197,6 @@
IF( XNRM.NE.ZERO )
$ CALL CLASCL( 'G', 0, 0, XNRM, ONE, M, NRHS,
$ WORK( N*LDWORK+1 ), LDWORK, INFO )
- ANRM = CLANGE( 'One-norm', M, N+NRHS, WORK, LDWORK, RWORK )
*
* Compute QR factorization of X
*
diff --git a/lapack-netlib/TESTING/LIN/cqrt15.f b/lapack-netlib/TESTING/LIN/cqrt15.f
index d01f3a7ca..f766bb4df 100644
--- a/lapack-netlib/TESTING/LIN/cqrt15.f
+++ b/lapack-netlib/TESTING/LIN/cqrt15.f
@@ -141,18 +141,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CQRT15( SCALE, RKSEL, M, N, NRHS, A, LDA, B, LDB, S,
$ RANK, NORMA, NORMB, ISEED, WORK, LWORK )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LDB, LWORK, M, N, NRHS, RANK, RKSEL, SCALE
diff --git a/lapack-netlib/TESTING/LIN/cqrt16.f b/lapack-netlib/TESTING/LIN/cqrt16.f
index 84ee5f426..a11b319c1 100644
--- a/lapack-netlib/TESTING/LIN/cqrt16.f
+++ b/lapack-netlib/TESTING/LIN/cqrt16.f
@@ -125,18 +125,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CQRT16( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB,
$ RWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER TRANS
diff --git a/lapack-netlib/TESTING/LIN/cqrt17.f b/lapack-netlib/TESTING/LIN/cqrt17.f
index 1fe28d6fe..5cea02709 100644
--- a/lapack-netlib/TESTING/LIN/cqrt17.f
+++ b/lapack-netlib/TESTING/LIN/cqrt17.f
@@ -28,12 +28,15 @@
*>
*> CQRT17 computes the ratio
*>
-*> || R'*op(A) ||/(||A||*alpha*max(M,N,NRHS)*eps)
+*> norm(R**H * op(A)) / ( norm(A) * alpha * max(M,N,NRHS) * EPS ),
*>
-*> where R = op(A)*X - B, op(A) is A or A', and
+*> where R = B - op(A)*X, op(A) is A or A**H, depending on TRANS, EPS
+*> is the machine epsilon, and
*>
-*> alpha = ||B|| if IRESID = 1 (zero-residual problem)
-*> alpha = ||R|| if IRESID = 2 (otherwise).
+*> alpha = norm(B) if IRESID = 1 (zero-residual problem)
+*> alpha = norm(R) if IRESID = 2 (otherwise).
+*>
+*> The norm used is the 1-norm.
*> \endverbatim
*
* Arguments:
@@ -44,7 +47,7 @@
*> TRANS is CHARACTER*1
*> Specifies whether or not the transpose of A is used.
*> = 'N': No transpose, op(A) = A.
-*> = 'C': Conjugate transpose, op(A) = A'.
+*> = 'C': Conjugate transpose, op(A) = A**H.
*> \endverbatim
*>
*> \param[in] IRESID
@@ -142,18 +145,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
REAL FUNCTION CQRT17( TRANS, IRESID, M, N, NRHS, A,
$ LDA, X, LDX, B, LDB, C, WORK, LWORK )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER TRANS
@@ -172,7 +172,7 @@
* ..
* .. Local Scalars ..
INTEGER INFO, ISCL, NCOLS, NROWS
- REAL BIGNUM, ERR, NORMA, NORMB, NORMRS, SMLNUM
+ REAL ERR, NORMA, NORMB, NORMRS, SMLNUM
* ..
* .. Local Arrays ..
REAL RWORK( 1 )
@@ -213,7 +213,6 @@
*
NORMA = CLANGE( 'One-norm', M, N, A, LDA, RWORK )
SMLNUM = SLAMCH( 'Safe minimum' ) / SLAMCH( 'Precision' )
- BIGNUM = ONE / SMLNUM
ISCL = 0
*
* compute residual and scale it
@@ -228,7 +227,7 @@
$ INFO )
END IF
*
-* compute R'*A
+* compute R**H * op(A)
*
CALL CGEMM( 'Conjugate transpose', TRANS, NRHS, NCOLS, NROWS,
$ CMPLX( ONE ), C, LDB, A, LDA, CMPLX( ZERO ), WORK,
diff --git a/lapack-netlib/TESTING/LIN/crqt01.f b/lapack-netlib/TESTING/LIN/crqt01.f
index f80361c5e..23d0c96b3 100644
--- a/lapack-netlib/TESTING/LIN/crqt01.f
+++ b/lapack-netlib/TESTING/LIN/crqt01.f
@@ -118,18 +118,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CRQT01( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK,
$ RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/crqt02.f b/lapack-netlib/TESTING/LIN/crqt02.f
index d9501e546..8625c2f91 100644
--- a/lapack-netlib/TESTING/LIN/crqt02.f
+++ b/lapack-netlib/TESTING/LIN/crqt02.f
@@ -128,18 +128,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CRQT02( M, N, K, A, AF, Q, R, LDA, TAU, WORK, LWORK,
$ RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER K, LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/crqt03.f b/lapack-netlib/TESTING/LIN/crqt03.f
index 92f5cbe5c..b3d25d2a8 100644
--- a/lapack-netlib/TESTING/LIN/crqt03.f
+++ b/lapack-netlib/TESTING/LIN/crqt03.f
@@ -128,18 +128,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CRQT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK,
$ RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER K, LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/crzt01.f b/lapack-netlib/TESTING/LIN/crzt01.f
index 73141982a..6a75a8b31 100644
--- a/lapack-netlib/TESTING/LIN/crzt01.f
+++ b/lapack-netlib/TESTING/LIN/crzt01.f
@@ -90,18 +90,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
REAL FUNCTION CRZT01( M, N, A, AF, LDA, TAU, WORK,
$ LWORK )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/crzt02.f b/lapack-netlib/TESTING/LIN/crzt02.f
index 53a69457c..8c807c825 100644
--- a/lapack-netlib/TESTING/LIN/crzt02.f
+++ b/lapack-netlib/TESTING/LIN/crzt02.f
@@ -83,18 +83,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
REAL FUNCTION CRZT02( M, N, AF, LDA, TAU, WORK,
$ LWORK )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/csbmv.f b/lapack-netlib/TESTING/LIN/csbmv.f
index 776de784a..4ea747390 100644
--- a/lapack-netlib/TESTING/LIN/csbmv.f
+++ b/lapack-netlib/TESTING/LIN/csbmv.f
@@ -144,18 +144,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CSBMV( UPLO, N, K, ALPHA, A, LDA, X, INCX, BETA, Y,
$ INCY )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/cspt01.f b/lapack-netlib/TESTING/LIN/cspt01.f
index 5be698121..31c73e9e4 100644
--- a/lapack-netlib/TESTING/LIN/cspt01.f
+++ b/lapack-netlib/TESTING/LIN/cspt01.f
@@ -105,17 +105,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CSPT01( UPLO, N, A, AFAC, IPIV, C, LDC, RWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/cspt02.f b/lapack-netlib/TESTING/LIN/cspt02.f
index 263c07bdc..f4d1fd268 100644
--- a/lapack-netlib/TESTING/LIN/cspt02.f
+++ b/lapack-netlib/TESTING/LIN/cspt02.f
@@ -115,18 +115,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CSPT02( UPLO, N, NRHS, A, X, LDX, B, LDB, RWORK,
$ RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/cspt03.f b/lapack-netlib/TESTING/LIN/cspt03.f
index b15dad966..46b27df25 100644
--- a/lapack-netlib/TESTING/LIN/cspt03.f
+++ b/lapack-netlib/TESTING/LIN/cspt03.f
@@ -102,18 +102,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CSPT03( UPLO, N, A, AINV, WORK, LDW, RWORK, RCOND,
$ RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/csyt01.f b/lapack-netlib/TESTING/LIN/csyt01.f
index ff068b2d1..cec8f34f9 100644
--- a/lapack-netlib/TESTING/LIN/csyt01.f
+++ b/lapack-netlib/TESTING/LIN/csyt01.f
@@ -117,18 +117,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2013
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CSYT01( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, LDC,
$ RWORK, RESID )
*
-* -- LAPACK test routine (version 3.5.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2013
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/csyt01_3.f b/lapack-netlib/TESTING/LIN/csyt01_3.f
index 3f0f53251..f0b316cef 100644
--- a/lapack-netlib/TESTING/LIN/csyt01_3.f
+++ b/lapack-netlib/TESTING/LIN/csyt01_3.f
@@ -133,18 +133,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CSYT01_3( UPLO, N, A, LDA, AFAC, LDAFAC, E, IPIV, C,
$ LDC, RWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.1) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2017
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/csyt01_aa.f b/lapack-netlib/TESTING/LIN/csyt01_aa.f
index 3d35a42b9..9b0a0c5e4 100644
--- a/lapack-netlib/TESTING/LIN/csyt01_aa.f
+++ b/lapack-netlib/TESTING/LIN/csyt01_aa.f
@@ -116,20 +116,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
-* @generated from LIN/dsyt01_aa.f, fortran d -> c, Thu Nov 17 13:01:50 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CSYT01_AA( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C,
$ LDC, RWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
@@ -260,6 +255,6 @@
*
RETURN
*
-* End of CSYT01
+* End of CSYT01_AA
*
END
diff --git a/lapack-netlib/TESTING/LIN/csyt01_rook.f b/lapack-netlib/TESTING/LIN/csyt01_rook.f
index cea6f5e8b..f2ca4541a 100644
--- a/lapack-netlib/TESTING/LIN/csyt01_rook.f
+++ b/lapack-netlib/TESTING/LIN/csyt01_rook.f
@@ -117,18 +117,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2013
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CSYT01_ROOK( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C,
$ LDC, RWORK, RESID )
*
-* -- LAPACK test routine (version 3.5.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2013
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/csyt02.f b/lapack-netlib/TESTING/LIN/csyt02.f
index 4707b3863..a4a3f99b4 100644
--- a/lapack-netlib/TESTING/LIN/csyt02.f
+++ b/lapack-netlib/TESTING/LIN/csyt02.f
@@ -119,18 +119,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CSYT02( UPLO, N, NRHS, A, LDA, X, LDX, B, LDB, RWORK,
$ RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/csyt03.f b/lapack-netlib/TESTING/LIN/csyt03.f
index 92ed42502..f01e24c86 100644
--- a/lapack-netlib/TESTING/LIN/csyt03.f
+++ b/lapack-netlib/TESTING/LIN/csyt03.f
@@ -118,18 +118,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CSYT03( UPLO, N, A, LDA, AINV, LDAINV, WORK, LDWORK,
$ RWORK, RCOND, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/ctbt02.f b/lapack-netlib/TESTING/LIN/ctbt02.f
index adf12192b..bf58aa1da 100644
--- a/lapack-netlib/TESTING/LIN/ctbt02.f
+++ b/lapack-netlib/TESTING/LIN/ctbt02.f
@@ -29,13 +29,11 @@
*> \verbatim
*>
*> CTBT02 computes the residual for the computed solution to a
-*> triangular system of linear equations A*x = b, A**T *x = b, or
-*> A**H *x = b when A is a triangular band matrix. Here A**T denotes
-*> the transpose of A, A**H denotes the conjugate transpose of A, and
-*> x and b are N by NRHS matrices. The test ratio is the maximum over
-*> the number of right hand sides of
-*> norm(b - op(A)*x) / ( norm(op(A)) * norm(x) * EPS ),
-*> where op(A) denotes A, A**T, or A**H, and EPS is the machine epsilon.
+*> triangular system of linear equations op(A)*X = B, when A is a
+*> triangular band matrix. The test ratio is the maximum over
+*> norm(b - op(A)*x) / ( ||op(A)||_1 * norm(x) * EPS ),
+*> where op(A) = A, A**T, or A**H, b is the column of B, x is the
+*> solution vector, and EPS is the machine epsilon.
*> \endverbatim
*
* Arguments:
@@ -53,9 +51,9 @@
*> \verbatim
*> TRANS is CHARACTER*1
*> Specifies the operation applied to A.
-*> = 'N': A *x = b (No transpose)
-*> = 'T': A**T *x = b (Transpose)
-*> = 'C': A**H *x = b (Conjugate transpose)
+*> = 'N': A * X = B (No transpose)
+*> = 'T': A**T * X = B (Transpose)
+*> = 'C': A**H * X = B (Conjugate transpose)
*> \endverbatim
*>
*> \param[in] DIAG
@@ -153,18 +151,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CTBT02( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, X,
$ LDX, B, LDB, WORK, RWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
@@ -207,7 +202,7 @@
RETURN
END IF
*
-* Compute the 1-norm of A or A'.
+* Compute the 1-norm of op(A).
*
IF( LSAME( TRANS, 'N' ) ) THEN
ANORM = CLANTB( '1', UPLO, DIAG, N, KD, AB, LDAB, RWORK )
diff --git a/lapack-netlib/TESTING/LIN/ctbt03.f b/lapack-netlib/TESTING/LIN/ctbt03.f
index 404847b58..94ae9a77e 100644
--- a/lapack-netlib/TESTING/LIN/ctbt03.f
+++ b/lapack-netlib/TESTING/LIN/ctbt03.f
@@ -168,8 +168,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
@@ -177,10 +175,9 @@
$ SCALE, CNORM, TSCAL, X, LDX, B, LDB, WORK,
$ RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
diff --git a/lapack-netlib/TESTING/LIN/ctbt05.f b/lapack-netlib/TESTING/LIN/ctbt05.f
index d3d23424b..b6060564d 100644
--- a/lapack-netlib/TESTING/LIN/ctbt05.f
+++ b/lapack-netlib/TESTING/LIN/ctbt05.f
@@ -181,18 +181,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CTBT05( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B,
$ LDB, X, LDX, XACT, LDXACT, FERR, BERR, RESLTS )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
diff --git a/lapack-netlib/TESTING/LIN/ctbt06.f b/lapack-netlib/TESTING/LIN/ctbt06.f
index 0f40ec92d..c81b85489 100644
--- a/lapack-netlib/TESTING/LIN/ctbt06.f
+++ b/lapack-netlib/TESTING/LIN/ctbt06.f
@@ -118,18 +118,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CTBT06( RCOND, RCONDC, UPLO, DIAG, N, KD, AB, LDAB,
$ RWORK, RAT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, UPLO
diff --git a/lapack-netlib/TESTING/LIN/ctpt01.f b/lapack-netlib/TESTING/LIN/ctpt01.f
index 1c3ecccb7..41a1f78f5 100644
--- a/lapack-netlib/TESTING/LIN/ctpt01.f
+++ b/lapack-netlib/TESTING/LIN/ctpt01.f
@@ -102,17 +102,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CTPT01( UPLO, DIAG, N, AP, AINVP, RCOND, RWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, UPLO
diff --git a/lapack-netlib/TESTING/LIN/ctpt02.f b/lapack-netlib/TESTING/LIN/ctpt02.f
index afdd3a153..9c32d4206 100644
--- a/lapack-netlib/TESTING/LIN/ctpt02.f
+++ b/lapack-netlib/TESTING/LIN/ctpt02.f
@@ -28,14 +28,12 @@
*> \verbatim
*>
*> CTPT02 computes the residual for the computed solution to a
-*> triangular system of linear equations A*x = b, A**T *x = b, or
-*> A**H *x = b, when the triangular matrix A is stored in packed format.
-*> Here A**T denotes the transpose of A, A**H denotes the conjugate
-*> transpose of A, and x and b are N by NRHS matrices. The test ratio
-*> is the maximum over the number of right hand sides of
-*> the maximum over the number of right hand sides of
-*> norm(b - op(A)*x) / ( norm(op(A)) * norm(x) * EPS ),
-*> where op(A) denotes A, A**T, or A**H, and EPS is the machine epsilon.
+*> triangular system of linear equations op(A)*X = B, when the
+*> triangular matrix A is stored in packed format. The test ratio is
+*> the maximum over
+*> norm(b - op(A)*x) / ( ||op(A)||_1 * norm(x) * EPS ),
+*> where op(A) = A, A**T, or A**H, b is the column of B, x is the
+*> solution vector, and EPS is the machine epsilon.
*> \endverbatim
*
* Arguments:
@@ -53,9 +51,9 @@
*> \verbatim
*> TRANS is CHARACTER*1
*> Specifies the operation applied to A.
-*> = 'N': A *x = b (No transpose)
-*> = 'T': A**T *x = b (Transpose)
-*> = 'C': A**H *x = b (Conjugate transpose)
+*> = 'N': A * X = B (No transpose)
+*> = 'T': A**T * X = B (Transpose)
+*> = 'C': A**H * X = B (Conjugate transpose)
*> \endverbatim
*>
*> \param[in] DIAG
@@ -130,7 +128,7 @@
*> \verbatim
*> RESID is REAL
*> The maximum over the number of right hand sides of
-*> norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ).
+*> norm(op(A)*B - B) / ( norm(op(A)) * norm(X) * EPS ).
*> \endverbatim
*
* Authors:
@@ -141,18 +139,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CTPT02( UPLO, TRANS, DIAG, N, NRHS, AP, X, LDX, B, LDB,
$ WORK, RWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
@@ -194,7 +189,7 @@
RETURN
END IF
*
-* Compute the 1-norm of A or A**H.
+* Compute the 1-norm of op(A).
*
IF( LSAME( TRANS, 'N' ) ) THEN
ANORM = CLANTP( '1', UPLO, DIAG, N, AP, RWORK )
@@ -211,7 +206,7 @@
END IF
*
* Compute the maximum over the number of right hand sides of
-* norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ).
+* norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS ).
*
RESID = ZERO
DO 10 J = 1, NRHS
diff --git a/lapack-netlib/TESTING/LIN/ctpt03.f b/lapack-netlib/TESTING/LIN/ctpt03.f
index f038478cc..43ba50310 100644
--- a/lapack-netlib/TESTING/LIN/ctpt03.f
+++ b/lapack-netlib/TESTING/LIN/ctpt03.f
@@ -154,18 +154,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CTPT03( UPLO, TRANS, DIAG, N, NRHS, AP, SCALE, CNORM,
$ TSCAL, X, LDX, B, LDB, WORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
diff --git a/lapack-netlib/TESTING/LIN/ctpt05.f b/lapack-netlib/TESTING/LIN/ctpt05.f
index 49d17d90d..0f1f4ac1c 100644
--- a/lapack-netlib/TESTING/LIN/ctpt05.f
+++ b/lapack-netlib/TESTING/LIN/ctpt05.f
@@ -167,18 +167,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CTPT05( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, X, LDX,
$ XACT, LDXACT, FERR, BERR, RESLTS )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
diff --git a/lapack-netlib/TESTING/LIN/ctpt06.f b/lapack-netlib/TESTING/LIN/ctpt06.f
index 803c18f1c..20e8f81c7 100644
--- a/lapack-netlib/TESTING/LIN/ctpt06.f
+++ b/lapack-netlib/TESTING/LIN/ctpt06.f
@@ -105,17 +105,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CTPT06( RCOND, RCONDC, UPLO, DIAG, N, AP, RWORK, RAT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, UPLO
diff --git a/lapack-netlib/TESTING/LIN/ctrt01.f b/lapack-netlib/TESTING/LIN/ctrt01.f
index 6bd59e765..30c4f2138 100644
--- a/lapack-netlib/TESTING/LIN/ctrt01.f
+++ b/lapack-netlib/TESTING/LIN/ctrt01.f
@@ -117,18 +117,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CTRT01( UPLO, DIAG, N, A, LDA, AINV, LDAINV, RCOND,
$ RWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, UPLO
diff --git a/lapack-netlib/TESTING/LIN/ctrt02.f b/lapack-netlib/TESTING/LIN/ctrt02.f
index 205d12d8e..72f44af4c 100644
--- a/lapack-netlib/TESTING/LIN/ctrt02.f
+++ b/lapack-netlib/TESTING/LIN/ctrt02.f
@@ -29,13 +29,11 @@
*> \verbatim
*>
*> CTRT02 computes the residual for the computed solution to a
-*> triangular system of linear equations A*x = b, A**T *x = b,
-*> or A**H *x = b. Here A is a triangular matrix, A**T is the transpose
-*> of A, A**H is the conjugate transpose of A, and x and b are N by NRHS
-*> matrices. The test ratio is the maximum over the number of right
-*> hand sides of
-*> norm(b - op(A)*x) / ( norm(op(A)) * norm(x) * EPS ),
-*> where op(A) denotes A, A**T, or A**H, and EPS is the machine epsilon.
+*> triangular system of linear equations op(A)*X = B, where A is a
+*> triangular matrix. The test ratio is the maximum over
+*> norm(b - op(A)*x) / ( ||op(A)||_1 * norm(x) * EPS ),
+*> where op(A) = A, A**T, or A**H, b is the column of B, x is the
+*> solution vector, and EPS is the machine epsilon.
*> \endverbatim
*
* Arguments:
@@ -53,9 +51,9 @@
*> \verbatim
*> TRANS is CHARACTER*1
*> Specifies the operation applied to A.
-*> = 'N': A *x = b (No transpose)
-*> = 'T': A**T *x = b (Transpose)
-*> = 'C': A**H *x = b (Conjugate transpose)
+*> = 'N': A * X = B (No transpose)
+*> = 'T': A**T * X = B (Transpose)
+*> = 'C': A**H * X = B (Conjugate transpose)
*> \endverbatim
*>
*> \param[in] DIAG
@@ -138,7 +136,7 @@
*> \verbatim
*> RESID is REAL
*> The maximum over the number of right hand sides of
-*> norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ).
+*> norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS ).
*> \endverbatim
*
* Authors:
@@ -149,18 +147,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CTRT02( UPLO, TRANS, DIAG, N, NRHS, A, LDA, X, LDX, B,
$ LDB, WORK, RWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
@@ -203,7 +198,7 @@
RETURN
END IF
*
-* Compute the 1-norm of A or A**H.
+* Compute the 1-norm of op(A).
*
IF( LSAME( TRANS, 'N' ) ) THEN
ANORM = CLANTR( '1', UPLO, DIAG, N, N, A, LDA, RWORK )
@@ -220,7 +215,7 @@
END IF
*
* Compute the maximum over the number of right hand sides of
-* norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS )
+* norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS )
*
RESID = ZERO
DO 10 J = 1, NRHS
diff --git a/lapack-netlib/TESTING/LIN/ctrt03.f b/lapack-netlib/TESTING/LIN/ctrt03.f
index 3196f6a2d..b8f44aa05 100644
--- a/lapack-netlib/TESTING/LIN/ctrt03.f
+++ b/lapack-netlib/TESTING/LIN/ctrt03.f
@@ -163,18 +163,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CTRT03( UPLO, TRANS, DIAG, N, NRHS, A, LDA, SCALE,
$ CNORM, TSCAL, X, LDX, B, LDB, WORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
diff --git a/lapack-netlib/TESTING/LIN/ctrt05.f b/lapack-netlib/TESTING/LIN/ctrt05.f
index 7f05f9c9f..0edb2d832 100644
--- a/lapack-netlib/TESTING/LIN/ctrt05.f
+++ b/lapack-netlib/TESTING/LIN/ctrt05.f
@@ -174,18 +174,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CTRT05( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, X,
$ LDX, XACT, LDXACT, FERR, BERR, RESLTS )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
diff --git a/lapack-netlib/TESTING/LIN/ctrt06.f b/lapack-netlib/TESTING/LIN/ctrt06.f
index 7dff47038..07a0ec73f 100644
--- a/lapack-netlib/TESTING/LIN/ctrt06.f
+++ b/lapack-netlib/TESTING/LIN/ctrt06.f
@@ -114,18 +114,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_lin
*
* =====================================================================
SUBROUTINE CTRT06( RCOND, RCONDC, UPLO, DIAG, N, A, LDA, RWORK,
$ RAT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, UPLO
diff --git a/lapack-netlib/TESTING/LIN/ctsqr01.f b/lapack-netlib/TESTING/LIN/ctsqr01.f
index 6d788ba41..0d91776f8 100644
--- a/lapack-netlib/TESTING/LIN/ctsqr01.f
+++ b/lapack-netlib/TESTING/LIN/ctsqr01.f
@@ -77,16 +77,13 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
* =====================================================================
SUBROUTINE CTSQR01(TSSW, M, N, MB, NB, RESULT)
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* April 2012
*
* .. Scalar Arguments ..
CHARACTER TSSW
diff --git a/lapack-netlib/TESTING/LIN/dchkab.f b/lapack-netlib/TESTING/LIN/dchkab.f
index dddc25acd..a6b8a0fe1 100644
--- a/lapack-netlib/TESTING/LIN/dchkab.f
+++ b/lapack-netlib/TESTING/LIN/dchkab.f
@@ -66,17 +66,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup double_lin
*
* =====================================================================
PROGRAM DCHKAB
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- 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/LIN/dchkeq.f b/lapack-netlib/TESTING/LIN/dchkeq.f
index 89e141993..025ddabcf 100644
--- a/lapack-netlib/TESTING/LIN/dchkeq.f
+++ b/lapack-netlib/TESTING/LIN/dchkeq.f
@@ -47,17 +47,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DCHKEQ( THRESH, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER NOUT
diff --git a/lapack-netlib/TESTING/LIN/dchkgb.f b/lapack-netlib/TESTING/LIN/dchkgb.f
index 4ae408bd3..fa8dce5cf 100644
--- a/lapack-netlib/TESTING/LIN/dchkgb.f
+++ b/lapack-netlib/TESTING/LIN/dchkgb.f
@@ -160,7 +160,7 @@
*> \param[out] RWORK
*> \verbatim
*> RWORK is DOUBLE PRECISION array, dimension
-*> (max(NMAX,2*NSMAX))
+*> (NMAX+2*NSMAX)
*> \endverbatim
*>
*> \param[out] IWORK
@@ -182,8 +182,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
@@ -191,10 +189,9 @@
$ NSVAL, THRESH, TSTERR, A, LA, AFAC, LAFAC, B,
$ X, XACT, WORK, RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
@@ -566,7 +563,7 @@
END IF
*
*+ TEST 2:
-* Solve and compute residual for A * X = B.
+* Solve and compute residual for op(A) * X = B.
*
SRNAMT = 'DLARHS'
CALL DLARHS( PATH, XTYPE, ' ', TRANS, N,
@@ -592,7 +589,7 @@
$ WORK, LDB )
CALL DGBT02( TRANS, M, N, KL, KU, NRHS, A,
$ LDA, X, LDB, WORK, LDB,
- $ RESULT( 2 ) )
+ $ RWORK, RESULT( 2 ) )
*
*+ TEST 3:
* Check solution from generated exact
diff --git a/lapack-netlib/TESTING/LIN/dchkge.f b/lapack-netlib/TESTING/LIN/dchkge.f
index 075b563a5..467667a42 100644
--- a/lapack-netlib/TESTING/LIN/dchkge.f
+++ b/lapack-netlib/TESTING/LIN/dchkge.f
@@ -77,7 +77,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
@@ -176,8 +176,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
@@ -185,10 +183,9 @@
$ NSVAL, THRESH, TSTERR, NMAX, A, AFAC, AINV, B,
$ X, XACT, WORK, RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/dchkgt.f b/lapack-netlib/TESTING/LIN/dchkgt.f
index 2d7e8baf4..ace78f00c 100644
--- a/lapack-netlib/TESTING/LIN/dchkgt.f
+++ b/lapack-netlib/TESTING/LIN/dchkgt.f
@@ -138,18 +138,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DCHKGT( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR,
$ A, AF, B, X, XACT, WORK, RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/dchklq.f b/lapack-netlib/TESTING/LIN/dchklq.f
index b63d0361f..70af41fe0 100644
--- a/lapack-netlib/TESTING/LIN/dchklq.f
+++ b/lapack-netlib/TESTING/LIN/dchklq.f
@@ -187,8 +187,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
@@ -196,10 +194,9 @@
$ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AL, AC,
$ B, X, XACT, TAU, WORK, RWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/dchklqt.f b/lapack-netlib/TESTING/LIN/dchklqt.f
index 66eef0fd7..aa77d6a62 100644
--- a/lapack-netlib/TESTING/LIN/dchklqt.f
+++ b/lapack-netlib/TESTING/LIN/dchklqt.f
@@ -76,7 +76,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
@@ -94,8 +94,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
@@ -103,10 +101,9 @@
$ NBVAL, NOUT )
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/dchklqtp.f b/lapack-netlib/TESTING/LIN/dchklqtp.f
index 75940af59..d9251b1f0 100644
--- a/lapack-netlib/TESTING/LIN/dchklqtp.f
+++ b/lapack-netlib/TESTING/LIN/dchklqtp.f
@@ -76,7 +76,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
@@ -94,8 +94,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup double_lin
*
* =====================================================================
@@ -103,10 +101,9 @@
$ NBVAL, NOUT )
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.7.1) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2017
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/dchkorhr_col.f b/lapack-netlib/TESTING/LIN/dchkorhr_col.f
index 0e2d44d8d..a849f3910 100644
--- a/lapack-netlib/TESTING/LIN/dchkorhr_col.f
+++ b/lapack-netlib/TESTING/LIN/dchkorhr_col.f
@@ -82,7 +82,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
diff --git a/lapack-netlib/TESTING/LIN/dchkpb.f b/lapack-netlib/TESTING/LIN/dchkpb.f
index a8557e5de..c5d51230e 100644
--- a/lapack-netlib/TESTING/LIN/dchkpb.f
+++ b/lapack-netlib/TESTING/LIN/dchkpb.f
@@ -64,7 +64,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
@@ -163,8 +163,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
@@ -172,10 +170,9 @@
$ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X,
$ XACT, WORK, RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/dchkpo.f b/lapack-netlib/TESTING/LIN/dchkpo.f
index 3ce48f322..e9d5af186 100644
--- a/lapack-netlib/TESTING/LIN/dchkpo.f
+++ b/lapack-netlib/TESTING/LIN/dchkpo.f
@@ -64,7 +64,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
@@ -163,8 +163,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
@@ -172,10 +170,9 @@
$ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X,
$ XACT, WORK, RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/dchkpp.f b/lapack-netlib/TESTING/LIN/dchkpp.f
index b19b766ff..3da13227a 100644
--- a/lapack-netlib/TESTING/LIN/dchkpp.f
+++ b/lapack-netlib/TESTING/LIN/dchkpp.f
@@ -154,8 +154,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
@@ -163,10 +161,9 @@
$ NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK,
$ IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/dchkps.f b/lapack-netlib/TESTING/LIN/dchkps.f
index e1463bc97..1e4a9e58d 100644
--- a/lapack-netlib/TESTING/LIN/dchkps.f
+++ b/lapack-netlib/TESTING/LIN/dchkps.f
@@ -64,7 +64,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the block size NB.
*> \endverbatim
*>
@@ -145,8 +145,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
@@ -154,10 +152,9 @@
$ THRESH, TSTERR, NMAX, A, AFAC, PERM, PIV, WORK,
$ RWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
DOUBLE PRECISION THRESH
diff --git a/lapack-netlib/TESTING/LIN/dchkpt.f b/lapack-netlib/TESTING/LIN/dchkpt.f
index 6cde31816..2869723f2 100644
--- a/lapack-netlib/TESTING/LIN/dchkpt.f
+++ b/lapack-netlib/TESTING/LIN/dchkpt.f
@@ -138,18 +138,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DCHKPT( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR,
$ A, D, E, B, X, XACT, WORK, RWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/dchkq3.f b/lapack-netlib/TESTING/LIN/dchkq3.f
index c275ee039..1fdf07252 100644
--- a/lapack-netlib/TESTING/LIN/dchkq3.f
+++ b/lapack-netlib/TESTING/LIN/dchkq3.f
@@ -144,8 +144,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
@@ -153,10 +151,9 @@
$ THRESH, A, COPYA, S, TAU, WORK, IWORK,
$ NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER NM, NN, NNB, NOUT
diff --git a/lapack-netlib/TESTING/LIN/dchkql.f b/lapack-netlib/TESTING/LIN/dchkql.f
index 878d874d2..595ca10a6 100644
--- a/lapack-netlib/TESTING/LIN/dchkql.f
+++ b/lapack-netlib/TESTING/LIN/dchkql.f
@@ -187,8 +187,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
@@ -196,10 +194,9 @@
$ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AL, AC,
$ B, X, XACT, TAU, WORK, RWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/dchkqr.f b/lapack-netlib/TESTING/LIN/dchkqr.f
index 4ba27a93d..c729e61a9 100644
--- a/lapack-netlib/TESTING/LIN/dchkqr.f
+++ b/lapack-netlib/TESTING/LIN/dchkqr.f
@@ -192,8 +192,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
@@ -201,10 +199,9 @@
$ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AR, AC,
$ B, X, XACT, TAU, WORK, RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/dchkqrt.f b/lapack-netlib/TESTING/LIN/dchkqrt.f
index c74e78964..566f273d4 100644
--- a/lapack-netlib/TESTING/LIN/dchkqrt.f
+++ b/lapack-netlib/TESTING/LIN/dchkqrt.f
@@ -76,7 +76,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
@@ -94,8 +94,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
@@ -103,10 +101,9 @@
$ NBVAL, NOUT )
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/dchkqrtp.f b/lapack-netlib/TESTING/LIN/dchkqrtp.f
index 716dbcd84..924ba7ea3 100644
--- a/lapack-netlib/TESTING/LIN/dchkqrtp.f
+++ b/lapack-netlib/TESTING/LIN/dchkqrtp.f
@@ -76,7 +76,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
@@ -94,8 +94,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
@@ -103,10 +101,9 @@
$ NBVAL, NOUT )
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/dchkrfp.f b/lapack-netlib/TESTING/LIN/dchkrfp.f
index cf59e88dc..e242e013d 100644
--- a/lapack-netlib/TESTING/LIN/dchkrfp.f
+++ b/lapack-netlib/TESTING/LIN/dchkrfp.f
@@ -52,17 +52,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup double_lin
*
* =====================================================================
PROGRAM DCHKRFP
*
-* -- LAPACK test routine (version 3.7.1) --
+* -- LAPACK test routine --
* -- 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/LIN/dchkrq.f b/lapack-netlib/TESTING/LIN/dchkrq.f
index d820a91dd..028359d08 100644
--- a/lapack-netlib/TESTING/LIN/dchkrq.f
+++ b/lapack-netlib/TESTING/LIN/dchkrq.f
@@ -192,8 +192,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
@@ -201,10 +199,9 @@
$ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AR, AC,
$ B, X, XACT, TAU, WORK, RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/dchksp.f b/lapack-netlib/TESTING/LIN/dchksp.f
index 6334a0510..f327ca7ce 100644
--- a/lapack-netlib/TESTING/LIN/dchksp.f
+++ b/lapack-netlib/TESTING/LIN/dchksp.f
@@ -154,8 +154,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
@@ -163,10 +161,9 @@
$ NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK,
$ IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/dchksy.f b/lapack-netlib/TESTING/LIN/dchksy.f
index d8981f735..8d127cd3b 100644
--- a/lapack-netlib/TESTING/LIN/dchksy.f
+++ b/lapack-netlib/TESTING/LIN/dchksy.f
@@ -64,7 +64,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
@@ -161,8 +161,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2013
-*
*> \ingroup double_lin
*
* =====================================================================
@@ -170,10 +168,9 @@
$ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X,
$ XACT, WORK, RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.5.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2013
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/dchksy_aa.f b/lapack-netlib/TESTING/LIN/dchksy_aa.f
index 8974cdec5..4c79ebbbf 100644
--- a/lapack-netlib/TESTING/LIN/dchksy_aa.f
+++ b/lapack-netlib/TESTING/LIN/dchksy_aa.f
@@ -64,7 +64,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
@@ -161,10 +161,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
-* @precisions fortran d -> z c
-*
*> \ingroup double_lin
*
* =====================================================================
@@ -172,10 +168,9 @@
$ THRESH, TSTERR, NMAX, A, AFAC, AINV, B,
$ X, XACT, WORK, RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.8.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2017
*
IMPLICIT NONE
*
diff --git a/lapack-netlib/TESTING/LIN/dchksy_aa_2stage.f b/lapack-netlib/TESTING/LIN/dchksy_aa_2stage.f
index f6d990d1c..bc4e77a5a 100644
--- a/lapack-netlib/TESTING/LIN/dchksy_aa_2stage.f
+++ b/lapack-netlib/TESTING/LIN/dchksy_aa_2stage.f
@@ -65,7 +65,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
@@ -162,10 +162,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
-* @precisions fortran d -> z c
-*
*> \ingroup double_lin
*
* =====================================================================
@@ -173,10 +169,9 @@
$ NSVAL, THRESH, TSTERR, NMAX, A, AFAC, AINV,
$ B, X, XACT, WORK, RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.8.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2017
*
IMPLICIT NONE
*
diff --git a/lapack-netlib/TESTING/LIN/dchksy_rk.f b/lapack-netlib/TESTING/LIN/dchksy_rk.f
index 2b5d7adec..701cb9ce6 100644
--- a/lapack-netlib/TESTING/LIN/dchksy_rk.f
+++ b/lapack-netlib/TESTING/LIN/dchksy_rk.f
@@ -63,7 +63,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
@@ -167,8 +167,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
@@ -176,10 +174,9 @@
$ THRESH, TSTERR, NMAX, A, AFAC, E, AINV, B,
$ X, XACT, WORK, RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
@@ -486,7 +483,7 @@
CALL DLACPY( UPLO, N, N, AFAC, LDA, AINV, LDA )
SRNAMT = 'DSYTRI_3'
*
-* Another reason that we need to compute the invesrse
+* Another reason that we need to compute the inverse
* is that DPOT03 produces RCONDC which is used later
* in TEST6 and TEST7.
*
diff --git a/lapack-netlib/TESTING/LIN/dchksy_rook.f b/lapack-netlib/TESTING/LIN/dchksy_rook.f
index 0c001669c..03b16b78a 100644
--- a/lapack-netlib/TESTING/LIN/dchksy_rook.f
+++ b/lapack-netlib/TESTING/LIN/dchksy_rook.f
@@ -65,7 +65,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
@@ -162,8 +162,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
@@ -171,10 +169,9 @@
$ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X,
$ XACT, WORK, RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/dchktb.f b/lapack-netlib/TESTING/LIN/dchktb.f
index af50bf322..16d0aed32 100644
--- a/lapack-netlib/TESTING/LIN/dchktb.f
+++ b/lapack-netlib/TESTING/LIN/dchktb.f
@@ -146,8 +146,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
@@ -155,10 +153,9 @@
$ NMAX, AB, AINV, B, X, XACT, WORK, RWORK, IWORK,
$ NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/dchktp.f b/lapack-netlib/TESTING/LIN/dchktp.f
index 58f78697f..9af6150ca 100644
--- a/lapack-netlib/TESTING/LIN/dchktp.f
+++ b/lapack-netlib/TESTING/LIN/dchktp.f
@@ -148,8 +148,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
@@ -157,10 +155,9 @@
$ NMAX, AP, AINVP, B, X, XACT, WORK, RWORK,
$ IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/dchktr.f b/lapack-netlib/TESTING/LIN/dchktr.f
index 5c0cd83b9..a4a1150c0 100644
--- a/lapack-netlib/TESTING/LIN/dchktr.f
+++ b/lapack-netlib/TESTING/LIN/dchktr.f
@@ -158,8 +158,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
@@ -167,10 +165,9 @@
$ THRESH, TSTERR, NMAX, A, AINV, B, X, XACT,
$ WORK, RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/dchktsqr.f b/lapack-netlib/TESTING/LIN/dchktsqr.f
index 14119e6e5..27076b5c2 100644
--- a/lapack-netlib/TESTING/LIN/dchktsqr.f
+++ b/lapack-netlib/TESTING/LIN/dchktsqr.f
@@ -76,7 +76,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
@@ -94,8 +94,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
@@ -103,10 +101,9 @@
$ NBVAL, NOUT )
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
@@ -254,6 +251,6 @@
$ ', NB=', I5,' test(', I2, ')=', G12.5 )
RETURN
*
-* End of DCHKQRT
+* End of DCHKTSQR
*
END
diff --git a/lapack-netlib/TESTING/LIN/dchktz.f b/lapack-netlib/TESTING/LIN/dchktz.f
index 8a60d0541..efb468f00 100644
--- a/lapack-netlib/TESTING/LIN/dchktz.f
+++ b/lapack-netlib/TESTING/LIN/dchktz.f
@@ -124,18 +124,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DCHKTZ( DOTYPE, NM, MVAL, NN, NVAL, THRESH, TSTERR, A,
$ COPYA, S, TAU, WORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/ddrvab.f b/lapack-netlib/TESTING/LIN/ddrvab.f
index 646bbff0d..9110d8334 100644
--- a/lapack-netlib/TESTING/LIN/ddrvab.f
+++ b/lapack-netlib/TESTING/LIN/ddrvab.f
@@ -142,8 +142,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
@@ -151,10 +149,9 @@
$ NSVAL, THRESH, NMAX, A, AFAC, B,
$ X, WORK, RWORK, SWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER NM, NMAX, NNS, NOUT
diff --git a/lapack-netlib/TESTING/LIN/ddrvac.f b/lapack-netlib/TESTING/LIN/ddrvac.f
index ee710dbf2..bd463cee4 100644
--- a/lapack-netlib/TESTING/LIN/ddrvac.f
+++ b/lapack-netlib/TESTING/LIN/ddrvac.f
@@ -135,8 +135,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
@@ -144,10 +142,9 @@
$ A, AFAC, B, X, WORK,
$ RWORK, SWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER NMAX, NM, NNS, NOUT
diff --git a/lapack-netlib/TESTING/LIN/ddrvgb.f b/lapack-netlib/TESTING/LIN/ddrvgb.f
index 7758a5978..ad323d5ec 100644
--- a/lapack-netlib/TESTING/LIN/ddrvgb.f
+++ b/lapack-netlib/TESTING/LIN/ddrvgb.f
@@ -141,7 +141,7 @@
*> \param[out] RWORK
*> \verbatim
*> RWORK is DOUBLE PRECISION array, dimension
-*> (max(NMAX,2*NRHS))
+*> (NMAX+2*NRHS)
*> \endverbatim
*>
*> \param[out] IWORK
@@ -163,8 +163,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
@@ -172,10 +170,9 @@
$ AFB, LAFB, ASAV, B, BSAV, X, XACT, S, WORK,
$ RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
@@ -585,7 +582,8 @@
$ WORK, LDB )
CALL DGBT02( 'No transpose', N, N, KL,
$ KU, NRHS, A, LDA, X, LDB,
- $ WORK, LDB, RESULT( 2 ) )
+ $ WORK, LDB, RWORK,
+ $ RESULT( 2 ) )
*
* Check solution from generated exact
* solution.
@@ -702,6 +700,7 @@
$ WORK, LDB )
CALL DGBT02( TRANS, N, N, KL, KU, NRHS,
$ ASAV, LDA, X, LDB, WORK, LDB,
+ $ RWORK( 2*NRHS+1 ),
$ RESULT( 2 ) )
*
* Check solution from generated exact
diff --git a/lapack-netlib/TESTING/LIN/ddrvgbx.f b/lapack-netlib/TESTING/LIN/ddrvgbx.f
index 4c76b44af..8a9fdb645 100644
--- a/lapack-netlib/TESTING/LIN/ddrvgbx.f
+++ b/lapack-netlib/TESTING/LIN/ddrvgbx.f
@@ -144,7 +144,7 @@
*> \param[out] RWORK
*> \verbatim
*> RWORK is DOUBLE PRECISION array, dimension
-*> (max(NMAX,2*NRHS))
+*> (max(2*NMAX,NMAX+2*NRHS))
*> \endverbatim
*>
*> \param[out] IWORK
@@ -166,8 +166,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
@@ -175,10 +173,9 @@
$ AFB, LAFB, ASAV, B, BSAV, X, XACT, S, WORK,
$ RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
@@ -593,7 +590,8 @@
$ WORK, LDB )
CALL DGBT02( 'No transpose', N, N, KL,
$ KU, NRHS, A, LDA, X, LDB,
- $ WORK, LDB, RESULT( 2 ) )
+ $ WORK, LDB, RWORK,
+ $ RESULT( 2 ) )
*
* Check solution from generated exact
* solution.
@@ -710,6 +708,7 @@
$ WORK, LDB )
CALL DGBT02( TRANS, N, N, KL, KU, NRHS,
$ ASAV, LDA, X, LDB, WORK, LDB,
+ $ RWORK( 2*NRHS+1 ),
$ RESULT( 2 ) )
*
* Check solution from generated exact
@@ -895,7 +894,7 @@
CALL DLACPY( 'Full', N, NRHS, BSAV, LDB, WORK,
$ LDB )
CALL DGBT02( TRANS, N, N, KL, KU, NRHS, ASAV,
- $ LDA, X, LDB, WORK, LDB,
+ $ LDA, X, LDB, WORK, LDB, RWORK,
$ RESULT( 2 ) )
*
* Check solution from generated exact solution.
@@ -1024,6 +1023,6 @@
*
RETURN
*
-* End of DDRVGB
+* End of DDRVGBX
*
END
diff --git a/lapack-netlib/TESTING/LIN/ddrvge.f b/lapack-netlib/TESTING/LIN/ddrvge.f
index a4209138d..c079135a2 100644
--- a/lapack-netlib/TESTING/LIN/ddrvge.f
+++ b/lapack-netlib/TESTING/LIN/ddrvge.f
@@ -155,8 +155,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
@@ -164,10 +162,9 @@
$ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK,
$ RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/ddrvgex.f b/lapack-netlib/TESTING/LIN/ddrvgex.f
index 228e886e9..53fa3ee74 100644
--- a/lapack-netlib/TESTING/LIN/ddrvgex.f
+++ b/lapack-netlib/TESTING/LIN/ddrvgex.f
@@ -158,8 +158,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup double_lin
*
* =====================================================================
@@ -167,10 +165,9 @@
$ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK,
$ RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* April 2012
*
* .. Scalar Arguments ..
LOGICAL TSTERR
@@ -889,6 +886,6 @@
$ G12.5 )
RETURN
*
-* End of DDRVGE
+* End of DDRVGEX
*
END
diff --git a/lapack-netlib/TESTING/LIN/ddrvgt.f b/lapack-netlib/TESTING/LIN/ddrvgt.f
index 6da10336b..b1661e37b 100644
--- a/lapack-netlib/TESTING/LIN/ddrvgt.f
+++ b/lapack-netlib/TESTING/LIN/ddrvgt.f
@@ -131,18 +131,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DDRVGT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, AF,
$ B, X, XACT, WORK, RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/ddrvls.f b/lapack-netlib/TESTING/LIN/ddrvls.f
index adfd71e09..b64930c10 100644
--- a/lapack-netlib/TESTING/LIN/ddrvls.f
+++ b/lapack-netlib/TESTING/LIN/ddrvls.f
@@ -183,8 +183,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup double_lin
*
* =====================================================================
@@ -192,10 +190,9 @@
$ NBVAL, NXVAL, THRESH, TSTERR, A, COPYA, B,
$ COPYB, C, S, COPYS, NOUT )
*
-* -- LAPACK test routine (version 3.7.1) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2017
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/ddrvpb.f b/lapack-netlib/TESTING/LIN/ddrvpb.f
index 6b5695faf..6508de866 100644
--- a/lapack-netlib/TESTING/LIN/ddrvpb.f
+++ b/lapack-netlib/TESTING/LIN/ddrvpb.f
@@ -155,8 +155,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
@@ -164,10 +162,9 @@
$ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK,
$ RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/ddrvpo.f b/lapack-netlib/TESTING/LIN/ddrvpo.f
index 2caddcea9..c5c8076e0 100644
--- a/lapack-netlib/TESTING/LIN/ddrvpo.f
+++ b/lapack-netlib/TESTING/LIN/ddrvpo.f
@@ -155,8 +155,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
@@ -164,10 +162,9 @@
$ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK,
$ RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/ddrvpox.f b/lapack-netlib/TESTING/LIN/ddrvpox.f
index e093bbaa7..f23223ee1 100644
--- a/lapack-netlib/TESTING/LIN/ddrvpox.f
+++ b/lapack-netlib/TESTING/LIN/ddrvpox.f
@@ -158,8 +158,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
@@ -167,10 +165,9 @@
$ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK,
$ RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
@@ -731,6 +728,6 @@
$ G12.5 )
RETURN
*
-* End of DDRVPO
+* End of DDRVPOX
*
END
diff --git a/lapack-netlib/TESTING/LIN/ddrvpp.f b/lapack-netlib/TESTING/LIN/ddrvpp.f
index dac2e2e59..15de557f9 100644
--- a/lapack-netlib/TESTING/LIN/ddrvpp.f
+++ b/lapack-netlib/TESTING/LIN/ddrvpp.f
@@ -158,8 +158,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
@@ -167,10 +165,9 @@
$ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK,
$ RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/ddrvpt.f b/lapack-netlib/TESTING/LIN/ddrvpt.f
index eec5c7490..c0c2806ec 100644
--- a/lapack-netlib/TESTING/LIN/ddrvpt.f
+++ b/lapack-netlib/TESTING/LIN/ddrvpt.f
@@ -132,18 +132,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DDRVPT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, D,
$ E, B, X, XACT, WORK, RWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/ddrvrf1.f b/lapack-netlib/TESTING/LIN/ddrvrf1.f
index dfb1941a6..08ab4895f 100644
--- a/lapack-netlib/TESTING/LIN/ddrvrf1.f
+++ b/lapack-netlib/TESTING/LIN/ddrvrf1.f
@@ -87,17 +87,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DDRVRF1( NOUT, NN, NVAL, THRESH, A, LDA, ARF, WORK )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, NN, NOUT
diff --git a/lapack-netlib/TESTING/LIN/ddrvrf2.f b/lapack-netlib/TESTING/LIN/ddrvrf2.f
index 3d38ca042..6ed60b136 100644
--- a/lapack-netlib/TESTING/LIN/ddrvrf2.f
+++ b/lapack-netlib/TESTING/LIN/ddrvrf2.f
@@ -82,17 +82,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DDRVRF2( NOUT, NN, NVAL, A, LDA, ARF, AP, ASAV )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, NN, NOUT
diff --git a/lapack-netlib/TESTING/LIN/ddrvrf3.f b/lapack-netlib/TESTING/LIN/ddrvrf3.f
index 59d291817..1c5d74aea 100644
--- a/lapack-netlib/TESTING/LIN/ddrvrf3.f
+++ b/lapack-netlib/TESTING/LIN/ddrvrf3.f
@@ -110,18 +110,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2,
+ D_WORK_DLANGE, D_WORK_DGEQRF, TAU )
*
-* -- LAPACK test routine (version 3.7.1) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2017
*
* .. Scalar Arguments ..
INTEGER LDA, NN, NOUT
@@ -255,8 +252,8 @@
* Generate A our NA--by--NA triangular
* matrix.
* Our test is based on forward error so we
-* do want A to be well conditionned! To get
-* a well-conditionned triangular matrix, we
+* do want A to be well conditioned! To get
+* a well-conditioned triangular matrix, we
* take the R factor of the QR/LQ factorization
* of a random matrix.
*
diff --git a/lapack-netlib/TESTING/LIN/ddrvrf4.f b/lapack-netlib/TESTING/LIN/ddrvrf4.f
index 02b0bbaf7..260a1bcc6 100644
--- a/lapack-netlib/TESTING/LIN/ddrvrf4.f
+++ b/lapack-netlib/TESTING/LIN/ddrvrf4.f
@@ -110,18 +110,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DDRVRF4( NOUT, NN, NVAL, THRESH, C1, C2, LDC, CRF, A,
+ LDA, D_WORK_DLANGE )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LDC, NN, NOUT
diff --git a/lapack-netlib/TESTING/LIN/ddrvrfp.f b/lapack-netlib/TESTING/LIN/ddrvrfp.f
index 18ccbdfc4..0e6596920 100644
--- a/lapack-netlib/TESTING/LIN/ddrvrfp.f
+++ b/lapack-netlib/TESTING/LIN/ddrvrfp.f
@@ -203,11 +203,6 @@
*> D_TEMP_DPOT03 is DOUBLE PRECISION array, dimension ( NMAX*NMAX )
*> \endverbatim
*>
-*> \param[out] D_WORK_DLATMS
-*> \verbatim
-*> D_WORK_DLATMS is DOUBLE PRECISION array, dimension ( NMAX )
-*> \endverbatim
-*>
*> \param[out] D_WORK_DLANSY
*> \verbatim
*> D_WORK_DLANSY is DOUBLE PRECISION array, dimension ( NMAX )
@@ -231,8 +226,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
@@ -243,10 +236,9 @@
+ D_TEMP_DPOT03, D_WORK_DLANSY,
+ D_WORK_DPOT02, D_WORK_DPOT03 )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER NN, NNS, NNT, NOUT
diff --git a/lapack-netlib/TESTING/LIN/ddrvsp.f b/lapack-netlib/TESTING/LIN/ddrvsp.f
index a7c231614..a62561c66 100644
--- a/lapack-netlib/TESTING/LIN/ddrvsp.f
+++ b/lapack-netlib/TESTING/LIN/ddrvsp.f
@@ -147,8 +147,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
@@ -156,10 +154,9 @@
$ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK,
$ NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/ddrvsy.f b/lapack-netlib/TESTING/LIN/ddrvsy.f
index ec94c4710..4eb3fa8e6 100644
--- a/lapack-netlib/TESTING/LIN/ddrvsy.f
+++ b/lapack-netlib/TESTING/LIN/ddrvsy.f
@@ -143,8 +143,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2013
-*
*> \ingroup double_lin
*
* =====================================================================
@@ -152,10 +150,9 @@
$ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK,
$ NOUT )
*
-* -- LAPACK test routine (version 3.5.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2013
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/ddrvsy_aa.f b/lapack-netlib/TESTING/LIN/ddrvsy_aa.f
index cf1b63841..0b8e46c71 100644
--- a/lapack-netlib/TESTING/LIN/ddrvsy_aa.f
+++ b/lapack-netlib/TESTING/LIN/ddrvsy_aa.f
@@ -143,10 +143,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
-* @precisions fortran d -> z c
-*
*> \ingroup double_lin
*
* =====================================================================
@@ -154,10 +150,9 @@
$ NMAX, A, AFAC, AINV, B, X, XACT, WORK,
$ RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.8.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2017
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/ddrvsy_aa_2stage.f b/lapack-netlib/TESTING/LIN/ddrvsy_aa_2stage.f
index 898422654..91c9e8e9a 100644
--- a/lapack-netlib/TESTING/LIN/ddrvsy_aa_2stage.f
+++ b/lapack-netlib/TESTING/LIN/ddrvsy_aa_2stage.f
@@ -145,8 +145,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup double_lin
*
* =====================================================================
@@ -155,10 +153,9 @@
$ NMAX, A, AFAC, AINV, B, X, XACT, WORK,
$ RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.8.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2017
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/ddrvsy_rk.f b/lapack-netlib/TESTING/LIN/ddrvsy_rk.f
index 92811ce93..15b2c2b78 100644
--- a/lapack-netlib/TESTING/LIN/ddrvsy_rk.f
+++ b/lapack-netlib/TESTING/LIN/ddrvsy_rk.f
@@ -147,8 +147,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
@@ -156,10 +154,9 @@
$ NMAX, A, AFAC, E, AINV, B, X, XACT, WORK,
$ RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
@@ -411,7 +408,7 @@
CALL DLACPY( UPLO, N, N, AFAC, LDA, AINV, LDA )
LWORK = (N+NB+1)*(NB+3)
*
-* We need to copute the invesrse to compute
+* We need to compute the inverse to compute
* RCONDC that is used later in TEST3.
*
CALL DSYTRI_3( UPLO, N, AINV, LDA, E, IWORK,
diff --git a/lapack-netlib/TESTING/LIN/ddrvsy_rook.f b/lapack-netlib/TESTING/LIN/ddrvsy_rook.f
index 670fc8cff..dcfea9450 100644
--- a/lapack-netlib/TESTING/LIN/ddrvsy_rook.f
+++ b/lapack-netlib/TESTING/LIN/ddrvsy_rook.f
@@ -143,8 +143,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2013
-*
*> \ingroup double_lin
*
* =====================================================================
@@ -152,10 +150,9 @@
$ NMAX, A, AFAC, AINV, B, X, XACT, WORK,
$ RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.5.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2013
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/ddrvsyx.f b/lapack-netlib/TESTING/LIN/ddrvsyx.f
index ab2b541d7..51781ca98 100644
--- a/lapack-netlib/TESTING/LIN/ddrvsyx.f
+++ b/lapack-netlib/TESTING/LIN/ddrvsyx.f
@@ -147,8 +147,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
@@ -156,10 +154,9 @@
$ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK,
$ NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
@@ -707,6 +704,6 @@
$ ', type ', I2, ', test ', I2, ', ratio =', G12.5 )
RETURN
*
-* End of DDRVSY
+* End of DDRVSYX
*
END
diff --git a/lapack-netlib/TESTING/LIN/debchvxx.f b/lapack-netlib/TESTING/LIN/debchvxx.f
index aef2b5ccf..e65b41808 100644
--- a/lapack-netlib/TESTING/LIN/debchvxx.f
+++ b/lapack-netlib/TESTING/LIN/debchvxx.f
@@ -89,8 +89,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
@@ -490,5 +488,7 @@ c$$$ WRITE(*,*)
8000 FORMAT( ' D', A2, 'SVXX: N =', I2, ', INFO = ', I3,
$ ', ORCOND = ', G12.5, ', real RCOND = ', G12.5 )
-
+*
+* End of DEBCHVXX
+*
END
diff --git a/lapack-netlib/TESTING/LIN/derrab.f b/lapack-netlib/TESTING/LIN/derrab.f
index dd2662635..1ab97ef25 100644
--- a/lapack-netlib/TESTING/LIN/derrab.f
+++ b/lapack-netlib/TESTING/LIN/derrab.f
@@ -40,17 +40,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DERRAB( NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER NUNIT
diff --git a/lapack-netlib/TESTING/LIN/derrac.f b/lapack-netlib/TESTING/LIN/derrac.f
index 4ab5e899b..4db46ca59 100644
--- a/lapack-netlib/TESTING/LIN/derrac.f
+++ b/lapack-netlib/TESTING/LIN/derrac.f
@@ -40,17 +40,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DERRAC( NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER NUNIT
diff --git a/lapack-netlib/TESTING/LIN/derrge.f b/lapack-netlib/TESTING/LIN/derrge.f
index 027801ddd..fc80bbbcf 100644
--- a/lapack-netlib/TESTING/LIN/derrge.f
+++ b/lapack-netlib/TESTING/LIN/derrge.f
@@ -48,17 +48,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DERRGE( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/LIN/derrgex.f b/lapack-netlib/TESTING/LIN/derrgex.f
index 20f05fa4a..c54d82ce8 100644
--- a/lapack-netlib/TESTING/LIN/derrgex.f
+++ b/lapack-netlib/TESTING/LIN/derrgex.f
@@ -51,17 +51,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DERRGE( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
@@ -560,6 +557,6 @@
*
RETURN
*
-* End of DERRGE
+* End of DERRGEX
*
END
diff --git a/lapack-netlib/TESTING/LIN/derrgt.f b/lapack-netlib/TESTING/LIN/derrgt.f
index 75b466a48..c4cebf2f8 100644
--- a/lapack-netlib/TESTING/LIN/derrgt.f
+++ b/lapack-netlib/TESTING/LIN/derrgt.f
@@ -48,17 +48,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DERRGT( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/LIN/derrlq.f b/lapack-netlib/TESTING/LIN/derrlq.f
index ba297f5cf..d3cfcddd0 100644
--- a/lapack-netlib/TESTING/LIN/derrlq.f
+++ b/lapack-netlib/TESTING/LIN/derrlq.f
@@ -48,17 +48,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DERRLQ( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/LIN/derrlqt.f b/lapack-netlib/TESTING/LIN/derrlqt.f
index 68ff8c545..6653fa1e9 100644
--- a/lapack-netlib/TESTING/LIN/derrlqt.f
+++ b/lapack-netlib/TESTING/LIN/derrlqt.f
@@ -48,18 +48,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DERRLQT( PATH, NUNIT )
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/LIN/derrlqtp.f b/lapack-netlib/TESTING/LIN/derrlqtp.f
index 16129540a..5707a9ba0 100644
--- a/lapack-netlib/TESTING/LIN/derrlqtp.f
+++ b/lapack-netlib/TESTING/LIN/derrlqtp.f
@@ -48,18 +48,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DERRLQTP( PATH, NUNIT )
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
@@ -220,6 +217,6 @@
*
RETURN
*
-* End of DERRLQT
+* End of DERRLQTP
*
END
diff --git a/lapack-netlib/TESTING/LIN/derrls.f b/lapack-netlib/TESTING/LIN/derrls.f
index 1be8830ba..a1f74dec2 100644
--- a/lapack-netlib/TESTING/LIN/derrls.f
+++ b/lapack-netlib/TESTING/LIN/derrls.f
@@ -48,17 +48,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DERRLS( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/LIN/derrorhr_col.f b/lapack-netlib/TESTING/LIN/derrorhr_col.f
index 6d545bc91..998f8a508 100644
--- a/lapack-netlib/TESTING/LIN/derrorhr_col.f
+++ b/lapack-netlib/TESTING/LIN/derrorhr_col.f
@@ -22,7 +22,7 @@
*> \verbatim
*>
*> DERRORHR_COL tests the error exits for DORHR_COL that does
-*> Householder reconstruction from the ouput of tall-skinny
+*> Householder reconstruction from the output of tall-skinny
*> factorization DLATSQR.
*> \endverbatim
*
@@ -49,18 +49,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2019
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DERRORHR_COL( PATH, NUNIT )
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.9.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2019
*
* .. Scalar Arguments ..
CHARACTER(LEN=3) PATH
diff --git a/lapack-netlib/TESTING/LIN/derrpo.f b/lapack-netlib/TESTING/LIN/derrpo.f
index 6d613764a..8282119ef 100644
--- a/lapack-netlib/TESTING/LIN/derrpo.f
+++ b/lapack-netlib/TESTING/LIN/derrpo.f
@@ -48,17 +48,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DERRPO( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/LIN/derrpox.f b/lapack-netlib/TESTING/LIN/derrpox.f
index 88d0c7e3a..c39cdd02f 100644
--- a/lapack-netlib/TESTING/LIN/derrpox.f
+++ b/lapack-netlib/TESTING/LIN/derrpox.f
@@ -51,17 +51,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DERRPO( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
@@ -526,6 +523,6 @@
*
RETURN
*
-* End of DERRPO
+* End of DERRPOX
*
END
diff --git a/lapack-netlib/TESTING/LIN/derrps.f b/lapack-netlib/TESTING/LIN/derrps.f
index 4d2bf3e83..378542c04 100644
--- a/lapack-netlib/TESTING/LIN/derrps.f
+++ b/lapack-netlib/TESTING/LIN/derrps.f
@@ -48,17 +48,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DERRPS( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER NUNIT
diff --git a/lapack-netlib/TESTING/LIN/derrql.f b/lapack-netlib/TESTING/LIN/derrql.f
index 477c3ef1c..b9c50d9ab 100644
--- a/lapack-netlib/TESTING/LIN/derrql.f
+++ b/lapack-netlib/TESTING/LIN/derrql.f
@@ -48,17 +48,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DERRQL( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/LIN/derrqp.f b/lapack-netlib/TESTING/LIN/derrqp.f
index 4f438feab..3f29bf60e 100644
--- a/lapack-netlib/TESTING/LIN/derrqp.f
+++ b/lapack-netlib/TESTING/LIN/derrqp.f
@@ -47,17 +47,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DERRQP( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/LIN/derrqr.f b/lapack-netlib/TESTING/LIN/derrqr.f
index e1fe51cad..03155b133 100644
--- a/lapack-netlib/TESTING/LIN/derrqr.f
+++ b/lapack-netlib/TESTING/LIN/derrqr.f
@@ -48,17 +48,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DERRQR( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/LIN/derrqrt.f b/lapack-netlib/TESTING/LIN/derrqrt.f
index 660e2ef53..9a15f0b1c 100644
--- a/lapack-netlib/TESTING/LIN/derrqrt.f
+++ b/lapack-netlib/TESTING/LIN/derrqrt.f
@@ -48,18 +48,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DERRQRT( PATH, NUNIT )
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/LIN/derrqrtp.f b/lapack-netlib/TESTING/LIN/derrqrtp.f
index 83be5aa3e..b7e7fe346 100644
--- a/lapack-netlib/TESTING/LIN/derrqrtp.f
+++ b/lapack-netlib/TESTING/LIN/derrqrtp.f
@@ -48,18 +48,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DERRQRTP( PATH, NUNIT )
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
@@ -224,6 +221,6 @@
*
RETURN
*
-* End of DERRQRT
+* End of DERRQRTP
*
END
diff --git a/lapack-netlib/TESTING/LIN/derrrfp.f b/lapack-netlib/TESTING/LIN/derrrfp.f
index 8db8ebf0a..d1e07a6ef 100644
--- a/lapack-netlib/TESTING/LIN/derrrfp.f
+++ b/lapack-netlib/TESTING/LIN/derrrfp.f
@@ -45,17 +45,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DERRRFP( NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER NUNIT
diff --git a/lapack-netlib/TESTING/LIN/derrrq.f b/lapack-netlib/TESTING/LIN/derrrq.f
index d594a74bc..ae51d4c72 100644
--- a/lapack-netlib/TESTING/LIN/derrrq.f
+++ b/lapack-netlib/TESTING/LIN/derrrq.f
@@ -48,17 +48,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DERRRQ( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/LIN/derrsy.f b/lapack-netlib/TESTING/LIN/derrsy.f
index b511cdcc5..af15a4b8e 100644
--- a/lapack-netlib/TESTING/LIN/derrsy.f
+++ b/lapack-netlib/TESTING/LIN/derrsy.f
@@ -48,17 +48,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DERRSY( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.8.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2017
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/LIN/derrsyx.f b/lapack-netlib/TESTING/LIN/derrsyx.f
index 0634209e5..c2d14caab 100644
--- a/lapack-netlib/TESTING/LIN/derrsyx.f
+++ b/lapack-netlib/TESTING/LIN/derrsyx.f
@@ -51,17 +51,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DERRSY( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
@@ -614,6 +611,6 @@
*
RETURN
*
-* End of DERRSY
+* End of DERRSYX
*
END
diff --git a/lapack-netlib/TESTING/LIN/derrtr.f b/lapack-netlib/TESTING/LIN/derrtr.f
index f709ba7e6..a667f0d2b 100644
--- a/lapack-netlib/TESTING/LIN/derrtr.f
+++ b/lapack-netlib/TESTING/LIN/derrtr.f
@@ -48,17 +48,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DERRTR( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/LIN/derrtsqr.f b/lapack-netlib/TESTING/LIN/derrtsqr.f
index d1d0ff02d..f0d345149 100644
--- a/lapack-netlib/TESTING/LIN/derrtsqr.f
+++ b/lapack-netlib/TESTING/LIN/derrtsqr.f
@@ -48,18 +48,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DERRTSQR( PATH, NUNIT )
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
@@ -73,7 +70,7 @@
PARAMETER ( NMAX = 2 )
* ..
* .. Local Scalars ..
- INTEGER I, INFO, J, NB
+ INTEGER I, INFO, J, MB, NB
* ..
* .. Local Arrays ..
DOUBLE PRECISION A( NMAX, NMAX ), T( NMAX, NMAX ), W( NMAX ),
@@ -133,6 +130,35 @@
CALL DGEQR( 3, 2, A, 3, TAU, 7, W, 0, INFO )
CALL CHKXER( 'DGEQR', INFOT, NOUT, LERR, OK )
*
+* DLATSQR
+*
+ MB = 1
+ NB = 1
+ SRNAMT = 'DLATSQR'
+ INFOT = 1
+ CALL DLATSQR( -1, 0, MB, NB, A, 1, TAU, 1, W, 1, INFO )
+ CALL CHKXER( 'DLATSQR', INFOT, NOUT, LERR, OK )
+ INFOT = 2
+ CALL DLATSQR( 1, 2, MB, NB, A, 1, TAU, 1, W, 1, INFO )
+ CALL CHKXER( 'DLATSQR', INFOT, NOUT, LERR, OK )
+ CALL DLATSQR( 0, -1, MB, NB, A, 1, TAU, 1, W, 1, INFO )
+ CALL CHKXER( 'DLATSQR', INFOT, NOUT, LERR, OK )
+ INFOT = 3
+ CALL DLATSQR( 2, 1, -1, NB, A, 2, TAU, 1, W, 1, INFO )
+ CALL CHKXER( 'DLATSQR', INFOT, NOUT, LERR, OK )
+ INFOT = 4
+ CALL DLATSQR( 2, 1, MB, 2, A, 2, TAU, 1, W, 1, INFO )
+ CALL CHKXER( 'DLATSQR', INFOT, NOUT, LERR, OK )
+ INFOT = 6
+ CALL DLATSQR( 2, 1, MB, NB, A, 1, TAU, 1, W, 1, INFO )
+ CALL CHKXER( 'DLATSQR', INFOT, NOUT, LERR, OK )
+ INFOT = 8
+ CALL DLATSQR( 2, 1, MB, NB, A, 2, TAU, 0, W, 1, INFO )
+ CALL CHKXER( 'DLATSQR', INFOT, NOUT, LERR, OK )
+ INFOT = 10
+ CALL DLATSQR( 2, 1, MB, NB, A, 2, TAU, 2, W, 0, INFO )
+ CALL CHKXER( 'DLATSQR', INFOT, NOUT, LERR, OK )
+*
* DGEMQR
*
TAU(1)=1
@@ -194,6 +220,37 @@
CALL DGELQ( 2, 3, A, 3, TAU, 7, W, 0, INFO )
CALL CHKXER( 'DGELQ', INFOT, NOUT, LERR, OK )
*
+* DLASWLQ
+*
+ MB = 1
+ NB = 1
+ SRNAMT = 'DLASWLQ'
+ INFOT = 1
+ CALL DLASWLQ( -1, 0, MB, NB, A, 1, TAU, 1, W, 1, INFO )
+ CALL CHKXER( 'DLASWLQ', INFOT, NOUT, LERR, OK )
+ INFOT = 2
+ CALL DLASWLQ( 2, 1, MB, NB, A, 1, TAU, 1, W, 1, INFO )
+ CALL CHKXER( 'DLASWLQ', INFOT, NOUT, LERR, OK )
+ CALL DLASWLQ( 0, -1, MB, NB, A, 1, TAU, 1, W, 1, INFO )
+ CALL CHKXER( 'DLASWLQ', INFOT, NOUT, LERR, OK )
+ INFOT = 3
+ CALL DLASWLQ( 1, 2, -1, NB, A, 1, TAU, 1, W, 1, INFO )
+ CALL CHKXER( 'DLASWLQ', INFOT, NOUT, LERR, OK )
+ CALL DLASWLQ( 1, 1, 2, NB, A, 1, TAU, 1, W, 1, INFO )
+ CALL CHKXER( 'DLASWLQ', INFOT, NOUT, LERR, OK )
+ INFOT = 4
+ CALL DLASWLQ( 1, 2, MB, -1, A, 1, TAU, 1, W, 1, INFO )
+ CALL CHKXER( 'DLASWLQ', INFOT, NOUT, LERR, OK )
+ INFOT = 6
+ CALL DLASWLQ( 1, 2, MB, NB, A, 0, TAU, 1, W, 1, INFO )
+ CALL CHKXER( 'DLASWLQ', INFOT, NOUT, LERR, OK )
+ INFOT = 8
+ CALL DLASWLQ( 1, 2, MB, NB, A, 1, TAU, 0, W, 1, INFO )
+ CALL CHKXER( 'DLASWLQ', INFOT, NOUT, LERR, OK )
+ INFOT = 10
+ CALL DLASWLQ( 1, 2, MB, NB, A, 1, TAU, 1, W, 0, INFO )
+ CALL CHKXER( 'DLASWLQ', INFOT, NOUT, LERR, OK )
+*
* DGEMLQ
*
TAU(1)=1
diff --git a/lapack-netlib/TESTING/LIN/derrtz.f b/lapack-netlib/TESTING/LIN/derrtz.f
index 1980d1fa0..a43ae219c 100644
--- a/lapack-netlib/TESTING/LIN/derrtz.f
+++ b/lapack-netlib/TESTING/LIN/derrtz.f
@@ -47,17 +47,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DERRTZ( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/LIN/derrvx.f b/lapack-netlib/TESTING/LIN/derrvx.f
index fd1d038a6..447b00bc4 100644
--- a/lapack-netlib/TESTING/LIN/derrvx.f
+++ b/lapack-netlib/TESTING/LIN/derrvx.f
@@ -48,17 +48,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DERRVX( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.8.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2017
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/LIN/derrvxx.f b/lapack-netlib/TESTING/LIN/derrvxx.f
index 6e96b32bd..dd2c5700d 100644
--- a/lapack-netlib/TESTING/LIN/derrvxx.f
+++ b/lapack-netlib/TESTING/LIN/derrvxx.f
@@ -48,17 +48,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DERRVX( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
@@ -1042,6 +1039,6 @@
*
RETURN
*
-* End of DERRVX
+* End of DERRVXX
*
END
diff --git a/lapack-netlib/TESTING/LIN/dgbt01.f b/lapack-netlib/TESTING/LIN/dgbt01.f
index 2515733f5..28f7200dd 100644
--- a/lapack-netlib/TESTING/LIN/dgbt01.f
+++ b/lapack-netlib/TESTING/LIN/dgbt01.f
@@ -118,18 +118,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DGBT01( M, N, KL, KU, A, LDA, AFAC, LDAFAC, IPIV, WORK,
$ RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER KL, KU, LDA, LDAFAC, M, N
diff --git a/lapack-netlib/TESTING/LIN/dgbt02.f b/lapack-netlib/TESTING/LIN/dgbt02.f
index bc11ba7d4..cd13b7535 100644
--- a/lapack-netlib/TESTING/LIN/dgbt02.f
+++ b/lapack-netlib/TESTING/LIN/dgbt02.f
@@ -9,7 +9,7 @@
* ===========
*
* SUBROUTINE DGBT02( TRANS, M, N, KL, KU, NRHS, A, LDA, X, LDX, B,
-* LDB, RESID )
+* LDB, RWORK, RESID )
*
* .. Scalar Arguments ..
* CHARACTER TRANS
@@ -17,7 +17,8 @@
* DOUBLE PRECISION RESID
* ..
* .. Array Arguments ..
-* DOUBLE PRECISION A( LDA, * ), B( LDB, * ), X( LDX, * )
+* DOUBLE PRECISION A( LDA, * ), B( LDB, * ), X( LDX, * ),
+* RWORK( * )
* ..
*
*
@@ -27,9 +28,11 @@
*> \verbatim
*>
*> DGBT02 computes the residual for a solution of a banded system of
-*> equations A*x = b or A'*x = b:
-*> RESID = norm( B - A*X ) / ( norm(A) * norm(X) * EPS).
-*> where EPS is the machine precision.
+*> equations op(A)*X = B:
+*> RESID = norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ),
+*> where op(A) = A or A**T, depending on TRANS, and EPS is the
+*> machine epsilon.
+*> The norm used is the 1-norm.
*> \endverbatim
*
* Arguments:
@@ -39,9 +42,9 @@
*> \verbatim
*> TRANS is CHARACTER*1
*> Specifies the form of the system of equations:
-*> = 'N': A *x = b
-*> = 'T': A'*x = b, where A' is the transpose of A
-*> = 'C': A'*x = b, where A' is the transpose of A
+*> = 'N': A * X = B (No transpose)
+*> = 'T': A**T * X = B (Transpose)
+*> = 'C': A**H * X = B (Conjugate transpose = Transpose)
*> \endverbatim
*>
*> \param[in] M
@@ -116,11 +119,18 @@
*> LDB >= max(1,M); if TRANS = 'T' or 'C', LDB >= max(1,N).
*> \endverbatim
*>
+*> \param[out] RWORK
+*> \verbatim
+*> RWORK is DOUBLE PRECISION array, dimension (MAX(1,LRWORK)),
+*> where LRWORK >= M when TRANS = 'T' or 'C'; otherwise, RWORK
+*> is not referenced.
+*> \endverbatim
+*
*> \param[out] RESID
*> \verbatim
*> RESID is DOUBLE PRECISION
*> The maximum over the number of right hand sides of
-*> norm(B - A*X) / ( norm(A) * norm(X) * EPS ).
+*> norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ).
*> \endverbatim
*
* Authors:
@@ -131,18 +141,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DGBT02( TRANS, M, N, KL, KU, NRHS, A, LDA, X, LDX, B,
- $ LDB, RESID )
+ $ LDB, RWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER TRANS
@@ -150,7 +157,8 @@
DOUBLE PRECISION RESID
* ..
* .. Array Arguments ..
- DOUBLE PRECISION A( LDA, * ), B( LDB, * ), X( LDX, * )
+ DOUBLE PRECISION A( LDA, * ), B( LDB, * ), X( LDX, * ),
+ $ RWORK( * )
* ..
*
* =====================================================================
@@ -161,18 +169,18 @@
* ..
* .. Local Scalars ..
INTEGER I1, I2, J, KD, N1
- DOUBLE PRECISION ANORM, BNORM, EPS, XNORM
+ DOUBLE PRECISION ANORM, BNORM, EPS, TEMP, XNORM
* ..
* .. External Functions ..
- LOGICAL LSAME
+ LOGICAL DISNAN, LSAME
DOUBLE PRECISION DASUM, DLAMCH
- EXTERNAL LSAME, DASUM, DLAMCH
+ EXTERNAL DASUM, DISNAN, DLAMCH, LSAME
* ..
* .. External Subroutines ..
EXTERNAL DGBMV
* ..
* .. Intrinsic Functions ..
- INTRINSIC MAX, MIN
+ INTRINSIC ABS, MAX, MIN
* ..
* .. Executable Statements ..
*
@@ -186,13 +194,38 @@
* Exit with RESID = 1/EPS if ANORM = 0.
*
EPS = DLAMCH( 'Epsilon' )
- KD = KU + 1
ANORM = ZERO
+ IF( LSAME( TRANS, 'N' ) ) THEN
+*
+* Find norm1(A).
+*
+ KD = KU + 1
DO 10 J = 1, N
I1 = MAX( KD+1-J, 1 )
I2 = MIN( KD+M-J, KL+KD )
- ANORM = MAX( ANORM, DASUM( I2-I1+1, A( I1, J ), 1 ) )
+ IF( I2.GE.I1 ) THEN
+ TEMP = DASUM( I2-I1+1, A( I1, J ), 1 )
+ IF( ANORM.LT.TEMP .OR. DISNAN( TEMP ) ) ANORM = TEMP
+ END IF
10 CONTINUE
+ ELSE
+*
+* Find normI(A).
+*
+ DO 12 I1 = 1, M
+ RWORK( I1 ) = ZERO
+ 12 CONTINUE
+ DO 16 J = 1, N
+ KD = KU + 1 - J
+ DO 14 I1 = MAX( 1, J-KU ), MIN( M, J+KL )
+ RWORK( I1 ) = RWORK( I1 ) + ABS( A( KD+I1, J ) )
+ 14 CONTINUE
+ 16 CONTINUE
+ DO 18 I1 = 1, M
+ TEMP = RWORK( I1 )
+ IF( ANORM.LT.TEMP .OR. DISNAN( TEMP ) ) ANORM = TEMP
+ 18 CONTINUE
+ END IF
IF( ANORM.LE.ZERO ) THEN
RESID = ONE / EPS
RETURN
@@ -204,7 +237,7 @@
N1 = M
END IF
*
-* Compute B - A*X (or B - A'*X )
+* Compute B - op(A)*X
*
DO 20 J = 1, NRHS
CALL DGBMV( TRANS, M, N, KL, KU, -ONE, A, LDA, X( 1, J ), 1,
@@ -212,7 +245,7 @@
20 CONTINUE
*
* Compute the maximum over the number of right hand sides of
-* norm(B - A*X) / ( norm(A) * norm(X) * EPS ).
+* norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ).
*
RESID = ZERO
DO 30 J = 1, NRHS
diff --git a/lapack-netlib/TESTING/LIN/dgbt05.f b/lapack-netlib/TESTING/LIN/dgbt05.f
index 1333abb9a..ba85eaf7d 100644
--- a/lapack-netlib/TESTING/LIN/dgbt05.f
+++ b/lapack-netlib/TESTING/LIN/dgbt05.f
@@ -168,18 +168,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DGBT05( TRANS, N, KL, KU, NRHS, AB, LDAB, B, LDB, X,
$ LDX, XACT, LDXACT, FERR, BERR, RESLTS )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER TRANS
diff --git a/lapack-netlib/TESTING/LIN/dgelqs.f b/lapack-netlib/TESTING/LIN/dgelqs.f
index 46683ef12..ecbb5893c 100644
--- a/lapack-netlib/TESTING/LIN/dgelqs.f
+++ b/lapack-netlib/TESTING/LIN/dgelqs.f
@@ -113,18 +113,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DGELQS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK,
$ INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS
diff --git a/lapack-netlib/TESTING/LIN/dgennd.f b/lapack-netlib/TESTING/LIN/dgennd.f
index 986775af4..9b3ed260b 100644
--- a/lapack-netlib/TESTING/LIN/dgennd.f
+++ b/lapack-netlib/TESTING/LIN/dgennd.f
@@ -61,17 +61,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
LOGICAL FUNCTION DGENND (M, N, A, LDA)
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER M, N, LDA
diff --git a/lapack-netlib/TESTING/LIN/dgeqls.f b/lapack-netlib/TESTING/LIN/dgeqls.f
index 1ca418f1b..e84df53ec 100644
--- a/lapack-netlib/TESTING/LIN/dgeqls.f
+++ b/lapack-netlib/TESTING/LIN/dgeqls.f
@@ -114,18 +114,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DGEQLS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK,
$ INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS
diff --git a/lapack-netlib/TESTING/LIN/dgeqrs.f b/lapack-netlib/TESTING/LIN/dgeqrs.f
index 83fddf4e1..bfb7bd8bb 100644
--- a/lapack-netlib/TESTING/LIN/dgeqrs.f
+++ b/lapack-netlib/TESTING/LIN/dgeqrs.f
@@ -113,18 +113,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DGEQRS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK,
$ INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS
diff --git a/lapack-netlib/TESTING/LIN/dgerqs.f b/lapack-netlib/TESTING/LIN/dgerqs.f
index d3ea086fa..a89324964 100644
--- a/lapack-netlib/TESTING/LIN/dgerqs.f
+++ b/lapack-netlib/TESTING/LIN/dgerqs.f
@@ -114,18 +114,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DGERQS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK,
$ INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS
diff --git a/lapack-netlib/TESTING/LIN/dget01.f b/lapack-netlib/TESTING/LIN/dget01.f
index 88ed763b3..fad1c2211 100644
--- a/lapack-netlib/TESTING/LIN/dget01.f
+++ b/lapack-netlib/TESTING/LIN/dget01.f
@@ -99,18 +99,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DGET01( M, N, A, LDA, AFAC, LDAFAC, IPIV, RWORK,
$ RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LDAFAC, M, N
diff --git a/lapack-netlib/TESTING/LIN/dget02.f b/lapack-netlib/TESTING/LIN/dget02.f
index 7b641b3b3..560cc50f7 100644
--- a/lapack-netlib/TESTING/LIN/dget02.f
+++ b/lapack-netlib/TESTING/LIN/dget02.f
@@ -28,9 +28,11 @@
*> \verbatim
*>
*> DGET02 computes the residual for a solution of a system of linear
-*> equations A*x = b or A'*x = b:
-*> RESID = norm(B - A*X) / ( norm(A) * norm(X) * EPS ),
-*> where EPS is the machine epsilon.
+*> equations op(A)*X = B:
+*> RESID = norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ),
+*> where op(A) = A or A**T, depending on TRANS, and EPS is the
+*> machine epsilon.
+*> The norm used is the 1-norm.
*> \endverbatim
*
* Arguments:
@@ -40,9 +42,9 @@
*> \verbatim
*> TRANS is CHARACTER*1
*> Specifies the form of the system of equations:
-*> = 'N': A *x = b
-*> = 'T': A'*x = b, where A' is the transpose of A
-*> = 'C': A'*x = b, where A' is the transpose of A
+*> = 'N': A * X = B (No transpose)
+*> = 'T': A**T * X = B (Transpose)
+*> = 'C': A**H * X = B (Conjugate transpose = Transpose)
*> \endverbatim
*>
*> \param[in] M
@@ -95,7 +97,7 @@
*> B is DOUBLE PRECISION array, dimension (LDB,NRHS)
*> On entry, the right hand side vectors for the system of
*> linear equations.
-*> On exit, B is overwritten with the difference B - A*X.
+*> On exit, B is overwritten with the difference B - op(A)*X.
*> \endverbatim
*>
*> \param[in] LDB
@@ -114,7 +116,7 @@
*> \verbatim
*> RESID is DOUBLE PRECISION
*> The maximum over the number of right hand sides of
-*> norm(B - A*X) / ( norm(A) * norm(X) * EPS ).
+*> norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ).
*> \endverbatim
*
* Authors:
@@ -125,18 +127,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB,
$ RWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER TRANS
@@ -189,19 +188,23 @@
* Exit with RESID = 1/EPS if ANORM = 0.
*
EPS = DLAMCH( 'Epsilon' )
+ IF( LSAME( TRANS, 'N' ) ) THEN
ANORM = DLANGE( '1', M, N, A, LDA, RWORK )
+ ELSE
+ ANORM = DLANGE( 'I', M, N, A, LDA, RWORK )
+ END IF
IF( ANORM.LE.ZERO ) THEN
RESID = ONE / EPS
RETURN
END IF
*
-* Compute B - A*X (or B - A'*X ) and store in B.
+* Compute B - op(A)*X and store in B.
*
CALL DGEMM( TRANS, 'No transpose', N1, NRHS, N2, -ONE, A, LDA, X,
$ LDX, ONE, B, LDB )
*
* Compute the maximum over the number of right hand sides of
-* norm(B - A*X) / ( norm(A) * norm(X) * EPS ) .
+* norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ) .
*
RESID = ZERO
DO 10 J = 1, NRHS
diff --git a/lapack-netlib/TESTING/LIN/dget03.f b/lapack-netlib/TESTING/LIN/dget03.f
index 5b04c81ed..6486ff5d5 100644
--- a/lapack-netlib/TESTING/LIN/dget03.f
+++ b/lapack-netlib/TESTING/LIN/dget03.f
@@ -101,18 +101,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DGET03( N, A, LDA, AINV, LDAINV, WORK, LDWORK, RWORK,
$ RCOND, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LDAINV, LDWORK, N
diff --git a/lapack-netlib/TESTING/LIN/dget04.f b/lapack-netlib/TESTING/LIN/dget04.f
index a5663f621..255f1dd10 100644
--- a/lapack-netlib/TESTING/LIN/dget04.f
+++ b/lapack-netlib/TESTING/LIN/dget04.f
@@ -95,17 +95,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DGET04( N, NRHS, X, LDX, XACT, LDXACT, RCOND, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDX, LDXACT, N, NRHS
diff --git a/lapack-netlib/TESTING/LIN/dget06.f b/lapack-netlib/TESTING/LIN/dget06.f
index a056e1258..0e72c74e6 100644
--- a/lapack-netlib/TESTING/LIN/dget06.f
+++ b/lapack-netlib/TESTING/LIN/dget06.f
@@ -48,17 +48,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
DOUBLE PRECISION FUNCTION DGET06( RCOND, RCONDC )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
DOUBLE PRECISION RCOND, RCONDC
diff --git a/lapack-netlib/TESTING/LIN/dget07.f b/lapack-netlib/TESTING/LIN/dget07.f
index cd56c0ffe..99dbe0c00 100644
--- a/lapack-netlib/TESTING/LIN/dget07.f
+++ b/lapack-netlib/TESTING/LIN/dget07.f
@@ -157,18 +157,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DGET07( TRANS, N, NRHS, A, LDA, B, LDB, X, LDX, XACT,
$ LDXACT, FERR, CHKFERR, BERR, RESLTS )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER TRANS
diff --git a/lapack-netlib/TESTING/LIN/dget08.f b/lapack-netlib/TESTING/LIN/dget08.f
index 731b3924d..5c82d7ba5 100644
--- a/lapack-netlib/TESTING/LIN/dget08.f
+++ b/lapack-netlib/TESTING/LIN/dget08.f
@@ -125,18 +125,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DGET08( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB,
$ RWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER TRANS
@@ -217,6 +214,6 @@
*
RETURN
*
-* End of DGET02
+* End of DGET08
*
END
diff --git a/lapack-netlib/TESTING/LIN/dgtt01.f b/lapack-netlib/TESTING/LIN/dgtt01.f
index 29f4b2574..3b5ff9e4c 100644
--- a/lapack-netlib/TESTING/LIN/dgtt01.f
+++ b/lapack-netlib/TESTING/LIN/dgtt01.f
@@ -126,18 +126,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DGTT01( N, DL, D, DU, DLF, DF, DUF, DU2, IPIV, WORK,
$ LDWORK, RWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDWORK, N
diff --git a/lapack-netlib/TESTING/LIN/dgtt02.f b/lapack-netlib/TESTING/LIN/dgtt02.f
index 956f0f761..b3268b138 100644
--- a/lapack-netlib/TESTING/LIN/dgtt02.f
+++ b/lapack-netlib/TESTING/LIN/dgtt02.f
@@ -29,8 +29,9 @@
*>
*> DGTT02 computes the residual for the solution to a tridiagonal
*> system of equations:
-*> RESID = norm(B - op(A)*X) / (norm(A) * norm(X) * EPS),
+*> RESID = norm(B - op(A)*X) / (norm(op(A)) * norm(X) * EPS),
*> where EPS is the machine epsilon.
+*> The norm used is the 1-norm.
*> \endverbatim
*
* Arguments:
@@ -41,8 +42,8 @@
*> TRANS is CHARACTER
*> Specifies the form of the residual.
*> = 'N': B - A * X (No transpose)
-*> = 'T': B - A'* X (Transpose)
-*> = 'C': B - A'* X (Conjugate transpose = Transpose)
+*> = 'T': B - A**T * X (Transpose)
+*> = 'C': B - A**H * X (Conjugate transpose = Transpose)
*> \endverbatim
*>
*> \param[in] N
@@ -105,7 +106,7 @@
*> \param[out] RESID
*> \verbatim
*> RESID is DOUBLE PRECISION
-*> norm(B - op(A)*X) / (norm(A) * norm(X) * EPS)
+*> norm(B - op(A)*X) / (norm(op(A)) * norm(X) * EPS)
*> \endverbatim
*
* Authors:
@@ -116,18 +117,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DGTT02( TRANS, N, NRHS, DL, D, DU, X, LDX, B, LDB,
$ RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER TRANS
@@ -169,7 +167,7 @@
$ RETURN
*
* Compute the maximum over the number of right hand sides of
-* norm(B - op(A)*X) / ( norm(A) * norm(X) * EPS ).
+* norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ).
*
IF( LSAME( TRANS, 'N' ) ) THEN
ANORM = DLANGT( '1', N, DL, D, DU )
@@ -185,7 +183,7 @@
RETURN
END IF
*
-* Compute B - op(A)*X.
+* Compute B - op(A)*X and store in B.
*
CALL DLAGTM( TRANS, N, NRHS, -ONE, DL, D, DU, X, LDX, ONE, B,
$ LDB )
diff --git a/lapack-netlib/TESTING/LIN/dgtt05.f b/lapack-netlib/TESTING/LIN/dgtt05.f
index c39081f9e..d389ef166 100644
--- a/lapack-netlib/TESTING/LIN/dgtt05.f
+++ b/lapack-netlib/TESTING/LIN/dgtt05.f
@@ -157,18 +157,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DGTT05( TRANS, N, NRHS, DL, D, DU, B, LDB, X, LDX,
$ XACT, LDXACT, FERR, BERR, RESLTS )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER TRANS
diff --git a/lapack-netlib/TESTING/LIN/dlahilb.f b/lapack-netlib/TESTING/LIN/dlahilb.f
index e115e335a..9590be53d 100644
--- a/lapack-netlib/TESTING/LIN/dlahilb.f
+++ b/lapack-netlib/TESTING/LIN/dlahilb.f
@@ -117,17 +117,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK, INFO)
*
-* -- LAPACK test routine (version 3.7.1) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2017
*
* .. Scalar Arguments ..
INTEGER N, NRHS, LDA, LDX, LDB, INFO
diff --git a/lapack-netlib/TESTING/LIN/dlaord.f b/lapack-netlib/TESTING/LIN/dlaord.f
index da3edb198..e5f7e3b50 100644
--- a/lapack-netlib/TESTING/LIN/dlaord.f
+++ b/lapack-netlib/TESTING/LIN/dlaord.f
@@ -66,17 +66,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DLAORD( JOB, N, X, INCX )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER JOB
diff --git a/lapack-netlib/TESTING/LIN/dlaptm.f b/lapack-netlib/TESTING/LIN/dlaptm.f
index 5c62ded10..24cbf6ab5 100644
--- a/lapack-netlib/TESTING/LIN/dlaptm.f
+++ b/lapack-netlib/TESTING/LIN/dlaptm.f
@@ -109,17 +109,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DLAPTM( N, NRHS, ALPHA, D, E, X, LDX, BETA, B, LDB )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDB, LDX, N, NRHS
diff --git a/lapack-netlib/TESTING/LIN/dlarhs.f b/lapack-netlib/TESTING/LIN/dlarhs.f
index f175cf893..9c3fe37d3 100644
--- a/lapack-netlib/TESTING/LIN/dlarhs.f
+++ b/lapack-netlib/TESTING/LIN/dlarhs.f
@@ -30,7 +30,7 @@
*> DLARHS chooses a set of NRHS random solution vectors and sets
*> up the right hand sides for the linear system
*> op( A ) * X = B,
-*> where op( A ) may be A or A' (transpose of A).
+*> where op(A) = A or A**T, depending on TRANS.
*> \endverbatim
*
* Arguments:
@@ -79,10 +79,11 @@
*> \param[in] TRANS
*> \verbatim
*> TRANS is CHARACTER*1
-*> Specifies the operation applied to the matrix A.
-*> = 'N': System is A * x = b
-*> = 'T': System is A'* x = b
-*> = 'C': System is A'* x = b
+*> Used only if A is nonsymmetric; specifies the operation
+*> applied to the matrix A.
+*> = 'N': B := A * X (No transpose)
+*> = 'T': B := A**T * X (Transpose)
+*> = 'C': B := A**H * X (Conjugate transpose = Transpose)
*> \endverbatim
*>
*> \param[in] M
@@ -196,18 +197,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS,
$ A, LDA, X, LDX, B, LDB, ISEED, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER TRANS, UPLO, XTYPE
diff --git a/lapack-netlib/TESTING/LIN/dlatb4.f b/lapack-netlib/TESTING/LIN/dlatb4.f
index 6bdbe5597..8825d13e7 100644
--- a/lapack-netlib/TESTING/LIN/dlatb4.f
+++ b/lapack-netlib/TESTING/LIN/dlatb4.f
@@ -112,18 +112,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DLATB4( PATH, IMAT, M, N, TYPE, KL, KU, ANORM, MODE,
$ CNDNUM, DIST )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIST, TYPE
diff --git a/lapack-netlib/TESTING/LIN/dlatb5.f b/lapack-netlib/TESTING/LIN/dlatb5.f
index 16a5642b3..9967bbad1 100644
--- a/lapack-netlib/TESTING/LIN/dlatb5.f
+++ b/lapack-netlib/TESTING/LIN/dlatb5.f
@@ -106,18 +106,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DLATB5( PATH, IMAT, N, TYPE, KL, KU, ANORM, MODE,
$ CNDNUM, DIST )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
DOUBLE PRECISION ANORM, CNDNUM
diff --git a/lapack-netlib/TESTING/LIN/dlattb.f b/lapack-netlib/TESTING/LIN/dlattb.f
index e35067f12..e3f8c9c34 100644
--- a/lapack-netlib/TESTING/LIN/dlattb.f
+++ b/lapack-netlib/TESTING/LIN/dlattb.f
@@ -127,18 +127,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DLATTB( IMAT, UPLO, TRANS, DIAG, ISEED, N, KD, AB,
$ LDAB, B, WORK, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
diff --git a/lapack-netlib/TESTING/LIN/dlattp.f b/lapack-netlib/TESTING/LIN/dlattp.f
index 407bd0716..fef888859 100644
--- a/lapack-netlib/TESTING/LIN/dlattp.f
+++ b/lapack-netlib/TESTING/LIN/dlattp.f
@@ -117,18 +117,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DLATTP( IMAT, UPLO, TRANS, DIAG, ISEED, N, A, B, WORK,
$ INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
diff --git a/lapack-netlib/TESTING/LIN/dlattr.f b/lapack-netlib/TESTING/LIN/dlattr.f
index 0e3a5ac6b..03f9bfae4 100644
--- a/lapack-netlib/TESTING/LIN/dlattr.f
+++ b/lapack-netlib/TESTING/LIN/dlattr.f
@@ -125,18 +125,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DLATTR( IMAT, UPLO, TRANS, DIAG, ISEED, N, A, LDA, B,
$ WORK, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
diff --git a/lapack-netlib/TESTING/LIN/dlavsp.f b/lapack-netlib/TESTING/LIN/dlavsp.f
index 758c415fb..3a5a85e9e 100644
--- a/lapack-netlib/TESTING/LIN/dlavsp.f
+++ b/lapack-netlib/TESTING/LIN/dlavsp.f
@@ -122,18 +122,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DLAVSP( UPLO, TRANS, DIAG, N, NRHS, A, IPIV, B, LDB,
$ INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
diff --git a/lapack-netlib/TESTING/LIN/dlavsy.f b/lapack-netlib/TESTING/LIN/dlavsy.f
index b512ff0ff..03e705871 100644
--- a/lapack-netlib/TESTING/LIN/dlavsy.f
+++ b/lapack-netlib/TESTING/LIN/dlavsy.f
@@ -147,18 +147,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2013
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DLAVSY( UPLO, TRANS, DIAG, N, NRHS, A, LDA, IPIV, B,
$ LDB, INFO )
*
-* -- LAPACK test routine (version 3.5.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2013
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
diff --git a/lapack-netlib/TESTING/LIN/dlavsy_rook.f b/lapack-netlib/TESTING/LIN/dlavsy_rook.f
index 7b0c2c152..f1994aee9 100644
--- a/lapack-netlib/TESTING/LIN/dlavsy_rook.f
+++ b/lapack-netlib/TESTING/LIN/dlavsy_rook.f
@@ -149,18 +149,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2013
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DLAVSY_ROOK( UPLO, TRANS, DIAG, N, NRHS, A, LDA, IPIV,
$ B, LDB, INFO )
*
-* -- LAPACK test routine (version 3.5.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2013
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
diff --git a/lapack-netlib/TESTING/LIN/dlqt01.f b/lapack-netlib/TESTING/LIN/dlqt01.f
index c17045f96..1ef7365c4 100644
--- a/lapack-netlib/TESTING/LIN/dlqt01.f
+++ b/lapack-netlib/TESTING/LIN/dlqt01.f
@@ -118,18 +118,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DLQT01( M, N, A, AF, Q, L, LDA, TAU, WORK, LWORK,
$ RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/dlqt02.f b/lapack-netlib/TESTING/LIN/dlqt02.f
index 55b5a6c89..158cd0b79 100644
--- a/lapack-netlib/TESTING/LIN/dlqt02.f
+++ b/lapack-netlib/TESTING/LIN/dlqt02.f
@@ -127,18 +127,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DLQT02( M, N, K, A, AF, Q, L, LDA, TAU, WORK, LWORK,
$ RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER K, LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/dlqt03.f b/lapack-netlib/TESTING/LIN/dlqt03.f
index dc754554f..55ce022ce 100644
--- a/lapack-netlib/TESTING/LIN/dlqt03.f
+++ b/lapack-netlib/TESTING/LIN/dlqt03.f
@@ -128,18 +128,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DLQT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK,
$ RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER K, LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/dlqt04.f b/lapack-netlib/TESTING/LIN/dlqt04.f
index b73248b62..ef7e67538 100644
--- a/lapack-netlib/TESTING/LIN/dlqt04.f
+++ b/lapack-netlib/TESTING/LIN/dlqt04.f
@@ -66,18 +66,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DLQT04(M,N,NB,RESULT)
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* April 2012
*
* .. Scalar Arguments ..
INTEGER M, N, NB, LDT
diff --git a/lapack-netlib/TESTING/LIN/dlqt05.f b/lapack-netlib/TESTING/LIN/dlqt05.f
index ce2604e41..7d2a2a104 100644
--- a/lapack-netlib/TESTING/LIN/dlqt05.f
+++ b/lapack-netlib/TESTING/LIN/dlqt05.f
@@ -73,18 +73,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DLQT05(M,N,L,NB,RESULT)
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* April 2012
*
* .. Scalar Arguments ..
INTEGER LWORK, M, N, L, NB, LDT
diff --git a/lapack-netlib/TESTING/LIN/dpbt01.f b/lapack-netlib/TESTING/LIN/dpbt01.f
index 4acd74f5a..3d810dac1 100644
--- a/lapack-netlib/TESTING/LIN/dpbt01.f
+++ b/lapack-netlib/TESTING/LIN/dpbt01.f
@@ -111,18 +111,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DPBT01( UPLO, N, KD, A, LDA, AFAC, LDAFAC, RWORK,
$ RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/dpbt02.f b/lapack-netlib/TESTING/LIN/dpbt02.f
index 657cdc9f7..6abda62e0 100644
--- a/lapack-netlib/TESTING/LIN/dpbt02.f
+++ b/lapack-netlib/TESTING/LIN/dpbt02.f
@@ -128,18 +128,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DPBT02( UPLO, N, KD, NRHS, A, LDA, X, LDX, B, LDB,
$ RWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/dpbt05.f b/lapack-netlib/TESTING/LIN/dpbt05.f
index 1ad4c0f6b..47e656be7 100644
--- a/lapack-netlib/TESTING/LIN/dpbt05.f
+++ b/lapack-netlib/TESTING/LIN/dpbt05.f
@@ -163,18 +163,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DPBT05( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, X, LDX,
$ XACT, LDXACT, FERR, BERR, RESLTS )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/dpot01.f b/lapack-netlib/TESTING/LIN/dpot01.f
index 8d84a1fe6..71e50f892 100644
--- a/lapack-netlib/TESTING/LIN/dpot01.f
+++ b/lapack-netlib/TESTING/LIN/dpot01.f
@@ -65,10 +65,10 @@
*> \param[in,out] AFAC
*> \verbatim
*> AFAC is DOUBLE PRECISION array, dimension (LDAFAC,N)
-*> On entry, the factor L or U from the L*L' or U'*U
+*> On entry, the factor L or U from the L * L**T or U**T * U
*> factorization of A.
-*> Overwritten with the reconstructed matrix, and then with the
-*> difference L*L' - A (or U'*U - A).
+*> Overwritten with the reconstructed matrix, and then with
+*> the difference L * L**T - A (or U**T * U - A).
*> \endverbatim
*>
*> \param[in] LDAFAC
@@ -85,8 +85,8 @@
*> \param[out] RESID
*> \verbatim
*> RESID is DOUBLE PRECISION
-*> If UPLO = 'L', norm(L*L' - A) / ( N * norm(A) * EPS )
-*> If UPLO = 'U', norm(U'*U - A) / ( N * norm(A) * EPS )
+*> If UPLO = 'L', norm(L * L**T - A) / ( N * norm(A) * EPS )
+*> If UPLO = 'U', norm(U**T * U - A) / ( N * norm(A) * EPS )
*> \endverbatim
*
* Authors:
@@ -97,17 +97,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DPOT01( UPLO, N, A, LDA, AFAC, LDAFAC, RWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
@@ -157,7 +154,7 @@
RETURN
END IF
*
-* Compute the product U'*U, overwriting U.
+* Compute the product U**T * U, overwriting U.
*
IF( LSAME( UPLO, 'U' ) ) THEN
DO 10 K = N, 1, -1
@@ -174,7 +171,7 @@
*
10 CONTINUE
*
-* Compute the product L*L', overwriting L.
+* Compute the product L * L**T, overwriting L.
*
ELSE
DO 20 K = N, 1, -1
@@ -194,7 +191,7 @@
20 CONTINUE
END IF
*
-* Compute the difference L*L' - A (or U'*U - A).
+* Compute the difference L * L**T - A (or U**T * U - A).
*
IF( LSAME( UPLO, 'U' ) ) THEN
DO 40 J = 1, N
diff --git a/lapack-netlib/TESTING/LIN/dpot02.f b/lapack-netlib/TESTING/LIN/dpot02.f
index 347b50378..6d87b89f5 100644
--- a/lapack-netlib/TESTING/LIN/dpot02.f
+++ b/lapack-netlib/TESTING/LIN/dpot02.f
@@ -119,18 +119,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DPOT02( UPLO, N, NRHS, A, LDA, X, LDX, B, LDB, RWORK,
$ RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/dpot03.f b/lapack-netlib/TESTING/LIN/dpot03.f
index d7a0cca92..2e506b623 100644
--- a/lapack-netlib/TESTING/LIN/dpot03.f
+++ b/lapack-netlib/TESTING/LIN/dpot03.f
@@ -117,18 +117,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DPOT03( UPLO, N, A, LDA, AINV, LDAINV, WORK, LDWORK,
$ RWORK, RCOND, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/dpot05.f b/lapack-netlib/TESTING/LIN/dpot05.f
index fa9490915..25a195bdd 100644
--- a/lapack-netlib/TESTING/LIN/dpot05.f
+++ b/lapack-netlib/TESTING/LIN/dpot05.f
@@ -156,18 +156,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DPOT05( UPLO, N, NRHS, A, LDA, B, LDB, X, LDX, XACT,
$ LDXACT, FERR, BERR, RESLTS )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/dpot06.f b/lapack-netlib/TESTING/LIN/dpot06.f
index 420662c1b..397ed19c2 100644
--- a/lapack-netlib/TESTING/LIN/dpot06.f
+++ b/lapack-netlib/TESTING/LIN/dpot06.f
@@ -119,18 +119,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DPOT06( UPLO, N, NRHS, A, LDA, X, LDX, B, LDB,
$ RWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/dppt01.f b/lapack-netlib/TESTING/LIN/dppt01.f
index 2ad9e6839..a357d0794 100644
--- a/lapack-netlib/TESTING/LIN/dppt01.f
+++ b/lapack-netlib/TESTING/LIN/dppt01.f
@@ -86,17 +86,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DPPT01( UPLO, N, A, AFAC, RWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/dppt02.f b/lapack-netlib/TESTING/LIN/dppt02.f
index de878137a..f854f9b18 100644
--- a/lapack-netlib/TESTING/LIN/dppt02.f
+++ b/lapack-netlib/TESTING/LIN/dppt02.f
@@ -114,18 +114,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DPPT02( UPLO, N, NRHS, A, X, LDX, B, LDB, RWORK,
$ RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/dppt03.f b/lapack-netlib/TESTING/LIN/dppt03.f
index edaec4446..9e24cf6b3 100644
--- a/lapack-netlib/TESTING/LIN/dppt03.f
+++ b/lapack-netlib/TESTING/LIN/dppt03.f
@@ -102,18 +102,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DPPT03( UPLO, N, A, AINV, WORK, LDWORK, RWORK, RCOND,
$ RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/dppt05.f b/lapack-netlib/TESTING/LIN/dppt05.f
index 8d9dcc3ca..fefe2e923 100644
--- a/lapack-netlib/TESTING/LIN/dppt05.f
+++ b/lapack-netlib/TESTING/LIN/dppt05.f
@@ -148,18 +148,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DPPT05( UPLO, N, NRHS, AP, B, LDB, X, LDX, XACT,
$ LDXACT, FERR, BERR, RESLTS )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/dpst01.f b/lapack-netlib/TESTING/LIN/dpst01.f
index d6b6da93d..ffe75d8a9 100644
--- a/lapack-netlib/TESTING/LIN/dpst01.f
+++ b/lapack-netlib/TESTING/LIN/dpst01.f
@@ -126,18 +126,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DPST01( UPLO, N, A, LDA, AFAC, LDAFAC, PERM, LDPERM,
$ PIV, RWORK, RESID, RANK )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
DOUBLE PRECISION RESID
diff --git a/lapack-netlib/TESTING/LIN/dptt01.f b/lapack-netlib/TESTING/LIN/dptt01.f
index 44c609cbd..2c6c440ff 100644
--- a/lapack-netlib/TESTING/LIN/dptt01.f
+++ b/lapack-netlib/TESTING/LIN/dptt01.f
@@ -84,17 +84,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DPTT01( N, D, E, DF, EF, WORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER N
diff --git a/lapack-netlib/TESTING/LIN/dptt02.f b/lapack-netlib/TESTING/LIN/dptt02.f
index a9e8bd620..a4802c696 100644
--- a/lapack-netlib/TESTING/LIN/dptt02.f
+++ b/lapack-netlib/TESTING/LIN/dptt02.f
@@ -97,17 +97,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DPTT02( N, NRHS, D, E, X, LDX, B, LDB, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDB, LDX, N, NRHS
diff --git a/lapack-netlib/TESTING/LIN/dptt05.f b/lapack-netlib/TESTING/LIN/dptt05.f
index 4a7aa6dc8..1cd2c4b66 100644
--- a/lapack-netlib/TESTING/LIN/dptt05.f
+++ b/lapack-netlib/TESTING/LIN/dptt05.f
@@ -142,18 +142,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DPTT05( N, NRHS, D, E, B, LDB, X, LDX, XACT, LDXACT,
$ FERR, BERR, RESLTS )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDB, LDX, LDXACT, N, NRHS
diff --git a/lapack-netlib/TESTING/LIN/dqlt01.f b/lapack-netlib/TESTING/LIN/dqlt01.f
index 7bc66cb42..5a27350cb 100644
--- a/lapack-netlib/TESTING/LIN/dqlt01.f
+++ b/lapack-netlib/TESTING/LIN/dqlt01.f
@@ -118,18 +118,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DQLT01( M, N, A, AF, Q, L, LDA, TAU, WORK, LWORK,
$ RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/dqlt02.f b/lapack-netlib/TESTING/LIN/dqlt02.f
index 16a532b53..950cfe67b 100644
--- a/lapack-netlib/TESTING/LIN/dqlt02.f
+++ b/lapack-netlib/TESTING/LIN/dqlt02.f
@@ -128,18 +128,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DQLT02( M, N, K, A, AF, Q, L, LDA, TAU, WORK, LWORK,
$ RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER K, LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/dqlt03.f b/lapack-netlib/TESTING/LIN/dqlt03.f
index 40c6638c5..bed6a00c8 100644
--- a/lapack-netlib/TESTING/LIN/dqlt03.f
+++ b/lapack-netlib/TESTING/LIN/dqlt03.f
@@ -128,18 +128,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DQLT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK,
$ RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER K, LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/dqpt01.f b/lapack-netlib/TESTING/LIN/dqpt01.f
index b72eaaa77..8efbdc774 100644
--- a/lapack-netlib/TESTING/LIN/dqpt01.f
+++ b/lapack-netlib/TESTING/LIN/dqpt01.f
@@ -112,18 +112,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
DOUBLE PRECISION FUNCTION DQPT01( M, N, K, A, AF, LDA, TAU, JPVT,
$ WORK, LWORK )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER K, LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/dqrt01.f b/lapack-netlib/TESTING/LIN/dqrt01.f
index fd411eb04..2ddd551ce 100644
--- a/lapack-netlib/TESTING/LIN/dqrt01.f
+++ b/lapack-netlib/TESTING/LIN/dqrt01.f
@@ -118,18 +118,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DQRT01( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK,
$ RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/dqrt01p.f b/lapack-netlib/TESTING/LIN/dqrt01p.f
index 6f9ba5ea9..7dc7668ce 100644
--- a/lapack-netlib/TESTING/LIN/dqrt01p.f
+++ b/lapack-netlib/TESTING/LIN/dqrt01p.f
@@ -118,18 +118,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DQRT01P( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK,
$ RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/dqrt02.f b/lapack-netlib/TESTING/LIN/dqrt02.f
index 9008a4900..d0e4349d1 100644
--- a/lapack-netlib/TESTING/LIN/dqrt02.f
+++ b/lapack-netlib/TESTING/LIN/dqrt02.f
@@ -127,18 +127,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DQRT02( M, N, K, A, AF, Q, R, LDA, TAU, WORK, LWORK,
$ RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER K, LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/dqrt03.f b/lapack-netlib/TESTING/LIN/dqrt03.f
index 9c957b02c..d156faca0 100644
--- a/lapack-netlib/TESTING/LIN/dqrt03.f
+++ b/lapack-netlib/TESTING/LIN/dqrt03.f
@@ -128,18 +128,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DQRT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK,
$ RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER K, LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/dqrt04.f b/lapack-netlib/TESTING/LIN/dqrt04.f
index 5d9e10313..6a7baea0f 100644
--- a/lapack-netlib/TESTING/LIN/dqrt04.f
+++ b/lapack-netlib/TESTING/LIN/dqrt04.f
@@ -66,18 +66,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DQRT04(M,N,NB,RESULT)
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* April 2012
*
* .. Scalar Arguments ..
INTEGER M, N, NB, LDT
diff --git a/lapack-netlib/TESTING/LIN/dqrt05.f b/lapack-netlib/TESTING/LIN/dqrt05.f
index 2e4610068..2badd6d49 100644
--- a/lapack-netlib/TESTING/LIN/dqrt05.f
+++ b/lapack-netlib/TESTING/LIN/dqrt05.f
@@ -73,18 +73,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DQRT05(M,N,L,NB,RESULT)
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* April 2012
*
* .. Scalar Arguments ..
INTEGER LWORK, M, N, L, NB, LDT
diff --git a/lapack-netlib/TESTING/LIN/dqrt11.f b/lapack-netlib/TESTING/LIN/dqrt11.f
index fe29ca589..33c7fab37 100644
--- a/lapack-netlib/TESTING/LIN/dqrt11.f
+++ b/lapack-netlib/TESTING/LIN/dqrt11.f
@@ -91,17 +91,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
DOUBLE PRECISION FUNCTION DQRT11( M, K, A, LDA, TAU, WORK, LWORK )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER K, LDA, LWORK, M
diff --git a/lapack-netlib/TESTING/LIN/dqrt12.f b/lapack-netlib/TESTING/LIN/dqrt12.f
index b8da5b623..278e01bf0 100644
--- a/lapack-netlib/TESTING/LIN/dqrt12.f
+++ b/lapack-netlib/TESTING/LIN/dqrt12.f
@@ -82,17 +82,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
DOUBLE PRECISION FUNCTION DQRT12( M, N, A, LDA, S, WORK, LWORK )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/dqrt13.f b/lapack-netlib/TESTING/LIN/dqrt13.f
index 42947b2cb..203f62069 100644
--- a/lapack-netlib/TESTING/LIN/dqrt13.f
+++ b/lapack-netlib/TESTING/LIN/dqrt13.f
@@ -84,17 +84,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DQRT13( SCALE, M, N, A, LDA, NORMA, ISEED )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, M, N, SCALE
diff --git a/lapack-netlib/TESTING/LIN/dqrt14.f b/lapack-netlib/TESTING/LIN/dqrt14.f
index 9301e251f..fdfc96b98 100644
--- a/lapack-netlib/TESTING/LIN/dqrt14.f
+++ b/lapack-netlib/TESTING/LIN/dqrt14.f
@@ -108,18 +108,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
DOUBLE PRECISION FUNCTION DQRT14( TRANS, M, N, NRHS, A, LDA, X,
$ LDX, WORK, LWORK )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER TRANS
@@ -200,7 +197,6 @@
IF( XNRM.NE.ZERO )
$ CALL DLASCL( 'G', 0, 0, XNRM, ONE, M, NRHS,
$ WORK( N*LDWORK+1 ), LDWORK, INFO )
- ANRM = DLANGE( 'One-norm', M, N+NRHS, WORK, LDWORK, RWORK )
*
* Compute QR factorization of X
*
diff --git a/lapack-netlib/TESTING/LIN/dqrt15.f b/lapack-netlib/TESTING/LIN/dqrt15.f
index 68cf0cc8c..1c5f9e47b 100644
--- a/lapack-netlib/TESTING/LIN/dqrt15.f
+++ b/lapack-netlib/TESTING/LIN/dqrt15.f
@@ -140,18 +140,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DQRT15( SCALE, RKSEL, M, N, NRHS, A, LDA, B, LDB, S,
$ RANK, NORMA, NORMB, ISEED, WORK, LWORK )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LDB, LWORK, M, N, NRHS, RANK, RKSEL, SCALE
diff --git a/lapack-netlib/TESTING/LIN/dqrt16.f b/lapack-netlib/TESTING/LIN/dqrt16.f
index 157f78e2f..cb4ba183a 100644
--- a/lapack-netlib/TESTING/LIN/dqrt16.f
+++ b/lapack-netlib/TESTING/LIN/dqrt16.f
@@ -125,18 +125,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DQRT16( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB,
$ RWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER TRANS
diff --git a/lapack-netlib/TESTING/LIN/dqrt17.f b/lapack-netlib/TESTING/LIN/dqrt17.f
index 78580dca1..ccbb3cff4 100644
--- a/lapack-netlib/TESTING/LIN/dqrt17.f
+++ b/lapack-netlib/TESTING/LIN/dqrt17.f
@@ -28,12 +28,15 @@
*>
*> DQRT17 computes the ratio
*>
-*> || R'*op(A) ||/(||A||*alpha*max(M,N,NRHS)*eps)
+*> norm(R**T * op(A)) / ( norm(A) * alpha * max(M,N,NRHS) * EPS ),
*>
-*> where R = op(A)*X - B, op(A) is A or A', and
+*> where R = B - op(A)*X, op(A) is A or A**T, depending on TRANS, EPS
+*> is the machine epsilon, and
*>
-*> alpha = ||B|| if IRESID = 1 (zero-residual problem)
-*> alpha = ||R|| if IRESID = 2 (otherwise).
+*> alpha = norm(B) if IRESID = 1 (zero-residual problem)
+*> alpha = norm(R) if IRESID = 2 (otherwise).
+*>
+*> The norm used is the 1-norm.
*> \endverbatim
*
* Arguments:
@@ -44,7 +47,7 @@
*> TRANS is CHARACTER*1
*> Specifies whether or not the transpose of A is used.
*> = 'N': No transpose, op(A) = A.
-*> = 'T': Transpose, op(A) = A'.
+*> = 'T': Transpose, op(A) = A**T.
*> \endverbatim
*>
*> \param[in] IRESID
@@ -142,18 +145,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
DOUBLE PRECISION FUNCTION DQRT17( TRANS, IRESID, M, N, NRHS, A,
$ LDA, X, LDX, B, LDB, C, WORK, LWORK )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER TRANS
@@ -172,7 +172,7 @@
* ..
* .. Local Scalars ..
INTEGER INFO, ISCL, NCOLS, NROWS
- DOUBLE PRECISION BIGNUM, ERR, NORMA, NORMB, NORMRS, SMLNUM
+ DOUBLE PRECISION ERR, NORMA, NORMB, NORMRS, SMLNUM
* ..
* .. Local Arrays ..
DOUBLE PRECISION RWORK( 1 )
@@ -214,7 +214,6 @@
*
NORMA = DLANGE( 'One-norm', M, N, A, LDA, RWORK )
SMLNUM = DLAMCH( 'Safe minimum' ) / DLAMCH( 'Precision' )
- BIGNUM = ONE / SMLNUM
ISCL = 0
*
* compute residual and scale it
@@ -229,7 +228,7 @@
$ INFO )
END IF
*
-* compute R'*A
+* compute R**T * op(A)
*
CALL DGEMM( 'Transpose', TRANS, NRHS, NCOLS, NROWS, ONE, C, LDB,
$ A, LDA, ZERO, WORK, NRHS )
diff --git a/lapack-netlib/TESTING/LIN/drqt01.f b/lapack-netlib/TESTING/LIN/drqt01.f
index d652b2a2b..936583ccb 100644
--- a/lapack-netlib/TESTING/LIN/drqt01.f
+++ b/lapack-netlib/TESTING/LIN/drqt01.f
@@ -118,18 +118,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DRQT01( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK,
$ RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/drqt02.f b/lapack-netlib/TESTING/LIN/drqt02.f
index d10b5c117..7fbb6a6d4 100644
--- a/lapack-netlib/TESTING/LIN/drqt02.f
+++ b/lapack-netlib/TESTING/LIN/drqt02.f
@@ -128,18 +128,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DRQT02( M, N, K, A, AF, Q, R, LDA, TAU, WORK, LWORK,
$ RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER K, LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/drqt03.f b/lapack-netlib/TESTING/LIN/drqt03.f
index 7ec0d6c7f..1ddd76706 100644
--- a/lapack-netlib/TESTING/LIN/drqt03.f
+++ b/lapack-netlib/TESTING/LIN/drqt03.f
@@ -128,18 +128,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DRQT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK,
$ RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER K, LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/drzt01.f b/lapack-netlib/TESTING/LIN/drzt01.f
index 2108cd1c9..8e969aba7 100644
--- a/lapack-netlib/TESTING/LIN/drzt01.f
+++ b/lapack-netlib/TESTING/LIN/drzt01.f
@@ -90,18 +90,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
DOUBLE PRECISION FUNCTION DRZT01( M, N, A, AF, LDA, TAU, WORK,
$ LWORK )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/drzt02.f b/lapack-netlib/TESTING/LIN/drzt02.f
index de3f26621..5b028f799 100644
--- a/lapack-netlib/TESTING/LIN/drzt02.f
+++ b/lapack-netlib/TESTING/LIN/drzt02.f
@@ -83,18 +83,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
DOUBLE PRECISION FUNCTION DRZT02( M, N, AF, LDA, TAU, WORK,
$ LWORK )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/dspt01.f b/lapack-netlib/TESTING/LIN/dspt01.f
index f1bc904fd..e71d217ae 100644
--- a/lapack-netlib/TESTING/LIN/dspt01.f
+++ b/lapack-netlib/TESTING/LIN/dspt01.f
@@ -103,17 +103,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DSPT01( UPLO, N, A, AFAC, IPIV, C, LDC, RWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/dsyt01.f b/lapack-netlib/TESTING/LIN/dsyt01.f
index f61b9113c..cb918de00 100644
--- a/lapack-netlib/TESTING/LIN/dsyt01.f
+++ b/lapack-netlib/TESTING/LIN/dsyt01.f
@@ -116,18 +116,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2013
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DSYT01( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, LDC,
$ RWORK, RESID )
*
-* -- LAPACK test routine (version 3.5.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2013
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/dsyt01_3.f b/lapack-netlib/TESTING/LIN/dsyt01_3.f
index a12425ee5..2a7d9d142 100644
--- a/lapack-netlib/TESTING/LIN/dsyt01_3.f
+++ b/lapack-netlib/TESTING/LIN/dsyt01_3.f
@@ -132,18 +132,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DSYT01_3( UPLO, N, A, LDA, AFAC, LDAFAC, E, IPIV, C,
$ LDC, RWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.1) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2017
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/dsyt01_aa.f b/lapack-netlib/TESTING/LIN/dsyt01_aa.f
index f008ecf2e..94770532c 100644
--- a/lapack-netlib/TESTING/LIN/dsyt01_aa.f
+++ b/lapack-netlib/TESTING/LIN/dsyt01_aa.f
@@ -116,20 +116,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
-* @precisions fortran d -> z c
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DSYT01_AA( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C,
$ LDC, RWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
@@ -258,6 +253,6 @@
*
RETURN
*
-* End of DSYT01
+* End of DSYT01_AA
*
END
diff --git a/lapack-netlib/TESTING/LIN/dsyt01_rook.f b/lapack-netlib/TESTING/LIN/dsyt01_rook.f
index cb6668b18..c7b6bc2aa 100644
--- a/lapack-netlib/TESTING/LIN/dsyt01_rook.f
+++ b/lapack-netlib/TESTING/LIN/dsyt01_rook.f
@@ -116,18 +116,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2013
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DSYT01_ROOK( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C,
$ LDC, RWORK, RESID )
*
-* -- LAPACK test routine (version 3.5.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2013
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/dtbt02.f b/lapack-netlib/TESTING/LIN/dtbt02.f
index f0f522a96..347fbcb9c 100644
--- a/lapack-netlib/TESTING/LIN/dtbt02.f
+++ b/lapack-netlib/TESTING/LIN/dtbt02.f
@@ -28,12 +28,12 @@
*> \verbatim
*>
*> DTBT02 computes the residual for the computed solution to a
-*> triangular system of linear equations A*x = b or A' *x = b when
-*> A is a triangular band matrix. Here A' is the transpose of A and
-*> x and b are N by NRHS matrices. The test ratio is the maximum over
-*> the number of right hand sides of
-*> norm(b - op(A)*x) / ( norm(op(A)) * norm(x) * EPS ),
-*> where op(A) denotes A or A' and EPS is the machine epsilon.
+*> triangular system of linear equations op(A)*X = B, when A is a
+*> triangular band matrix. The test ratio is the maximum over
+*> norm(b - op(A)*x) / ( ||op(A)||_1 * norm(x) * EPS ),
+*> where op(A) = A or A**T, b is the column of B, x is the solution
+*> vector, and EPS is the machine epsilon.
+*> The norm used is the 1-norm.
*> \endverbatim
*
* Arguments:
@@ -51,9 +51,9 @@
*> \verbatim
*> TRANS is CHARACTER*1
*> Specifies the operation applied to A.
-*> = 'N': A *x = b (No transpose)
-*> = 'T': A'*x = b (Transpose)
-*> = 'C': A'*x = b (Conjugate transpose = Transpose)
+*> = 'N': A * X = B (No transpose)
+*> = 'T': A**T * X = B (Transpose)
+*> = 'C': A**H * X = B (Conjugate transpose = Transpose)
*> \endverbatim
*>
*> \param[in] DIAG
@@ -146,18 +146,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DTBT02( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, X,
$ LDX, B, LDB, WORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
@@ -199,7 +196,7 @@
RETURN
END IF
*
-* Compute the 1-norm of A or A'.
+* Compute the 1-norm of op(A).
*
IF( LSAME( TRANS, 'N' ) ) THEN
ANORM = DLANTB( '1', UPLO, DIAG, N, KD, AB, LDAB, WORK )
diff --git a/lapack-netlib/TESTING/LIN/dtbt03.f b/lapack-netlib/TESTING/LIN/dtbt03.f
index 3aedad654..04307fd3b 100644
--- a/lapack-netlib/TESTING/LIN/dtbt03.f
+++ b/lapack-netlib/TESTING/LIN/dtbt03.f
@@ -166,8 +166,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
@@ -175,10 +173,9 @@
$ SCALE, CNORM, TSCAL, X, LDX, B, LDB, WORK,
$ RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
diff --git a/lapack-netlib/TESTING/LIN/dtbt05.f b/lapack-netlib/TESTING/LIN/dtbt05.f
index 3c2a5318c..0b2430d60 100644
--- a/lapack-netlib/TESTING/LIN/dtbt05.f
+++ b/lapack-netlib/TESTING/LIN/dtbt05.f
@@ -181,18 +181,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DTBT05( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B,
$ LDB, X, LDX, XACT, LDXACT, FERR, BERR, RESLTS )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
diff --git a/lapack-netlib/TESTING/LIN/dtbt06.f b/lapack-netlib/TESTING/LIN/dtbt06.f
index 2fd11f0e9..2e87bdaa7 100644
--- a/lapack-netlib/TESTING/LIN/dtbt06.f
+++ b/lapack-netlib/TESTING/LIN/dtbt06.f
@@ -117,18 +117,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DTBT06( RCOND, RCONDC, UPLO, DIAG, N, KD, AB, LDAB,
$ WORK, RAT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, UPLO
diff --git a/lapack-netlib/TESTING/LIN/dtplqt.f b/lapack-netlib/TESTING/LIN/dtplqt.f
index 9fcecc984..7952c0576 100644
--- a/lapack-netlib/TESTING/LIN/dtplqt.f
+++ b/lapack-netlib/TESTING/LIN/dtplqt.f
@@ -132,8 +132,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Further Details:
@@ -189,10 +187,9 @@
SUBROUTINE DTPLQT( M, N, L, MB, A, LDA, B, LDB, T, LDT, WORK,
$ INFO )
*
-* -- LAPACK computational routine (version 3.7.0) --
+* -- LAPACK computational routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDB, LDT, N, M, L, MB
diff --git a/lapack-netlib/TESTING/LIN/dtpt01.f b/lapack-netlib/TESTING/LIN/dtpt01.f
index 504dca627..58309b17b 100644
--- a/lapack-netlib/TESTING/LIN/dtpt01.f
+++ b/lapack-netlib/TESTING/LIN/dtpt01.f
@@ -101,17 +101,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DTPT01( UPLO, DIAG, N, AP, AINVP, RCOND, WORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, UPLO
diff --git a/lapack-netlib/TESTING/LIN/dtpt02.f b/lapack-netlib/TESTING/LIN/dtpt02.f
index 777fdfc3b..8b0b4a73d 100644
--- a/lapack-netlib/TESTING/LIN/dtpt02.f
+++ b/lapack-netlib/TESTING/LIN/dtpt02.f
@@ -27,12 +27,13 @@
*> \verbatim
*>
*> DTPT02 computes the residual for the computed solution to a
-*> triangular system of linear equations A*x = b or A'*x = b when
-*> the triangular matrix A is stored in packed format. Here A' is the
-*> transpose of A and x and b are N by NRHS matrices. The test ratio is
-*> the maximum over the number of right hand sides of
-*> norm(b - op(A)*x) / ( norm(op(A)) * norm(x) * EPS ),
-*> where op(A) denotes A or A' and EPS is the machine epsilon.
+*> triangular system of linear equations op(A)*X = B, when the
+*> triangular matrix A is stored in packed format. The test ratio is
+*> the maximum over
+*> norm(b - op(A)*x) / ( ||op(A)||_1 * norm(x) * EPS ),
+*> where op(A) = A or A**T, b is the column of B, x is the solution
+*> vector, and EPS is the machine epsilon.
+*> The norm used is the 1-norm.
*> \endverbatim
*
* Arguments:
@@ -50,9 +51,9 @@
*> \verbatim
*> TRANS is CHARACTER*1
*> Specifies the operation applied to A.
-*> = 'N': A *x = b (No transpose)
-*> = 'T': A'*x = b (Transpose)
-*> = 'C': A'*x = b (Conjugate transpose = Transpose)
+*> = 'N': A * X = B (No transpose)
+*> = 'T': A**T * X = B (Transpose)
+*> = 'C': A**H * X = B (Conjugate transpose = Transpose)
*> \endverbatim
*>
*> \param[in] DIAG
@@ -122,7 +123,7 @@
*> \verbatim
*> RESID is DOUBLE PRECISION
*> The maximum over the number of right hand sides of
-*> norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ).
+*> norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS ).
*> \endverbatim
*
* Authors:
@@ -133,18 +134,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DTPT02( UPLO, TRANS, DIAG, N, NRHS, AP, X, LDX, B, LDB,
$ WORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
@@ -185,7 +183,7 @@
RETURN
END IF
*
-* Compute the 1-norm of A or A'.
+* Compute the 1-norm of op(A).
*
IF( LSAME( TRANS, 'N' ) ) THEN
ANORM = DLANTP( '1', UPLO, DIAG, N, AP, WORK )
@@ -202,7 +200,7 @@
END IF
*
* Compute the maximum over the number of right hand sides of
-* norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ).
+* norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS ).
*
RESID = ZERO
DO 10 J = 1, NRHS
diff --git a/lapack-netlib/TESTING/LIN/dtpt03.f b/lapack-netlib/TESTING/LIN/dtpt03.f
index ad82e59e9..069836a0c 100644
--- a/lapack-netlib/TESTING/LIN/dtpt03.f
+++ b/lapack-netlib/TESTING/LIN/dtpt03.f
@@ -153,18 +153,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DTPT03( UPLO, TRANS, DIAG, N, NRHS, AP, SCALE, CNORM,
$ TSCAL, X, LDX, B, LDB, WORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
diff --git a/lapack-netlib/TESTING/LIN/dtpt05.f b/lapack-netlib/TESTING/LIN/dtpt05.f
index 458a42ec4..117acae01 100644
--- a/lapack-netlib/TESTING/LIN/dtpt05.f
+++ b/lapack-netlib/TESTING/LIN/dtpt05.f
@@ -166,18 +166,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DTPT05( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, X, LDX,
$ XACT, LDXACT, FERR, BERR, RESLTS )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
diff --git a/lapack-netlib/TESTING/LIN/dtpt06.f b/lapack-netlib/TESTING/LIN/dtpt06.f
index 3f7c68832..f5eb2a512 100644
--- a/lapack-netlib/TESTING/LIN/dtpt06.f
+++ b/lapack-netlib/TESTING/LIN/dtpt06.f
@@ -104,17 +104,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DTPT06( RCOND, RCONDC, UPLO, DIAG, N, AP, WORK, RAT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, UPLO
diff --git a/lapack-netlib/TESTING/LIN/dtrt01.f b/lapack-netlib/TESTING/LIN/dtrt01.f
index 3039a2be7..e5827fe78 100644
--- a/lapack-netlib/TESTING/LIN/dtrt01.f
+++ b/lapack-netlib/TESTING/LIN/dtrt01.f
@@ -116,18 +116,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DTRT01( UPLO, DIAG, N, A, LDA, AINV, LDAINV, RCOND,
$ WORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, UPLO
diff --git a/lapack-netlib/TESTING/LIN/dtrt02.f b/lapack-netlib/TESTING/LIN/dtrt02.f
index ad7d9b963..6d22f688b 100644
--- a/lapack-netlib/TESTING/LIN/dtrt02.f
+++ b/lapack-netlib/TESTING/LIN/dtrt02.f
@@ -28,12 +28,12 @@
*> \verbatim
*>
*> DTRT02 computes the residual for the computed solution to a
-*> triangular system of linear equations A*x = b or A'*x = b.
-*> Here A is a triangular matrix, A' is the transpose of A, and x and b
-*> are N by NRHS matrices. The test ratio is the maximum over the
-*> number of right hand sides of
-*> norm(b - op(A)*x) / ( norm(op(A)) * norm(x) * EPS ),
-*> where op(A) denotes A or A' and EPS is the machine epsilon.
+*> triangular system of linear equations op(A)*X = B, where A is a
+*> triangular matrix. The test ratio is the maximum over
+*> norm(b - op(A)*x) / ( ||op(A)||_1 * norm(x) * EPS ),
+*> where op(A) = A or A**T, b is the column of B, x is the solution
+*> vector, and EPS is the machine epsilon.
+*> The norm used is the 1-norm.
*> \endverbatim
*
* Arguments:
@@ -51,9 +51,9 @@
*> \verbatim
*> TRANS is CHARACTER*1
*> Specifies the operation applied to A.
-*> = 'N': A *x = b (No transpose)
-*> = 'T': A'*x = b (Transpose)
-*> = 'C': A'*x = b (Conjugate transpose = Transpose)
+*> = 'N': A * X = B (No transpose)
+*> = 'T': A**T * X = B (Transpose)
+*> = 'C': A**H * X = B (Conjugate transpose = Transpose)
*> \endverbatim
*>
*> \param[in] DIAG
@@ -131,7 +131,7 @@
*> \verbatim
*> RESID is DOUBLE PRECISION
*> The maximum over the number of right hand sides of
-*> norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ).
+*> norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS ).
*> \endverbatim
*
* Authors:
@@ -142,18 +142,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DTRT02( UPLO, TRANS, DIAG, N, NRHS, A, LDA, X, LDX, B,
$ LDB, WORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
@@ -195,7 +192,7 @@
RETURN
END IF
*
-* Compute the 1-norm of A or A'.
+* Compute the 1-norm of op(A).
*
IF( LSAME( TRANS, 'N' ) ) THEN
ANORM = DLANTR( '1', UPLO, DIAG, N, N, A, LDA, WORK )
@@ -212,7 +209,7 @@
END IF
*
* Compute the maximum over the number of right hand sides of
-* norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS )
+* norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS )
*
RESID = ZERO
DO 10 J = 1, NRHS
diff --git a/lapack-netlib/TESTING/LIN/dtrt03.f b/lapack-netlib/TESTING/LIN/dtrt03.f
index 067db391b..ef6a33f6a 100644
--- a/lapack-netlib/TESTING/LIN/dtrt03.f
+++ b/lapack-netlib/TESTING/LIN/dtrt03.f
@@ -161,18 +161,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DTRT03( UPLO, TRANS, DIAG, N, NRHS, A, LDA, SCALE,
$ CNORM, TSCAL, X, LDX, B, LDB, WORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
diff --git a/lapack-netlib/TESTING/LIN/dtrt05.f b/lapack-netlib/TESTING/LIN/dtrt05.f
index f5ef13462..c03aa5bf9 100644
--- a/lapack-netlib/TESTING/LIN/dtrt05.f
+++ b/lapack-netlib/TESTING/LIN/dtrt05.f
@@ -173,18 +173,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DTRT05( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, X,
$ LDX, XACT, LDXACT, FERR, BERR, RESLTS )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
diff --git a/lapack-netlib/TESTING/LIN/dtrt06.f b/lapack-netlib/TESTING/LIN/dtrt06.f
index f4f861e42..276e5485f 100644
--- a/lapack-netlib/TESTING/LIN/dtrt06.f
+++ b/lapack-netlib/TESTING/LIN/dtrt06.f
@@ -113,18 +113,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DTRT06( RCOND, RCONDC, UPLO, DIAG, N, A, LDA, WORK,
$ RAT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, UPLO
diff --git a/lapack-netlib/TESTING/LIN/dtsqr01.f b/lapack-netlib/TESTING/LIN/dtsqr01.f
index 25bf58a81..85733be4c 100644
--- a/lapack-netlib/TESTING/LIN/dtsqr01.f
+++ b/lapack-netlib/TESTING/LIN/dtsqr01.f
@@ -77,18 +77,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE DTSQR01(TSSW, M, N, MB, NB, RESULT)
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* April 2012
*
* .. Scalar Arguments ..
CHARACTER TSSW
diff --git a/lapack-netlib/TESTING/LIN/icopy.f b/lapack-netlib/TESTING/LIN/icopy.f
index a518b0f0f..05bbf11fc 100644
--- a/lapack-netlib/TESTING/LIN/icopy.f
+++ b/lapack-netlib/TESTING/LIN/icopy.f
@@ -68,17 +68,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup aux_lin
*
* =====================================================================
SUBROUTINE ICOPY( N, SX, INCX, SY, INCY )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INCX, INCY, N
diff --git a/lapack-netlib/TESTING/LIN/ilaenv.f b/lapack-netlib/TESTING/LIN/ilaenv.f
index 5f7f291aa..50c6a4c6c 100644
--- a/lapack-netlib/TESTING/LIN/ilaenv.f
+++ b/lapack-netlib/TESTING/LIN/ilaenv.f
@@ -119,8 +119,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup aux_lin
*
*> \par Further Details:
@@ -150,10 +148,9 @@
INTEGER FUNCTION ILAENV( ISPEC, NAME, OPTS, N1, N2, N3,
$ N4 )
*
-* -- LAPACK test routine (version 3.8.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2017
*
* .. Scalar Arguments ..
CHARACTER*( * ) NAME, OPTS
diff --git a/lapack-netlib/TESTING/LIN/schkeq.f b/lapack-netlib/TESTING/LIN/schkeq.f
index 6381d9ddc..62898cf7a 100644
--- a/lapack-netlib/TESTING/LIN/schkeq.f
+++ b/lapack-netlib/TESTING/LIN/schkeq.f
@@ -47,17 +47,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SCHKEQ( THRESH, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER NOUT
diff --git a/lapack-netlib/TESTING/LIN/schkgb.f b/lapack-netlib/TESTING/LIN/schkgb.f
index 724109b28..9ab8c0e01 100644
--- a/lapack-netlib/TESTING/LIN/schkgb.f
+++ b/lapack-netlib/TESTING/LIN/schkgb.f
@@ -160,7 +160,7 @@
*> \param[out] RWORK
*> \verbatim
*> RWORK is REAL array, dimension
-*> (max(NMAX,2*NSMAX))
+*> (NMAX+2*NSMAX)
*> \endverbatim
*>
*> \param[out] IWORK
@@ -182,8 +182,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
@@ -191,10 +189,9 @@
$ NSVAL, THRESH, TSTERR, A, LA, AFAC, LAFAC, B,
$ X, XACT, WORK, RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
@@ -566,7 +563,7 @@
END IF
*
*+ TEST 2:
-* Solve and compute residual for A * X = B.
+* Solve and compute residual for op(A) * X = B.
*
SRNAMT = 'SLARHS'
CALL SLARHS( PATH, XTYPE, ' ', TRANS, N,
@@ -592,7 +589,7 @@
$ WORK, LDB )
CALL SGBT02( TRANS, M, N, KL, KU, NRHS, A,
$ LDA, X, LDB, WORK, LDB,
- $ RESULT( 2 ) )
+ $ RWORK, RESULT( 2 ) )
*
*+ TEST 3:
* Check solution from generated exact
diff --git a/lapack-netlib/TESTING/LIN/schkge.f b/lapack-netlib/TESTING/LIN/schkge.f
index 2b8a77cc8..0921f7925 100644
--- a/lapack-netlib/TESTING/LIN/schkge.f
+++ b/lapack-netlib/TESTING/LIN/schkge.f
@@ -77,7 +77,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
@@ -176,8 +176,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup single_lin
*
* =====================================================================
@@ -185,10 +183,9 @@
$ NSVAL, THRESH, TSTERR, NMAX, A, AFAC, AINV, B,
$ X, XACT, WORK, RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* April 2012
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/schkgt.f b/lapack-netlib/TESTING/LIN/schkgt.f
index c2dce7bb8..0a538a614 100644
--- a/lapack-netlib/TESTING/LIN/schkgt.f
+++ b/lapack-netlib/TESTING/LIN/schkgt.f
@@ -138,18 +138,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SCHKGT( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR,
$ A, AF, B, X, XACT, WORK, RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/schklq.f b/lapack-netlib/TESTING/LIN/schklq.f
index 7084a040c..cd66e8d10 100644
--- a/lapack-netlib/TESTING/LIN/schklq.f
+++ b/lapack-netlib/TESTING/LIN/schklq.f
@@ -187,8 +187,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
@@ -196,10 +194,9 @@
$ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AL, AC,
$ B, X, XACT, TAU, WORK, RWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/schklqt.f b/lapack-netlib/TESTING/LIN/schklqt.f
index 2daca557f..2230583ba 100644
--- a/lapack-netlib/TESTING/LIN/schklqt.f
+++ b/lapack-netlib/TESTING/LIN/schklqt.f
@@ -76,7 +76,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
@@ -94,8 +94,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
@@ -103,10 +101,9 @@
$ NBVAL, NOUT )
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/schklqtp.f b/lapack-netlib/TESTING/LIN/schklqtp.f
index dbb44e020..20c0dd019 100644
--- a/lapack-netlib/TESTING/LIN/schklqtp.f
+++ b/lapack-netlib/TESTING/LIN/schklqtp.f
@@ -76,7 +76,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
@@ -94,8 +94,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup double_lin
*
* =====================================================================
@@ -103,10 +101,9 @@
$ NBVAL, NOUT )
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.7.1) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2017
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/schkorhr_col.f b/lapack-netlib/TESTING/LIN/schkorhr_col.f
index f61b74902..9c91b8535 100644
--- a/lapack-netlib/TESTING/LIN/schkorhr_col.f
+++ b/lapack-netlib/TESTING/LIN/schkorhr_col.f
@@ -82,7 +82,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
diff --git a/lapack-netlib/TESTING/LIN/schkpb.f b/lapack-netlib/TESTING/LIN/schkpb.f
index 257d592ec..fdad0d6df 100644
--- a/lapack-netlib/TESTING/LIN/schkpb.f
+++ b/lapack-netlib/TESTING/LIN/schkpb.f
@@ -64,7 +64,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
@@ -163,8 +163,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
@@ -172,10 +170,9 @@
$ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X,
$ XACT, WORK, RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/schkpo.f b/lapack-netlib/TESTING/LIN/schkpo.f
index d712b3851..ccfb9b7b2 100644
--- a/lapack-netlib/TESTING/LIN/schkpo.f
+++ b/lapack-netlib/TESTING/LIN/schkpo.f
@@ -64,7 +64,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
@@ -163,8 +163,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
@@ -172,10 +170,9 @@
$ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X,
$ XACT, WORK, RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/schkpp.f b/lapack-netlib/TESTING/LIN/schkpp.f
index 0f3422480..977c78548 100644
--- a/lapack-netlib/TESTING/LIN/schkpp.f
+++ b/lapack-netlib/TESTING/LIN/schkpp.f
@@ -154,8 +154,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
@@ -163,10 +161,9 @@
$ NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK,
$ IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/schkps.f b/lapack-netlib/TESTING/LIN/schkps.f
index bae34d27a..7bd70c452 100644
--- a/lapack-netlib/TESTING/LIN/schkps.f
+++ b/lapack-netlib/TESTING/LIN/schkps.f
@@ -64,7 +64,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the block size NB.
*> \endverbatim
*>
@@ -145,8 +145,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
@@ -154,10 +152,9 @@
$ THRESH, TSTERR, NMAX, A, AFAC, PERM, PIV, WORK,
$ RWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
REAL THRESH
diff --git a/lapack-netlib/TESTING/LIN/schkpt.f b/lapack-netlib/TESTING/LIN/schkpt.f
index 08a99ab74..569a3f01b 100644
--- a/lapack-netlib/TESTING/LIN/schkpt.f
+++ b/lapack-netlib/TESTING/LIN/schkpt.f
@@ -138,18 +138,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SCHKPT( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR,
$ A, D, E, B, X, XACT, WORK, RWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/schkq3.f b/lapack-netlib/TESTING/LIN/schkq3.f
index 8c10f6285..209683f48 100644
--- a/lapack-netlib/TESTING/LIN/schkq3.f
+++ b/lapack-netlib/TESTING/LIN/schkq3.f
@@ -144,8 +144,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
@@ -153,10 +151,9 @@
$ THRESH, A, COPYA, S, TAU, WORK, IWORK,
$ NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER NM, NN, NNB, NOUT
diff --git a/lapack-netlib/TESTING/LIN/schkql.f b/lapack-netlib/TESTING/LIN/schkql.f
index 817753dba..b68c9bcb0 100644
--- a/lapack-netlib/TESTING/LIN/schkql.f
+++ b/lapack-netlib/TESTING/LIN/schkql.f
@@ -187,8 +187,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
@@ -196,10 +194,9 @@
$ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AL, AC,
$ B, X, XACT, TAU, WORK, RWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/schkqr.f b/lapack-netlib/TESTING/LIN/schkqr.f
index 154607600..5c45ede9b 100644
--- a/lapack-netlib/TESTING/LIN/schkqr.f
+++ b/lapack-netlib/TESTING/LIN/schkqr.f
@@ -192,8 +192,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
@@ -201,10 +199,9 @@
$ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AR, AC,
$ B, X, XACT, TAU, WORK, RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/schkqrt.f b/lapack-netlib/TESTING/LIN/schkqrt.f
index 9a3cc37d0..ed25a230d 100644
--- a/lapack-netlib/TESTING/LIN/schkqrt.f
+++ b/lapack-netlib/TESTING/LIN/schkqrt.f
@@ -74,7 +74,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
@@ -92,8 +92,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
@@ -101,10 +99,9 @@
$ NBVAL, NOUT )
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/schkqrtp.f b/lapack-netlib/TESTING/LIN/schkqrtp.f
index 32bae3b39..eee963c47 100644
--- a/lapack-netlib/TESTING/LIN/schkqrtp.f
+++ b/lapack-netlib/TESTING/LIN/schkqrtp.f
@@ -76,7 +76,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
@@ -94,8 +94,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup single_lin
*
* =====================================================================
@@ -103,10 +101,9 @@
$ NBVAL, NOUT )
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.8.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2017
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/schkrfp.f b/lapack-netlib/TESTING/LIN/schkrfp.f
index 066bca694..f3fdfa07f 100644
--- a/lapack-netlib/TESTING/LIN/schkrfp.f
+++ b/lapack-netlib/TESTING/LIN/schkrfp.f
@@ -52,17 +52,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup single_lin
*
* =====================================================================
PROGRAM SCHKRFP
*
-* -- LAPACK test routine (version 3.7.1) --
+* -- LAPACK test routine --
* -- 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/LIN/schkrq.f b/lapack-netlib/TESTING/LIN/schkrq.f
index 5c463dd1c..095fbbf9b 100644
--- a/lapack-netlib/TESTING/LIN/schkrq.f
+++ b/lapack-netlib/TESTING/LIN/schkrq.f
@@ -192,8 +192,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
@@ -201,10 +199,9 @@
$ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AR, AC,
$ B, X, XACT, TAU, WORK, RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/schksp.f b/lapack-netlib/TESTING/LIN/schksp.f
index 53cecd9e7..b3c45d1f2 100644
--- a/lapack-netlib/TESTING/LIN/schksp.f
+++ b/lapack-netlib/TESTING/LIN/schksp.f
@@ -154,8 +154,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
@@ -163,10 +161,9 @@
$ NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK,
$ IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/schksy.f b/lapack-netlib/TESTING/LIN/schksy.f
index aee800a69..dc94b3492 100644
--- a/lapack-netlib/TESTING/LIN/schksy.f
+++ b/lapack-netlib/TESTING/LIN/schksy.f
@@ -64,7 +64,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
@@ -161,8 +161,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2013
-*
*> \ingroup single_lin
*
* =====================================================================
@@ -170,10 +168,9 @@
$ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X,
$ XACT, WORK, RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.5.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2013
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/schksy_aa.f b/lapack-netlib/TESTING/LIN/schksy_aa.f
index 93be3bdd4..75b895bd4 100644
--- a/lapack-netlib/TESTING/LIN/schksy_aa.f
+++ b/lapack-netlib/TESTING/LIN/schksy_aa.f
@@ -64,7 +64,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
@@ -161,8 +161,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup real_lin
*
* =====================================================================
@@ -170,10 +168,9 @@
$ THRESH, TSTERR, NMAX, A, AFAC, AINV, B,
$ X, XACT, WORK, RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.8.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2017
*
IMPLICIT NONE
*
diff --git a/lapack-netlib/TESTING/LIN/schksy_aa_2stage.f b/lapack-netlib/TESTING/LIN/schksy_aa_2stage.f
index 7cdcc9181..d3c27ae56 100644
--- a/lapack-netlib/TESTING/LIN/schksy_aa_2stage.f
+++ b/lapack-netlib/TESTING/LIN/schksy_aa_2stage.f
@@ -65,7 +65,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
@@ -162,8 +162,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup real_lin
*
* =====================================================================
@@ -171,10 +169,9 @@
$ NSVAL, THRESH, TSTERR, NMAX, A, AFAC, AINV,
$ B, X, XACT, WORK, RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.8.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2017
*
IMPLICIT NONE
*
@@ -567,6 +564,6 @@
$ I6 )
RETURN
*
-* End of DCHKSY_AA_2STAGE
+* End of SCHKSY_AA_2STAGE
*
END
diff --git a/lapack-netlib/TESTING/LIN/schksy_rk.f b/lapack-netlib/TESTING/LIN/schksy_rk.f
index 5456150a6..932e6e186 100644
--- a/lapack-netlib/TESTING/LIN/schksy_rk.f
+++ b/lapack-netlib/TESTING/LIN/schksy_rk.f
@@ -63,7 +63,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
@@ -167,8 +167,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup double_lin
*
* =====================================================================
@@ -176,10 +174,9 @@
$ THRESH, TSTERR, NMAX, A, AFAC, E, AINV, B,
$ X, XACT, WORK, RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.8.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2017
*
* .. Scalar Arguments ..
LOGICAL TSTERR
@@ -486,7 +483,7 @@
CALL SLACPY( UPLO, N, N, AFAC, LDA, AINV, LDA )
SRNAMT = 'SSYTRI_3'
*
-* Another reason that we need to compute the invesrse
+* Another reason that we need to compute the inverse
* is that SPOT03 produces RCONDC which is used later
* in TEST6 and TEST7.
*
diff --git a/lapack-netlib/TESTING/LIN/schksy_rook.f b/lapack-netlib/TESTING/LIN/schksy_rook.f
index 0d9e58fba..eb91eba4f 100644
--- a/lapack-netlib/TESTING/LIN/schksy_rook.f
+++ b/lapack-netlib/TESTING/LIN/schksy_rook.f
@@ -65,7 +65,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
@@ -162,8 +162,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
@@ -171,10 +169,9 @@
$ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X,
$ XACT, WORK, RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/schktb.f b/lapack-netlib/TESTING/LIN/schktb.f
index deb83bf0a..cdbb622b1 100644
--- a/lapack-netlib/TESTING/LIN/schktb.f
+++ b/lapack-netlib/TESTING/LIN/schktb.f
@@ -146,8 +146,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
@@ -155,10 +153,9 @@
$ NMAX, AB, AINV, B, X, XACT, WORK, RWORK, IWORK,
$ NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/schktp.f b/lapack-netlib/TESTING/LIN/schktp.f
index 6f3a96f7e..ff05c1d97 100644
--- a/lapack-netlib/TESTING/LIN/schktp.f
+++ b/lapack-netlib/TESTING/LIN/schktp.f
@@ -148,8 +148,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
@@ -157,10 +155,9 @@
$ NMAX, AP, AINVP, B, X, XACT, WORK, RWORK,
$ IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/schktr.f b/lapack-netlib/TESTING/LIN/schktr.f
index a9737e35c..66fa0bee7 100644
--- a/lapack-netlib/TESTING/LIN/schktr.f
+++ b/lapack-netlib/TESTING/LIN/schktr.f
@@ -158,8 +158,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
@@ -167,10 +165,9 @@
$ THRESH, TSTERR, NMAX, A, AINV, B, X, XACT,
$ WORK, RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/schktsqr.f b/lapack-netlib/TESTING/LIN/schktsqr.f
index aa4d6f9c4..5d7aa2d37 100644
--- a/lapack-netlib/TESTING/LIN/schktsqr.f
+++ b/lapack-netlib/TESTING/LIN/schktsqr.f
@@ -76,7 +76,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
@@ -94,8 +94,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
@@ -103,10 +101,9 @@
$ NBVAL, NOUT )
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
@@ -254,6 +251,6 @@
$ ', NB=', I5,' test(', I2, ')=', G12.5 )
RETURN
*
-* End of SCHKQRT
+* End of SCHKTSQR
*
END
diff --git a/lapack-netlib/TESTING/LIN/schktz.f b/lapack-netlib/TESTING/LIN/schktz.f
index 92d671c87..85544542a 100644
--- a/lapack-netlib/TESTING/LIN/schktz.f
+++ b/lapack-netlib/TESTING/LIN/schktz.f
@@ -124,18 +124,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SCHKTZ( DOTYPE, NM, MVAL, NN, NVAL, THRESH, TSTERR, A,
$ COPYA, S, TAU, WORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/sdrvgb.f b/lapack-netlib/TESTING/LIN/sdrvgb.f
index fc106ea51..d7c293ab6 100644
--- a/lapack-netlib/TESTING/LIN/sdrvgb.f
+++ b/lapack-netlib/TESTING/LIN/sdrvgb.f
@@ -141,7 +141,7 @@
*> \param[out] RWORK
*> \verbatim
*> RWORK is REAL array, dimension
-*> (max(NMAX,2*NRHS))
+*> (NMAX+2*NRHS)
*> \endverbatim
*>
*> \param[out] IWORK
@@ -163,8 +163,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
@@ -172,10 +170,9 @@
$ AFB, LAFB, ASAV, B, BSAV, X, XACT, S, WORK,
$ RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
@@ -585,7 +582,8 @@
$ WORK, LDB )
CALL SGBT02( 'No transpose', N, N, KL,
$ KU, NRHS, A, LDA, X, LDB,
- $ WORK, LDB, RESULT( 2 ) )
+ $ WORK, LDB, RWORK,
+ $ RESULT( 2 ) )
*
* Check solution from generated exact
* solution.
@@ -702,6 +700,7 @@
$ WORK, LDB )
CALL SGBT02( TRANS, N, N, KL, KU, NRHS,
$ ASAV, LDA, X, LDB, WORK, LDB,
+ $ RWORK( 2*NRHS+1 ),
$ RESULT( 2 ) )
*
* Check solution from generated exact
diff --git a/lapack-netlib/TESTING/LIN/sdrvgbx.f b/lapack-netlib/TESTING/LIN/sdrvgbx.f
index 45adc39db..342e25ac2 100644
--- a/lapack-netlib/TESTING/LIN/sdrvgbx.f
+++ b/lapack-netlib/TESTING/LIN/sdrvgbx.f
@@ -144,7 +144,7 @@
*> \param[out] RWORK
*> \verbatim
*> RWORK is REAL array, dimension
-*> (max(NMAX,2*NRHS))
+*> (max(2*NMAX,NMAX+2*NRHS))
*> \endverbatim
*>
*> \param[out] IWORK
@@ -166,8 +166,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
@@ -175,10 +173,9 @@
$ AFB, LAFB, ASAV, B, BSAV, X, XACT, S, WORK,
$ RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
@@ -593,7 +590,8 @@
$ WORK, LDB )
CALL SGBT02( 'No transpose', N, N, KL,
$ KU, NRHS, A, LDA, X, LDB,
- $ WORK, LDB, RESULT( 2 ) )
+ $ WORK, LDB, RWORK,
+ $ RESULT( 2 ) )
*
* Check solution from generated exact
* solution.
@@ -710,6 +708,7 @@
$ WORK, LDB )
CALL SGBT02( TRANS, N, N, KL, KU, NRHS,
$ ASAV, LDA, X, LDB, WORK, LDB,
+ $ RWORK( 2*NRHS+1 ),
$ RESULT( 2 ) )
*
* Check solution from generated exact
@@ -896,7 +895,7 @@
CALL SLACPY( 'Full', N, NRHS, BSAV, LDB, WORK,
$ LDB )
CALL SGBT02( TRANS, N, N, KL, KU, NRHS, ASAV,
- $ LDA, X, LDB, WORK, LDB,
+ $ LDA, X, LDB, WORK, LDB, RWORK,
$ RESULT( 2 ) )
*
* Check solution from generated exact solution.
@@ -1027,6 +1026,6 @@
*
RETURN
*
-* End of SDRVGB
+* End of SDRVGBX
*
END
diff --git a/lapack-netlib/TESTING/LIN/sdrvge.f b/lapack-netlib/TESTING/LIN/sdrvge.f
index 8c08cddba..fa66d12c1 100644
--- a/lapack-netlib/TESTING/LIN/sdrvge.f
+++ b/lapack-netlib/TESTING/LIN/sdrvge.f
@@ -155,8 +155,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
@@ -164,10 +162,9 @@
$ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK,
$ RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/sdrvgex.f b/lapack-netlib/TESTING/LIN/sdrvgex.f
index 1cc9f3c9f..a7a9984ff 100644
--- a/lapack-netlib/TESTING/LIN/sdrvgex.f
+++ b/lapack-netlib/TESTING/LIN/sdrvgex.f
@@ -158,8 +158,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup single_lin
*
* =====================================================================
@@ -167,10 +165,9 @@
$ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK,
$ RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* April 2012
*
* .. Scalar Arguments ..
LOGICAL TSTERR
@@ -889,6 +886,6 @@
$ G12.5 )
RETURN
*
-* End of SDRVGE
+* End of SDRVGEX
*
END
diff --git a/lapack-netlib/TESTING/LIN/sdrvgt.f b/lapack-netlib/TESTING/LIN/sdrvgt.f
index f93978021..6c3ad2d7b 100644
--- a/lapack-netlib/TESTING/LIN/sdrvgt.f
+++ b/lapack-netlib/TESTING/LIN/sdrvgt.f
@@ -131,18 +131,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SDRVGT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, AF,
$ B, X, XACT, WORK, RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/sdrvls.f b/lapack-netlib/TESTING/LIN/sdrvls.f
index 649ca558c..b96451503 100644
--- a/lapack-netlib/TESTING/LIN/sdrvls.f
+++ b/lapack-netlib/TESTING/LIN/sdrvls.f
@@ -183,8 +183,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup single_lin
*
* =====================================================================
@@ -192,10 +190,9 @@
$ NBVAL, NXVAL, THRESH, TSTERR, A, COPYA, B,
$ COPYB, C, S, COPYS, NOUT )
*
-* -- LAPACK test routine (version 3.8.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2017
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/sdrvpb.f b/lapack-netlib/TESTING/LIN/sdrvpb.f
index ba018bc6d..e3e9ea373 100644
--- a/lapack-netlib/TESTING/LIN/sdrvpb.f
+++ b/lapack-netlib/TESTING/LIN/sdrvpb.f
@@ -155,8 +155,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
@@ -164,10 +162,9 @@
$ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK,
$ RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/sdrvpo.f b/lapack-netlib/TESTING/LIN/sdrvpo.f
index d8d90cc3b..5ac638b0b 100644
--- a/lapack-netlib/TESTING/LIN/sdrvpo.f
+++ b/lapack-netlib/TESTING/LIN/sdrvpo.f
@@ -155,8 +155,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
@@ -164,10 +162,9 @@
$ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK,
$ RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/sdrvpox.f b/lapack-netlib/TESTING/LIN/sdrvpox.f
index 23fc87d3c..ae3cf9bee 100644
--- a/lapack-netlib/TESTING/LIN/sdrvpox.f
+++ b/lapack-netlib/TESTING/LIN/sdrvpox.f
@@ -158,8 +158,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
@@ -167,10 +165,9 @@
$ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK,
$ RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
@@ -731,6 +728,6 @@
$ G12.5 )
RETURN
*
-* End of SDRVPO
+* End of SDRVPOX
*
END
diff --git a/lapack-netlib/TESTING/LIN/sdrvpp.f b/lapack-netlib/TESTING/LIN/sdrvpp.f
index 33b7d0d20..bfabe72b7 100644
--- a/lapack-netlib/TESTING/LIN/sdrvpp.f
+++ b/lapack-netlib/TESTING/LIN/sdrvpp.f
@@ -158,8 +158,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
@@ -167,10 +165,9 @@
$ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK,
$ RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/sdrvpt.f b/lapack-netlib/TESTING/LIN/sdrvpt.f
index e2ca6bcb8..00754141b 100644
--- a/lapack-netlib/TESTING/LIN/sdrvpt.f
+++ b/lapack-netlib/TESTING/LIN/sdrvpt.f
@@ -132,18 +132,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SDRVPT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, D,
$ E, B, X, XACT, WORK, RWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/sdrvrf1.f b/lapack-netlib/TESTING/LIN/sdrvrf1.f
index 4aa978204..1567b2762 100644
--- a/lapack-netlib/TESTING/LIN/sdrvrf1.f
+++ b/lapack-netlib/TESTING/LIN/sdrvrf1.f
@@ -87,17 +87,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SDRVRF1( NOUT, NN, NVAL, THRESH, A, LDA, ARF, WORK )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, NN, NOUT
diff --git a/lapack-netlib/TESTING/LIN/sdrvrf2.f b/lapack-netlib/TESTING/LIN/sdrvrf2.f
index 350f47e14..1d2c85edb 100644
--- a/lapack-netlib/TESTING/LIN/sdrvrf2.f
+++ b/lapack-netlib/TESTING/LIN/sdrvrf2.f
@@ -82,17 +82,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SDRVRF2( NOUT, NN, NVAL, A, LDA, ARF, AP, ASAV )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, NN, NOUT
diff --git a/lapack-netlib/TESTING/LIN/sdrvrf3.f b/lapack-netlib/TESTING/LIN/sdrvrf3.f
index aa8e4f1da..5faae2733 100644
--- a/lapack-netlib/TESTING/LIN/sdrvrf3.f
+++ b/lapack-netlib/TESTING/LIN/sdrvrf3.f
@@ -110,18 +110,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2,
+ S_WORK_SLANGE, S_WORK_SGEQRF, TAU )
*
-* -- LAPACK test routine (version 3.7.1) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2017
*
* .. Scalar Arguments ..
INTEGER LDA, NN, NOUT
@@ -255,8 +252,8 @@
* Generate A our NA--by--NA triangular
* matrix.
* Our test is based on forward error so we
-* do want A to be well conditionned! To get
-* a well-conditionned triangular matrix, we
+* do want A to be well conditioned! To get
+* a well-conditioned triangular matrix, we
* take the R factor of the QR/LQ factorization
* of a random matrix.
*
diff --git a/lapack-netlib/TESTING/LIN/sdrvrf4.f b/lapack-netlib/TESTING/LIN/sdrvrf4.f
index d811d049b..e4d08ccbb 100644
--- a/lapack-netlib/TESTING/LIN/sdrvrf4.f
+++ b/lapack-netlib/TESTING/LIN/sdrvrf4.f
@@ -110,18 +110,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SDRVRF4( NOUT, NN, NVAL, THRESH, C1, C2, LDC, CRF, A,
+ LDA, S_WORK_SLANGE )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LDC, NN, NOUT
diff --git a/lapack-netlib/TESTING/LIN/sdrvrfp.f b/lapack-netlib/TESTING/LIN/sdrvrfp.f
index c0eb4d564..fbbf8bc88 100644
--- a/lapack-netlib/TESTING/LIN/sdrvrfp.f
+++ b/lapack-netlib/TESTING/LIN/sdrvrfp.f
@@ -203,11 +203,6 @@
*> S_TEMP_SPOT03 is REAL array, dimension ( NMAX*NMAX )
*> \endverbatim
*>
-*> \param[out] S_WORK_SLATMS
-*> \verbatim
-*> S_WORK_SLATMS is REAL array, dimension ( NMAX )
-*> \endverbatim
-*>
*> \param[out] S_WORK_SLANSY
*> \verbatim
*> S_WORK_SLANSY is REAL array, dimension ( NMAX )
@@ -231,8 +226,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
@@ -243,10 +236,9 @@
+ S_TEMP_SPOT03, S_WORK_SLANSY,
+ S_WORK_SPOT02, S_WORK_SPOT03 )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER NN, NNS, NNT, NOUT
diff --git a/lapack-netlib/TESTING/LIN/sdrvsp.f b/lapack-netlib/TESTING/LIN/sdrvsp.f
index 12110cfa9..077f04135 100644
--- a/lapack-netlib/TESTING/LIN/sdrvsp.f
+++ b/lapack-netlib/TESTING/LIN/sdrvsp.f
@@ -147,8 +147,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
@@ -156,10 +154,9 @@
$ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK,
$ NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/sdrvsy.f b/lapack-netlib/TESTING/LIN/sdrvsy.f
index 1e3abeda1..509522c42 100644
--- a/lapack-netlib/TESTING/LIN/sdrvsy.f
+++ b/lapack-netlib/TESTING/LIN/sdrvsy.f
@@ -143,8 +143,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2013
-*
*> \ingroup single_lin
*
* =====================================================================
@@ -152,10 +150,9 @@
$ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK,
$ NOUT )
*
-* -- LAPACK test routine (version 3.5.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2013
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/sdrvsy_aa.f b/lapack-netlib/TESTING/LIN/sdrvsy_aa.f
index e4357c45f..ff0c3ab8d 100644
--- a/lapack-netlib/TESTING/LIN/sdrvsy_aa.f
+++ b/lapack-netlib/TESTING/LIN/sdrvsy_aa.f
@@ -143,8 +143,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup real_lin
*
* =====================================================================
@@ -152,10 +150,9 @@
$ NMAX, A, AFAC, AINV, B, X, XACT, WORK,
$ RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.8.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2017
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/sdrvsy_aa_2stage.f b/lapack-netlib/TESTING/LIN/sdrvsy_aa_2stage.f
index 70e8ff6b8..aff32bce9 100644
--- a/lapack-netlib/TESTING/LIN/sdrvsy_aa_2stage.f
+++ b/lapack-netlib/TESTING/LIN/sdrvsy_aa_2stage.f
@@ -145,8 +145,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup real_lin
*
* =====================================================================
@@ -155,10 +153,9 @@
$ NMAX, A, AFAC, AINV, B, X, XACT, WORK,
$ RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.8.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2017
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/sdrvsy_rk.f b/lapack-netlib/TESTING/LIN/sdrvsy_rk.f
index 83cb5dda0..6018126f6 100644
--- a/lapack-netlib/TESTING/LIN/sdrvsy_rk.f
+++ b/lapack-netlib/TESTING/LIN/sdrvsy_rk.f
@@ -147,8 +147,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
@@ -156,10 +154,9 @@
$ NMAX, A, AFAC, E, AINV, B, X, XACT, WORK,
$ RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
@@ -411,7 +408,7 @@
CALL SLACPY( UPLO, N, N, AFAC, LDA, AINV, LDA )
LWORK = (N+NB+1)*(NB+3)
*
-* We need to copute the invesrse to compute
+* We need to compute the inverse to compute
* RCONDC that is used later in TEST3.
*
CALL SSYTRI_3( UPLO, N, AINV, LDA, E, IWORK,
diff --git a/lapack-netlib/TESTING/LIN/sdrvsy_rook.f b/lapack-netlib/TESTING/LIN/sdrvsy_rook.f
index e729dc51e..eebfea59b 100644
--- a/lapack-netlib/TESTING/LIN/sdrvsy_rook.f
+++ b/lapack-netlib/TESTING/LIN/sdrvsy_rook.f
@@ -144,8 +144,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2013
-*
*> \ingroup double_lin
*
* =====================================================================
@@ -153,10 +151,9 @@
$ NMAX, A, AFAC, AINV, B, X, XACT, WORK,
$ RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.5.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2013
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/sdrvsyx.f b/lapack-netlib/TESTING/LIN/sdrvsyx.f
index e314da2e0..26f300548 100644
--- a/lapack-netlib/TESTING/LIN/sdrvsyx.f
+++ b/lapack-netlib/TESTING/LIN/sdrvsyx.f
@@ -147,8 +147,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
@@ -156,10 +154,9 @@
$ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK,
$ NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
@@ -707,6 +704,6 @@
$ ', type ', I2, ', test ', I2, ', ratio =', G12.5 )
RETURN
*
-* End of SDRVSY
+* End of SDRVSYX
*
END
diff --git a/lapack-netlib/TESTING/LIN/sebchvxx.f b/lapack-netlib/TESTING/LIN/sebchvxx.f
index 8a8e08665..2485a7fd7 100644
--- a/lapack-netlib/TESTING/LIN/sebchvxx.f
+++ b/lapack-netlib/TESTING/LIN/sebchvxx.f
@@ -89,8 +89,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
@@ -492,5 +490,7 @@ c$$$ WRITE(*,*)
8000 FORMAT( ' S', A2, 'SVXX: N =', I2, ', INFO = ', I3,
$ ', ORCOND = ', G12.5, ', real RCOND = ', G12.5 )
-
+*
+* End of SEBCHVXX
+*
END
diff --git a/lapack-netlib/TESTING/LIN/serrge.f b/lapack-netlib/TESTING/LIN/serrge.f
index d4b1f701f..7ac5c926b 100644
--- a/lapack-netlib/TESTING/LIN/serrge.f
+++ b/lapack-netlib/TESTING/LIN/serrge.f
@@ -48,17 +48,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SERRGE( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/LIN/serrgex.f b/lapack-netlib/TESTING/LIN/serrgex.f
index ebeceae86..b6da20b5e 100644
--- a/lapack-netlib/TESTING/LIN/serrgex.f
+++ b/lapack-netlib/TESTING/LIN/serrgex.f
@@ -51,17 +51,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SERRGE( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
@@ -560,6 +557,6 @@
*
RETURN
*
-* End of SERRGE
+* End of SERRGEX
*
END
diff --git a/lapack-netlib/TESTING/LIN/serrgt.f b/lapack-netlib/TESTING/LIN/serrgt.f
index 0fc54cab9..431e8bbd9 100644
--- a/lapack-netlib/TESTING/LIN/serrgt.f
+++ b/lapack-netlib/TESTING/LIN/serrgt.f
@@ -48,17 +48,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SERRGT( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/LIN/serrlq.f b/lapack-netlib/TESTING/LIN/serrlq.f
index e184f006f..5bb0fe201 100644
--- a/lapack-netlib/TESTING/LIN/serrlq.f
+++ b/lapack-netlib/TESTING/LIN/serrlq.f
@@ -48,17 +48,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SERRLQ( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/LIN/serrlqt.f b/lapack-netlib/TESTING/LIN/serrlqt.f
index 6144ec625..2a5f9eee2 100644
--- a/lapack-netlib/TESTING/LIN/serrlqt.f
+++ b/lapack-netlib/TESTING/LIN/serrlqt.f
@@ -48,18 +48,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE SERRLQT( PATH, NUNIT )
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/LIN/serrlqtp.f b/lapack-netlib/TESTING/LIN/serrlqtp.f
index 4d0437d4f..e06f23f53 100644
--- a/lapack-netlib/TESTING/LIN/serrlqtp.f
+++ b/lapack-netlib/TESTING/LIN/serrlqtp.f
@@ -48,18 +48,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE SERRLQTP( PATH, NUNIT )
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
@@ -220,6 +217,6 @@
*
RETURN
*
-* End of SERRLQT
+* End of SERRLQTP
*
END
diff --git a/lapack-netlib/TESTING/LIN/serrls.f b/lapack-netlib/TESTING/LIN/serrls.f
index f7912e1fb..e6ee4360f 100644
--- a/lapack-netlib/TESTING/LIN/serrls.f
+++ b/lapack-netlib/TESTING/LIN/serrls.f
@@ -48,17 +48,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SERRLS( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/LIN/serrorhr_col.f b/lapack-netlib/TESTING/LIN/serrorhr_col.f
index e8d81a99c..3b222273c 100644
--- a/lapack-netlib/TESTING/LIN/serrorhr_col.f
+++ b/lapack-netlib/TESTING/LIN/serrorhr_col.f
@@ -22,7 +22,7 @@
*> \verbatim
*>
*> SERRORHR_COL tests the error exits for SORHR_COL that does
-*> Householder reconstruction from the ouput of tall-skinny
+*> Householder reconstruction from the output of tall-skinny
*> factorization SLATSQR.
*> \endverbatim
*
@@ -49,18 +49,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2019
-*
*> \ingroup singlr_lin
*
* =====================================================================
SUBROUTINE SERRORHR_COL( PATH, NUNIT )
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.9.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2019
*
* .. Scalar Arguments ..
CHARACTER(LEN=3) PATH
diff --git a/lapack-netlib/TESTING/LIN/serrpo.f b/lapack-netlib/TESTING/LIN/serrpo.f
index 8061514d8..4c07c8f87 100644
--- a/lapack-netlib/TESTING/LIN/serrpo.f
+++ b/lapack-netlib/TESTING/LIN/serrpo.f
@@ -48,17 +48,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SERRPO( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/LIN/serrpox.f b/lapack-netlib/TESTING/LIN/serrpox.f
index 123f5b70b..6e81bf670 100644
--- a/lapack-netlib/TESTING/LIN/serrpox.f
+++ b/lapack-netlib/TESTING/LIN/serrpox.f
@@ -51,17 +51,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SERRPO( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
@@ -526,6 +523,6 @@
*
RETURN
*
-* End of SERRPO
+* End of SERRPOX
*
END
diff --git a/lapack-netlib/TESTING/LIN/serrps.f b/lapack-netlib/TESTING/LIN/serrps.f
index dc9cb29f5..669028b81 100644
--- a/lapack-netlib/TESTING/LIN/serrps.f
+++ b/lapack-netlib/TESTING/LIN/serrps.f
@@ -48,17 +48,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SERRPS( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER NUNIT
diff --git a/lapack-netlib/TESTING/LIN/serrql.f b/lapack-netlib/TESTING/LIN/serrql.f
index 1b094be6e..e714aa076 100644
--- a/lapack-netlib/TESTING/LIN/serrql.f
+++ b/lapack-netlib/TESTING/LIN/serrql.f
@@ -48,17 +48,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SERRQL( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/LIN/serrqp.f b/lapack-netlib/TESTING/LIN/serrqp.f
index 596f275f3..952c5ff4e 100644
--- a/lapack-netlib/TESTING/LIN/serrqp.f
+++ b/lapack-netlib/TESTING/LIN/serrqp.f
@@ -47,17 +47,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SERRQP( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/LIN/serrqr.f b/lapack-netlib/TESTING/LIN/serrqr.f
index 3339a85ad..1ad40b7aa 100644
--- a/lapack-netlib/TESTING/LIN/serrqr.f
+++ b/lapack-netlib/TESTING/LIN/serrqr.f
@@ -48,17 +48,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SERRQR( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/LIN/serrqrt.f b/lapack-netlib/TESTING/LIN/serrqrt.f
index 1df2c25c9..f243fd94c 100644
--- a/lapack-netlib/TESTING/LIN/serrqrt.f
+++ b/lapack-netlib/TESTING/LIN/serrqrt.f
@@ -48,18 +48,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SERRQRT( PATH, NUNIT )
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/LIN/serrqrtp.f b/lapack-netlib/TESTING/LIN/serrqrtp.f
index 211643b9b..af1d61675 100644
--- a/lapack-netlib/TESTING/LIN/serrqrtp.f
+++ b/lapack-netlib/TESTING/LIN/serrqrtp.f
@@ -48,18 +48,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SERRQRTP( PATH, NUNIT )
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
@@ -224,6 +221,6 @@
*
RETURN
*
-* End of SERRQRT
+* End of SERRQRTP
*
END
diff --git a/lapack-netlib/TESTING/LIN/serrrfp.f b/lapack-netlib/TESTING/LIN/serrrfp.f
index 1956cca4b..2c7ee8ed6 100644
--- a/lapack-netlib/TESTING/LIN/serrrfp.f
+++ b/lapack-netlib/TESTING/LIN/serrrfp.f
@@ -45,17 +45,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SERRRFP( NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER NUNIT
diff --git a/lapack-netlib/TESTING/LIN/serrrq.f b/lapack-netlib/TESTING/LIN/serrrq.f
index c2cec4328..d8d9ea62b 100644
--- a/lapack-netlib/TESTING/LIN/serrrq.f
+++ b/lapack-netlib/TESTING/LIN/serrrq.f
@@ -48,17 +48,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SERRRQ( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/LIN/serrsy.f b/lapack-netlib/TESTING/LIN/serrsy.f
index fe9af2f41..c562b417b 100644
--- a/lapack-netlib/TESTING/LIN/serrsy.f
+++ b/lapack-netlib/TESTING/LIN/serrsy.f
@@ -48,17 +48,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SERRSY( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.8.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2017
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/LIN/serrsyx.f b/lapack-netlib/TESTING/LIN/serrsyx.f
index 9249f104f..ed47c37bd 100644
--- a/lapack-netlib/TESTING/LIN/serrsyx.f
+++ b/lapack-netlib/TESTING/LIN/serrsyx.f
@@ -51,17 +51,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SERRSY( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
@@ -613,6 +610,6 @@
*
RETURN
*
-* End of SERRSY
+* End of SERRSYX
*
END
diff --git a/lapack-netlib/TESTING/LIN/serrtr.f b/lapack-netlib/TESTING/LIN/serrtr.f
index 0bc4a897c..f0d0a0ef2 100644
--- a/lapack-netlib/TESTING/LIN/serrtr.f
+++ b/lapack-netlib/TESTING/LIN/serrtr.f
@@ -48,17 +48,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SERRTR( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/LIN/serrtsqr.f b/lapack-netlib/TESTING/LIN/serrtsqr.f
index 7f91a3c39..7f25f8b08 100644
--- a/lapack-netlib/TESTING/LIN/serrtsqr.f
+++ b/lapack-netlib/TESTING/LIN/serrtsqr.f
@@ -48,18 +48,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE SERRTSQR( PATH, NUNIT )
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
@@ -73,7 +70,7 @@
PARAMETER ( NMAX = 2 )
* ..
* .. Local Scalars ..
- INTEGER I, INFO, J, NB
+ INTEGER I, INFO, J, MB, NB
* ..
* .. Local Arrays ..
REAL A( NMAX, NMAX ), T( NMAX, NMAX ), W( NMAX ),
@@ -133,6 +130,35 @@
CALL SGEQR( 3, 2, A, 3, TAU, 7, W, 0, INFO )
CALL CHKXER( 'SGEQR', INFOT, NOUT, LERR, OK )
*
+* SLATSQR
+*
+ MB = 1
+ NB = 1
+ SRNAMT = 'SLATSQR'
+ INFOT = 1
+ CALL SLATSQR( -1, 0, MB, NB, A, 1, TAU, 1, W, 1, INFO )
+ CALL CHKXER( 'SLATSQR', INFOT, NOUT, LERR, OK )
+ INFOT = 2
+ CALL SLATSQR( 1, 2, MB, NB, A, 1, TAU, 1, W, 1, INFO )
+ CALL CHKXER( 'SLATSQR', INFOT, NOUT, LERR, OK )
+ CALL SLATSQR( 0, -1, MB, NB, A, 1, TAU, 1, W, 1, INFO )
+ CALL CHKXER( 'SLATSQR', INFOT, NOUT, LERR, OK )
+ INFOT = 3
+ CALL SLATSQR( 2, 1, -1, NB, A, 2, TAU, 1, W, 1, INFO )
+ CALL CHKXER( 'SLATSQR', INFOT, NOUT, LERR, OK )
+ INFOT = 4
+ CALL SLATSQR( 2, 1, MB, 2, A, 2, TAU, 1, W, 1, INFO )
+ CALL CHKXER( 'SLATSQR', INFOT, NOUT, LERR, OK )
+ INFOT = 6
+ CALL SLATSQR( 2, 1, MB, NB, A, 1, TAU, 1, W, 1, INFO )
+ CALL CHKXER( 'SLATSQR', INFOT, NOUT, LERR, OK )
+ INFOT = 8
+ CALL SLATSQR( 2, 1, MB, NB, A, 2, TAU, 0, W, 1, INFO )
+ CALL CHKXER( 'SLATSQR', INFOT, NOUT, LERR, OK )
+ INFOT = 10
+ CALL SLATSQR( 2, 1, MB, NB, A, 2, TAU, 2, W, 0, INFO )
+ CALL CHKXER( 'SLATSQR', INFOT, NOUT, LERR, OK )
+*
* SGEMQR
*
TAU(1)=1
@@ -194,6 +220,37 @@
CALL SGELQ( 2, 3, A, 3, TAU, 7, W, 0, INFO )
CALL CHKXER( 'SGELQ', INFOT, NOUT, LERR, OK )
*
+* SLASWLQ
+*
+ MB = 1
+ NB = 1
+ SRNAMT = 'SLASWLQ'
+ INFOT = 1
+ CALL SLASWLQ( -1, 0, MB, NB, A, 1, TAU, 1, W, 1, INFO )
+ CALL CHKXER( 'SLASWLQ', INFOT, NOUT, LERR, OK )
+ INFOT = 2
+ CALL SLASWLQ( 2, 1, MB, NB, A, 1, TAU, 1, W, 1, INFO )
+ CALL CHKXER( 'SLASWLQ', INFOT, NOUT, LERR, OK )
+ CALL SLASWLQ( 0, -1, MB, NB, A, 1, TAU, 1, W, 1, INFO )
+ CALL CHKXER( 'SLASWLQ', INFOT, NOUT, LERR, OK )
+ INFOT = 3
+ CALL SLASWLQ( 1, 2, -1, NB, A, 1, TAU, 1, W, 1, INFO )
+ CALL CHKXER( 'SLASWLQ', INFOT, NOUT, LERR, OK )
+ CALL SLASWLQ( 1, 1, 2, NB, A, 1, TAU, 1, W, 1, INFO )
+ CALL CHKXER( 'SLASWLQ', INFOT, NOUT, LERR, OK )
+ INFOT = 4
+ CALL SLASWLQ( 1, 2, MB, -1, A, 1, TAU, 1, W, 1, INFO )
+ CALL CHKXER( 'SLASWLQ', INFOT, NOUT, LERR, OK )
+ INFOT = 6
+ CALL SLASWLQ( 1, 2, MB, NB, A, 0, TAU, 1, W, 1, INFO )
+ CALL CHKXER( 'SLASWLQ', INFOT, NOUT, LERR, OK )
+ INFOT = 8
+ CALL SLASWLQ( 1, 2, MB, NB, A, 1, TAU, 0, W, 1, INFO )
+ CALL CHKXER( 'SLASWLQ', INFOT, NOUT, LERR, OK )
+ INFOT = 10
+ CALL SLASWLQ( 1, 2, MB, NB, A, 1, TAU, 1, W, 0, INFO )
+ CALL CHKXER( 'SLASWLQ', INFOT, NOUT, LERR, OK )
+*
* SGEMLQ
*
TAU(1)=1
diff --git a/lapack-netlib/TESTING/LIN/serrtz.f b/lapack-netlib/TESTING/LIN/serrtz.f
index f5897642b..457f7b743 100644
--- a/lapack-netlib/TESTING/LIN/serrtz.f
+++ b/lapack-netlib/TESTING/LIN/serrtz.f
@@ -47,17 +47,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SERRTZ( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/LIN/serrvx.f b/lapack-netlib/TESTING/LIN/serrvx.f
index 910bff1e5..c3db47332 100644
--- a/lapack-netlib/TESTING/LIN/serrvx.f
+++ b/lapack-netlib/TESTING/LIN/serrvx.f
@@ -48,17 +48,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SERRVX( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.8.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2017
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/LIN/serrvxx.f b/lapack-netlib/TESTING/LIN/serrvxx.f
index 4d2cd9f38..d48c29a17 100644
--- a/lapack-netlib/TESTING/LIN/serrvxx.f
+++ b/lapack-netlib/TESTING/LIN/serrvxx.f
@@ -48,17 +48,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SERRVX( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
@@ -1036,6 +1033,6 @@
*
RETURN
*
-* End of SERRVX
+* End of SERRVXX
*
END
diff --git a/lapack-netlib/TESTING/LIN/sgbt01.f b/lapack-netlib/TESTING/LIN/sgbt01.f
index 2dd6d93b2..0f6129240 100644
--- a/lapack-netlib/TESTING/LIN/sgbt01.f
+++ b/lapack-netlib/TESTING/LIN/sgbt01.f
@@ -118,18 +118,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SGBT01( M, N, KL, KU, A, LDA, AFAC, LDAFAC, IPIV, WORK,
$ RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER KL, KU, LDA, LDAFAC, M, N
diff --git a/lapack-netlib/TESTING/LIN/sgbt02.f b/lapack-netlib/TESTING/LIN/sgbt02.f
index 2be982a8a..ecdb438ff 100644
--- a/lapack-netlib/TESTING/LIN/sgbt02.f
+++ b/lapack-netlib/TESTING/LIN/sgbt02.f
@@ -9,7 +9,7 @@
* ===========
*
* SUBROUTINE SGBT02( TRANS, M, N, KL, KU, NRHS, A, LDA, X, LDX, B,
-* LDB, RESID )
+* LDB, RWORK, RESID )
*
* .. Scalar Arguments ..
* CHARACTER TRANS
@@ -17,7 +17,8 @@
* REAL RESID
* ..
* .. Array Arguments ..
-* REAL A( LDA, * ), B( LDB, * ), X( LDX, * )
+* REAL A( LDA, * ), B( LDB, * ), X( LDX, * ),
+* RWORK( * )
* ..
*
*
@@ -27,9 +28,11 @@
*> \verbatim
*>
*> SGBT02 computes the residual for a solution of a banded system of
-*> equations A*x = b or A'*x = b:
-*> RESID = norm( B - A*X ) / ( norm(A) * norm(X) * EPS).
-*> where EPS is the machine precision.
+*> equations op(A)*X = B:
+*> RESID = norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ),
+*> where op(A) = A or A**T, depending on TRANS, and EPS is the
+*> machine epsilon.
+*> The norm used is the 1-norm.
*> \endverbatim
*
* Arguments:
@@ -39,9 +42,9 @@
*> \verbatim
*> TRANS is CHARACTER*1
*> Specifies the form of the system of equations:
-*> = 'N': A *x = b
-*> = 'T': A'*x = b, where A' is the transpose of A
-*> = 'C': A'*x = b, where A' is the transpose of A
+*> = 'N': A * X = B (No transpose)
+*> = 'T': A**T * X = B (Transpose)
+*> = 'C': A**H * X = B (Conjugate transpose = Transpose)
*> \endverbatim
*>
*> \param[in] M
@@ -116,11 +119,18 @@
*> LDB >= max(1,M); if TRANS = 'T' or 'C', LDB >= max(1,N).
*> \endverbatim
*>
+*> \param[out] RWORK
+*> \verbatim
+*> RWORK is REAL array, dimension (MAX(1,LRWORK)),
+*> where LRWORK >= M when TRANS = 'T' or 'C'; otherwise, RWORK
+*> is not referenced.
+*> \endverbatim
+*
*> \param[out] RESID
*> \verbatim
*> RESID is REAL
*> The maximum over the number of right hand sides of
-*> norm(B - A*X) / ( norm(A) * norm(X) * EPS ).
+*> norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ).
*> \endverbatim
*
* Authors:
@@ -131,18 +141,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SGBT02( TRANS, M, N, KL, KU, NRHS, A, LDA, X, LDX, B,
- $ LDB, RESID )
+ $ LDB, RWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER TRANS
@@ -150,7 +157,8 @@
REAL RESID
* ..
* .. Array Arguments ..
- REAL A( LDA, * ), B( LDB, * ), X( LDX, * )
+ REAL A( LDA, * ), B( LDB, * ), X( LDX, * ),
+ $ RWORK( * )
* ..
*
* =====================================================================
@@ -161,18 +169,18 @@
* ..
* .. Local Scalars ..
INTEGER I1, I2, J, KD, N1
- REAL ANORM, BNORM, EPS, XNORM
+ REAL ANORM, BNORM, EPS, TEMP, XNORM
* ..
* .. External Functions ..
- LOGICAL LSAME
+ LOGICAL LSAME, SISNAN
REAL SASUM, SLAMCH
- EXTERNAL LSAME, SASUM, SLAMCH
+ EXTERNAL LSAME, SASUM, SISNAN, SLAMCH
* ..
* .. External Subroutines ..
EXTERNAL SGBMV
* ..
* .. Intrinsic Functions ..
- INTRINSIC MAX, MIN
+ INTRINSIC ABS, MAX, MIN
* ..
* .. Executable Statements ..
*
@@ -186,13 +194,38 @@
* Exit with RESID = 1/EPS if ANORM = 0.
*
EPS = SLAMCH( 'Epsilon' )
- KD = KU + 1
ANORM = ZERO
+ IF( LSAME( TRANS, 'N' ) ) THEN
+*
+* Find norm1(A).
+*
+ KD = KU + 1
DO 10 J = 1, N
I1 = MAX( KD+1-J, 1 )
I2 = MIN( KD+M-J, KL+KD )
- ANORM = MAX( ANORM, SASUM( I2-I1+1, A( I1, J ), 1 ) )
+ IF( I2.GE.I1 ) THEN
+ TEMP = SASUM( I2-I1+1, A( I1, J ), 1 )
+ IF( ANORM.LT.TEMP .OR. SISNAN( TEMP ) ) ANORM = TEMP
+ END IF
10 CONTINUE
+ ELSE
+*
+* Find normI(A).
+*
+ DO 12 I1 = 1, M
+ RWORK( I1 ) = ZERO
+ 12 CONTINUE
+ DO 16 J = 1, N
+ KD = KU + 1 - J
+ DO 14 I1 = MAX( 1, J-KU ), MIN( M, J+KL )
+ RWORK( I1 ) = RWORK( I1 ) + ABS( A( KD+I1, J ) )
+ 14 CONTINUE
+ 16 CONTINUE
+ DO 18 I1 = 1, M
+ TEMP = RWORK( I1 )
+ IF( ANORM.LT.TEMP .OR. SISNAN( TEMP ) ) ANORM = TEMP
+ 18 CONTINUE
+ END IF
IF( ANORM.LE.ZERO ) THEN
RESID = ONE / EPS
RETURN
@@ -204,7 +237,7 @@
N1 = M
END IF
*
-* Compute B - A*X (or B - A'*X )
+* Compute B - op(A)*X
*
DO 20 J = 1, NRHS
CALL SGBMV( TRANS, M, N, KL, KU, -ONE, A, LDA, X( 1, J ), 1,
@@ -212,7 +245,7 @@
20 CONTINUE
*
* Compute the maximum over the number of right hand sides of
-* norm(B - A*X) / ( norm(A) * norm(X) * EPS ).
+* norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ).
*
RESID = ZERO
DO 30 J = 1, NRHS
diff --git a/lapack-netlib/TESTING/LIN/sgbt05.f b/lapack-netlib/TESTING/LIN/sgbt05.f
index 82c5a4a86..cfd6dd743 100644
--- a/lapack-netlib/TESTING/LIN/sgbt05.f
+++ b/lapack-netlib/TESTING/LIN/sgbt05.f
@@ -168,18 +168,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SGBT05( TRANS, N, KL, KU, NRHS, AB, LDAB, B, LDB, X,
$ LDX, XACT, LDXACT, FERR, BERR, RESLTS )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER TRANS
diff --git a/lapack-netlib/TESTING/LIN/sgelqs.f b/lapack-netlib/TESTING/LIN/sgelqs.f
index cdffebdc8..83afb4690 100644
--- a/lapack-netlib/TESTING/LIN/sgelqs.f
+++ b/lapack-netlib/TESTING/LIN/sgelqs.f
@@ -113,18 +113,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SGELQS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK,
$ INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS
diff --git a/lapack-netlib/TESTING/LIN/sgennd.f b/lapack-netlib/TESTING/LIN/sgennd.f
index 894590991..a5a420fdb 100644
--- a/lapack-netlib/TESTING/LIN/sgennd.f
+++ b/lapack-netlib/TESTING/LIN/sgennd.f
@@ -61,17 +61,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
LOGICAL FUNCTION SGENND (M, N, A, LDA)
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER M, N, LDA
diff --git a/lapack-netlib/TESTING/LIN/sgeqls.f b/lapack-netlib/TESTING/LIN/sgeqls.f
index 19ae7c592..8215b6a5b 100644
--- a/lapack-netlib/TESTING/LIN/sgeqls.f
+++ b/lapack-netlib/TESTING/LIN/sgeqls.f
@@ -114,18 +114,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SGEQLS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK,
$ INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS
diff --git a/lapack-netlib/TESTING/LIN/sgeqrs.f b/lapack-netlib/TESTING/LIN/sgeqrs.f
index 9ec64073d..ed1148910 100644
--- a/lapack-netlib/TESTING/LIN/sgeqrs.f
+++ b/lapack-netlib/TESTING/LIN/sgeqrs.f
@@ -113,18 +113,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SGEQRS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK,
$ INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS
diff --git a/lapack-netlib/TESTING/LIN/sgerqs.f b/lapack-netlib/TESTING/LIN/sgerqs.f
index 5b04c5ae2..0c5c693af 100644
--- a/lapack-netlib/TESTING/LIN/sgerqs.f
+++ b/lapack-netlib/TESTING/LIN/sgerqs.f
@@ -114,18 +114,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SGERQS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK,
$ INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS
diff --git a/lapack-netlib/TESTING/LIN/sget01.f b/lapack-netlib/TESTING/LIN/sget01.f
index aa748e8f0..a8b013d14 100644
--- a/lapack-netlib/TESTING/LIN/sget01.f
+++ b/lapack-netlib/TESTING/LIN/sget01.f
@@ -99,18 +99,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SGET01( M, N, A, LDA, AFAC, LDAFAC, IPIV, RWORK,
$ RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LDAFAC, M, N
diff --git a/lapack-netlib/TESTING/LIN/sget02.f b/lapack-netlib/TESTING/LIN/sget02.f
index 0f15ec0f2..0aa49ad4f 100644
--- a/lapack-netlib/TESTING/LIN/sget02.f
+++ b/lapack-netlib/TESTING/LIN/sget02.f
@@ -28,9 +28,11 @@
*> \verbatim
*>
*> SGET02 computes the residual for a solution of a system of linear
-*> equations A*x = b or A'*x = b:
-*> RESID = norm(B - A*X) / ( norm(A) * norm(X) * EPS ),
-*> where EPS is the machine epsilon.
+*> equations op(A)*X = B:
+*> RESID = norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ),
+*> where op(A) = A or A**T, depending on TRANS, and EPS is the
+*> machine epsilon.
+*> The norm used is the 1-norm.
*> \endverbatim
*
* Arguments:
@@ -40,9 +42,9 @@
*> \verbatim
*> TRANS is CHARACTER*1
*> Specifies the form of the system of equations:
-*> = 'N': A *x = b
-*> = 'T': A'*x = b, where A' is the transpose of A
-*> = 'C': A'*x = b, where A' is the transpose of A
+*> = 'N': A * X = B (No transpose)
+*> = 'T': A**T * X = B (Transpose)
+*> = 'C': A**H * X = B (Conjugate transpose = Transpose)
*> \endverbatim
*>
*> \param[in] M
@@ -95,7 +97,7 @@
*> B is REAL array, dimension (LDB,NRHS)
*> On entry, the right hand side vectors for the system of
*> linear equations.
-*> On exit, B is overwritten with the difference B - A*X.
+*> On exit, B is overwritten with the difference B - op(A)*X.
*> \endverbatim
*>
*> \param[in] LDB
@@ -114,7 +116,7 @@
*> \verbatim
*> RESID is REAL
*> The maximum over the number of right hand sides of
-*> norm(B - A*X) / ( norm(A) * norm(X) * EPS ).
+*> norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ).
*> \endverbatim
*
* Authors:
@@ -125,18 +127,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB,
$ RWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER TRANS
@@ -189,19 +188,23 @@
* Exit with RESID = 1/EPS if ANORM = 0.
*
EPS = SLAMCH( 'Epsilon' )
+ IF( LSAME( TRANS, 'N' ) ) THEN
ANORM = SLANGE( '1', M, N, A, LDA, RWORK )
+ ELSE
+ ANORM = SLANGE( 'I', M, N, A, LDA, RWORK )
+ END IF
IF( ANORM.LE.ZERO ) THEN
RESID = ONE / EPS
RETURN
END IF
*
-* Compute B - A*X (or B - A'*X ) and store in B.
+* Compute B - op(A)*X and store in B.
*
CALL SGEMM( TRANS, 'No transpose', N1, NRHS, N2, -ONE, A, LDA, X,
$ LDX, ONE, B, LDB )
*
* Compute the maximum over the number of right hand sides of
-* norm(B - A*X) / ( norm(A) * norm(X) * EPS ) .
+* norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ) .
*
RESID = ZERO
DO 10 J = 1, NRHS
diff --git a/lapack-netlib/TESTING/LIN/sget03.f b/lapack-netlib/TESTING/LIN/sget03.f
index 8b4a2a384..b32f10489 100644
--- a/lapack-netlib/TESTING/LIN/sget03.f
+++ b/lapack-netlib/TESTING/LIN/sget03.f
@@ -101,18 +101,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SGET03( N, A, LDA, AINV, LDAINV, WORK, LDWORK, RWORK,
$ RCOND, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LDAINV, LDWORK, N
diff --git a/lapack-netlib/TESTING/LIN/sget04.f b/lapack-netlib/TESTING/LIN/sget04.f
index 3873aabda..8c4fe9a89 100644
--- a/lapack-netlib/TESTING/LIN/sget04.f
+++ b/lapack-netlib/TESTING/LIN/sget04.f
@@ -95,17 +95,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SGET04( N, NRHS, X, LDX, XACT, LDXACT, RCOND, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDX, LDXACT, N, NRHS
diff --git a/lapack-netlib/TESTING/LIN/sget06.f b/lapack-netlib/TESTING/LIN/sget06.f
index 420004b31..12b952e13 100644
--- a/lapack-netlib/TESTING/LIN/sget06.f
+++ b/lapack-netlib/TESTING/LIN/sget06.f
@@ -48,17 +48,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
REAL FUNCTION SGET06( RCOND, RCONDC )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
REAL RCOND, RCONDC
diff --git a/lapack-netlib/TESTING/LIN/sget07.f b/lapack-netlib/TESTING/LIN/sget07.f
index 42c25cb1d..4333ad0b2 100644
--- a/lapack-netlib/TESTING/LIN/sget07.f
+++ b/lapack-netlib/TESTING/LIN/sget07.f
@@ -157,18 +157,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SGET07( TRANS, N, NRHS, A, LDA, B, LDB, X, LDX, XACT,
$ LDXACT, FERR, CHKFERR, BERR, RESLTS )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER TRANS
diff --git a/lapack-netlib/TESTING/LIN/sgtt01.f b/lapack-netlib/TESTING/LIN/sgtt01.f
index 5096f83cc..5d88c91f7 100644
--- a/lapack-netlib/TESTING/LIN/sgtt01.f
+++ b/lapack-netlib/TESTING/LIN/sgtt01.f
@@ -126,18 +126,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SGTT01( N, DL, D, DU, DLF, DF, DUF, DU2, IPIV, WORK,
$ LDWORK, RWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDWORK, N
diff --git a/lapack-netlib/TESTING/LIN/sgtt02.f b/lapack-netlib/TESTING/LIN/sgtt02.f
index 0a3915057..a4eb09f6b 100644
--- a/lapack-netlib/TESTING/LIN/sgtt02.f
+++ b/lapack-netlib/TESTING/LIN/sgtt02.f
@@ -29,8 +29,9 @@
*>
*> SGTT02 computes the residual for the solution to a tridiagonal
*> system of equations:
-*> RESID = norm(B - op(A)*X) / (norm(A) * norm(X) * EPS),
+*> RESID = norm(B - op(A)*X) / (norm(op(A)) * norm(X) * EPS),
*> where EPS is the machine epsilon.
+*> The norm used is the 1-norm.
*> \endverbatim
*
* Arguments:
@@ -41,8 +42,8 @@
*> TRANS is CHARACTER
*> Specifies the form of the residual.
*> = 'N': B - A * X (No transpose)
-*> = 'T': B - A'* X (Transpose)
-*> = 'C': B - A'* X (Conjugate transpose = Transpose)
+*> = 'T': B - A**T * X (Transpose)
+*> = 'C': B - A**H * X (Conjugate transpose = Transpose)
*> \endverbatim
*>
*> \param[in] N
@@ -105,7 +106,7 @@
*> \param[out] RESID
*> \verbatim
*> RESID is REAL
-*> norm(B - op(A)*X) / (norm(A) * norm(X) * EPS)
+*> norm(B - op(A)*X) / (norm(op(A)) * norm(X) * EPS)
*> \endverbatim
*
* Authors:
@@ -116,18 +117,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SGTT02( TRANS, N, NRHS, DL, D, DU, X, LDX, B, LDB,
$ RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER TRANS
@@ -169,7 +167,7 @@
$ RETURN
*
* Compute the maximum over the number of right hand sides of
-* norm(B - op(A)*X) / ( norm(A) * norm(X) * EPS ).
+* norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ).
*
IF( LSAME( TRANS, 'N' ) ) THEN
ANORM = SLANGT( '1', N, DL, D, DU )
@@ -185,7 +183,7 @@
RETURN
END IF
*
-* Compute B - op(A)*X.
+* Compute B - op(A)*X and store in B.
*
CALL SLAGTM( TRANS, N, NRHS, -ONE, DL, D, DU, X, LDX, ONE, B,
$ LDB )
diff --git a/lapack-netlib/TESTING/LIN/sgtt05.f b/lapack-netlib/TESTING/LIN/sgtt05.f
index a55537f34..adf4089b5 100644
--- a/lapack-netlib/TESTING/LIN/sgtt05.f
+++ b/lapack-netlib/TESTING/LIN/sgtt05.f
@@ -157,18 +157,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SGTT05( TRANS, N, NRHS, DL, D, DU, B, LDB, X, LDX,
$ XACT, LDXACT, FERR, BERR, RESLTS )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER TRANS
diff --git a/lapack-netlib/TESTING/LIN/slahilb.f b/lapack-netlib/TESTING/LIN/slahilb.f
index 7944f0e9d..cb3272d3b 100644
--- a/lapack-netlib/TESTING/LIN/slahilb.f
+++ b/lapack-netlib/TESTING/LIN/slahilb.f
@@ -117,17 +117,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK, INFO)
*
-* -- LAPACK test routine (version 3.7.1) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2017
*
* .. Scalar Arguments ..
INTEGER N, NRHS, LDA, LDX, LDB, INFO
diff --git a/lapack-netlib/TESTING/LIN/slaord.f b/lapack-netlib/TESTING/LIN/slaord.f
index 3d4553efe..06bccf02e 100644
--- a/lapack-netlib/TESTING/LIN/slaord.f
+++ b/lapack-netlib/TESTING/LIN/slaord.f
@@ -66,17 +66,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SLAORD( JOB, N, X, INCX )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER JOB
diff --git a/lapack-netlib/TESTING/LIN/slaptm.f b/lapack-netlib/TESTING/LIN/slaptm.f
index cfc04200a..6b3ffdf8a 100644
--- a/lapack-netlib/TESTING/LIN/slaptm.f
+++ b/lapack-netlib/TESTING/LIN/slaptm.f
@@ -109,17 +109,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SLAPTM( N, NRHS, ALPHA, D, E, X, LDX, BETA, B, LDB )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDB, LDX, N, NRHS
diff --git a/lapack-netlib/TESTING/LIN/slarhs.f b/lapack-netlib/TESTING/LIN/slarhs.f
index 4d84cc67e..2d5bf8266 100644
--- a/lapack-netlib/TESTING/LIN/slarhs.f
+++ b/lapack-netlib/TESTING/LIN/slarhs.f
@@ -30,7 +30,7 @@
*> SLARHS chooses a set of NRHS random solution vectors and sets
*> up the right hand sides for the linear system
*> op( A ) * X = B,
-*> where op( A ) may be A or A' (transpose of A).
+*> where op(A) = A or A**T, depending on TRANS.
*> \endverbatim
*
* Arguments:
@@ -79,10 +79,11 @@
*> \param[in] TRANS
*> \verbatim
*> TRANS is CHARACTER*1
-*> Specifies the operation applied to the matrix A.
-*> = 'N': System is A * x = b
-*> = 'T': System is A'* x = b
-*> = 'C': System is A'* x = b
+*> Used only if A is nonsymmetric; specifies the operation
+*> applied to the matrix A.
+*> = 'N': B := A * X (No transpose)
+*> = 'T': B := A**T * X (Transpose)
+*> = 'C': B := A**H * X (Conjugate transpose = Transpose)
*> \endverbatim
*>
*> \param[in] M
@@ -196,18 +197,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS,
$ A, LDA, X, LDX, B, LDB, ISEED, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER TRANS, UPLO, XTYPE
diff --git a/lapack-netlib/TESTING/LIN/slatb4.f b/lapack-netlib/TESTING/LIN/slatb4.f
index 7be45ca0a..94d29db40 100644
--- a/lapack-netlib/TESTING/LIN/slatb4.f
+++ b/lapack-netlib/TESTING/LIN/slatb4.f
@@ -112,18 +112,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SLATB4( PATH, IMAT, M, N, TYPE, KL, KU, ANORM, MODE,
$ CNDNUM, DIST )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIST, TYPE
diff --git a/lapack-netlib/TESTING/LIN/slatb5.f b/lapack-netlib/TESTING/LIN/slatb5.f
index be8e962f9..6eefee426 100644
--- a/lapack-netlib/TESTING/LIN/slatb5.f
+++ b/lapack-netlib/TESTING/LIN/slatb5.f
@@ -106,18 +106,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SLATB5( PATH, IMAT, N, TYPE, KL, KU, ANORM, MODE,
$ CNDNUM, DIST )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
REAL ANORM, CNDNUM
diff --git a/lapack-netlib/TESTING/LIN/slattb.f b/lapack-netlib/TESTING/LIN/slattb.f
index 42655ac63..57e32b2db 100644
--- a/lapack-netlib/TESTING/LIN/slattb.f
+++ b/lapack-netlib/TESTING/LIN/slattb.f
@@ -127,18 +127,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SLATTB( IMAT, UPLO, TRANS, DIAG, ISEED, N, KD, AB,
$ LDAB, B, WORK, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
diff --git a/lapack-netlib/TESTING/LIN/slattp.f b/lapack-netlib/TESTING/LIN/slattp.f
index adc99f368..24650bcc4 100644
--- a/lapack-netlib/TESTING/LIN/slattp.f
+++ b/lapack-netlib/TESTING/LIN/slattp.f
@@ -117,18 +117,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SLATTP( IMAT, UPLO, TRANS, DIAG, ISEED, N, A, B, WORK,
$ INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
diff --git a/lapack-netlib/TESTING/LIN/slattr.f b/lapack-netlib/TESTING/LIN/slattr.f
index 9896827f0..e1ffd9991 100644
--- a/lapack-netlib/TESTING/LIN/slattr.f
+++ b/lapack-netlib/TESTING/LIN/slattr.f
@@ -125,18 +125,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SLATTR( IMAT, UPLO, TRANS, DIAG, ISEED, N, A, LDA, B,
$ WORK, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
diff --git a/lapack-netlib/TESTING/LIN/slavsp.f b/lapack-netlib/TESTING/LIN/slavsp.f
index 208a86c9f..e6580d37f 100644
--- a/lapack-netlib/TESTING/LIN/slavsp.f
+++ b/lapack-netlib/TESTING/LIN/slavsp.f
@@ -122,18 +122,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SLAVSP( UPLO, TRANS, DIAG, N, NRHS, A, IPIV, B, LDB,
$ INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
diff --git a/lapack-netlib/TESTING/LIN/slavsy.f b/lapack-netlib/TESTING/LIN/slavsy.f
index 3c575e2d7..c0f0ee4a1 100644
--- a/lapack-netlib/TESTING/LIN/slavsy.f
+++ b/lapack-netlib/TESTING/LIN/slavsy.f
@@ -147,18 +147,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2013
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SLAVSY( UPLO, TRANS, DIAG, N, NRHS, A, LDA, IPIV, B,
$ LDB, INFO )
*
-* -- LAPACK test routine (version 3.5.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2013
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
diff --git a/lapack-netlib/TESTING/LIN/slavsy_rook.f b/lapack-netlib/TESTING/LIN/slavsy_rook.f
index 55477bd96..d775e5e0e 100644
--- a/lapack-netlib/TESTING/LIN/slavsy_rook.f
+++ b/lapack-netlib/TESTING/LIN/slavsy_rook.f
@@ -149,18 +149,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2013
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SLAVSY_ROOK( UPLO, TRANS, DIAG, N, NRHS, A, LDA, IPIV,
$ B, LDB, INFO )
*
-* -- LAPACK test routine (version 3.5.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2013
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
diff --git a/lapack-netlib/TESTING/LIN/slqt01.f b/lapack-netlib/TESTING/LIN/slqt01.f
index daaf33cab..9b868ac11 100644
--- a/lapack-netlib/TESTING/LIN/slqt01.f
+++ b/lapack-netlib/TESTING/LIN/slqt01.f
@@ -118,18 +118,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SLQT01( M, N, A, AF, Q, L, LDA, TAU, WORK, LWORK,
$ RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/slqt02.f b/lapack-netlib/TESTING/LIN/slqt02.f
index 1db9c5bd9..d59a8a01c 100644
--- a/lapack-netlib/TESTING/LIN/slqt02.f
+++ b/lapack-netlib/TESTING/LIN/slqt02.f
@@ -127,18 +127,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SLQT02( M, N, K, A, AF, Q, L, LDA, TAU, WORK, LWORK,
$ RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER K, LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/slqt03.f b/lapack-netlib/TESTING/LIN/slqt03.f
index d625d3100..bc78a0fca 100644
--- a/lapack-netlib/TESTING/LIN/slqt03.f
+++ b/lapack-netlib/TESTING/LIN/slqt03.f
@@ -128,18 +128,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SLQT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK,
$ RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER K, LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/slqt04.f b/lapack-netlib/TESTING/LIN/slqt04.f
index 526bd5623..c0ba81f74 100644
--- a/lapack-netlib/TESTING/LIN/slqt04.f
+++ b/lapack-netlib/TESTING/LIN/slqt04.f
@@ -66,18 +66,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE SLQT04(M,N,NB,RESULT)
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* April 2012
*
* .. Scalar Arguments ..
INTEGER M, N, NB, LDT
diff --git a/lapack-netlib/TESTING/LIN/slqt05.f b/lapack-netlib/TESTING/LIN/slqt05.f
index 3f9e8e188..9afc37ef7 100644
--- a/lapack-netlib/TESTING/LIN/slqt05.f
+++ b/lapack-netlib/TESTING/LIN/slqt05.f
@@ -1,3 +1,10 @@
+*> \brief \b SLQT05
+*
+* =========== DOCUMENTATION ===========
+*
+* Online html documentation available at
+* http://www.netlib.org/lapack/explore-html/
+*
* Definition:
* ===========
*
@@ -13,7 +20,6 @@
* =============
*>
*> \verbatim
-*>
*> SQRT05 tests STPLQT and STPMLQT.
*> \endverbatim
*
@@ -66,18 +72,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE SLQT05(M,N,L,NB,RESULT)
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* April 2012
*
* .. Scalar Arguments ..
INTEGER LWORK, M, N, L, NB, LDT
diff --git a/lapack-netlib/TESTING/LIN/spbt01.f b/lapack-netlib/TESTING/LIN/spbt01.f
index 6aa3ccfee..7aae3a2c6 100644
--- a/lapack-netlib/TESTING/LIN/spbt01.f
+++ b/lapack-netlib/TESTING/LIN/spbt01.f
@@ -111,18 +111,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SPBT01( UPLO, N, KD, A, LDA, AFAC, LDAFAC, RWORK,
$ RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/spbt02.f b/lapack-netlib/TESTING/LIN/spbt02.f
index 9676ef311..734306369 100644
--- a/lapack-netlib/TESTING/LIN/spbt02.f
+++ b/lapack-netlib/TESTING/LIN/spbt02.f
@@ -128,18 +128,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SPBT02( UPLO, N, KD, NRHS, A, LDA, X, LDX, B, LDB,
$ RWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/spbt05.f b/lapack-netlib/TESTING/LIN/spbt05.f
index 44466ac6e..14b68c109 100644
--- a/lapack-netlib/TESTING/LIN/spbt05.f
+++ b/lapack-netlib/TESTING/LIN/spbt05.f
@@ -163,18 +163,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SPBT05( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, X, LDX,
$ XACT, LDXACT, FERR, BERR, RESLTS )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/spot01.f b/lapack-netlib/TESTING/LIN/spot01.f
index 930437271..a3c1af205 100644
--- a/lapack-netlib/TESTING/LIN/spot01.f
+++ b/lapack-netlib/TESTING/LIN/spot01.f
@@ -65,10 +65,10 @@
*> \param[in,out] AFAC
*> \verbatim
*> AFAC is REAL array, dimension (LDAFAC,N)
-*> On entry, the factor L or U from the L*L' or U'*U
+*> On entry, the factor L or U from the L * L**T or U**T * U
*> factorization of A.
-*> Overwritten with the reconstructed matrix, and then with the
-*> difference L*L' - A (or U'*U - A).
+*> Overwritten with the reconstructed matrix, and then with
+*> the difference L * L**T - A (or U**T * U - A).
*> \endverbatim
*>
*> \param[in] LDAFAC
@@ -85,8 +85,8 @@
*> \param[out] RESID
*> \verbatim
*> RESID is REAL
-*> If UPLO = 'L', norm(L*L' - A) / ( N * norm(A) * EPS )
-*> If UPLO = 'U', norm(U'*U - A) / ( N * norm(A) * EPS )
+*> If UPLO = 'L', norm(L * L**T - A) / ( N * norm(A) * EPS )
+*> If UPLO = 'U', norm(U**T * U - A) / ( N * norm(A) * EPS )
*> \endverbatim
*
* Authors:
@@ -97,17 +97,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SPOT01( UPLO, N, A, LDA, AFAC, LDAFAC, RWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
@@ -157,7 +154,7 @@
RETURN
END IF
*
-* Compute the product U'*U, overwriting U.
+* Compute the product U**T * U, overwriting U.
*
IF( LSAME( UPLO, 'U' ) ) THEN
DO 10 K = N, 1, -1
@@ -174,7 +171,7 @@
*
10 CONTINUE
*
-* Compute the product L*L', overwriting L.
+* Compute the product L * L**T, overwriting L.
*
ELSE
DO 20 K = N, 1, -1
@@ -194,7 +191,7 @@
20 CONTINUE
END IF
*
-* Compute the difference L*L' - A (or U'*U - A).
+* Compute the difference L * L**T - A (or U**T * U - A).
*
IF( LSAME( UPLO, 'U' ) ) THEN
DO 40 J = 1, N
diff --git a/lapack-netlib/TESTING/LIN/spot02.f b/lapack-netlib/TESTING/LIN/spot02.f
index 7c68e7c0d..08176a87e 100644
--- a/lapack-netlib/TESTING/LIN/spot02.f
+++ b/lapack-netlib/TESTING/LIN/spot02.f
@@ -119,18 +119,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SPOT02( UPLO, N, NRHS, A, LDA, X, LDX, B, LDB, RWORK,
$ RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/spot03.f b/lapack-netlib/TESTING/LIN/spot03.f
index 424d43293..191b3139c 100644
--- a/lapack-netlib/TESTING/LIN/spot03.f
+++ b/lapack-netlib/TESTING/LIN/spot03.f
@@ -117,18 +117,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SPOT03( UPLO, N, A, LDA, AINV, LDAINV, WORK, LDWORK,
$ RWORK, RCOND, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/spot05.f b/lapack-netlib/TESTING/LIN/spot05.f
index 6c10a3fae..7658ea385 100644
--- a/lapack-netlib/TESTING/LIN/spot05.f
+++ b/lapack-netlib/TESTING/LIN/spot05.f
@@ -156,18 +156,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SPOT05( UPLO, N, NRHS, A, LDA, B, LDB, X, LDX, XACT,
$ LDXACT, FERR, BERR, RESLTS )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/sppt01.f b/lapack-netlib/TESTING/LIN/sppt01.f
index 97f9eb0fb..213b38b41 100644
--- a/lapack-netlib/TESTING/LIN/sppt01.f
+++ b/lapack-netlib/TESTING/LIN/sppt01.f
@@ -86,17 +86,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SPPT01( UPLO, N, A, AFAC, RWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/sppt02.f b/lapack-netlib/TESTING/LIN/sppt02.f
index 8122e8eba..3e94585b0 100644
--- a/lapack-netlib/TESTING/LIN/sppt02.f
+++ b/lapack-netlib/TESTING/LIN/sppt02.f
@@ -114,18 +114,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SPPT02( UPLO, N, NRHS, A, X, LDX, B, LDB, RWORK,
$ RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/sppt03.f b/lapack-netlib/TESTING/LIN/sppt03.f
index 2660249df..abb31cb4a 100644
--- a/lapack-netlib/TESTING/LIN/sppt03.f
+++ b/lapack-netlib/TESTING/LIN/sppt03.f
@@ -102,18 +102,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SPPT03( UPLO, N, A, AINV, WORK, LDWORK, RWORK, RCOND,
$ RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/sppt05.f b/lapack-netlib/TESTING/LIN/sppt05.f
index c9c6b687b..a56d0411d 100644
--- a/lapack-netlib/TESTING/LIN/sppt05.f
+++ b/lapack-netlib/TESTING/LIN/sppt05.f
@@ -148,18 +148,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SPPT05( UPLO, N, NRHS, AP, B, LDB, X, LDX, XACT,
$ LDXACT, FERR, BERR, RESLTS )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/spst01.f b/lapack-netlib/TESTING/LIN/spst01.f
index d7331c632..83084fba5 100644
--- a/lapack-netlib/TESTING/LIN/spst01.f
+++ b/lapack-netlib/TESTING/LIN/spst01.f
@@ -126,18 +126,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SPST01( UPLO, N, A, LDA, AFAC, LDAFAC, PERM, LDPERM,
$ PIV, RWORK, RESID, RANK )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
REAL RESID
diff --git a/lapack-netlib/TESTING/LIN/sptt01.f b/lapack-netlib/TESTING/LIN/sptt01.f
index 23e82546f..fef18dd2b 100644
--- a/lapack-netlib/TESTING/LIN/sptt01.f
+++ b/lapack-netlib/TESTING/LIN/sptt01.f
@@ -84,17 +84,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SPTT01( N, D, E, DF, EF, WORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER N
diff --git a/lapack-netlib/TESTING/LIN/sptt02.f b/lapack-netlib/TESTING/LIN/sptt02.f
index 5f0b08e1c..51a6a074a 100644
--- a/lapack-netlib/TESTING/LIN/sptt02.f
+++ b/lapack-netlib/TESTING/LIN/sptt02.f
@@ -97,17 +97,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SPTT02( N, NRHS, D, E, X, LDX, B, LDB, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDB, LDX, N, NRHS
diff --git a/lapack-netlib/TESTING/LIN/sptt05.f b/lapack-netlib/TESTING/LIN/sptt05.f
index fe78cdc30..ddbc40f13 100644
--- a/lapack-netlib/TESTING/LIN/sptt05.f
+++ b/lapack-netlib/TESTING/LIN/sptt05.f
@@ -142,18 +142,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SPTT05( N, NRHS, D, E, B, LDB, X, LDX, XACT, LDXACT,
$ FERR, BERR, RESLTS )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDB, LDX, LDXACT, N, NRHS
diff --git a/lapack-netlib/TESTING/LIN/sqlt01.f b/lapack-netlib/TESTING/LIN/sqlt01.f
index 133aaba04..aa61e91a0 100644
--- a/lapack-netlib/TESTING/LIN/sqlt01.f
+++ b/lapack-netlib/TESTING/LIN/sqlt01.f
@@ -118,18 +118,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SQLT01( M, N, A, AF, Q, L, LDA, TAU, WORK, LWORK,
$ RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/sqlt02.f b/lapack-netlib/TESTING/LIN/sqlt02.f
index 6a52b0461..5d381b950 100644
--- a/lapack-netlib/TESTING/LIN/sqlt02.f
+++ b/lapack-netlib/TESTING/LIN/sqlt02.f
@@ -128,18 +128,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SQLT02( M, N, K, A, AF, Q, L, LDA, TAU, WORK, LWORK,
$ RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER K, LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/sqlt03.f b/lapack-netlib/TESTING/LIN/sqlt03.f
index 355fc00d5..5c1bcdf66 100644
--- a/lapack-netlib/TESTING/LIN/sqlt03.f
+++ b/lapack-netlib/TESTING/LIN/sqlt03.f
@@ -128,18 +128,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SQLT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK,
$ RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER K, LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/sqpt01.f b/lapack-netlib/TESTING/LIN/sqpt01.f
index e33d841fc..de0c80e53 100644
--- a/lapack-netlib/TESTING/LIN/sqpt01.f
+++ b/lapack-netlib/TESTING/LIN/sqpt01.f
@@ -112,18 +112,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
REAL FUNCTION SQPT01( M, N, K, A, AF, LDA, TAU, JPVT,
$ WORK, LWORK )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER K, LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/sqrt01.f b/lapack-netlib/TESTING/LIN/sqrt01.f
index 43f0d83cf..6f1498903 100644
--- a/lapack-netlib/TESTING/LIN/sqrt01.f
+++ b/lapack-netlib/TESTING/LIN/sqrt01.f
@@ -118,18 +118,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SQRT01( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK,
$ RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/sqrt01p.f b/lapack-netlib/TESTING/LIN/sqrt01p.f
index a9de4ec34..f3a53013d 100644
--- a/lapack-netlib/TESTING/LIN/sqrt01p.f
+++ b/lapack-netlib/TESTING/LIN/sqrt01p.f
@@ -118,18 +118,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SQRT01P( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK,
$ RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/sqrt02.f b/lapack-netlib/TESTING/LIN/sqrt02.f
index 3509d0311..72163f0a9 100644
--- a/lapack-netlib/TESTING/LIN/sqrt02.f
+++ b/lapack-netlib/TESTING/LIN/sqrt02.f
@@ -127,18 +127,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SQRT02( M, N, K, A, AF, Q, R, LDA, TAU, WORK, LWORK,
$ RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER K, LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/sqrt03.f b/lapack-netlib/TESTING/LIN/sqrt03.f
index 9e19dd6d6..bf11ef258 100644
--- a/lapack-netlib/TESTING/LIN/sqrt03.f
+++ b/lapack-netlib/TESTING/LIN/sqrt03.f
@@ -128,18 +128,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SQRT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK,
$ RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER K, LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/sqrt04.f b/lapack-netlib/TESTING/LIN/sqrt04.f
index d0fb6de35..b088ba43e 100644
--- a/lapack-netlib/TESTING/LIN/sqrt04.f
+++ b/lapack-netlib/TESTING/LIN/sqrt04.f
@@ -66,18 +66,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SQRT04(M,N,NB,RESULT)
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.8.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* April 2012
*
* .. Scalar Arguments ..
INTEGER M, N, NB, LDT
diff --git a/lapack-netlib/TESTING/LIN/sqrt05.f b/lapack-netlib/TESTING/LIN/sqrt05.f
index 0c1d52761..21ec97c1f 100644
--- a/lapack-netlib/TESTING/LIN/sqrt05.f
+++ b/lapack-netlib/TESTING/LIN/sqrt05.f
@@ -73,18 +73,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SQRT05(M,N,L,NB,RESULT)
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.8.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* April 2012
*
* .. Scalar Arguments ..
INTEGER LWORK, M, N, L, NB, LDT
diff --git a/lapack-netlib/TESTING/LIN/sqrt11.f b/lapack-netlib/TESTING/LIN/sqrt11.f
index eaffacbf0..d4422dacb 100644
--- a/lapack-netlib/TESTING/LIN/sqrt11.f
+++ b/lapack-netlib/TESTING/LIN/sqrt11.f
@@ -91,17 +91,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
REAL FUNCTION SQRT11( M, K, A, LDA, TAU, WORK, LWORK )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER K, LDA, LWORK, M
diff --git a/lapack-netlib/TESTING/LIN/sqrt12.f b/lapack-netlib/TESTING/LIN/sqrt12.f
index c7c367011..2eab0ee0d 100644
--- a/lapack-netlib/TESTING/LIN/sqrt12.f
+++ b/lapack-netlib/TESTING/LIN/sqrt12.f
@@ -82,17 +82,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
REAL FUNCTION SQRT12( M, N, A, LDA, S, WORK, LWORK )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/sqrt13.f b/lapack-netlib/TESTING/LIN/sqrt13.f
index 6d6583bc2..d77c5fa06 100644
--- a/lapack-netlib/TESTING/LIN/sqrt13.f
+++ b/lapack-netlib/TESTING/LIN/sqrt13.f
@@ -84,17 +84,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SQRT13( SCALE, M, N, A, LDA, NORMA, ISEED )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, M, N, SCALE
diff --git a/lapack-netlib/TESTING/LIN/sqrt14.f b/lapack-netlib/TESTING/LIN/sqrt14.f
index 6e8ac2f3e..64bdc8110 100644
--- a/lapack-netlib/TESTING/LIN/sqrt14.f
+++ b/lapack-netlib/TESTING/LIN/sqrt14.f
@@ -108,18 +108,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
REAL FUNCTION SQRT14( TRANS, M, N, NRHS, A, LDA, X,
$ LDX, WORK, LWORK )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER TRANS
@@ -200,7 +197,6 @@
IF( XNRM.NE.ZERO )
$ CALL SLASCL( 'G', 0, 0, XNRM, ONE, M, NRHS,
$ WORK( N*LDWORK+1 ), LDWORK, INFO )
- ANRM = SLANGE( 'One-norm', M, N+NRHS, WORK, LDWORK, RWORK )
*
* Compute QR factorization of X
*
diff --git a/lapack-netlib/TESTING/LIN/sqrt15.f b/lapack-netlib/TESTING/LIN/sqrt15.f
index 2ead9fed3..5a6967abb 100644
--- a/lapack-netlib/TESTING/LIN/sqrt15.f
+++ b/lapack-netlib/TESTING/LIN/sqrt15.f
@@ -140,18 +140,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SQRT15( SCALE, RKSEL, M, N, NRHS, A, LDA, B, LDB, S,
$ RANK, NORMA, NORMB, ISEED, WORK, LWORK )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LDB, LWORK, M, N, NRHS, RANK, RKSEL, SCALE
diff --git a/lapack-netlib/TESTING/LIN/sqrt16.f b/lapack-netlib/TESTING/LIN/sqrt16.f
index 92e014087..1a5dbf785 100644
--- a/lapack-netlib/TESTING/LIN/sqrt16.f
+++ b/lapack-netlib/TESTING/LIN/sqrt16.f
@@ -125,18 +125,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SQRT16( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB,
$ RWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER TRANS
diff --git a/lapack-netlib/TESTING/LIN/sqrt17.f b/lapack-netlib/TESTING/LIN/sqrt17.f
index c7b543cb6..d2ff56bf1 100644
--- a/lapack-netlib/TESTING/LIN/sqrt17.f
+++ b/lapack-netlib/TESTING/LIN/sqrt17.f
@@ -28,12 +28,15 @@
*>
*> SQRT17 computes the ratio
*>
-*> || R'*op(A) ||/(||A||*alpha*max(M,N,NRHS)*eps)
+*> norm(R**T * op(A)) / ( norm(A) * alpha * max(M,N,NRHS) * EPS ),
*>
-*> where R = op(A)*X - B, op(A) is A or A', and
+*> where R = B - op(A)*X, op(A) is A or A**T, depending on TRANS, EPS
+*> is the machine epsilon, and
*>
-*> alpha = ||B|| if IRESID = 1 (zero-residual problem)
-*> alpha = ||R|| if IRESID = 2 (otherwise).
+*> alpha = norm(B) if IRESID = 1 (zero-residual problem)
+*> alpha = norm(R) if IRESID = 2 (otherwise).
+*>
+*> The norm used is the 1-norm.
*> \endverbatim
*
* Arguments:
@@ -44,7 +47,7 @@
*> TRANS is CHARACTER*1
*> Specifies whether or not the transpose of A is used.
*> = 'N': No transpose, op(A) = A.
-*> = 'T': Transpose, op(A) = A'.
+*> = 'T': Transpose, op(A) = A**T.
*> \endverbatim
*>
*> \param[in] IRESID
@@ -142,18 +145,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
REAL FUNCTION SQRT17( TRANS, IRESID, M, N, NRHS, A,
$ LDA, X, LDX, B, LDB, C, WORK, LWORK )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER TRANS
@@ -172,7 +172,7 @@
* ..
* .. Local Scalars ..
INTEGER INFO, ISCL, NCOLS, NROWS
- REAL BIGNUM, ERR, NORMA, NORMB, NORMRS, SMLNUM
+ REAL ERR, NORMA, NORMB, NORMRS, SMLNUM
* ..
* .. Local Arrays ..
REAL RWORK( 1 )
@@ -214,7 +214,6 @@
*
NORMA = SLANGE( 'One-norm', M, N, A, LDA, RWORK )
SMLNUM = SLAMCH( 'Safe minimum' ) / SLAMCH( 'Precision' )
- BIGNUM = ONE / SMLNUM
ISCL = 0
*
* compute residual and scale it
@@ -229,7 +228,7 @@
$ INFO )
END IF
*
-* compute R'*A
+* compute R**T * op(A)
*
CALL SGEMM( 'Transpose', TRANS, NRHS, NCOLS, NROWS, ONE, C, LDB,
$ A, LDA, ZERO, WORK, NRHS )
diff --git a/lapack-netlib/TESTING/LIN/srqt01.f b/lapack-netlib/TESTING/LIN/srqt01.f
index 993001964..07a040a15 100644
--- a/lapack-netlib/TESTING/LIN/srqt01.f
+++ b/lapack-netlib/TESTING/LIN/srqt01.f
@@ -118,18 +118,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SRQT01( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK,
$ RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/srqt02.f b/lapack-netlib/TESTING/LIN/srqt02.f
index 2960d1667..ca0594f7a 100644
--- a/lapack-netlib/TESTING/LIN/srqt02.f
+++ b/lapack-netlib/TESTING/LIN/srqt02.f
@@ -128,18 +128,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SRQT02( M, N, K, A, AF, Q, R, LDA, TAU, WORK, LWORK,
$ RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER K, LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/srqt03.f b/lapack-netlib/TESTING/LIN/srqt03.f
index 0b3a8e3da..730d76d45 100644
--- a/lapack-netlib/TESTING/LIN/srqt03.f
+++ b/lapack-netlib/TESTING/LIN/srqt03.f
@@ -128,18 +128,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SRQT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK,
$ RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER K, LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/srzt01.f b/lapack-netlib/TESTING/LIN/srzt01.f
index 549bca2e0..4478c0506 100644
--- a/lapack-netlib/TESTING/LIN/srzt01.f
+++ b/lapack-netlib/TESTING/LIN/srzt01.f
@@ -90,18 +90,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
REAL FUNCTION SRZT01( M, N, A, AF, LDA, TAU, WORK,
$ LWORK )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/srzt02.f b/lapack-netlib/TESTING/LIN/srzt02.f
index 12f4018ff..cd76a7c62 100644
--- a/lapack-netlib/TESTING/LIN/srzt02.f
+++ b/lapack-netlib/TESTING/LIN/srzt02.f
@@ -83,18 +83,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
REAL FUNCTION SRZT02( M, N, AF, LDA, TAU, WORK,
$ LWORK )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/sspt01.f b/lapack-netlib/TESTING/LIN/sspt01.f
index ecd1d9178..05cac43f4 100644
--- a/lapack-netlib/TESTING/LIN/sspt01.f
+++ b/lapack-netlib/TESTING/LIN/sspt01.f
@@ -103,17 +103,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SSPT01( UPLO, N, A, AFAC, IPIV, C, LDC, RWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/ssyt01.f b/lapack-netlib/TESTING/LIN/ssyt01.f
index f1fb0b9c3..b47ca7d2f 100644
--- a/lapack-netlib/TESTING/LIN/ssyt01.f
+++ b/lapack-netlib/TESTING/LIN/ssyt01.f
@@ -116,18 +116,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2013
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SSYT01( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, LDC,
$ RWORK, RESID )
*
-* -- LAPACK test routine (version 3.5.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2013
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/ssyt01_3.f b/lapack-netlib/TESTING/LIN/ssyt01_3.f
index 11ddea4c3..147553db9 100644
--- a/lapack-netlib/TESTING/LIN/ssyt01_3.f
+++ b/lapack-netlib/TESTING/LIN/ssyt01_3.f
@@ -132,18 +132,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SSYT01_3( UPLO, N, A, LDA, AFAC, LDAFAC, E, IPIV, C,
$ LDC, RWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.1) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2017
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/ssyt01_aa.f b/lapack-netlib/TESTING/LIN/ssyt01_aa.f
index c0fee7154..470d45c3d 100644
--- a/lapack-netlib/TESTING/LIN/ssyt01_aa.f
+++ b/lapack-netlib/TESTING/LIN/ssyt01_aa.f
@@ -116,19 +116,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
-*
*> \ingroup real_lin
*
* =====================================================================
SUBROUTINE SSYT01_AA( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C,
$ LDC, RWORK, RESID )
*
-* -- LAPACK test routine (version 3.8.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2017
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/ssyt01_rook.f b/lapack-netlib/TESTING/LIN/ssyt01_rook.f
index 129e9dafe..7f5803b00 100644
--- a/lapack-netlib/TESTING/LIN/ssyt01_rook.f
+++ b/lapack-netlib/TESTING/LIN/ssyt01_rook.f
@@ -116,18 +116,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2013
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE SSYT01_ROOK( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C,
$ LDC, RWORK, RESID )
*
-* -- LAPACK test routine (version 3.5.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2013
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/stbt02.f b/lapack-netlib/TESTING/LIN/stbt02.f
index a633098e8..f95b5d5f1 100644
--- a/lapack-netlib/TESTING/LIN/stbt02.f
+++ b/lapack-netlib/TESTING/LIN/stbt02.f
@@ -28,12 +28,12 @@
*> \verbatim
*>
*> STBT02 computes the residual for the computed solution to a
-*> triangular system of linear equations A*x = b or A' *x = b when
-*> A is a triangular band matrix. Here A' is the transpose of A and
-*> x and b are N by NRHS matrices. The test ratio is the maximum over
-*> the number of right hand sides of
-*> norm(b - op(A)*x) / ( norm(op(A)) * norm(x) * EPS ),
-*> where op(A) denotes A or A' and EPS is the machine epsilon.
+*> triangular system of linear equations op(A)*X = B, when A is a
+*> triangular band matrix. The test ratio is the maximum over
+*> norm(b - op(A)*x) / ( ||op(A)||_1 * norm(x) * EPS ),
+*> where op(A) = A or A**T, b is the column of B, x is the solution
+*> vector, and EPS is the machine epsilon.
+*> The norm used is the 1-norm.
*> \endverbatim
*
* Arguments:
@@ -51,9 +51,9 @@
*> \verbatim
*> TRANS is CHARACTER*1
*> Specifies the operation applied to A.
-*> = 'N': A *x = b (No transpose)
-*> = 'T': A'*x = b (Transpose)
-*> = 'C': A'*x = b (Conjugate transpose = Transpose)
+*> = 'N': A * X = B (No transpose)
+*> = 'T': A**T * X = B (Transpose)
+*> = 'C': A**H * X = B (Conjugate transpose = Transpose)
*> \endverbatim
*>
*> \param[in] DIAG
@@ -146,18 +146,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE STBT02( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, X,
$ LDX, B, LDB, WORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
@@ -199,7 +196,7 @@
RETURN
END IF
*
-* Compute the 1-norm of A or A'.
+* Compute the 1-norm of op(A).
*
IF( LSAME( TRANS, 'N' ) ) THEN
ANORM = SLANTB( '1', UPLO, DIAG, N, KD, AB, LDAB, WORK )
diff --git a/lapack-netlib/TESTING/LIN/stbt03.f b/lapack-netlib/TESTING/LIN/stbt03.f
index 5c747ae90..3ae44926d 100644
--- a/lapack-netlib/TESTING/LIN/stbt03.f
+++ b/lapack-netlib/TESTING/LIN/stbt03.f
@@ -166,8 +166,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
@@ -175,10 +173,9 @@
$ SCALE, CNORM, TSCAL, X, LDX, B, LDB, WORK,
$ RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
diff --git a/lapack-netlib/TESTING/LIN/stbt05.f b/lapack-netlib/TESTING/LIN/stbt05.f
index b19c34c39..60e39016c 100644
--- a/lapack-netlib/TESTING/LIN/stbt05.f
+++ b/lapack-netlib/TESTING/LIN/stbt05.f
@@ -181,18 +181,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE STBT05( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B,
$ LDB, X, LDX, XACT, LDXACT, FERR, BERR, RESLTS )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
diff --git a/lapack-netlib/TESTING/LIN/stbt06.f b/lapack-netlib/TESTING/LIN/stbt06.f
index f80cf551c..8cd5fbc18 100644
--- a/lapack-netlib/TESTING/LIN/stbt06.f
+++ b/lapack-netlib/TESTING/LIN/stbt06.f
@@ -117,18 +117,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE STBT06( RCOND, RCONDC, UPLO, DIAG, N, KD, AB, LDAB,
$ WORK, RAT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, UPLO
diff --git a/lapack-netlib/TESTING/LIN/stplqt.f b/lapack-netlib/TESTING/LIN/stplqt.f
index 30f827998..ba34f6bc5 100644
--- a/lapack-netlib/TESTING/LIN/stplqt.f
+++ b/lapack-netlib/TESTING/LIN/stplqt.f
@@ -1,3 +1,20 @@
+*> \brief \b STPLQT
+*
+* =========== DOCUMENTATION ===========
+*
+* Online html documentation available at
+* http://www.netlib.org/lapack/explore-html/
+*
+*> \htmlonly
+*> Download STPLQT + dependencies
+*>
+*> [TGZ]
+*>
+*> [ZIP]
+*>
+*> [TXT]
+*> \endhtmlonly
+*
* Definition:
* ===========
*
@@ -115,8 +132,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Further Details:
@@ -172,10 +187,9 @@
SUBROUTINE STPLQT( M, N, L, MB, A, LDA, B, LDB, T, LDT, WORK,
$ INFO )
*
-* -- LAPACK computational routine (version 3.7.0) --
+* -- LAPACK computational routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDB, LDT, N, M, L, MB
diff --git a/lapack-netlib/TESTING/LIN/stpt01.f b/lapack-netlib/TESTING/LIN/stpt01.f
index 428821603..5e27083b4 100644
--- a/lapack-netlib/TESTING/LIN/stpt01.f
+++ b/lapack-netlib/TESTING/LIN/stpt01.f
@@ -101,17 +101,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE STPT01( UPLO, DIAG, N, AP, AINVP, RCOND, WORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, UPLO
diff --git a/lapack-netlib/TESTING/LIN/stpt02.f b/lapack-netlib/TESTING/LIN/stpt02.f
index a8e88b218..f81fa29b9 100644
--- a/lapack-netlib/TESTING/LIN/stpt02.f
+++ b/lapack-netlib/TESTING/LIN/stpt02.f
@@ -27,12 +27,13 @@
*> \verbatim
*>
*> STPT02 computes the residual for the computed solution to a
-*> triangular system of linear equations A*x = b or A'*x = b when
-*> the triangular matrix A is stored in packed format. Here A' is the
-*> transpose of A and x and b are N by NRHS matrices. The test ratio is
-*> the maximum over the number of right hand sides of
-*> norm(b - op(A)*x) / ( norm(op(A)) * norm(x) * EPS ),
-*> where op(A) denotes A or A' and EPS is the machine epsilon.
+*> triangular system of linear equations op(A)*X = B, when the
+*> triangular matrix A is stored in packed format. The test ratio is
+*> the maximum over
+*> norm(b - op(A)*x) / ( ||op(A)||_1 * norm(x) * EPS ),
+*> where op(A) = A or A**T, b is the column of B, x is the solution
+*> vector, and EPS is the machine epsilon.
+*> The norm used is the 1-norm.
*> \endverbatim
*
* Arguments:
@@ -50,9 +51,9 @@
*> \verbatim
*> TRANS is CHARACTER*1
*> Specifies the operation applied to A.
-*> = 'N': A *x = b (No transpose)
-*> = 'T': A'*x = b (Transpose)
-*> = 'C': A'*x = b (Conjugate transpose = Transpose)
+*> = 'N': A * X = B (No transpose)
+*> = 'T': A**T * X = B (Transpose)
+*> = 'C': A**H * X = B (Conjugate transpose = Transpose)
*> \endverbatim
*>
*> \param[in] DIAG
@@ -122,7 +123,7 @@
*> \verbatim
*> RESID is REAL
*> The maximum over the number of right hand sides of
-*> norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ).
+*> norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS ).
*> \endverbatim
*
* Authors:
@@ -133,18 +134,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE STPT02( UPLO, TRANS, DIAG, N, NRHS, AP, X, LDX, B, LDB,
$ WORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
@@ -185,7 +183,7 @@
RETURN
END IF
*
-* Compute the 1-norm of A or A'.
+* Compute the 1-norm of op(A).
*
IF( LSAME( TRANS, 'N' ) ) THEN
ANORM = SLANTP( '1', UPLO, DIAG, N, AP, WORK )
@@ -202,7 +200,7 @@
END IF
*
* Compute the maximum over the number of right hand sides of
-* norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ).
+* norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS ).
*
RESID = ZERO
DO 10 J = 1, NRHS
diff --git a/lapack-netlib/TESTING/LIN/stpt03.f b/lapack-netlib/TESTING/LIN/stpt03.f
index c32f8d9d0..9e844e797 100644
--- a/lapack-netlib/TESTING/LIN/stpt03.f
+++ b/lapack-netlib/TESTING/LIN/stpt03.f
@@ -153,18 +153,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE STPT03( UPLO, TRANS, DIAG, N, NRHS, AP, SCALE, CNORM,
$ TSCAL, X, LDX, B, LDB, WORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
diff --git a/lapack-netlib/TESTING/LIN/stpt05.f b/lapack-netlib/TESTING/LIN/stpt05.f
index 6e0e4680b..81abb969f 100644
--- a/lapack-netlib/TESTING/LIN/stpt05.f
+++ b/lapack-netlib/TESTING/LIN/stpt05.f
@@ -166,18 +166,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE STPT05( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, X, LDX,
$ XACT, LDXACT, FERR, BERR, RESLTS )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
diff --git a/lapack-netlib/TESTING/LIN/stpt06.f b/lapack-netlib/TESTING/LIN/stpt06.f
index d7bd082f0..117987dcc 100644
--- a/lapack-netlib/TESTING/LIN/stpt06.f
+++ b/lapack-netlib/TESTING/LIN/stpt06.f
@@ -104,17 +104,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE STPT06( RCOND, RCONDC, UPLO, DIAG, N, AP, WORK, RAT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, UPLO
diff --git a/lapack-netlib/TESTING/LIN/strt01.f b/lapack-netlib/TESTING/LIN/strt01.f
index 1e6af5b9d..08c2433ed 100644
--- a/lapack-netlib/TESTING/LIN/strt01.f
+++ b/lapack-netlib/TESTING/LIN/strt01.f
@@ -116,18 +116,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE STRT01( UPLO, DIAG, N, A, LDA, AINV, LDAINV, RCOND,
$ WORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, UPLO
diff --git a/lapack-netlib/TESTING/LIN/strt02.f b/lapack-netlib/TESTING/LIN/strt02.f
index 14ba15bb7..26a95510a 100644
--- a/lapack-netlib/TESTING/LIN/strt02.f
+++ b/lapack-netlib/TESTING/LIN/strt02.f
@@ -28,12 +28,12 @@
*> \verbatim
*>
*> STRT02 computes the residual for the computed solution to a
-*> triangular system of linear equations A*x = b or A'*x = b.
-*> Here A is a triangular matrix, A' is the transpose of A, and x and b
-*> are N by NRHS matrices. The test ratio is the maximum over the
-*> number of right hand sides of
-*> norm(b - op(A)*x) / ( norm(op(A)) * norm(x) * EPS ),
-*> where op(A) denotes A or A' and EPS is the machine epsilon.
+*> triangular system of linear equations op(A)*X = B, where A is a
+*> triangular matrix. The test ratio is the maximum over
+*> norm(b - op(A)*x) / ( ||op(A)||_1 * norm(x) * EPS ),
+*> where op(A) = A or A**T, b is the column of B, x is the solution
+*> vector, and EPS is the machine epsilon.
+*> The norm used is the 1-norm.
*> \endverbatim
*
* Arguments:
@@ -51,9 +51,9 @@
*> \verbatim
*> TRANS is CHARACTER*1
*> Specifies the operation applied to A.
-*> = 'N': A *x = b (No transpose)
-*> = 'T': A'*x = b (Transpose)
-*> = 'C': A'*x = b (Conjugate transpose = Transpose)
+*> = 'N': A * X = B (No transpose)
+*> = 'T': A**T * X = B (Transpose)
+*> = 'C': A**H * X = B (Conjugate transpose = Transpose)
*> \endverbatim
*>
*> \param[in] DIAG
@@ -131,7 +131,7 @@
*> \verbatim
*> RESID is REAL
*> The maximum over the number of right hand sides of
-*> norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ).
+*> norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS ).
*> \endverbatim
*
* Authors:
@@ -142,18 +142,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE STRT02( UPLO, TRANS, DIAG, N, NRHS, A, LDA, X, LDX, B,
$ LDB, WORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
@@ -195,7 +192,7 @@
RETURN
END IF
*
-* Compute the 1-norm of A or A'.
+* Compute the 1-norm of op(A).
*
IF( LSAME( TRANS, 'N' ) ) THEN
ANORM = SLANTR( '1', UPLO, DIAG, N, N, A, LDA, WORK )
@@ -212,7 +209,7 @@
END IF
*
* Compute the maximum over the number of right hand sides of
-* norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS )
+* norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS )
*
RESID = ZERO
DO 10 J = 1, NRHS
diff --git a/lapack-netlib/TESTING/LIN/strt03.f b/lapack-netlib/TESTING/LIN/strt03.f
index 23d408a81..2e41076d4 100644
--- a/lapack-netlib/TESTING/LIN/strt03.f
+++ b/lapack-netlib/TESTING/LIN/strt03.f
@@ -161,18 +161,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE STRT03( UPLO, TRANS, DIAG, N, NRHS, A, LDA, SCALE,
$ CNORM, TSCAL, X, LDX, B, LDB, WORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
diff --git a/lapack-netlib/TESTING/LIN/strt05.f b/lapack-netlib/TESTING/LIN/strt05.f
index 434ce9ad1..af4ebe34a 100644
--- a/lapack-netlib/TESTING/LIN/strt05.f
+++ b/lapack-netlib/TESTING/LIN/strt05.f
@@ -173,18 +173,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE STRT05( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, X,
$ LDX, XACT, LDXACT, FERR, BERR, RESLTS )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
diff --git a/lapack-netlib/TESTING/LIN/strt06.f b/lapack-netlib/TESTING/LIN/strt06.f
index 8d607339d..266e83543 100644
--- a/lapack-netlib/TESTING/LIN/strt06.f
+++ b/lapack-netlib/TESTING/LIN/strt06.f
@@ -113,18 +113,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup single_lin
*
* =====================================================================
SUBROUTINE STRT06( RCOND, RCONDC, UPLO, DIAG, N, A, LDA, WORK,
$ RAT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, UPLO
diff --git a/lapack-netlib/TESTING/LIN/stsqr01.f b/lapack-netlib/TESTING/LIN/stsqr01.f
index 8eb69eae7..683c165ae 100644
--- a/lapack-netlib/TESTING/LIN/stsqr01.f
+++ b/lapack-netlib/TESTING/LIN/stsqr01.f
@@ -77,18 +77,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE STSQR01(TSSW, M, N, MB, NB, RESULT)
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* April 2012
*
* .. Scalar Arguments ..
CHARACTER TSSW
diff --git a/lapack-netlib/TESTING/LIN/xerbla.f b/lapack-netlib/TESTING/LIN/xerbla.f
index b0e435a17..431339f78 100644
--- a/lapack-netlib/TESTING/LIN/xerbla.f
+++ b/lapack-netlib/TESTING/LIN/xerbla.f
@@ -52,8 +52,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup aux_eig
*
*> \par Further Details:
@@ -75,10 +73,9 @@
* =====================================================================
SUBROUTINE XERBLA( SRNAME, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*(*) SRNAME
diff --git a/lapack-netlib/TESTING/LIN/xlaenv.f b/lapack-netlib/TESTING/LIN/xlaenv.f
index 875459b85..c1720c7f1 100644
--- a/lapack-netlib/TESTING/LIN/xlaenv.f
+++ b/lapack-netlib/TESTING/LIN/xlaenv.f
@@ -71,17 +71,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup aux_lin
*
* =====================================================================
SUBROUTINE XLAENV( ISPEC, NVALUE )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER ISPEC, NVALUE
diff --git a/lapack-netlib/TESTING/LIN/zchkab.f b/lapack-netlib/TESTING/LIN/zchkab.f
index f15b46b2f..63274cabb 100644
--- a/lapack-netlib/TESTING/LIN/zchkab.f
+++ b/lapack-netlib/TESTING/LIN/zchkab.f
@@ -66,17 +66,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup complex16_lin
*
* =====================================================================
PROGRAM ZCHKAB
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- 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/LIN/zchkeq.f b/lapack-netlib/TESTING/LIN/zchkeq.f
index 56797bf2b..214331d5a 100644
--- a/lapack-netlib/TESTING/LIN/zchkeq.f
+++ b/lapack-netlib/TESTING/LIN/zchkeq.f
@@ -47,17 +47,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZCHKEQ( THRESH, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER NOUT
diff --git a/lapack-netlib/TESTING/LIN/zchkgb.f b/lapack-netlib/TESTING/LIN/zchkgb.f
index 70660eff6..3b0cd707a 100644
--- a/lapack-netlib/TESTING/LIN/zchkgb.f
+++ b/lapack-netlib/TESTING/LIN/zchkgb.f
@@ -78,7 +78,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
@@ -160,7 +160,7 @@
*> \param[out] RWORK
*> \verbatim
*> RWORK is DOUBLE PRECISION array, dimension
-*> (max(NMAX,2*NSMAX))
+*> (NMAX+2*NSMAX)
*> \endverbatim
*>
*> \param[out] IWORK
@@ -182,8 +182,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
@@ -191,10 +189,9 @@
$ NSVAL, THRESH, TSTERR, A, LA, AFAC, LAFAC, B,
$ X, XACT, WORK, RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
@@ -566,7 +563,7 @@
END IF
*
*+ TEST 2:
-* Solve and compute residual for A * X = B.
+* Solve and compute residual for op(A) * X = B.
*
SRNAMT = 'ZLARHS'
CALL ZLARHS( PATH, XTYPE, ' ', TRANS, N,
@@ -592,7 +589,7 @@
$ WORK, LDB )
CALL ZGBT02( TRANS, M, N, KL, KU, NRHS, A,
$ LDA, X, LDB, WORK, LDB,
- $ RESULT( 2 ) )
+ $ RWORK, RESULT( 2 ) )
*
*+ TEST 3:
* Check solution from generated exact
diff --git a/lapack-netlib/TESTING/LIN/zchkge.f b/lapack-netlib/TESTING/LIN/zchkge.f
index 41068f32a..d87759df5 100644
--- a/lapack-netlib/TESTING/LIN/zchkge.f
+++ b/lapack-netlib/TESTING/LIN/zchkge.f
@@ -78,7 +78,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
@@ -177,8 +177,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
@@ -186,10 +184,9 @@
$ NSVAL, THRESH, TSTERR, NMAX, A, AFAC, AINV, B,
$ X, XACT, WORK, RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/zchkgt.f b/lapack-netlib/TESTING/LIN/zchkgt.f
index 5d18a8e2b..b9a6ab7e4 100644
--- a/lapack-netlib/TESTING/LIN/zchkgt.f
+++ b/lapack-netlib/TESTING/LIN/zchkgt.f
@@ -139,18 +139,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZCHKGT( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR,
$ A, AF, B, X, XACT, WORK, RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/zchkhe.f b/lapack-netlib/TESTING/LIN/zchkhe.f
index 0b5a1a1aa..e443eab04 100644
--- a/lapack-netlib/TESTING/LIN/zchkhe.f
+++ b/lapack-netlib/TESTING/LIN/zchkhe.f
@@ -65,7 +65,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
@@ -162,8 +162,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2013
-*
*> \ingroup complex16_lin
*
* =====================================================================
@@ -171,10 +169,9 @@
$ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X,
$ XACT, WORK, RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.5.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2013
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/zchkhe_aa.f b/lapack-netlib/TESTING/LIN/zchkhe_aa.f
index 4100801b7..1c4ee88e0 100644
--- a/lapack-netlib/TESTING/LIN/zchkhe_aa.f
+++ b/lapack-netlib/TESTING/LIN/zchkhe_aa.f
@@ -65,7 +65,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
@@ -162,9 +162,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
-*
*> \ingroup complex16_lin
*
* =====================================================================
@@ -172,10 +169,9 @@
$ THRESH, TSTERR, NMAX, A, AFAC, AINV, B,
$ X, XACT, WORK, RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.8.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2017
*
IMPLICIT NONE
*
diff --git a/lapack-netlib/TESTING/LIN/zchkhe_aa_2stage.f b/lapack-netlib/TESTING/LIN/zchkhe_aa_2stage.f
index 43c5435af..381fac9f2 100644
--- a/lapack-netlib/TESTING/LIN/zchkhe_aa_2stage.f
+++ b/lapack-netlib/TESTING/LIN/zchkhe_aa_2stage.f
@@ -66,7 +66,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
@@ -163,8 +163,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup complex16_lin
*
* =====================================================================
@@ -172,10 +170,9 @@
$ NSVAL, THRESH, TSTERR, NMAX, A, AFAC, AINV,
$ B, X, XACT, WORK, RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.8.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2017
*
IMPLICIT NONE
*
@@ -575,6 +572,6 @@
$ I6 )
RETURN
*
-* End of ZCHKSY_AA_2STAGE
+* End of ZCHKHE_AA_2STAGE
*
END
diff --git a/lapack-netlib/TESTING/LIN/zchkhe_rk.f b/lapack-netlib/TESTING/LIN/zchkhe_rk.f
index a1ade8f91..63697d33a 100644
--- a/lapack-netlib/TESTING/LIN/zchkhe_rk.f
+++ b/lapack-netlib/TESTING/LIN/zchkhe_rk.f
@@ -66,7 +66,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
@@ -168,8 +168,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
@@ -177,10 +175,9 @@
$ THRESH, TSTERR, NMAX, A, AFAC, E, AINV, B,
$ X, XACT, WORK, RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
@@ -493,7 +490,7 @@
CALL ZLACPY( UPLO, N, N, AFAC, LDA, AINV, LDA )
SRNAMT = 'ZHETRI_3'
*
-* Another reason that we need to compute the invesrse
+* Another reason that we need to compute the inverse
* is that ZPOT03 produces RCONDC which is used later
* in TEST6 and TEST7.
*
diff --git a/lapack-netlib/TESTING/LIN/zchkhe_rook.f b/lapack-netlib/TESTING/LIN/zchkhe_rook.f
index 470c012ed..84f5a8422 100644
--- a/lapack-netlib/TESTING/LIN/zchkhe_rook.f
+++ b/lapack-netlib/TESTING/LIN/zchkhe_rook.f
@@ -66,7 +66,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
@@ -163,8 +163,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
@@ -172,10 +170,9 @@
$ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X,
$ XACT, WORK, RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/zchkhp.f b/lapack-netlib/TESTING/LIN/zchkhp.f
index 08cfb10c8..6525ed65e 100644
--- a/lapack-netlib/TESTING/LIN/zchkhp.f
+++ b/lapack-netlib/TESTING/LIN/zchkhp.f
@@ -155,8 +155,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
@@ -164,10 +162,9 @@
$ NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK,
$ IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/zchklq.f b/lapack-netlib/TESTING/LIN/zchklq.f
index 2c7c6369b..371bb946b 100644
--- a/lapack-netlib/TESTING/LIN/zchklq.f
+++ b/lapack-netlib/TESTING/LIN/zchklq.f
@@ -32,7 +32,7 @@
*>
*> \verbatim
*>
-*> ZCHKLQ tests ZGELQF, ZUNGLQ and CUNMLQ.
+*> ZCHKLQ tests ZGELQF, ZUNGLQ and ZUNMLQ.
*> \endverbatim
*
* Arguments:
@@ -187,8 +187,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
@@ -196,10 +194,9 @@
$ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AL, AC,
$ B, X, XACT, TAU, WORK, RWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/zchklqt.f b/lapack-netlib/TESTING/LIN/zchklqt.f
index 0d23e1e57..680c1135e 100644
--- a/lapack-netlib/TESTING/LIN/zchklqt.f
+++ b/lapack-netlib/TESTING/LIN/zchklqt.f
@@ -76,7 +76,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
@@ -94,8 +94,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
@@ -103,10 +101,9 @@
$ NBVAL, NOUT )
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/zchklqtp.f b/lapack-netlib/TESTING/LIN/zchklqtp.f
index 9b76d1df6..75e3ddfb1 100644
--- a/lapack-netlib/TESTING/LIN/zchklqtp.f
+++ b/lapack-netlib/TESTING/LIN/zchklqtp.f
@@ -76,7 +76,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
@@ -94,8 +94,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
@@ -103,10 +101,9 @@
$ NBVAL, NOUT )
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/zchkpb.f b/lapack-netlib/TESTING/LIN/zchkpb.f
index c9fb433ea..1ce8c3b88 100644
--- a/lapack-netlib/TESTING/LIN/zchkpb.f
+++ b/lapack-netlib/TESTING/LIN/zchkpb.f
@@ -65,7 +65,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
@@ -159,8 +159,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
@@ -168,10 +166,9 @@
$ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X,
$ XACT, WORK, RWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/zchkpo.f b/lapack-netlib/TESTING/LIN/zchkpo.f
index 5468b7281..93ea72163 100644
--- a/lapack-netlib/TESTING/LIN/zchkpo.f
+++ b/lapack-netlib/TESTING/LIN/zchkpo.f
@@ -65,7 +65,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
@@ -159,8 +159,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
@@ -168,10 +166,9 @@
$ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X,
$ XACT, WORK, RWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/zchkpp.f b/lapack-netlib/TESTING/LIN/zchkpp.f
index 53b43d0aa..250b12359 100644
--- a/lapack-netlib/TESTING/LIN/zchkpp.f
+++ b/lapack-netlib/TESTING/LIN/zchkpp.f
@@ -150,8 +150,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
@@ -159,10 +157,9 @@
$ NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK,
$ NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/zchkps.f b/lapack-netlib/TESTING/LIN/zchkps.f
index 9acb28ead..79fc951e2 100644
--- a/lapack-netlib/TESTING/LIN/zchkps.f
+++ b/lapack-netlib/TESTING/LIN/zchkps.f
@@ -64,7 +64,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the block size NB.
*> \endverbatim
*>
@@ -145,8 +145,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
@@ -154,10 +152,9 @@
$ THRESH, TSTERR, NMAX, A, AFAC, PERM, PIV, WORK,
$ RWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
DOUBLE PRECISION THRESH
diff --git a/lapack-netlib/TESTING/LIN/zchkpt.f b/lapack-netlib/TESTING/LIN/zchkpt.f
index a4f8d8260..80e1690a7 100644
--- a/lapack-netlib/TESTING/LIN/zchkpt.f
+++ b/lapack-netlib/TESTING/LIN/zchkpt.f
@@ -139,18 +139,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZCHKPT( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR,
$ A, D, E, B, X, XACT, WORK, RWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/zchkq3.f b/lapack-netlib/TESTING/LIN/zchkq3.f
index 63e3d64f3..33cd0fe15 100644
--- a/lapack-netlib/TESTING/LIN/zchkq3.f
+++ b/lapack-netlib/TESTING/LIN/zchkq3.f
@@ -149,8 +149,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
@@ -158,10 +156,9 @@
$ THRESH, A, COPYA, S, TAU, WORK, RWORK,
$ IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER NM, NN, NNB, NOUT
diff --git a/lapack-netlib/TESTING/LIN/zchkql.f b/lapack-netlib/TESTING/LIN/zchkql.f
index 0ce087549..0dbb345b0 100644
--- a/lapack-netlib/TESTING/LIN/zchkql.f
+++ b/lapack-netlib/TESTING/LIN/zchkql.f
@@ -32,7 +32,7 @@
*>
*> \verbatim
*>
-*> ZCHKQL tests ZGEQLF, ZUNGQL and CUNMQL.
+*> ZCHKQL tests ZGEQLF, ZUNGQL and ZUNMQL.
*> \endverbatim
*
* Arguments:
@@ -187,8 +187,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
@@ -196,10 +194,9 @@
$ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AL, AC,
$ B, X, XACT, TAU, WORK, RWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/zchkqr.f b/lapack-netlib/TESTING/LIN/zchkqr.f
index 3c9763fe3..a240d2da5 100644
--- a/lapack-netlib/TESTING/LIN/zchkqr.f
+++ b/lapack-netlib/TESTING/LIN/zchkqr.f
@@ -32,7 +32,7 @@
*>
*> \verbatim
*>
-*> ZCHKQR tests ZGEQRF, ZUNGQR and CUNMQR.
+*> ZCHKQR tests ZGEQRF, ZUNGQR and ZUNMQR.
*> \endverbatim
*
* Arguments:
@@ -192,8 +192,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
@@ -201,10 +199,9 @@
$ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AR, AC,
$ B, X, XACT, TAU, WORK, RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/zchkqrt.f b/lapack-netlib/TESTING/LIN/zchkqrt.f
index 61aad40f4..cb07af72c 100644
--- a/lapack-netlib/TESTING/LIN/zchkqrt.f
+++ b/lapack-netlib/TESTING/LIN/zchkqrt.f
@@ -75,7 +75,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
@@ -93,8 +93,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
@@ -102,10 +100,9 @@
$ NBVAL, NOUT )
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/zchkqrtp.f b/lapack-netlib/TESTING/LIN/zchkqrtp.f
index 123eea63d..9337a6837 100644
--- a/lapack-netlib/TESTING/LIN/zchkqrtp.f
+++ b/lapack-netlib/TESTING/LIN/zchkqrtp.f
@@ -76,7 +76,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
@@ -94,8 +94,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
@@ -103,10 +101,9 @@
$ NBVAL, NOUT )
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/zchkrfp.f b/lapack-netlib/TESTING/LIN/zchkrfp.f
index ba5fd6166..1764f566e 100644
--- a/lapack-netlib/TESTING/LIN/zchkrfp.f
+++ b/lapack-netlib/TESTING/LIN/zchkrfp.f
@@ -52,17 +52,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup complex16_lin
*
* =====================================================================
PROGRAM ZCHKRFP
*
-* -- LAPACK test routine (version 3.7.1) --
+* -- LAPACK test routine --
* -- 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/LIN/zchkrq.f b/lapack-netlib/TESTING/LIN/zchkrq.f
index ef3bf3044..32347c697 100644
--- a/lapack-netlib/TESTING/LIN/zchkrq.f
+++ b/lapack-netlib/TESTING/LIN/zchkrq.f
@@ -32,7 +32,7 @@
*>
*> \verbatim
*>
-*> ZCHKRQ tests ZGERQF, ZUNGRQ and CUNMRQ.
+*> ZCHKRQ tests ZGERQF, ZUNGRQ and ZUNMRQ.
*> \endverbatim
*
* Arguments:
@@ -192,8 +192,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
@@ -201,10 +199,9 @@
$ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AR, AC,
$ B, X, XACT, TAU, WORK, RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/zchksp.f b/lapack-netlib/TESTING/LIN/zchksp.f
index 808e80eee..fbfc45eeb 100644
--- a/lapack-netlib/TESTING/LIN/zchksp.f
+++ b/lapack-netlib/TESTING/LIN/zchksp.f
@@ -155,8 +155,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
@@ -164,10 +162,9 @@
$ NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK,
$ IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/zchksy.f b/lapack-netlib/TESTING/LIN/zchksy.f
index d656ee221..7877eb7e2 100644
--- a/lapack-netlib/TESTING/LIN/zchksy.f
+++ b/lapack-netlib/TESTING/LIN/zchksy.f
@@ -65,7 +65,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
@@ -162,8 +162,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2013
-*
*> \ingroup complex16_lin
*
* =====================================================================
@@ -171,10 +169,9 @@
$ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X,
$ XACT, WORK, RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.5.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2013
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/zchksy_aa.f b/lapack-netlib/TESTING/LIN/zchksy_aa.f
index 186a5b39d..9f53593d5 100644
--- a/lapack-netlib/TESTING/LIN/zchksy_aa.f
+++ b/lapack-netlib/TESTING/LIN/zchksy_aa.f
@@ -65,7 +65,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
@@ -162,8 +162,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup complex16_lin
*
* =====================================================================
@@ -171,10 +169,9 @@
$ THRESH, TSTERR, NMAX, A, AFAC, AINV, B,
$ X, XACT, WORK, RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.8.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2017
*
IMPLICIT NONE
*
diff --git a/lapack-netlib/TESTING/LIN/zchksy_aa_2stage.f b/lapack-netlib/TESTING/LIN/zchksy_aa_2stage.f
index 87fc47f71..4c8ff94f7 100644
--- a/lapack-netlib/TESTING/LIN/zchksy_aa_2stage.f
+++ b/lapack-netlib/TESTING/LIN/zchksy_aa_2stage.f
@@ -66,7 +66,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
@@ -163,8 +163,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup complex16_lin
*
* =====================================================================
@@ -172,10 +170,9 @@
$ NSVAL, THRESH, TSTERR, NMAX, A, AFAC, AINV,
$ B, X, XACT, WORK, RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.8.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2017
*
IMPLICIT NONE
*
diff --git a/lapack-netlib/TESTING/LIN/zchksy_rk.f b/lapack-netlib/TESTING/LIN/zchksy_rk.f
index c72edc133..3a206b30d 100644
--- a/lapack-netlib/TESTING/LIN/zchksy_rk.f
+++ b/lapack-netlib/TESTING/LIN/zchksy_rk.f
@@ -66,7 +66,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
@@ -168,8 +168,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
@@ -177,10 +175,9 @@
$ THRESH, TSTERR, NMAX, A, AFAC, E, AINV, B,
$ X, XACT, WORK, RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
@@ -505,7 +502,7 @@
CALL ZLACPY( UPLO, N, N, AFAC, LDA, AINV, LDA )
SRNAMT = 'ZSYTRI_3'
*
-* Another reason that we need to compute the invesrse
+* Another reason that we need to compute the inverse
* is that ZSYT03 produces RCONDC which is used later
* in TEST6 and TEST7.
*
diff --git a/lapack-netlib/TESTING/LIN/zchksy_rook.f b/lapack-netlib/TESTING/LIN/zchksy_rook.f
index d5e53121c..dcb5b6edd 100644
--- a/lapack-netlib/TESTING/LIN/zchksy_rook.f
+++ b/lapack-netlib/TESTING/LIN/zchksy_rook.f
@@ -66,7 +66,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
@@ -163,8 +163,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
@@ -172,10 +170,9 @@
$ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X,
$ XACT, WORK, RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/zchktb.f b/lapack-netlib/TESTING/LIN/zchktb.f
index 5a0834029..e71978624 100644
--- a/lapack-netlib/TESTING/LIN/zchktb.f
+++ b/lapack-netlib/TESTING/LIN/zchktb.f
@@ -141,18 +141,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZCHKTB( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR,
$ NMAX, AB, AINV, B, X, XACT, WORK, RWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/zchktp.f b/lapack-netlib/TESTING/LIN/zchktp.f
index 9336e12ac..1798c24e7 100644
--- a/lapack-netlib/TESTING/LIN/zchktp.f
+++ b/lapack-netlib/TESTING/LIN/zchktp.f
@@ -142,8 +142,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
@@ -151,10 +149,9 @@
$ NMAX, AP, AINVP, B, X, XACT, WORK, RWORK,
$ NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/zchktr.f b/lapack-netlib/TESTING/LIN/zchktr.f
index 57634d86a..0a6f47b1e 100644
--- a/lapack-netlib/TESTING/LIN/zchktr.f
+++ b/lapack-netlib/TESTING/LIN/zchktr.f
@@ -154,8 +154,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
@@ -163,10 +161,9 @@
$ THRESH, TSTERR, NMAX, A, AINV, B, X, XACT,
$ WORK, RWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/zchktsqr.f b/lapack-netlib/TESTING/LIN/zchktsqr.f
index 678b1772f..ca7828f1a 100644
--- a/lapack-netlib/TESTING/LIN/zchktsqr.f
+++ b/lapack-netlib/TESTING/LIN/zchktsqr.f
@@ -76,7 +76,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
@@ -94,8 +94,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup double_lin
*
* =====================================================================
@@ -103,10 +101,9 @@
$ NBVAL, NOUT )
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.7.1) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2017
*
* .. Scalar Arguments ..
LOGICAL TSTERR
@@ -254,6 +251,6 @@
$ ', NB=', I5,' test(', I2, ')=', G12.5 )
RETURN
*
-* End of ZCHKQRT
+* End of ZCHKTSQR
*
END
diff --git a/lapack-netlib/TESTING/LIN/zchktz.f b/lapack-netlib/TESTING/LIN/zchktz.f
index fbdeabc92..754b2a33c 100644
--- a/lapack-netlib/TESTING/LIN/zchktz.f
+++ b/lapack-netlib/TESTING/LIN/zchktz.f
@@ -129,18 +129,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZCHKTZ( DOTYPE, NM, MVAL, NN, NVAL, THRESH, TSTERR, A,
$ COPYA, S, TAU, WORK, RWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/zchkunhr_col.f b/lapack-netlib/TESTING/LIN/zchkunhr_col.f
index 395ea178a..a6ec2f0f8 100644
--- a/lapack-netlib/TESTING/LIN/zchkunhr_col.f
+++ b/lapack-netlib/TESTING/LIN/zchkunhr_col.f
@@ -82,7 +82,7 @@
*>
*> \param[in] NBVAL
*> \verbatim
-*> NBVAL is INTEGER array, dimension (NBVAL)
+*> NBVAL is INTEGER array, dimension (NNB)
*> The values of the blocksize NB.
*> \endverbatim
*>
diff --git a/lapack-netlib/TESTING/LIN/zdrvab.f b/lapack-netlib/TESTING/LIN/zdrvab.f
index 78d779c67..130515959 100644
--- a/lapack-netlib/TESTING/LIN/zdrvab.f
+++ b/lapack-netlib/TESTING/LIN/zdrvab.f
@@ -143,8 +143,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
@@ -152,10 +150,9 @@
$ NSVAL, THRESH, NMAX, A, AFAC, B,
$ X, WORK, RWORK, SWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER NM, NMAX, NNS, NOUT
diff --git a/lapack-netlib/TESTING/LIN/zdrvac.f b/lapack-netlib/TESTING/LIN/zdrvac.f
index 08f4c227f..20f8eb1e5 100644
--- a/lapack-netlib/TESTING/LIN/zdrvac.f
+++ b/lapack-netlib/TESTING/LIN/zdrvac.f
@@ -136,8 +136,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
@@ -145,10 +143,9 @@
$ A, AFAC, B, X, WORK,
$ RWORK, SWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER NMAX, NM, NNS, NOUT
diff --git a/lapack-netlib/TESTING/LIN/zdrvgb.f b/lapack-netlib/TESTING/LIN/zdrvgb.f
index 6740a6fcf..aa5712c3b 100644
--- a/lapack-netlib/TESTING/LIN/zdrvgb.f
+++ b/lapack-netlib/TESTING/LIN/zdrvgb.f
@@ -141,7 +141,7 @@
*> \param[out] RWORK
*> \verbatim
*> RWORK is DOUBLE PRECISION array, dimension
-*> (max(NMAX,2*NRHS))
+*> (NMAX+2*NRHS)
*> \endverbatim
*>
*> \param[out] IWORK
@@ -163,8 +163,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
@@ -172,10 +170,9 @@
$ AFB, LAFB, ASAV, B, BSAV, X, XACT, S, WORK,
$ RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
@@ -585,7 +582,8 @@
$ WORK, LDB )
CALL ZGBT02( 'No transpose', N, N, KL,
$ KU, NRHS, A, LDA, X, LDB,
- $ WORK, LDB, RESULT( 2 ) )
+ $ WORK, LDB, RWORK,
+ $ RESULT( 2 ) )
*
* Check solution from generated exact
* solution.
@@ -702,6 +700,7 @@
$ WORK, LDB )
CALL ZGBT02( TRANS, N, N, KL, KU, NRHS,
$ ASAV, LDA, X, LDB, WORK, LDB,
+ $ RWORK( 2*NRHS+1 ),
$ RESULT( 2 ) )
*
* Check solution from generated exact
diff --git a/lapack-netlib/TESTING/LIN/zdrvgbx.f b/lapack-netlib/TESTING/LIN/zdrvgbx.f
index 9ab2100b7..9bf3560f2 100644
--- a/lapack-netlib/TESTING/LIN/zdrvgbx.f
+++ b/lapack-netlib/TESTING/LIN/zdrvgbx.f
@@ -144,7 +144,7 @@
*> \param[out] RWORK
*> \verbatim
*> RWORK is DOUBLE PRECISION array, dimension
-*> (max(NMAX,2*NRHS))
+*> (max(2*NMAX,NMAX+2*NRHS))
*> \endverbatim
*>
*> \param[out] IWORK
@@ -166,8 +166,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
@@ -175,10 +173,9 @@
$ AFB, LAFB, ASAV, B, BSAV, X, XACT, S, WORK,
$ RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
@@ -593,7 +590,8 @@
$ WORK, LDB )
CALL ZGBT02( 'No transpose', N, N, KL,
$ KU, NRHS, A, LDA, X, LDB,
- $ WORK, LDB, RESULT( 2 ) )
+ $ WORK, LDB, RWORK,
+ $ RESULT( 2 ) )
*
* Check solution from generated exact
* solution.
@@ -711,6 +709,7 @@
$ WORK, LDB )
CALL ZGBT02( TRANS, N, N, KL, KU, NRHS,
$ ASAV, LDA, X, LDB, WORK, LDB,
+ $ RWORK( 2*NRHS+1 ),
$ RESULT( 2 ) )
*
* Check solution from generated exact
@@ -900,7 +899,8 @@ c write(*,*) 'begin zgbsvxx testing'
CALL ZLACPY( 'Full', N, NRHS, BSAV, LDB, WORK,
$ LDB )
CALL ZGBT02( TRANS, N, N, KL, KU, NRHS, ASAV,
- $ LDA, X, LDB, WORK, LDB, RESULT( 2 ) )
+ $ LDA, X, LDB, WORK, LDB, RWORK,
+ $ RESULT( 2 ) )
*
* Check solution from generated exact solution.
*
@@ -1030,6 +1030,6 @@ c write(*,*) 'begin zgbsvxx testing'
*
RETURN
*
-* End of ZDRVGB
+* End of ZDRVGBX
*
END
diff --git a/lapack-netlib/TESTING/LIN/zdrvge.f b/lapack-netlib/TESTING/LIN/zdrvge.f
index 1edad5e70..f6ef2d19c 100644
--- a/lapack-netlib/TESTING/LIN/zdrvge.f
+++ b/lapack-netlib/TESTING/LIN/zdrvge.f
@@ -155,8 +155,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
@@ -164,10 +162,9 @@
$ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK,
$ RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/zdrvgex.f b/lapack-netlib/TESTING/LIN/zdrvgex.f
index 1b784d31b..27d9105a3 100644
--- a/lapack-netlib/TESTING/LIN/zdrvgex.f
+++ b/lapack-netlib/TESTING/LIN/zdrvgex.f
@@ -158,8 +158,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup complex16_lin
*
* =====================================================================
@@ -167,10 +165,9 @@
$ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK,
$ RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* April 2012
*
* .. Scalar Arguments ..
LOGICAL TSTERR
@@ -892,6 +889,6 @@
$ G12.5 )
RETURN
*
-* End of ZDRVGE
+* End of ZDRVGEX
*
END
diff --git a/lapack-netlib/TESTING/LIN/zdrvgt.f b/lapack-netlib/TESTING/LIN/zdrvgt.f
index d260012e8..d055e4bdb 100644
--- a/lapack-netlib/TESTING/LIN/zdrvgt.f
+++ b/lapack-netlib/TESTING/LIN/zdrvgt.f
@@ -131,18 +131,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZDRVGT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, AF,
$ B, X, XACT, WORK, RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/zdrvhe.f b/lapack-netlib/TESTING/LIN/zdrvhe.f
index ba8f28fa9..a4cc639b1 100644
--- a/lapack-netlib/TESTING/LIN/zdrvhe.f
+++ b/lapack-netlib/TESTING/LIN/zdrvhe.f
@@ -144,8 +144,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2013
-*
*> \ingroup complex16_lin
*
* =====================================================================
@@ -153,10 +151,9 @@
$ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK,
$ NOUT )
*
-* -- LAPACK test routine (version 3.5.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2013
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/zdrvhe_aa.f b/lapack-netlib/TESTING/LIN/zdrvhe_aa.f
index 326627e8c..34d8f2aaf 100644
--- a/lapack-netlib/TESTING/LIN/zdrvhe_aa.f
+++ b/lapack-netlib/TESTING/LIN/zdrvhe_aa.f
@@ -144,8 +144,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup complex16_lin
*
* =====================================================================
@@ -153,10 +151,9 @@
$ NMAX, A, AFAC, AINV, B, X, XACT, WORK,
$ RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.8.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2017
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/zdrvhe_aa_2stage.f b/lapack-netlib/TESTING/LIN/zdrvhe_aa_2stage.f
index 655a8c788..9401867e0 100644
--- a/lapack-netlib/TESTING/LIN/zdrvhe_aa_2stage.f
+++ b/lapack-netlib/TESTING/LIN/zdrvhe_aa_2stage.f
@@ -145,8 +145,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup complex16_lin
*
* =====================================================================
@@ -155,10 +153,9 @@
$ NMAX, A, AFAC, AINV, B, X, XACT, WORK,
$ RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.8.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2017
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/zdrvhe_rk.f b/lapack-netlib/TESTING/LIN/zdrvhe_rk.f
index 355260aad..2f34883d6 100644
--- a/lapack-netlib/TESTING/LIN/zdrvhe_rk.f
+++ b/lapack-netlib/TESTING/LIN/zdrvhe_rk.f
@@ -149,8 +149,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
@@ -158,10 +156,9 @@
$ NMAX, A, AFAC, E, AINV, B, X, XACT, WORK,
$ RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
@@ -415,7 +412,7 @@
CALL ZLACPY( UPLO, N, N, AFAC, LDA, AINV, LDA )
LWORK = (N+NB+1)*(NB+3)
*
-* We need to copute the invesrse to compute
+* We need to compute the inverse to compute
* RCONDC that is used later in TEST3.
*
CALL ZHETRI_3( UPLO, N, AINV, LDA, E, IWORK,
diff --git a/lapack-netlib/TESTING/LIN/zdrvhe_rook.f b/lapack-netlib/TESTING/LIN/zdrvhe_rook.f
index 70fed11dd..59aed71be 100644
--- a/lapack-netlib/TESTING/LIN/zdrvhe_rook.f
+++ b/lapack-netlib/TESTING/LIN/zdrvhe_rook.f
@@ -144,8 +144,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2013
-*
*> \ingroup complex16_lin
*
* =====================================================================
@@ -153,10 +151,9 @@
$ NMAX, A, AFAC, AINV, B, X, XACT, WORK,
$ RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.5.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2013
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/zdrvhex.f b/lapack-netlib/TESTING/LIN/zdrvhex.f
index 527114508..0f66d28e9 100644
--- a/lapack-netlib/TESTING/LIN/zdrvhex.f
+++ b/lapack-netlib/TESTING/LIN/zdrvhex.f
@@ -148,8 +148,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup complex16_lin
*
* =====================================================================
@@ -157,10 +155,9 @@
$ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK,
$ NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* April 2012
*
* .. Scalar Arguments ..
LOGICAL TSTERR
@@ -718,6 +715,6 @@
$ ', type ', I2, ', test ', I2, ', ratio =', G12.5 )
RETURN
*
-* End of ZDRVHE
+* End of ZDRVHEX
*
END
diff --git a/lapack-netlib/TESTING/LIN/zdrvhp.f b/lapack-netlib/TESTING/LIN/zdrvhp.f
index 66bd76552..5c96c03e7 100644
--- a/lapack-netlib/TESTING/LIN/zdrvhp.f
+++ b/lapack-netlib/TESTING/LIN/zdrvhp.f
@@ -148,8 +148,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
@@ -157,10 +155,9 @@
$ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK,
$ NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/zdrvls.f b/lapack-netlib/TESTING/LIN/zdrvls.f
index 1313c853b..2eab97905 100644
--- a/lapack-netlib/TESTING/LIN/zdrvls.f
+++ b/lapack-netlib/TESTING/LIN/zdrvls.f
@@ -183,8 +183,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complex16_lin
*
* =====================================================================
@@ -192,10 +190,9 @@
$ NBVAL, NXVAL, THRESH, TSTERR, A, COPYA, B,
$ COPYB, C, S, COPYS, NOUT )
*
-* -- LAPACK test routine (version 3.7.1) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2017
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/zdrvpb.f b/lapack-netlib/TESTING/LIN/zdrvpb.f
index 264796452..a3eecb83e 100644
--- a/lapack-netlib/TESTING/LIN/zdrvpb.f
+++ b/lapack-netlib/TESTING/LIN/zdrvpb.f
@@ -150,8 +150,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
@@ -159,10 +157,9 @@
$ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK,
$ RWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/zdrvpo.f b/lapack-netlib/TESTING/LIN/zdrvpo.f
index 1308a1f58..3cc691c5b 100644
--- a/lapack-netlib/TESTING/LIN/zdrvpo.f
+++ b/lapack-netlib/TESTING/LIN/zdrvpo.f
@@ -150,8 +150,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
@@ -159,10 +157,9 @@
$ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK,
$ RWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/zdrvpox.f b/lapack-netlib/TESTING/LIN/zdrvpox.f
index 0bc2c89d8..d12405962 100644
--- a/lapack-netlib/TESTING/LIN/zdrvpox.f
+++ b/lapack-netlib/TESTING/LIN/zdrvpox.f
@@ -153,8 +153,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
@@ -162,10 +160,9 @@
$ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK,
$ RWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
@@ -734,6 +731,6 @@
$ G12.5 )
RETURN
*
-* End of ZDRVPO
+* End of ZDRVPOX
*
END
diff --git a/lapack-netlib/TESTING/LIN/zdrvpp.f b/lapack-netlib/TESTING/LIN/zdrvpp.f
index 82901e3ec..f63f7145d 100644
--- a/lapack-netlib/TESTING/LIN/zdrvpp.f
+++ b/lapack-netlib/TESTING/LIN/zdrvpp.f
@@ -150,8 +150,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
@@ -159,10 +157,9 @@
$ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK,
$ RWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/zdrvpt.f b/lapack-netlib/TESTING/LIN/zdrvpt.f
index 5943c0637..14a9f76ba 100644
--- a/lapack-netlib/TESTING/LIN/zdrvpt.f
+++ b/lapack-netlib/TESTING/LIN/zdrvpt.f
@@ -132,18 +132,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZDRVPT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, D,
$ E, B, X, XACT, WORK, RWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/zdrvrf1.f b/lapack-netlib/TESTING/LIN/zdrvrf1.f
index 6e468452a..0e54815fb 100644
--- a/lapack-netlib/TESTING/LIN/zdrvrf1.f
+++ b/lapack-netlib/TESTING/LIN/zdrvrf1.f
@@ -88,17 +88,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZDRVRF1( NOUT, NN, NVAL, THRESH, A, LDA, ARF, WORK )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, NN, NOUT
diff --git a/lapack-netlib/TESTING/LIN/zdrvrf2.f b/lapack-netlib/TESTING/LIN/zdrvrf2.f
index 2e95ce7cb..7f03e30ae 100644
--- a/lapack-netlib/TESTING/LIN/zdrvrf2.f
+++ b/lapack-netlib/TESTING/LIN/zdrvrf2.f
@@ -82,17 +82,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZDRVRF2( NOUT, NN, NVAL, A, LDA, ARF, AP, ASAV )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, NN, NOUT
diff --git a/lapack-netlib/TESTING/LIN/zdrvrf3.f b/lapack-netlib/TESTING/LIN/zdrvrf3.f
index 8bb9f2b94..7a44dba29 100644
--- a/lapack-netlib/TESTING/LIN/zdrvrf3.f
+++ b/lapack-netlib/TESTING/LIN/zdrvrf3.f
@@ -111,18 +111,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2,
+ D_WORK_ZLANGE, Z_WORK_ZGEQRF, TAU )
*
-* -- LAPACK test routine (version 3.7.1) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2017
*
* .. Scalar Arguments ..
INTEGER LDA, NN, NOUT
@@ -259,8 +256,8 @@
* Generate A our NA--by--NA triangular
* matrix.
* Our test is based on forward error so we
-* do want A to be well conditionned! To get
-* a well-conditionned triangular matrix, we
+* do want A to be well conditioned! To get
+* a well-conditioned triangular matrix, we
* take the R factor of the QR/LQ factorization
* of a random matrix.
*
diff --git a/lapack-netlib/TESTING/LIN/zdrvrf4.f b/lapack-netlib/TESTING/LIN/zdrvrf4.f
index c264355a1..17c4a2d24 100644
--- a/lapack-netlib/TESTING/LIN/zdrvrf4.f
+++ b/lapack-netlib/TESTING/LIN/zdrvrf4.f
@@ -106,18 +106,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZDRVRF4( NOUT, NN, NVAL, THRESH, C1, C2, LDC, CRF, A,
+ LDA, D_WORK_ZLANGE )
*
-* -- LAPACK test routine (version 3.7.1) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2017
*
* .. Scalar Arguments ..
INTEGER LDA, LDC, NN, NOUT
diff --git a/lapack-netlib/TESTING/LIN/zdrvrfp.f b/lapack-netlib/TESTING/LIN/zdrvrfp.f
index b299a487b..be6c13445 100644
--- a/lapack-netlib/TESTING/LIN/zdrvrfp.f
+++ b/lapack-netlib/TESTING/LIN/zdrvrfp.f
@@ -232,8 +232,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
@@ -244,10 +242,9 @@
+ Z_WORK_ZPOT03, D_WORK_ZLATMS, D_WORK_ZLANHE,
+ D_WORK_ZPOT01, D_WORK_ZPOT02, D_WORK_ZPOT03 )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER NN, NNS, NNT, NOUT
diff --git a/lapack-netlib/TESTING/LIN/zdrvsp.f b/lapack-netlib/TESTING/LIN/zdrvsp.f
index 94dd6553c..1b68711d7 100644
--- a/lapack-netlib/TESTING/LIN/zdrvsp.f
+++ b/lapack-netlib/TESTING/LIN/zdrvsp.f
@@ -148,8 +148,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
@@ -157,10 +155,9 @@
$ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK,
$ NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/zdrvsy.f b/lapack-netlib/TESTING/LIN/zdrvsy.f
index 5e0c60e23..0e5623794 100644
--- a/lapack-netlib/TESTING/LIN/zdrvsy.f
+++ b/lapack-netlib/TESTING/LIN/zdrvsy.f
@@ -144,8 +144,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2013
-*
*> \ingroup complex16_lin
*
* =====================================================================
@@ -153,10 +151,9 @@
$ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK,
$ NOUT )
*
-* -- LAPACK test routine (version 3.5.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2013
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/zdrvsy_aa.f b/lapack-netlib/TESTING/LIN/zdrvsy_aa.f
index ae4c8a5aa..eaac75ed7 100644
--- a/lapack-netlib/TESTING/LIN/zdrvsy_aa.f
+++ b/lapack-netlib/TESTING/LIN/zdrvsy_aa.f
@@ -144,8 +144,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup complex16_lin
*
* =====================================================================
@@ -153,10 +151,9 @@
$ NMAX, A, AFAC, AINV, B, X, XACT, WORK,
$ RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.8.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2017
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/zdrvsy_aa_2stage.f b/lapack-netlib/TESTING/LIN/zdrvsy_aa_2stage.f
index d93e44542..21497477c 100644
--- a/lapack-netlib/TESTING/LIN/zdrvsy_aa_2stage.f
+++ b/lapack-netlib/TESTING/LIN/zdrvsy_aa_2stage.f
@@ -145,8 +145,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup complex16_lin
*
* =====================================================================
@@ -155,10 +153,9 @@
$ NMAX, A, AFAC, AINV, B, X, XACT, WORK,
$ RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.8.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2017
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/zdrvsy_rk.f b/lapack-netlib/TESTING/LIN/zdrvsy_rk.f
index 1cc983a2c..a27e891eb 100644
--- a/lapack-netlib/TESTING/LIN/zdrvsy_rk.f
+++ b/lapack-netlib/TESTING/LIN/zdrvsy_rk.f
@@ -149,8 +149,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
@@ -158,10 +156,9 @@
$ NMAX, A, AFAC, E, AINV, B, X, XACT, WORK,
$ RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
@@ -422,7 +419,7 @@
CALL ZLACPY( UPLO, N, N, AFAC, LDA, AINV, LDA )
LWORK = (N+NB+1)*(NB+3)
*
-* We need to copute the invesrse to compute
+* We need to compute the inverse to compute
* RCONDC that is used later in TEST3.
*
CALL ZSYTRI_3( UPLO, N, AINV, LDA, E, IWORK,
diff --git a/lapack-netlib/TESTING/LIN/zdrvsy_rook.f b/lapack-netlib/TESTING/LIN/zdrvsy_rook.f
index 11019bdf2..eba5faa81 100644
--- a/lapack-netlib/TESTING/LIN/zdrvsy_rook.f
+++ b/lapack-netlib/TESTING/LIN/zdrvsy_rook.f
@@ -144,8 +144,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
@@ -153,10 +151,9 @@
$ NMAX, A, AFAC, AINV, B, X, XACT, WORK,
$ RWORK, IWORK, NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL TSTERR
diff --git a/lapack-netlib/TESTING/LIN/zdrvsyx.f b/lapack-netlib/TESTING/LIN/zdrvsyx.f
index e4556f150..5d2d741c0 100644
--- a/lapack-netlib/TESTING/LIN/zdrvsyx.f
+++ b/lapack-netlib/TESTING/LIN/zdrvsyx.f
@@ -148,8 +148,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup complex16_lin
*
* =====================================================================
@@ -157,10 +155,9 @@
$ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK,
$ NOUT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* April 2012
*
* .. Scalar Arguments ..
LOGICAL TSTERR
@@ -724,6 +721,6 @@
$ ', type ', I2, ', test ', I2, ', ratio =', G12.5 )
RETURN
*
-* End of ZDRVSY
+* End of ZDRVSYX
*
END
diff --git a/lapack-netlib/TESTING/LIN/zebchvxx.f b/lapack-netlib/TESTING/LIN/zebchvxx.f
index 8437685a5..b57ce88ec 100644
--- a/lapack-netlib/TESTING/LIN/zebchvxx.f
+++ b/lapack-netlib/TESTING/LIN/zebchvxx.f
@@ -89,8 +89,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
@@ -504,5 +502,7 @@ c$$$ WRITE(*,*)
8000 FORMAT( ' Z', A2, 'SVXX: N =', I2, ', INFO = ', I3,
$ ', ORCOND = ', G12.5, ', real RCOND = ', G12.5 )
-
+*
+* End of ZEBCHVXX
+*
END
diff --git a/lapack-netlib/TESTING/LIN/zerrab.f b/lapack-netlib/TESTING/LIN/zerrab.f
index 1d345a412..81bf019d9 100644
--- a/lapack-netlib/TESTING/LIN/zerrab.f
+++ b/lapack-netlib/TESTING/LIN/zerrab.f
@@ -40,17 +40,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZERRAB( NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER NUNIT
diff --git a/lapack-netlib/TESTING/LIN/zerrac.f b/lapack-netlib/TESTING/LIN/zerrac.f
index 0ba2b0e06..1d32450aa 100644
--- a/lapack-netlib/TESTING/LIN/zerrac.f
+++ b/lapack-netlib/TESTING/LIN/zerrac.f
@@ -40,17 +40,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZERRAC( NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER NUNIT
diff --git a/lapack-netlib/TESTING/LIN/zerrge.f b/lapack-netlib/TESTING/LIN/zerrge.f
index a106b3a36..6bf79f646 100644
--- a/lapack-netlib/TESTING/LIN/zerrge.f
+++ b/lapack-netlib/TESTING/LIN/zerrge.f
@@ -48,17 +48,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZERRGE( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/LIN/zerrgex.f b/lapack-netlib/TESTING/LIN/zerrgex.f
index 8c0a9f43d..b20f0ce74 100644
--- a/lapack-netlib/TESTING/LIN/zerrgex.f
+++ b/lapack-netlib/TESTING/LIN/zerrgex.f
@@ -51,17 +51,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZERRGE( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
@@ -562,6 +559,6 @@
*
RETURN
*
-* End of ZERRGE
+* End of ZERRGEX
*
END
diff --git a/lapack-netlib/TESTING/LIN/zerrgt.f b/lapack-netlib/TESTING/LIN/zerrgt.f
index 4a5ab934e..bfb760e08 100644
--- a/lapack-netlib/TESTING/LIN/zerrgt.f
+++ b/lapack-netlib/TESTING/LIN/zerrgt.f
@@ -48,17 +48,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZERRGT( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/LIN/zerrhe.f b/lapack-netlib/TESTING/LIN/zerrhe.f
index 5b2f30bdf..e49e5037c 100644
--- a/lapack-netlib/TESTING/LIN/zerrhe.f
+++ b/lapack-netlib/TESTING/LIN/zerrhe.f
@@ -48,17 +48,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZERRHE( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.8.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2017
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/LIN/zerrhex.f b/lapack-netlib/TESTING/LIN/zerrhex.f
index 938c283e2..b6e8b77ef 100644
--- a/lapack-netlib/TESTING/LIN/zerrhex.f
+++ b/lapack-netlib/TESTING/LIN/zerrhex.f
@@ -51,17 +51,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZERRHE( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
@@ -612,6 +609,6 @@
*
RETURN
*
-* End of ZERRHE
+* End of ZERRHEX
*
END
diff --git a/lapack-netlib/TESTING/LIN/zerrlq.f b/lapack-netlib/TESTING/LIN/zerrlq.f
index 48d7aaa8e..d8e5a8fe8 100644
--- a/lapack-netlib/TESTING/LIN/zerrlq.f
+++ b/lapack-netlib/TESTING/LIN/zerrlq.f
@@ -48,17 +48,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZERRLQ( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/LIN/zerrlqt.f b/lapack-netlib/TESTING/LIN/zerrlqt.f
index 2ca3d7121..de237f7b3 100644
--- a/lapack-netlib/TESTING/LIN/zerrlqt.f
+++ b/lapack-netlib/TESTING/LIN/zerrlqt.f
@@ -48,18 +48,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE ZERRLQT( PATH, NUNIT )
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/LIN/zerrlqtp.f b/lapack-netlib/TESTING/LIN/zerrlqtp.f
index f78a311f6..4fed018fb 100644
--- a/lapack-netlib/TESTING/LIN/zerrlqtp.f
+++ b/lapack-netlib/TESTING/LIN/zerrlqtp.f
@@ -48,18 +48,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE ZERRLQTP( PATH, NUNIT )
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
@@ -220,6 +217,6 @@
*
RETURN
*
-* End of ZERRLQT
+* End of ZERRLQTP
*
END
diff --git a/lapack-netlib/TESTING/LIN/zerrls.f b/lapack-netlib/TESTING/LIN/zerrls.f
index 2df87b66b..66e56c8c6 100644
--- a/lapack-netlib/TESTING/LIN/zerrls.f
+++ b/lapack-netlib/TESTING/LIN/zerrls.f
@@ -48,17 +48,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZERRLS( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/LIN/zerrpo.f b/lapack-netlib/TESTING/LIN/zerrpo.f
index f53847a18..802377dd5 100644
--- a/lapack-netlib/TESTING/LIN/zerrpo.f
+++ b/lapack-netlib/TESTING/LIN/zerrpo.f
@@ -48,17 +48,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZERRPO( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/LIN/zerrpox.f b/lapack-netlib/TESTING/LIN/zerrpox.f
index fbd9ff391..2af8aeab9 100644
--- a/lapack-netlib/TESTING/LIN/zerrpox.f
+++ b/lapack-netlib/TESTING/LIN/zerrpox.f
@@ -51,17 +51,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZERRPO( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
@@ -534,6 +531,6 @@
*
RETURN
*
-* End of ZERRPO
+* End of ZERRPOX
*
END
diff --git a/lapack-netlib/TESTING/LIN/zerrps.f b/lapack-netlib/TESTING/LIN/zerrps.f
index 5c10dd859..86425c192 100644
--- a/lapack-netlib/TESTING/LIN/zerrps.f
+++ b/lapack-netlib/TESTING/LIN/zerrps.f
@@ -48,17 +48,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZERRPS( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER NUNIT
diff --git a/lapack-netlib/TESTING/LIN/zerrql.f b/lapack-netlib/TESTING/LIN/zerrql.f
index 2c20dfa85..ebbbb8f64 100644
--- a/lapack-netlib/TESTING/LIN/zerrql.f
+++ b/lapack-netlib/TESTING/LIN/zerrql.f
@@ -48,17 +48,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZERRQL( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/LIN/zerrqp.f b/lapack-netlib/TESTING/LIN/zerrqp.f
index e63b65a9d..5251d4522 100644
--- a/lapack-netlib/TESTING/LIN/zerrqp.f
+++ b/lapack-netlib/TESTING/LIN/zerrqp.f
@@ -47,17 +47,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZERRQP( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/LIN/zerrqr.f b/lapack-netlib/TESTING/LIN/zerrqr.f
index 88e46b0d9..114453d4c 100644
--- a/lapack-netlib/TESTING/LIN/zerrqr.f
+++ b/lapack-netlib/TESTING/LIN/zerrqr.f
@@ -48,17 +48,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZERRQR( PATH, NUNIT )
*
-* -- LAPACK test routine ((version 3.7.0) --
+* -- LAPACK test routine (--
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/LIN/zerrqrt.f b/lapack-netlib/TESTING/LIN/zerrqrt.f
index 1f030ca05..64c20b08e 100644
--- a/lapack-netlib/TESTING/LIN/zerrqrt.f
+++ b/lapack-netlib/TESTING/LIN/zerrqrt.f
@@ -48,18 +48,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZERRQRT( PATH, NUNIT )
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/LIN/zerrqrtp.f b/lapack-netlib/TESTING/LIN/zerrqrtp.f
index 6370e0454..19d2a4ca1 100644
--- a/lapack-netlib/TESTING/LIN/zerrqrtp.f
+++ b/lapack-netlib/TESTING/LIN/zerrqrtp.f
@@ -48,18 +48,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZERRQRTP( PATH, NUNIT )
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
@@ -224,6 +221,6 @@
*
RETURN
*
-* End of ZERRQRT
+* End of ZERRQRTP
*
END
diff --git a/lapack-netlib/TESTING/LIN/zerrrfp.f b/lapack-netlib/TESTING/LIN/zerrrfp.f
index 0553c4079..e7916d50d 100644
--- a/lapack-netlib/TESTING/LIN/zerrrfp.f
+++ b/lapack-netlib/TESTING/LIN/zerrrfp.f
@@ -45,17 +45,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZERRRFP( NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER NUNIT
diff --git a/lapack-netlib/TESTING/LIN/zerrrq.f b/lapack-netlib/TESTING/LIN/zerrrq.f
index 36085c8b2..e1af3729c 100644
--- a/lapack-netlib/TESTING/LIN/zerrrq.f
+++ b/lapack-netlib/TESTING/LIN/zerrrq.f
@@ -48,17 +48,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZERRRQ( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/LIN/zerrsy.f b/lapack-netlib/TESTING/LIN/zerrsy.f
index 642d748da..a50f9d24e 100644
--- a/lapack-netlib/TESTING/LIN/zerrsy.f
+++ b/lapack-netlib/TESTING/LIN/zerrsy.f
@@ -48,17 +48,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZERRSY( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.8.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2017
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/LIN/zerrsyx.f b/lapack-netlib/TESTING/LIN/zerrsyx.f
index 3152ba8e2..23d2a5a2b 100644
--- a/lapack-netlib/TESTING/LIN/zerrsyx.f
+++ b/lapack-netlib/TESTING/LIN/zerrsyx.f
@@ -51,17 +51,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZERRSY( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
@@ -611,6 +608,6 @@
*
RETURN
*
-* End of ZERRSY
+* End of ZERRSYX
*
END
diff --git a/lapack-netlib/TESTING/LIN/zerrtr.f b/lapack-netlib/TESTING/LIN/zerrtr.f
index e81d96cd9..098040ace 100644
--- a/lapack-netlib/TESTING/LIN/zerrtr.f
+++ b/lapack-netlib/TESTING/LIN/zerrtr.f
@@ -47,17 +47,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZERRTR( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/LIN/zerrtsqr.f b/lapack-netlib/TESTING/LIN/zerrtsqr.f
index 526ea0812..19f73fa7a 100644
--- a/lapack-netlib/TESTING/LIN/zerrtsqr.f
+++ b/lapack-netlib/TESTING/LIN/zerrtsqr.f
@@ -48,18 +48,15 @@
*> \author Univ. of Colorado Zenver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE ZERRTSQR( PATH, NUNIT )
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
@@ -73,7 +70,7 @@
PARAMETER ( NMAX = 2 )
* ..
* .. Local Scalars ..
- INTEGER I, INFO, J, NB
+ INTEGER I, INFO, J, MB, NB
* ..
* .. Local Arrays ..
COMPLEX*16 A( NMAX, NMAX ), T( NMAX, NMAX ), W( NMAX ),
@@ -133,6 +130,35 @@
CALL ZGEQR( 3, 2, A, 3, TAU, 8, W, 0, INFO )
CALL CHKXER( 'ZGEQR', INFOT, NOUT, LERR, OK )
*
+* ZLATSQR
+*
+ MB = 1
+ NB = 1
+ SRNAMT = 'ZLATSQR'
+ INFOT = 1
+ CALL ZLATSQR( -1, 0, MB, NB, A, 1, TAU, 1, W, 1, INFO )
+ CALL CHKXER( 'ZLATSQR', INFOT, NOUT, LERR, OK )
+ INFOT = 2
+ CALL ZLATSQR( 1, 2, MB, NB, A, 1, TAU, 1, W, 1, INFO )
+ CALL CHKXER( 'ZLATSQR', INFOT, NOUT, LERR, OK )
+ CALL ZLATSQR( 0, -1, MB, NB, A, 1, TAU, 1, W, 1, INFO )
+ CALL CHKXER( 'ZLATSQR', INFOT, NOUT, LERR, OK )
+ INFOT = 3
+ CALL ZLATSQR( 2, 1, -1, NB, A, 2, TAU, 1, W, 1, INFO )
+ CALL CHKXER( 'ZLATSQR', INFOT, NOUT, LERR, OK )
+ INFOT = 4
+ CALL ZLATSQR( 2, 1, MB, 2, A, 2, TAU, 1, W, 1, INFO )
+ CALL CHKXER( 'ZLATSQR', INFOT, NOUT, LERR, OK )
+ INFOT = 6
+ CALL ZLATSQR( 2, 1, MB, NB, A, 1, TAU, 1, W, 1, INFO )
+ CALL CHKXER( 'ZLATSQR', INFOT, NOUT, LERR, OK )
+ INFOT = 8
+ CALL ZLATSQR( 2, 1, MB, NB, A, 2, TAU, 0, W, 1, INFO )
+ CALL CHKXER( 'ZLATSQR', INFOT, NOUT, LERR, OK )
+ INFOT = 10
+ CALL ZLATSQR( 2, 1, MB, NB, A, 2, TAU, 2, W, 0, INFO )
+ CALL CHKXER( 'ZLATSQR', INFOT, NOUT, LERR, OK )
+*
* ZGEMQR
*
TAU(1)=1
@@ -192,6 +218,37 @@
CALL ZGELQ( 2, 3, A, 3, TAU, 8, W, 0, INFO )
CALL CHKXER( 'ZGELQ', INFOT, NOUT, LERR, OK )
*
+* ZLASWLQ
+*
+ MB = 1
+ NB = 1
+ SRNAMT = 'ZLASWLQ'
+ INFOT = 1
+ CALL ZLASWLQ( -1, 0, MB, NB, A, 1, TAU, 1, W, 1, INFO )
+ CALL CHKXER( 'ZLASWLQ', INFOT, NOUT, LERR, OK )
+ INFOT = 2
+ CALL ZLASWLQ( 2, 1, MB, NB, A, 1, TAU, 1, W, 1, INFO )
+ CALL CHKXER( 'ZLASWLQ', INFOT, NOUT, LERR, OK )
+ CALL ZLASWLQ( 0, -1, MB, NB, A, 1, TAU, 1, W, 1, INFO )
+ CALL CHKXER( 'ZLASWLQ', INFOT, NOUT, LERR, OK )
+ INFOT = 3
+ CALL ZLASWLQ( 1, 2, -1, NB, A, 1, TAU, 1, W, 1, INFO )
+ CALL CHKXER( 'ZLASWLQ', INFOT, NOUT, LERR, OK )
+ CALL ZLASWLQ( 1, 1, 2, NB, A, 1, TAU, 1, W, 1, INFO )
+ CALL CHKXER( 'ZLASWLQ', INFOT, NOUT, LERR, OK )
+ INFOT = 4
+ CALL ZLASWLQ( 1, 2, MB, -1, A, 1, TAU, 1, W, 1, INFO )
+ CALL CHKXER( 'ZLASWLQ', INFOT, NOUT, LERR, OK )
+ INFOT = 6
+ CALL ZLASWLQ( 1, 2, MB, NB, A, 0, TAU, 1, W, 1, INFO )
+ CALL CHKXER( 'ZLASWLQ', INFOT, NOUT, LERR, OK )
+ INFOT = 8
+ CALL ZLASWLQ( 1, 2, MB, NB, A, 1, TAU, 0, W, 1, INFO )
+ CALL CHKXER( 'ZLASWLQ', INFOT, NOUT, LERR, OK )
+ INFOT = 10
+ CALL ZLASWLQ( 1, 2, MB, NB, A, 1, TAU, 1, W, 0, INFO )
+ CALL CHKXER( 'ZLASWLQ', INFOT, NOUT, LERR, OK )
+*
* ZGEMLQ
*
TAU(1)=1
@@ -238,6 +295,6 @@
*
RETURN
*
-* End of DERRTSQR
+* End of ZERRTSQR
*
END
diff --git a/lapack-netlib/TESTING/LIN/zerrtz.f b/lapack-netlib/TESTING/LIN/zerrtz.f
index 5eb1cf291..693ec0cb1 100644
--- a/lapack-netlib/TESTING/LIN/zerrtz.f
+++ b/lapack-netlib/TESTING/LIN/zerrtz.f
@@ -47,17 +47,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZERRTZ( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/LIN/zerrunhr_col.f b/lapack-netlib/TESTING/LIN/zerrunhr_col.f
index 4fb62734d..6375d2834 100644
--- a/lapack-netlib/TESTING/LIN/zerrunhr_col.f
+++ b/lapack-netlib/TESTING/LIN/zerrunhr_col.f
@@ -22,7 +22,7 @@
*> \verbatim
*>
*> ZERRUNHR_COL tests the error exits for ZUNHR_COL that does
-*> Householder reconstruction from the ouput of tall-skinny
+*> Householder reconstruction from the output of tall-skinny
*> factorization ZLATSQR.
*> \endverbatim
*
@@ -49,18 +49,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2019
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZERRUNHR_COL( PATH, NUNIT )
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.9.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2019
*
* .. Scalar Arguments ..
CHARACTER(LEN=3) PATH
diff --git a/lapack-netlib/TESTING/LIN/zerrvx.f b/lapack-netlib/TESTING/LIN/zerrvx.f
index 7759384e6..ea7823df3 100644
--- a/lapack-netlib/TESTING/LIN/zerrvx.f
+++ b/lapack-netlib/TESTING/LIN/zerrvx.f
@@ -48,17 +48,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZERRVX( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.8.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2017
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
diff --git a/lapack-netlib/TESTING/LIN/zerrvxx.f b/lapack-netlib/TESTING/LIN/zerrvxx.f
index bdaf44d8a..8fd920fcc 100644
--- a/lapack-netlib/TESTING/LIN/zerrvxx.f
+++ b/lapack-netlib/TESTING/LIN/zerrvxx.f
@@ -48,17 +48,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZERRVX( PATH, NUNIT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
@@ -1297,6 +1294,6 @@
*
RETURN
*
-* End of ZERRVX
+* End of ZERRVXX
*
END
diff --git a/lapack-netlib/TESTING/LIN/zgbt01.f b/lapack-netlib/TESTING/LIN/zgbt01.f
index 2d3e8ed1d..921919371 100644
--- a/lapack-netlib/TESTING/LIN/zgbt01.f
+++ b/lapack-netlib/TESTING/LIN/zgbt01.f
@@ -118,18 +118,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZGBT01( M, N, KL, KU, A, LDA, AFAC, LDAFAC, IPIV, WORK,
$ RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER KL, KU, LDA, LDAFAC, M, N
diff --git a/lapack-netlib/TESTING/LIN/zgbt02.f b/lapack-netlib/TESTING/LIN/zgbt02.f
index 41f589d85..6acdb00aa 100644
--- a/lapack-netlib/TESTING/LIN/zgbt02.f
+++ b/lapack-netlib/TESTING/LIN/zgbt02.f
@@ -9,7 +9,7 @@
* ===========
*
* SUBROUTINE ZGBT02( TRANS, M, N, KL, KU, NRHS, A, LDA, X, LDX, B,
-* LDB, RESID )
+* LDB, RWORK, RESID )
*
* .. Scalar Arguments ..
* CHARACTER TRANS
@@ -17,6 +17,7 @@
* DOUBLE PRECISION RESID
* ..
* .. Array Arguments ..
+* DOUBLE PRECISION RWORK( * )
* COMPLEX*16 A( LDA, * ), B( LDB, * ), X( LDX, * )
* ..
*
@@ -27,9 +28,10 @@
*> \verbatim
*>
*> ZGBT02 computes the residual for a solution of a banded system of
-*> equations A*x = b or A'*x = b:
-*> RESID = norm( B - A*X ) / ( norm(A) * norm(X) * EPS).
-*> where EPS is the machine precision.
+*> equations op(A)*X = B:
+*> RESID = norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ),
+*> where op(A) = A, A**T, or A**H, depending on TRANS, and EPS is the
+*> machine epsilon.
*> \endverbatim
*
* Arguments:
@@ -39,9 +41,9 @@
*> \verbatim
*> TRANS is CHARACTER*1
*> Specifies the form of the system of equations:
-*> = 'N': A *x = b
-*> = 'T': A'*x = b, where A' is the transpose of A
-*> = 'C': A'*x = b, where A' is the transpose of A
+*> = 'N': A * X = B (No transpose)
+*> = 'T': A**T * X = B (Transpose)
+*> = 'C': A**H * X = B (Conjugate transpose)
*> \endverbatim
*>
*> \param[in] M
@@ -116,11 +118,18 @@
*> LDB >= max(1,M); if TRANS = 'T' or 'C', LDB >= max(1,N).
*> \endverbatim
*>
+*> \param[out] RWORK
+*> \verbatim
+*> RWORK is DOUBLE PRECISION array, dimension (MAX(1,LRWORK)),
+*> where LRWORK >= M when TRANS = 'T' or 'C'; otherwise, RWORK
+*> is not referenced.
+*> \endverbatim
+*
*> \param[out] RESID
*> \verbatim
*> RESID is DOUBLE PRECISION
*> The maximum over the number of right hand sides of
-*> norm(B - A*X) / ( norm(A) * norm(X) * EPS ).
+*> norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ).
*> \endverbatim
*
* Authors:
@@ -131,18 +140,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZGBT02( TRANS, M, N, KL, KU, NRHS, A, LDA, X, LDX, B,
- $ LDB, RESID )
+ $ LDB, RWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER TRANS
@@ -150,6 +156,7 @@
DOUBLE PRECISION RESID
* ..
* .. Array Arguments ..
+ DOUBLE PRECISION RWORK( * )
COMPLEX*16 A( LDA, * ), B( LDB, * ), X( LDX, * )
* ..
*
@@ -163,18 +170,25 @@
* ..
* .. Local Scalars ..
INTEGER I1, I2, J, KD, N1
- DOUBLE PRECISION ANORM, BNORM, EPS, XNORM
+ DOUBLE PRECISION ANORM, BNORM, EPS, TEMP, XNORM
+ COMPLEX*16 ZDUM
* ..
* .. External Functions ..
- LOGICAL LSAME
+ LOGICAL DISNAN, LSAME
DOUBLE PRECISION DLAMCH, DZASUM
- EXTERNAL LSAME, DLAMCH, DZASUM
+ EXTERNAL DISNAN, DLAMCH, DZASUM, LSAME
* ..
* .. External Subroutines ..
EXTERNAL ZGBMV
* ..
+* .. Statement Functions ..
+ DOUBLE PRECISION CABS1
+* ..
* .. Intrinsic Functions ..
- INTRINSIC MAX, MIN
+ INTRINSIC ABS, DBLE, DIMAG, MAX, MIN
+* ..
+* .. Statement Function definitions ..
+ CABS1( ZDUM ) = ABS( DBLE( ZDUM ) ) + ABS( DIMAG( ZDUM ) )
* ..
* .. Executable Statements ..
*
@@ -188,13 +202,38 @@
* Exit with RESID = 1/EPS if ANORM = 0.
*
EPS = DLAMCH( 'Epsilon' )
- KD = KU + 1
ANORM = ZERO
+ IF( LSAME( TRANS, 'N' ) ) THEN
+*
+* Find norm1(A).
+*
+ KD = KU + 1
DO 10 J = 1, N
I1 = MAX( KD+1-J, 1 )
I2 = MIN( KD+M-J, KL+KD )
- ANORM = MAX( ANORM, DZASUM( I2-I1+1, A( I1, J ), 1 ) )
+ IF( I2.GE.I1 ) THEN
+ TEMP = DZASUM( I2-I1+1, A( I1, J ), 1 )
+ IF( ANORM.LT.TEMP .OR. DISNAN( TEMP ) ) ANORM = TEMP
+ END IF
10 CONTINUE
+ ELSE
+*
+* Find normI(A).
+*
+ DO 12 I1 = 1, M
+ RWORK( I1 ) = ZERO
+ 12 CONTINUE
+ DO 16 J = 1, N
+ KD = KU + 1 - J
+ DO 14 I1 = MAX( 1, J-KU ), MIN( M, J+KL )
+ RWORK( I1 ) = RWORK( I1 ) + CABS1( A( KD+I1, J ) )
+ 14 CONTINUE
+ 16 CONTINUE
+ DO 18 I1 = 1, M
+ TEMP = RWORK( I1 )
+ IF( ANORM.LT.TEMP .OR. DISNAN( TEMP ) ) ANORM = TEMP
+ 18 CONTINUE
+ END IF
IF( ANORM.LE.ZERO ) THEN
RESID = ONE / EPS
RETURN
@@ -206,7 +245,7 @@
N1 = M
END IF
*
-* Compute B - A*X (or B - A'*X )
+* Compute B - op(A)*X
*
DO 20 J = 1, NRHS
CALL ZGBMV( TRANS, M, N, KL, KU, -CONE, A, LDA, X( 1, J ), 1,
@@ -214,7 +253,7 @@
20 CONTINUE
*
* Compute the maximum over the number of right hand sides of
-* norm(B - A*X) / ( norm(A) * norm(X) * EPS ).
+* norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ).
*
RESID = ZERO
DO 30 J = 1, NRHS
diff --git a/lapack-netlib/TESTING/LIN/zgbt05.f b/lapack-netlib/TESTING/LIN/zgbt05.f
index 87a1bdda6..0fe29c385 100644
--- a/lapack-netlib/TESTING/LIN/zgbt05.f
+++ b/lapack-netlib/TESTING/LIN/zgbt05.f
@@ -30,7 +30,7 @@
*> ZGBT05 tests the error bounds from iterative refinement for the
*> computed solution to a system of equations op(A)*X = B, where A is a
*> general band matrix of order n with kl subdiagonals and ku
-*> superdiagonals and op(A) = A or A**T, depending on TRANS.
+*> superdiagonals and op(A) = A, A**T, or A**H, depending on TRANS.
*>
*> RESLTS(1) = test of the error bound
*> = norm(X - XACT) / ( norm(X) * FERR )
@@ -168,18 +168,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZGBT05( TRANS, N, KL, KU, NRHS, AB, LDAB, B, LDB, X,
$ LDX, XACT, LDXACT, FERR, BERR, RESLTS )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER TRANS
diff --git a/lapack-netlib/TESTING/LIN/zgelqs.f b/lapack-netlib/TESTING/LIN/zgelqs.f
index 7545d015e..5f629f8c7 100644
--- a/lapack-netlib/TESTING/LIN/zgelqs.f
+++ b/lapack-netlib/TESTING/LIN/zgelqs.f
@@ -113,18 +113,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZGELQS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK,
$ INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS
diff --git a/lapack-netlib/TESTING/LIN/zgennd.f b/lapack-netlib/TESTING/LIN/zgennd.f
index 250835364..48c9ad726 100644
--- a/lapack-netlib/TESTING/LIN/zgennd.f
+++ b/lapack-netlib/TESTING/LIN/zgennd.f
@@ -61,17 +61,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
LOGICAL FUNCTION ZGENND (M, N, A, LDA)
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER M, N, LDA
diff --git a/lapack-netlib/TESTING/LIN/zgeqls.f b/lapack-netlib/TESTING/LIN/zgeqls.f
index b668fac5d..ee3ec4938 100644
--- a/lapack-netlib/TESTING/LIN/zgeqls.f
+++ b/lapack-netlib/TESTING/LIN/zgeqls.f
@@ -114,18 +114,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZGEQLS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK,
$ INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS
diff --git a/lapack-netlib/TESTING/LIN/zgeqrs.f b/lapack-netlib/TESTING/LIN/zgeqrs.f
index f0d020817..6583e3859 100644
--- a/lapack-netlib/TESTING/LIN/zgeqrs.f
+++ b/lapack-netlib/TESTING/LIN/zgeqrs.f
@@ -113,18 +113,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZGEQRS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK,
$ INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS
diff --git a/lapack-netlib/TESTING/LIN/zgerqs.f b/lapack-netlib/TESTING/LIN/zgerqs.f
index d94a7a3dc..ca9f527f0 100644
--- a/lapack-netlib/TESTING/LIN/zgerqs.f
+++ b/lapack-netlib/TESTING/LIN/zgerqs.f
@@ -114,18 +114,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZGERQS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK,
$ INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS
diff --git a/lapack-netlib/TESTING/LIN/zget01.f b/lapack-netlib/TESTING/LIN/zget01.f
index fc21b3bfa..e46229868 100644
--- a/lapack-netlib/TESTING/LIN/zget01.f
+++ b/lapack-netlib/TESTING/LIN/zget01.f
@@ -100,18 +100,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZGET01( M, N, A, LDA, AFAC, LDAFAC, IPIV, RWORK,
$ RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LDAFAC, M, N
diff --git a/lapack-netlib/TESTING/LIN/zget02.f b/lapack-netlib/TESTING/LIN/zget02.f
index 764620a39..6ad1392c6 100644
--- a/lapack-netlib/TESTING/LIN/zget02.f
+++ b/lapack-netlib/TESTING/LIN/zget02.f
@@ -28,9 +28,10 @@
*> \verbatim
*>
*> ZGET02 computes the residual for a solution of a system of linear
-*> equations A*x = b or A'*x = b:
-*> RESID = norm(B - A*X) / ( norm(A) * norm(X) * EPS ),
-*> where EPS is the machine epsilon.
+*> equations op(A)*X = B:
+*> RESID = norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ),
+*> where op(A) = A, A**T, or A**H, depending on TRANS, and EPS is the
+*> machine epsilon.
*> \endverbatim
*
* Arguments:
@@ -40,9 +41,9 @@
*> \verbatim
*> TRANS is CHARACTER*1
*> Specifies the form of the system of equations:
-*> = 'N': A *x = b
-*> = 'T': A^T*x = b, where A^T is the transpose of A
-*> = 'C': A^H*x = b, where A^H is the conjugate transpose of A
+*> = 'N': A * X = B (No transpose)
+*> = 'T': A**T * X = B (Transpose)
+*> = 'C': A**H * X = B (Conjugate transpose)
*> \endverbatim
*>
*> \param[in] M
@@ -95,7 +96,7 @@
*> B is COMPLEX*16 array, dimension (LDB,NRHS)
*> On entry, the right hand side vectors for the system of
*> linear equations.
-*> On exit, B is overwritten with the difference B - A*X.
+*> On exit, B is overwritten with the difference B - op(A)*X.
*> \endverbatim
*>
*> \param[in] LDB
@@ -114,7 +115,7 @@
*> \verbatim
*> RESID is DOUBLE PRECISION
*> The maximum over the number of right hand sides of
-*> norm(B - A*X) / ( norm(A) * norm(X) * EPS ).
+*> norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ).
*> \endverbatim
*
* Authors:
@@ -125,18 +126,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB,
$ RWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER TRANS
@@ -191,19 +189,23 @@
* Exit with RESID = 1/EPS if ANORM = 0.
*
EPS = DLAMCH( 'Epsilon' )
+ IF( LSAME( TRANS, 'N' ) ) THEN
ANORM = ZLANGE( '1', M, N, A, LDA, RWORK )
+ ELSE
+ ANORM = ZLANGE( 'I', M, N, A, LDA, RWORK )
+ END IF
IF( ANORM.LE.ZERO ) THEN
RESID = ONE / EPS
RETURN
END IF
*
-* Compute B - A*X (or B - A'*X ) and store in B.
+* Compute B - op(A)*X and store in B.
*
CALL ZGEMM( TRANS, 'No transpose', N1, NRHS, N2, -CONE, A, LDA, X,
$ LDX, CONE, B, LDB )
*
* Compute the maximum over the number of right hand sides of
-* norm(B - A*X) / ( norm(A) * norm(X) * EPS ) .
+* norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ) .
*
RESID = ZERO
DO 10 J = 1, NRHS
diff --git a/lapack-netlib/TESTING/LIN/zget03.f b/lapack-netlib/TESTING/LIN/zget03.f
index cb05ec442..74121aabc 100644
--- a/lapack-netlib/TESTING/LIN/zget03.f
+++ b/lapack-netlib/TESTING/LIN/zget03.f
@@ -102,18 +102,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZGET03( N, A, LDA, AINV, LDAINV, WORK, LDWORK, RWORK,
$ RCOND, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LDAINV, LDWORK, N
diff --git a/lapack-netlib/TESTING/LIN/zget04.f b/lapack-netlib/TESTING/LIN/zget04.f
index fe39a8351..fa0d23899 100644
--- a/lapack-netlib/TESTING/LIN/zget04.f
+++ b/lapack-netlib/TESTING/LIN/zget04.f
@@ -95,17 +95,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZGET04( N, NRHS, X, LDX, XACT, LDXACT, RCOND, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDX, LDXACT, N, NRHS
diff --git a/lapack-netlib/TESTING/LIN/zget07.f b/lapack-netlib/TESTING/LIN/zget07.f
index d9a06a8d8..dc78e0bb6 100644
--- a/lapack-netlib/TESTING/LIN/zget07.f
+++ b/lapack-netlib/TESTING/LIN/zget07.f
@@ -158,18 +158,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZGET07( TRANS, N, NRHS, A, LDA, B, LDB, X, LDX, XACT,
$ LDXACT, FERR, CHKFERR, BERR, RESLTS )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER TRANS
diff --git a/lapack-netlib/TESTING/LIN/zget08.f b/lapack-netlib/TESTING/LIN/zget08.f
index 7d40ecfcc..32291170c 100644
--- a/lapack-netlib/TESTING/LIN/zget08.f
+++ b/lapack-netlib/TESTING/LIN/zget08.f
@@ -125,18 +125,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZGET08( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB,
$ RWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER TRANS
@@ -226,6 +223,6 @@
*
RETURN
*
-* End of ZGET02
+* End of ZGET08
*
END
diff --git a/lapack-netlib/TESTING/LIN/zgtt01.f b/lapack-netlib/TESTING/LIN/zgtt01.f
index c58c99d02..c63fdbc25 100644
--- a/lapack-netlib/TESTING/LIN/zgtt01.f
+++ b/lapack-netlib/TESTING/LIN/zgtt01.f
@@ -126,18 +126,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZGTT01( N, DL, D, DU, DLF, DF, DUF, DU2, IPIV, WORK,
$ LDWORK, RWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDWORK, N
diff --git a/lapack-netlib/TESTING/LIN/zgtt02.f b/lapack-netlib/TESTING/LIN/zgtt02.f
index acdd5b293..7362967be 100644
--- a/lapack-netlib/TESTING/LIN/zgtt02.f
+++ b/lapack-netlib/TESTING/LIN/zgtt02.f
@@ -29,7 +29,7 @@
*>
*> ZGTT02 computes the residual for the solution to a tridiagonal
*> system of equations:
-*> RESID = norm(B - op(A)*X) / (norm(A) * norm(X) * EPS),
+*> RESID = norm(B - op(A)*X) / (norm(op(A)) * norm(X) * EPS),
*> where EPS is the machine epsilon.
*> \endverbatim
*
@@ -105,7 +105,7 @@
*> \param[out] RESID
*> \verbatim
*> RESID is DOUBLE PRECISION
-*> norm(B - op(A)*X) / (norm(A) * norm(X) * EPS)
+*> norm(B - op(A)*X) / (norm(op(A)) * norm(X) * EPS)
*> \endverbatim
*
* Authors:
@@ -116,18 +116,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZGTT02( TRANS, N, NRHS, DL, D, DU, X, LDX, B, LDB,
$ RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER TRANS
@@ -169,7 +166,7 @@
$ RETURN
*
* Compute the maximum over the number of right hand sides of
-* norm(B - op(A)*X) / ( norm(A) * norm(X) * EPS ).
+* norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ).
*
IF( LSAME( TRANS, 'N' ) ) THEN
ANORM = ZLANGT( '1', N, DL, D, DU )
@@ -185,7 +182,7 @@
RETURN
END IF
*
-* Compute B - op(A)*X.
+* Compute B - op(A)*X and store in B.
*
CALL ZLAGTM( TRANS, N, NRHS, -ONE, DL, D, DU, X, LDX, ONE, B,
$ LDB )
diff --git a/lapack-netlib/TESTING/LIN/zgtt05.f b/lapack-netlib/TESTING/LIN/zgtt05.f
index 2dbf5f016..fc8b2f8d6 100644
--- a/lapack-netlib/TESTING/LIN/zgtt05.f
+++ b/lapack-netlib/TESTING/LIN/zgtt05.f
@@ -157,18 +157,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZGTT05( TRANS, N, NRHS, DL, D, DU, B, LDB, X, LDX,
$ XACT, LDXACT, FERR, BERR, RESLTS )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER TRANS
diff --git a/lapack-netlib/TESTING/LIN/zhet01.f b/lapack-netlib/TESTING/LIN/zhet01.f
index b8ec93ac9..b53296469 100644
--- a/lapack-netlib/TESTING/LIN/zhet01.f
+++ b/lapack-netlib/TESTING/LIN/zhet01.f
@@ -118,18 +118,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2013
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZHET01( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, LDC,
$ RWORK, RESID )
*
-* -- LAPACK test routine (version 3.5.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2013
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/zhet01_3.f b/lapack-netlib/TESTING/LIN/zhet01_3.f
index ba9955045..0a76404d6 100644
--- a/lapack-netlib/TESTING/LIN/zhet01_3.f
+++ b/lapack-netlib/TESTING/LIN/zhet01_3.f
@@ -133,18 +133,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZHET01_3( UPLO, N, A, LDA, AFAC, LDAFAC, E, IPIV, C,
$ LDC, RWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.1) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2017
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/zhet01_aa.f b/lapack-netlib/TESTING/LIN/zhet01_aa.f
index fc9feb86c..de6a7475c 100644
--- a/lapack-netlib/TESTING/LIN/zhet01_aa.f
+++ b/lapack-netlib/TESTING/LIN/zhet01_aa.f
@@ -116,19 +116,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZHET01_AA( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C,
$ LDC, RWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/zhet01_rook.f b/lapack-netlib/TESTING/LIN/zhet01_rook.f
index 8474c2577..88ccf4c1f 100644
--- a/lapack-netlib/TESTING/LIN/zhet01_rook.f
+++ b/lapack-netlib/TESTING/LIN/zhet01_rook.f
@@ -117,18 +117,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2013
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZHET01_ROOK( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C,
$ LDC, RWORK, RESID )
*
-* -- LAPACK test routine (version 3.5.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2013
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/zhpt01.f b/lapack-netlib/TESTING/LIN/zhpt01.f
index dff63463a..5ac14fdcf 100644
--- a/lapack-netlib/TESTING/LIN/zhpt01.f
+++ b/lapack-netlib/TESTING/LIN/zhpt01.f
@@ -106,17 +106,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZHPT01( UPLO, N, A, AFAC, IPIV, C, LDC, RWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/zlahilb.f b/lapack-netlib/TESTING/LIN/zlahilb.f
index ba83af825..ffd98b4f8 100644
--- a/lapack-netlib/TESTING/LIN/zlahilb.f
+++ b/lapack-netlib/TESTING/LIN/zlahilb.f
@@ -126,18 +126,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK,
$ INFO, PATH)
*
-* -- LAPACK test routine (version 3.7.1) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2017
*
* .. Scalar Arguments ..
INTEGER N, NRHS, LDA, LDX, LDB, INFO
diff --git a/lapack-netlib/TESTING/LIN/zlaipd.f b/lapack-netlib/TESTING/LIN/zlaipd.f
index 5975ccf14..2e70cdf48 100644
--- a/lapack-netlib/TESTING/LIN/zlaipd.f
+++ b/lapack-netlib/TESTING/LIN/zlaipd.f
@@ -76,17 +76,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZLAIPD( N, A, INDA, VINDA )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INDA, N, VINDA
diff --git a/lapack-netlib/TESTING/LIN/zlaptm.f b/lapack-netlib/TESTING/LIN/zlaptm.f
index 6d78a6d6c..818284bb0 100644
--- a/lapack-netlib/TESTING/LIN/zlaptm.f
+++ b/lapack-netlib/TESTING/LIN/zlaptm.f
@@ -121,18 +121,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZLAPTM( UPLO, N, NRHS, ALPHA, D, E, X, LDX, BETA, B,
$ LDB )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/zlarhs.f b/lapack-netlib/TESTING/LIN/zlarhs.f
index 9d1452840..f1a18c42f 100644
--- a/lapack-netlib/TESTING/LIN/zlarhs.f
+++ b/lapack-netlib/TESTING/LIN/zlarhs.f
@@ -30,8 +30,7 @@
*> ZLARHS chooses a set of NRHS random solution vectors and sets
*> up the right hand sides for the linear system
*> op( A ) * X = B,
-*> where op( A ) may be A, A**T (transpose of A), or A**H (conjugate
-*> transpose of A).
+*> where op(A) = A, A**T, or A**H, depending on TRANS.
*> \endverbatim
*
* Arguments:
@@ -85,9 +84,9 @@
*> TRANS is CHARACTER*1
*> Used only if A is nonsymmetric; specifies the operation
*> applied to the matrix A.
-*> = 'N': B := A * X
-*> = 'T': B := A**T * X
-*> = 'C': B := A**H * X
+*> = 'N': B := A * X (No transpose)
+*> = 'T': B := A**T * X (Transpose)
+*> = 'C': B := A**H * X (Conjugate transpose)
*> \endverbatim
*>
*> \param[in] M
@@ -201,18 +200,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS,
$ A, LDA, X, LDX, B, LDB, ISEED, INFO )
*
-* -- LAPACK test routine (version 3.7.1) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2017
*
* .. Scalar Arguments ..
CHARACTER TRANS, UPLO, XTYPE
diff --git a/lapack-netlib/TESTING/LIN/zlatb4.f b/lapack-netlib/TESTING/LIN/zlatb4.f
index 15fab3e1d..a6977f4e9 100644
--- a/lapack-netlib/TESTING/LIN/zlatb4.f
+++ b/lapack-netlib/TESTING/LIN/zlatb4.f
@@ -113,18 +113,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZLATB4( PATH, IMAT, M, N, TYPE, KL, KU, ANORM, MODE,
$ CNDNUM, DIST )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIST, TYPE
diff --git a/lapack-netlib/TESTING/LIN/zlatb5.f b/lapack-netlib/TESTING/LIN/zlatb5.f
index 2ccca75a8..446d05995 100644
--- a/lapack-netlib/TESTING/LIN/zlatb5.f
+++ b/lapack-netlib/TESTING/LIN/zlatb5.f
@@ -106,18 +106,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZLATB5( PATH, IMAT, N, TYPE, KL, KU, ANORM, MODE,
$ CNDNUM, DIST )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
DOUBLE PRECISION ANORM, CNDNUM
diff --git a/lapack-netlib/TESTING/LIN/zlatsp.f b/lapack-netlib/TESTING/LIN/zlatsp.f
index e7e4c1c91..e10506295 100644
--- a/lapack-netlib/TESTING/LIN/zlatsp.f
+++ b/lapack-netlib/TESTING/LIN/zlatsp.f
@@ -77,17 +77,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZLATSP( UPLO, N, X, ISEED )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/zlatsy.f b/lapack-netlib/TESTING/LIN/zlatsy.f
index 66b2b4fc4..d79c55227 100644
--- a/lapack-netlib/TESTING/LIN/zlatsy.f
+++ b/lapack-netlib/TESTING/LIN/zlatsy.f
@@ -82,17 +82,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZLATSY( UPLO, N, X, LDX, ISEED )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/zlattb.f b/lapack-netlib/TESTING/LIN/zlattb.f
index 5c8176356..62b4bfa98 100644
--- a/lapack-netlib/TESTING/LIN/zlattb.f
+++ b/lapack-netlib/TESTING/LIN/zlattb.f
@@ -133,18 +133,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZLATTB( IMAT, UPLO, TRANS, DIAG, ISEED, N, KD, AB,
$ LDAB, B, WORK, RWORK, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
diff --git a/lapack-netlib/TESTING/LIN/zlattp.f b/lapack-netlib/TESTING/LIN/zlattp.f
index ef85a280b..b728852b5 100644
--- a/lapack-netlib/TESTING/LIN/zlattp.f
+++ b/lapack-netlib/TESTING/LIN/zlattp.f
@@ -123,18 +123,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZLATTP( IMAT, UPLO, TRANS, DIAG, ISEED, N, AP, B, WORK,
$ RWORK, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
diff --git a/lapack-netlib/TESTING/LIN/zlattr.f b/lapack-netlib/TESTING/LIN/zlattr.f
index 360aa816b..0b3857f02 100644
--- a/lapack-netlib/TESTING/LIN/zlattr.f
+++ b/lapack-netlib/TESTING/LIN/zlattr.f
@@ -130,18 +130,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZLATTR( IMAT, UPLO, TRANS, DIAG, ISEED, N, A, LDA, B,
$ WORK, RWORK, INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
diff --git a/lapack-netlib/TESTING/LIN/zlavhe.f b/lapack-netlib/TESTING/LIN/zlavhe.f
index bf58d7d74..90806f613 100644
--- a/lapack-netlib/TESTING/LIN/zlavhe.f
+++ b/lapack-netlib/TESTING/LIN/zlavhe.f
@@ -145,18 +145,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2013
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZLAVHE( UPLO, TRANS, DIAG, N, NRHS, A, LDA, IPIV, B,
$ LDB, INFO )
*
-* -- LAPACK test routine (version 3.5.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2013
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
diff --git a/lapack-netlib/TESTING/LIN/zlavhe_rook.f b/lapack-netlib/TESTING/LIN/zlavhe_rook.f
index b8e708f50..7a7e3686c 100644
--- a/lapack-netlib/TESTING/LIN/zlavhe_rook.f
+++ b/lapack-netlib/TESTING/LIN/zlavhe_rook.f
@@ -145,18 +145,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2013
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZLAVHE_ROOK( UPLO, TRANS, DIAG, N, NRHS, A, LDA, IPIV,
$ B, LDB, INFO )
*
-* -- LAPACK test routine (version 3.5.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2013
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
diff --git a/lapack-netlib/TESTING/LIN/zlavhp.f b/lapack-netlib/TESTING/LIN/zlavhp.f
index 08c2b4759..9d0afefd0 100644
--- a/lapack-netlib/TESTING/LIN/zlavhp.f
+++ b/lapack-netlib/TESTING/LIN/zlavhp.f
@@ -123,18 +123,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZLAVHP( UPLO, TRANS, DIAG, N, NRHS, A, IPIV, B, LDB,
$ INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
diff --git a/lapack-netlib/TESTING/LIN/zlavsp.f b/lapack-netlib/TESTING/LIN/zlavsp.f
index a248d01d9..eb296cb95 100644
--- a/lapack-netlib/TESTING/LIN/zlavsp.f
+++ b/lapack-netlib/TESTING/LIN/zlavsp.f
@@ -123,18 +123,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZLAVSP( UPLO, TRANS, DIAG, N, NRHS, A, IPIV, B, LDB,
$ INFO )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
diff --git a/lapack-netlib/TESTING/LIN/zlavsy.f b/lapack-netlib/TESTING/LIN/zlavsy.f
index 2f8ecd88f..b97148f9f 100644
--- a/lapack-netlib/TESTING/LIN/zlavsy.f
+++ b/lapack-netlib/TESTING/LIN/zlavsy.f
@@ -145,18 +145,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2013
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZLAVSY( UPLO, TRANS, DIAG, N, NRHS, A, LDA, IPIV, B,
$ LDB, INFO )
*
-* -- LAPACK test routine (version 3.5.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2013
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
diff --git a/lapack-netlib/TESTING/LIN/zlavsy_rook.f b/lapack-netlib/TESTING/LIN/zlavsy_rook.f
index ed62f8f17..942d0f023 100644
--- a/lapack-netlib/TESTING/LIN/zlavsy_rook.f
+++ b/lapack-netlib/TESTING/LIN/zlavsy_rook.f
@@ -147,18 +147,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2013
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZLAVSY_ROOK( UPLO, TRANS, DIAG, N, NRHS, A, LDA, IPIV,
$ B, LDB, INFO )
*
-* -- LAPACK test routine (version 3.5.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2013
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
diff --git a/lapack-netlib/TESTING/LIN/zlqt01.f b/lapack-netlib/TESTING/LIN/zlqt01.f
index 492c71c1f..c2a7f82ce 100644
--- a/lapack-netlib/TESTING/LIN/zlqt01.f
+++ b/lapack-netlib/TESTING/LIN/zlqt01.f
@@ -118,18 +118,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZLQT01( M, N, A, AF, Q, L, LDA, TAU, WORK, LWORK,
$ RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/zlqt02.f b/lapack-netlib/TESTING/LIN/zlqt02.f
index 9a1f35d68..c55d76ccd 100644
--- a/lapack-netlib/TESTING/LIN/zlqt02.f
+++ b/lapack-netlib/TESTING/LIN/zlqt02.f
@@ -127,18 +127,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZLQT02( M, N, K, A, AF, Q, L, LDA, TAU, WORK, LWORK,
$ RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER K, LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/zlqt03.f b/lapack-netlib/TESTING/LIN/zlqt03.f
index bff040e76..0765b3cd6 100644
--- a/lapack-netlib/TESTING/LIN/zlqt03.f
+++ b/lapack-netlib/TESTING/LIN/zlqt03.f
@@ -128,18 +128,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZLQT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK,
$ RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER K, LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/zlqt04.f b/lapack-netlib/TESTING/LIN/zlqt04.f
index 550432817..2e7a0e8ee 100644
--- a/lapack-netlib/TESTING/LIN/zlqt04.f
+++ b/lapack-netlib/TESTING/LIN/zlqt04.f
@@ -66,18 +66,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE ZLQT04(M,N,NB,RESULT)
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* April 2012
*
* .. Scalar Arguments ..
INTEGER M, N, NB
diff --git a/lapack-netlib/TESTING/LIN/zlqt05.f b/lapack-netlib/TESTING/LIN/zlqt05.f
index 1b8fd1449..a795a50d1 100644
--- a/lapack-netlib/TESTING/LIN/zlqt05.f
+++ b/lapack-netlib/TESTING/LIN/zlqt05.f
@@ -73,18 +73,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup double_lin
*
* =====================================================================
SUBROUTINE ZLQT05(M,N,L,NB,RESULT)
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* April 2012
*
* .. Scalar Arguments ..
INTEGER LWORK, M, N, L, NB, LDT
diff --git a/lapack-netlib/TESTING/LIN/zpbt01.f b/lapack-netlib/TESTING/LIN/zpbt01.f
index 25783e807..fb7881ac7 100644
--- a/lapack-netlib/TESTING/LIN/zpbt01.f
+++ b/lapack-netlib/TESTING/LIN/zpbt01.f
@@ -112,18 +112,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZPBT01( UPLO, N, KD, A, LDA, AFAC, LDAFAC, RWORK,
$ RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/zpbt02.f b/lapack-netlib/TESTING/LIN/zpbt02.f
index a8c1f383a..e4f832996 100644
--- a/lapack-netlib/TESTING/LIN/zpbt02.f
+++ b/lapack-netlib/TESTING/LIN/zpbt02.f
@@ -128,18 +128,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZPBT02( UPLO, N, KD, NRHS, A, LDA, X, LDX, B, LDB,
$ RWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/zpbt05.f b/lapack-netlib/TESTING/LIN/zpbt05.f
index 489bdff50..03376e0ce 100644
--- a/lapack-netlib/TESTING/LIN/zpbt05.f
+++ b/lapack-netlib/TESTING/LIN/zpbt05.f
@@ -163,18 +163,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZPBT05( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, X, LDX,
$ XACT, LDXACT, FERR, BERR, RESLTS )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/zpot01.f b/lapack-netlib/TESTING/LIN/zpot01.f
index 946c49438..d71445cd4 100644
--- a/lapack-netlib/TESTING/LIN/zpot01.f
+++ b/lapack-netlib/TESTING/LIN/zpot01.f
@@ -67,10 +67,10 @@
*> \param[in,out] AFAC
*> \verbatim
*> AFAC is COMPLEX*16 array, dimension (LDAFAC,N)
-*> On entry, the factor L or U from the L*L' or U'*U
+*> On entry, the factor L or U from the L * L**H or U**H * U
*> factorization of A.
-*> Overwritten with the reconstructed matrix, and then with the
-*> difference L*L' - A (or U'*U - A).
+*> Overwritten with the reconstructed matrix, and then with
+*> the difference L * L**H - A (or U**H * U - A).
*> \endverbatim
*>
*> \param[in] LDAFAC
@@ -87,8 +87,8 @@
*> \param[out] RESID
*> \verbatim
*> RESID is DOUBLE PRECISION
-*> If UPLO = 'L', norm(L*L' - A) / ( N * norm(A) * EPS )
-*> If UPLO = 'U', norm(U'*U - A) / ( N * norm(A) * EPS )
+*> If UPLO = 'L', norm(L * L**H - A) / ( N * norm(A) * EPS )
+*> If UPLO = 'U', norm(U**H * U - A) / ( N * norm(A) * EPS )
*> \endverbatim
*
* Authors:
@@ -99,17 +99,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZPOT01( UPLO, N, A, LDA, AFAC, LDAFAC, RWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
@@ -172,7 +169,7 @@
END IF
10 CONTINUE
*
-* Compute the product U'*U, overwriting U.
+* Compute the product U**H * U, overwriting U.
*
IF( LSAME( UPLO, 'U' ) ) THEN
DO 20 K = N, 1, -1
@@ -189,7 +186,7 @@
*
20 CONTINUE
*
-* Compute the product L*L', overwriting L.
+* Compute the product L * L**H, overwriting L.
*
ELSE
DO 30 K = N, 1, -1
@@ -209,7 +206,7 @@
30 CONTINUE
END IF
*
-* Compute the difference L*L' - A (or U'*U - A).
+* Compute the difference L * L**H - A (or U**H * U - A).
*
IF( LSAME( UPLO, 'U' ) ) THEN
DO 50 J = 1, N
diff --git a/lapack-netlib/TESTING/LIN/zpot02.f b/lapack-netlib/TESTING/LIN/zpot02.f
index 61cc94db2..17b690400 100644
--- a/lapack-netlib/TESTING/LIN/zpot02.f
+++ b/lapack-netlib/TESTING/LIN/zpot02.f
@@ -119,18 +119,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZPOT02( UPLO, N, NRHS, A, LDA, X, LDX, B, LDB, RWORK,
$ RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/zpot03.f b/lapack-netlib/TESTING/LIN/zpot03.f
index 5978d2ea2..f3cbd1141 100644
--- a/lapack-netlib/TESTING/LIN/zpot03.f
+++ b/lapack-netlib/TESTING/LIN/zpot03.f
@@ -118,18 +118,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZPOT03( UPLO, N, A, LDA, AINV, LDAINV, WORK, LDWORK,
$ RWORK, RCOND, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/zpot05.f b/lapack-netlib/TESTING/LIN/zpot05.f
index 9c29990ea..35239083a 100644
--- a/lapack-netlib/TESTING/LIN/zpot05.f
+++ b/lapack-netlib/TESTING/LIN/zpot05.f
@@ -157,18 +157,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZPOT05( UPLO, N, NRHS, A, LDA, B, LDB, X, LDX, XACT,
$ LDXACT, FERR, BERR, RESLTS )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/zpot06.f b/lapack-netlib/TESTING/LIN/zpot06.f
index c773cd4c3..c97f43234 100644
--- a/lapack-netlib/TESTING/LIN/zpot06.f
+++ b/lapack-netlib/TESTING/LIN/zpot06.f
@@ -119,18 +119,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZPOT06( UPLO, N, NRHS, A, LDA, X, LDX, B, LDB,
$ RWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/zppt01.f b/lapack-netlib/TESTING/LIN/zppt01.f
index 74c6d5116..78ec595af 100644
--- a/lapack-netlib/TESTING/LIN/zppt01.f
+++ b/lapack-netlib/TESTING/LIN/zppt01.f
@@ -88,17 +88,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZPPT01( UPLO, N, A, AFAC, RWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/zppt02.f b/lapack-netlib/TESTING/LIN/zppt02.f
index 1b8b84159..40b71c969 100644
--- a/lapack-netlib/TESTING/LIN/zppt02.f
+++ b/lapack-netlib/TESTING/LIN/zppt02.f
@@ -115,18 +115,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZPPT02( UPLO, N, NRHS, A, X, LDX, B, LDB, RWORK,
$ RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/zppt03.f b/lapack-netlib/TESTING/LIN/zppt03.f
index 94801d8f1..52c2590fa 100644
--- a/lapack-netlib/TESTING/LIN/zppt03.f
+++ b/lapack-netlib/TESTING/LIN/zppt03.f
@@ -102,18 +102,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZPPT03( UPLO, N, A, AINV, WORK, LDWORK, RWORK, RCOND,
$ RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/zppt05.f b/lapack-netlib/TESTING/LIN/zppt05.f
index 5ce08570b..ccde4a237 100644
--- a/lapack-netlib/TESTING/LIN/zppt05.f
+++ b/lapack-netlib/TESTING/LIN/zppt05.f
@@ -149,18 +149,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZPPT05( UPLO, N, NRHS, AP, B, LDB, X, LDX, XACT,
$ LDXACT, FERR, BERR, RESLTS )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/zpst01.f b/lapack-netlib/TESTING/LIN/zpst01.f
index 3225b0ec2..691857219 100644
--- a/lapack-netlib/TESTING/LIN/zpst01.f
+++ b/lapack-netlib/TESTING/LIN/zpst01.f
@@ -128,18 +128,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZPST01( UPLO, N, A, LDA, AFAC, LDAFAC, PERM, LDPERM,
$ PIV, RWORK, RESID, RANK )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
DOUBLE PRECISION RESID
diff --git a/lapack-netlib/TESTING/LIN/zptt01.f b/lapack-netlib/TESTING/LIN/zptt01.f
index c9244a6cf..e842c7e46 100644
--- a/lapack-netlib/TESTING/LIN/zptt01.f
+++ b/lapack-netlib/TESTING/LIN/zptt01.f
@@ -85,17 +85,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZPTT01( N, D, E, DF, EF, WORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER N
diff --git a/lapack-netlib/TESTING/LIN/zptt02.f b/lapack-netlib/TESTING/LIN/zptt02.f
index 90dec3bc9..6e3a8aed0 100644
--- a/lapack-netlib/TESTING/LIN/zptt02.f
+++ b/lapack-netlib/TESTING/LIN/zptt02.f
@@ -108,17 +108,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZPTT02( UPLO, N, NRHS, D, E, X, LDX, B, LDB, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/zptt05.f b/lapack-netlib/TESTING/LIN/zptt05.f
index f7f2bd284..82d497e0e 100644
--- a/lapack-netlib/TESTING/LIN/zptt05.f
+++ b/lapack-netlib/TESTING/LIN/zptt05.f
@@ -142,18 +142,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZPTT05( N, NRHS, D, E, B, LDB, X, LDX, XACT, LDXACT,
$ FERR, BERR, RESLTS )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDB, LDX, LDXACT, N, NRHS
diff --git a/lapack-netlib/TESTING/LIN/zqlt01.f b/lapack-netlib/TESTING/LIN/zqlt01.f
index 5442fcae8..d5eef9ff4 100644
--- a/lapack-netlib/TESTING/LIN/zqlt01.f
+++ b/lapack-netlib/TESTING/LIN/zqlt01.f
@@ -118,18 +118,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZQLT01( M, N, A, AF, Q, L, LDA, TAU, WORK, LWORK,
$ RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/zqlt02.f b/lapack-netlib/TESTING/LIN/zqlt02.f
index 35adae930..1f84cfa5a 100644
--- a/lapack-netlib/TESTING/LIN/zqlt02.f
+++ b/lapack-netlib/TESTING/LIN/zqlt02.f
@@ -128,18 +128,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZQLT02( M, N, K, A, AF, Q, L, LDA, TAU, WORK, LWORK,
$ RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER K, LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/zqlt03.f b/lapack-netlib/TESTING/LIN/zqlt03.f
index 6489fa924..a7d9b27ca 100644
--- a/lapack-netlib/TESTING/LIN/zqlt03.f
+++ b/lapack-netlib/TESTING/LIN/zqlt03.f
@@ -128,18 +128,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZQLT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK,
$ RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER K, LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/zqpt01.f b/lapack-netlib/TESTING/LIN/zqpt01.f
index eea178a2e..4e53f92c8 100644
--- a/lapack-netlib/TESTING/LIN/zqpt01.f
+++ b/lapack-netlib/TESTING/LIN/zqpt01.f
@@ -112,18 +112,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
DOUBLE PRECISION FUNCTION ZQPT01( M, N, K, A, AF, LDA, TAU, JPVT,
$ WORK, LWORK )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER K, LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/zqrt01.f b/lapack-netlib/TESTING/LIN/zqrt01.f
index 4c55daf9d..4aa0aa59f 100644
--- a/lapack-netlib/TESTING/LIN/zqrt01.f
+++ b/lapack-netlib/TESTING/LIN/zqrt01.f
@@ -118,18 +118,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZQRT01( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK,
$ RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/zqrt01p.f b/lapack-netlib/TESTING/LIN/zqrt01p.f
index 676db6f27..eb991152c 100644
--- a/lapack-netlib/TESTING/LIN/zqrt01p.f
+++ b/lapack-netlib/TESTING/LIN/zqrt01p.f
@@ -118,18 +118,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZQRT01P( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK,
$ RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/zqrt02.f b/lapack-netlib/TESTING/LIN/zqrt02.f
index 9ca1e66cf..2dbefaf84 100644
--- a/lapack-netlib/TESTING/LIN/zqrt02.f
+++ b/lapack-netlib/TESTING/LIN/zqrt02.f
@@ -127,18 +127,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZQRT02( M, N, K, A, AF, Q, R, LDA, TAU, WORK, LWORK,
$ RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER K, LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/zqrt03.f b/lapack-netlib/TESTING/LIN/zqrt03.f
index d809399bb..56b2e3b50 100644
--- a/lapack-netlib/TESTING/LIN/zqrt03.f
+++ b/lapack-netlib/TESTING/LIN/zqrt03.f
@@ -128,18 +128,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZQRT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK,
$ RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER K, LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/zqrt04.f b/lapack-netlib/TESTING/LIN/zqrt04.f
index 580f86a6f..3ca7199ce 100644
--- a/lapack-netlib/TESTING/LIN/zqrt04.f
+++ b/lapack-netlib/TESTING/LIN/zqrt04.f
@@ -66,18 +66,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZQRT04(M,N,NB,RESULT)
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* April 2012
*
* .. Scalar Arguments ..
INTEGER M, N, NB, LDT
diff --git a/lapack-netlib/TESTING/LIN/zqrt05.f b/lapack-netlib/TESTING/LIN/zqrt05.f
index 1985ea506..5677b7e76 100644
--- a/lapack-netlib/TESTING/LIN/zqrt05.f
+++ b/lapack-netlib/TESTING/LIN/zqrt05.f
@@ -73,18 +73,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZQRT05(M,N,L,NB,RESULT)
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* April 2012
*
* .. Scalar Arguments ..
INTEGER LWORK, M, N, L, NB, LDT
diff --git a/lapack-netlib/TESTING/LIN/zqrt11.f b/lapack-netlib/TESTING/LIN/zqrt11.f
index c633df2f6..c3be59c36 100644
--- a/lapack-netlib/TESTING/LIN/zqrt11.f
+++ b/lapack-netlib/TESTING/LIN/zqrt11.f
@@ -91,17 +91,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
DOUBLE PRECISION FUNCTION ZQRT11( M, K, A, LDA, TAU, WORK, LWORK )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER K, LDA, LWORK, M
diff --git a/lapack-netlib/TESTING/LIN/zqrt12.f b/lapack-netlib/TESTING/LIN/zqrt12.f
index 5428adbf3..0da6be157 100644
--- a/lapack-netlib/TESTING/LIN/zqrt12.f
+++ b/lapack-netlib/TESTING/LIN/zqrt12.f
@@ -89,18 +89,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
DOUBLE PRECISION FUNCTION ZQRT12( M, N, A, LDA, S, WORK, LWORK,
$ RWORK )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/zqrt13.f b/lapack-netlib/TESTING/LIN/zqrt13.f
index 4e693c14e..341ec1700 100644
--- a/lapack-netlib/TESTING/LIN/zqrt13.f
+++ b/lapack-netlib/TESTING/LIN/zqrt13.f
@@ -84,17 +84,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZQRT13( SCALE, M, N, A, LDA, NORMA, ISEED )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, M, N, SCALE
diff --git a/lapack-netlib/TESTING/LIN/zqrt14.f b/lapack-netlib/TESTING/LIN/zqrt14.f
index 369efc07d..80c8ac56f 100644
--- a/lapack-netlib/TESTING/LIN/zqrt14.f
+++ b/lapack-netlib/TESTING/LIN/zqrt14.f
@@ -108,18 +108,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
DOUBLE PRECISION FUNCTION ZQRT14( TRANS, M, N, NRHS, A, LDA, X,
$ LDX, WORK, LWORK )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER TRANS
@@ -200,7 +197,6 @@
IF( XNRM.NE.ZERO )
$ CALL ZLASCL( 'G', 0, 0, XNRM, ONE, M, NRHS,
$ WORK( N*LDWORK+1 ), LDWORK, INFO )
- ANRM = ZLANGE( 'One-norm', M, N+NRHS, WORK, LDWORK, RWORK )
*
* Compute QR factorization of X
*
diff --git a/lapack-netlib/TESTING/LIN/zqrt15.f b/lapack-netlib/TESTING/LIN/zqrt15.f
index 0d17313e8..f58b9e38b 100644
--- a/lapack-netlib/TESTING/LIN/zqrt15.f
+++ b/lapack-netlib/TESTING/LIN/zqrt15.f
@@ -141,18 +141,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZQRT15( SCALE, RKSEL, M, N, NRHS, A, LDA, B, LDB, S,
$ RANK, NORMA, NORMB, ISEED, WORK, LWORK )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LDB, LWORK, M, N, NRHS, RANK, RKSEL, SCALE
diff --git a/lapack-netlib/TESTING/LIN/zqrt16.f b/lapack-netlib/TESTING/LIN/zqrt16.f
index e62e9a51d..9becd6d3b 100644
--- a/lapack-netlib/TESTING/LIN/zqrt16.f
+++ b/lapack-netlib/TESTING/LIN/zqrt16.f
@@ -125,18 +125,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZQRT16( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB,
$ RWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER TRANS
diff --git a/lapack-netlib/TESTING/LIN/zqrt17.f b/lapack-netlib/TESTING/LIN/zqrt17.f
index ff694c7a1..9a0770c62 100644
--- a/lapack-netlib/TESTING/LIN/zqrt17.f
+++ b/lapack-netlib/TESTING/LIN/zqrt17.f
@@ -28,12 +28,15 @@
*>
*> ZQRT17 computes the ratio
*>
-*> || R'*op(A) ||/(||A||*alpha*max(M,N,NRHS)*eps)
+*> norm(R**H * op(A)) / ( norm(A) * alpha * max(M,N,NRHS) * EPS ),
*>
-*> where R = op(A)*X - B, op(A) is A or A', and
+*> where R = B - op(A)*X, op(A) is A or A**H, depending on TRANS, EPS
+*> is the machine epsilon, and
*>
-*> alpha = ||B|| if IRESID = 1 (zero-residual problem)
-*> alpha = ||R|| if IRESID = 2 (otherwise).
+*> alpha = norm(B) if IRESID = 1 (zero-residual problem)
+*> alpha = norm(R) if IRESID = 2 (otherwise).
+*>
+*> The norm used is the 1-norm.
*> \endverbatim
*
* Arguments:
@@ -44,7 +47,7 @@
*> TRANS is CHARACTER*1
*> Specifies whether or not the transpose of A is used.
*> = 'N': No transpose, op(A) = A.
-*> = 'C': Conjugate transpose, op(A) = A'.
+*> = 'C': Conjugate transpose, op(A) = A**H.
*> \endverbatim
*>
*> \param[in] IRESID
@@ -142,18 +145,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
DOUBLE PRECISION FUNCTION ZQRT17( TRANS, IRESID, M, N, NRHS, A,
$ LDA, X, LDX, B, LDB, C, WORK, LWORK )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER TRANS
@@ -172,7 +172,7 @@
* ..
* .. Local Scalars ..
INTEGER INFO, ISCL, NCOLS, NROWS
- DOUBLE PRECISION BIGNUM, ERR, NORMA, NORMB, NORMRS, SMLNUM
+ DOUBLE PRECISION ERR, NORMA, NORMB, NORMRS, SMLNUM
* ..
* .. Local Arrays ..
DOUBLE PRECISION RWORK( 1 )
@@ -213,7 +213,6 @@
*
NORMA = ZLANGE( 'One-norm', M, N, A, LDA, RWORK )
SMLNUM = DLAMCH( 'Safe minimum' ) / DLAMCH( 'Precision' )
- BIGNUM = ONE / SMLNUM
ISCL = 0
*
* compute residual and scale it
@@ -229,7 +228,7 @@
$ INFO )
END IF
*
-* compute R'*A
+* compute R**H * op(A)
*
CALL ZGEMM( 'Conjugate transpose', TRANS, NRHS, NCOLS, NROWS,
$ DCMPLX( ONE ), C, LDB, A, LDA, DCMPLX( ZERO ), WORK,
diff --git a/lapack-netlib/TESTING/LIN/zrqt01.f b/lapack-netlib/TESTING/LIN/zrqt01.f
index 88075ed5e..2f60426f5 100644
--- a/lapack-netlib/TESTING/LIN/zrqt01.f
+++ b/lapack-netlib/TESTING/LIN/zrqt01.f
@@ -118,18 +118,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZRQT01( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK,
$ RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/zrqt02.f b/lapack-netlib/TESTING/LIN/zrqt02.f
index ed1b608b2..548321d00 100644
--- a/lapack-netlib/TESTING/LIN/zrqt02.f
+++ b/lapack-netlib/TESTING/LIN/zrqt02.f
@@ -128,18 +128,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZRQT02( M, N, K, A, AF, Q, R, LDA, TAU, WORK, LWORK,
$ RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER K, LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/zrqt03.f b/lapack-netlib/TESTING/LIN/zrqt03.f
index fc7046278..6393224bf 100644
--- a/lapack-netlib/TESTING/LIN/zrqt03.f
+++ b/lapack-netlib/TESTING/LIN/zrqt03.f
@@ -128,18 +128,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZRQT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK,
$ RWORK, RESULT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER K, LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/zrzt01.f b/lapack-netlib/TESTING/LIN/zrzt01.f
index 876384069..2eba7ba6f 100644
--- a/lapack-netlib/TESTING/LIN/zrzt01.f
+++ b/lapack-netlib/TESTING/LIN/zrzt01.f
@@ -90,18 +90,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
DOUBLE PRECISION FUNCTION ZRZT01( M, N, A, AF, LDA, TAU, WORK,
$ LWORK )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/zrzt02.f b/lapack-netlib/TESTING/LIN/zrzt02.f
index 373ced982..0ea6dab02 100644
--- a/lapack-netlib/TESTING/LIN/zrzt02.f
+++ b/lapack-netlib/TESTING/LIN/zrzt02.f
@@ -83,18 +83,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
DOUBLE PRECISION FUNCTION ZRZT02( M, N, AF, LDA, TAU, WORK,
$ LWORK )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LWORK, M, N
diff --git a/lapack-netlib/TESTING/LIN/zsbmv.f b/lapack-netlib/TESTING/LIN/zsbmv.f
index 005e288e0..927205262 100644
--- a/lapack-netlib/TESTING/LIN/zsbmv.f
+++ b/lapack-netlib/TESTING/LIN/zsbmv.f
@@ -144,18 +144,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZSBMV( UPLO, N, K, ALPHA, A, LDA, X, INCX, BETA, Y,
$ INCY )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/zspt01.f b/lapack-netlib/TESTING/LIN/zspt01.f
index d212929ad..6269ef790 100644
--- a/lapack-netlib/TESTING/LIN/zspt01.f
+++ b/lapack-netlib/TESTING/LIN/zspt01.f
@@ -105,17 +105,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZSPT01( UPLO, N, A, AFAC, IPIV, C, LDC, RWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/zspt02.f b/lapack-netlib/TESTING/LIN/zspt02.f
index 985fda0c5..e34ce22c2 100644
--- a/lapack-netlib/TESTING/LIN/zspt02.f
+++ b/lapack-netlib/TESTING/LIN/zspt02.f
@@ -115,18 +115,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZSPT02( UPLO, N, NRHS, A, X, LDX, B, LDB, RWORK,
$ RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/zspt03.f b/lapack-netlib/TESTING/LIN/zspt03.f
index d37ce5386..2819b930b 100644
--- a/lapack-netlib/TESTING/LIN/zspt03.f
+++ b/lapack-netlib/TESTING/LIN/zspt03.f
@@ -102,18 +102,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZSPT03( UPLO, N, A, AINV, WORK, LDW, RWORK, RCOND,
$ RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/zsyt01.f b/lapack-netlib/TESTING/LIN/zsyt01.f
index 4ec551180..32b7a698c 100644
--- a/lapack-netlib/TESTING/LIN/zsyt01.f
+++ b/lapack-netlib/TESTING/LIN/zsyt01.f
@@ -117,18 +117,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2013
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZSYT01( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, LDC,
$ RWORK, RESID )
*
-* -- LAPACK test routine (version 3.5.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2013
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/zsyt01_3.f b/lapack-netlib/TESTING/LIN/zsyt01_3.f
index 8106a61b0..202488db9 100644
--- a/lapack-netlib/TESTING/LIN/zsyt01_3.f
+++ b/lapack-netlib/TESTING/LIN/zsyt01_3.f
@@ -133,18 +133,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZSYT01_3( UPLO, N, A, LDA, AFAC, LDAFAC, E, IPIV, C,
$ LDC, RWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.1) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2017
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/zsyt01_aa.f b/lapack-netlib/TESTING/LIN/zsyt01_aa.f
index 11d2e2fb5..17969d444 100644
--- a/lapack-netlib/TESTING/LIN/zsyt01_aa.f
+++ b/lapack-netlib/TESTING/LIN/zsyt01_aa.f
@@ -116,20 +116,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
-* @generated from LIN/dsyt01_aa.f, fortran d -> z, Thu Nov 17 13:01:50 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZSYT01_AA( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C,
$ LDC, RWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
@@ -260,6 +255,6 @@
*
RETURN
*
-* End of ZSYT01
+* End of ZSYT01_AA
*
END
diff --git a/lapack-netlib/TESTING/LIN/zsyt01_rook.f b/lapack-netlib/TESTING/LIN/zsyt01_rook.f
index 4e7ea24aa..885bebc02 100644
--- a/lapack-netlib/TESTING/LIN/zsyt01_rook.f
+++ b/lapack-netlib/TESTING/LIN/zsyt01_rook.f
@@ -117,18 +117,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2013
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZSYT01_ROOK( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C,
$ LDC, RWORK, RESID )
*
-* -- LAPACK test routine (version 3.5.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2013
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/zsyt02.f b/lapack-netlib/TESTING/LIN/zsyt02.f
index 6f7d2498f..5792a3ba8 100644
--- a/lapack-netlib/TESTING/LIN/zsyt02.f
+++ b/lapack-netlib/TESTING/LIN/zsyt02.f
@@ -119,18 +119,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZSYT02( UPLO, N, NRHS, A, LDA, X, LDX, B, LDB, RWORK,
$ RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/zsyt03.f b/lapack-netlib/TESTING/LIN/zsyt03.f
index f63f01645..74efd913f 100644
--- a/lapack-netlib/TESTING/LIN/zsyt03.f
+++ b/lapack-netlib/TESTING/LIN/zsyt03.f
@@ -118,18 +118,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZSYT03( UPLO, N, A, LDA, AINV, LDAINV, WORK, LDWORK,
$ RWORK, RCOND, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER UPLO
diff --git a/lapack-netlib/TESTING/LIN/ztbt02.f b/lapack-netlib/TESTING/LIN/ztbt02.f
index a86923321..20917d9f7 100644
--- a/lapack-netlib/TESTING/LIN/ztbt02.f
+++ b/lapack-netlib/TESTING/LIN/ztbt02.f
@@ -29,13 +29,11 @@
*> \verbatim
*>
*> ZTBT02 computes the residual for the computed solution to a
-*> triangular system of linear equations A*x = b, A**T *x = b, or
-*> A**H *x = b when A is a triangular band matrix. Here A**T denotes
-*> the transpose of A, A**H denotes the conjugate transpose of A, and
-*> x and b are N by NRHS matrices. The test ratio is the maximum over
-*> the number of right hand sides of
-*> norm(b - op(A)*x) / ( norm(op(A)) * norm(x) * EPS ),
-*> where op(A) denotes A, A**T, or A**H, and EPS is the machine epsilon.
+*> triangular system of linear equations op(A)*X = B, when A is a
+*> triangular band matrix. The test ratio is the maximum over
+*> norm(b - op(A)*x) / ( ||op(A)||_1 * norm(x) * EPS ),
+*> where op(A) = A, A**T, or A**H, b is the column of B, x is the
+*> solution vector, and EPS is the machine epsilon.
*> \endverbatim
*
* Arguments:
@@ -53,9 +51,9 @@
*> \verbatim
*> TRANS is CHARACTER*1
*> Specifies the operation applied to A.
-*> = 'N': A *x = b (No transpose)
-*> = 'T': A**T *x = b (Transpose)
-*> = 'C': A**H *x = b (Conjugate transpose)
+*> = 'N': A * X = B (No transpose)
+*> = 'T': A**T * X = B (Transpose)
+*> = 'C': A**H * X = B (Conjugate transpose)
*> \endverbatim
*>
*> \param[in] DIAG
@@ -153,18 +151,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZTBT02( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, X,
$ LDX, B, LDB, WORK, RWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
@@ -207,7 +202,7 @@
RETURN
END IF
*
-* Compute the 1-norm of A or A'.
+* Compute the 1-norm of op(A).
*
IF( LSAME( TRANS, 'N' ) ) THEN
ANORM = ZLANTB( '1', UPLO, DIAG, N, KD, AB, LDAB, RWORK )
diff --git a/lapack-netlib/TESTING/LIN/ztbt03.f b/lapack-netlib/TESTING/LIN/ztbt03.f
index e33bff71c..d00cf8223 100644
--- a/lapack-netlib/TESTING/LIN/ztbt03.f
+++ b/lapack-netlib/TESTING/LIN/ztbt03.f
@@ -168,8 +168,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
@@ -177,10 +175,9 @@
$ SCALE, CNORM, TSCAL, X, LDX, B, LDB, WORK,
$ RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
diff --git a/lapack-netlib/TESTING/LIN/ztbt05.f b/lapack-netlib/TESTING/LIN/ztbt05.f
index 1adeafdd4..10863ff1c 100644
--- a/lapack-netlib/TESTING/LIN/ztbt05.f
+++ b/lapack-netlib/TESTING/LIN/ztbt05.f
@@ -181,18 +181,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZTBT05( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B,
$ LDB, X, LDX, XACT, LDXACT, FERR, BERR, RESLTS )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
diff --git a/lapack-netlib/TESTING/LIN/ztbt06.f b/lapack-netlib/TESTING/LIN/ztbt06.f
index 8c59151f9..b033a5db3 100644
--- a/lapack-netlib/TESTING/LIN/ztbt06.f
+++ b/lapack-netlib/TESTING/LIN/ztbt06.f
@@ -118,18 +118,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZTBT06( RCOND, RCONDC, UPLO, DIAG, N, KD, AB, LDAB,
$ RWORK, RAT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, UPLO
diff --git a/lapack-netlib/TESTING/LIN/ztpt01.f b/lapack-netlib/TESTING/LIN/ztpt01.f
index 39a3922bb..3da15f7f3 100644
--- a/lapack-netlib/TESTING/LIN/ztpt01.f
+++ b/lapack-netlib/TESTING/LIN/ztpt01.f
@@ -102,17 +102,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZTPT01( UPLO, DIAG, N, AP, AINVP, RCOND, RWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, UPLO
diff --git a/lapack-netlib/TESTING/LIN/ztpt02.f b/lapack-netlib/TESTING/LIN/ztpt02.f
index 31dec7977..d6b9dabaf 100644
--- a/lapack-netlib/TESTING/LIN/ztpt02.f
+++ b/lapack-netlib/TESTING/LIN/ztpt02.f
@@ -28,14 +28,12 @@
*> \verbatim
*>
*> ZTPT02 computes the residual for the computed solution to a
-*> triangular system of linear equations A*x = b, A**T *x = b, or
-*> A**H *x = b, when the triangular matrix A is stored in packed format.
-*> Here A**T denotes the transpose of A, A**H denotes the conjugate
-*> transpose of A, and x and b are N by NRHS matrices. The test ratio
-*> is the maximum over the number of right hand sides of
-*> the maximum over the number of right hand sides of
-*> norm(b - op(A)*x) / ( norm(op(A)) * norm(x) * EPS ),
-*> where op(A) denotes A, A**T, or A**H, and EPS is the machine epsilon.
+*> triangular system of linear equations op(A)*X = B, when the
+*> triangular matrix A is stored in packed format. The test ratio is
+*> the maximum over
+*> norm(b - op(A)*x) / ( ||op(A)||_1 * norm(x) * EPS ),
+*> where op(A) = A, A**T, or A**H, b is the column of B, x is the
+*> solution vector, and EPS is the machine epsilon.
*> \endverbatim
*
* Arguments:
@@ -53,9 +51,9 @@
*> \verbatim
*> TRANS is CHARACTER*1
*> Specifies the operation applied to A.
-*> = 'N': A *x = b (No transpose)
-*> = 'T': A**T *x = b (Transpose)
-*> = 'C': A**H *x = b (Conjugate transpose)
+*> = 'N': A * X = B (No transpose)
+*> = 'T': A**T * X = B (Transpose)
+*> = 'C': A**H * X = B (Conjugate transpose)
*> \endverbatim
*>
*> \param[in] DIAG
@@ -130,7 +128,7 @@
*> \verbatim
*> RESID is DOUBLE PRECISION
*> The maximum over the number of right hand sides of
-*> norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ).
+*> norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS ).
*> \endverbatim
*
* Authors:
@@ -141,18 +139,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZTPT02( UPLO, TRANS, DIAG, N, NRHS, AP, X, LDX, B, LDB,
$ WORK, RWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
@@ -194,7 +189,7 @@
RETURN
END IF
*
-* Compute the 1-norm of A or A**H.
+* Compute the 1-norm of op(A).
*
IF( LSAME( TRANS, 'N' ) ) THEN
ANORM = ZLANTP( '1', UPLO, DIAG, N, AP, RWORK )
@@ -211,7 +206,7 @@
END IF
*
* Compute the maximum over the number of right hand sides of
-* norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ).
+* norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS ).
*
RESID = ZERO
DO 10 J = 1, NRHS
diff --git a/lapack-netlib/TESTING/LIN/ztpt03.f b/lapack-netlib/TESTING/LIN/ztpt03.f
index fb8c814e1..802e1a611 100644
--- a/lapack-netlib/TESTING/LIN/ztpt03.f
+++ b/lapack-netlib/TESTING/LIN/ztpt03.f
@@ -154,18 +154,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZTPT03( UPLO, TRANS, DIAG, N, NRHS, AP, SCALE, CNORM,
$ TSCAL, X, LDX, B, LDB, WORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
diff --git a/lapack-netlib/TESTING/LIN/ztpt05.f b/lapack-netlib/TESTING/LIN/ztpt05.f
index aa2348ae6..2ca7c3874 100644
--- a/lapack-netlib/TESTING/LIN/ztpt05.f
+++ b/lapack-netlib/TESTING/LIN/ztpt05.f
@@ -167,18 +167,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZTPT05( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, X, LDX,
$ XACT, LDXACT, FERR, BERR, RESLTS )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
diff --git a/lapack-netlib/TESTING/LIN/ztpt06.f b/lapack-netlib/TESTING/LIN/ztpt06.f
index 30edfca71..5ab661626 100644
--- a/lapack-netlib/TESTING/LIN/ztpt06.f
+++ b/lapack-netlib/TESTING/LIN/ztpt06.f
@@ -105,17 +105,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZTPT06( RCOND, RCONDC, UPLO, DIAG, N, AP, RWORK, RAT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, UPLO
diff --git a/lapack-netlib/TESTING/LIN/ztrt01.f b/lapack-netlib/TESTING/LIN/ztrt01.f
index 99aa9db49..ddb212b02 100644
--- a/lapack-netlib/TESTING/LIN/ztrt01.f
+++ b/lapack-netlib/TESTING/LIN/ztrt01.f
@@ -117,18 +117,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZTRT01( UPLO, DIAG, N, A, LDA, AINV, LDAINV, RCOND,
$ RWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, UPLO
diff --git a/lapack-netlib/TESTING/LIN/ztrt02.f b/lapack-netlib/TESTING/LIN/ztrt02.f
index 63e12c55a..69f04c9db 100644
--- a/lapack-netlib/TESTING/LIN/ztrt02.f
+++ b/lapack-netlib/TESTING/LIN/ztrt02.f
@@ -29,13 +29,11 @@
*> \verbatim
*>
*> ZTRT02 computes the residual for the computed solution to a
-*> triangular system of linear equations A*x = b, A**T *x = b,
-*> or A**H *x = b. Here A is a triangular matrix, A**T is the transpose
-*> of A, A**H is the conjugate transpose of A, and x and b are N by NRHS
-*> matrices. The test ratio is the maximum over the number of right
-*> hand sides of
-*> norm(b - op(A)*x) / ( norm(op(A)) * norm(x) * EPS ),
-*> where op(A) denotes A, A**T, or A**H, and EPS is the machine epsilon.
+*> triangular system of linear equations op(A)*X = B, where A is a
+*> triangular matrix. The test ratio is the maximum over
+*> norm(b - op(A)*x) / ( ||op(A)||_1 * norm(x) * EPS ),
+*> where op(A) = A, A**T, or A**H, b is the column of B, x is the
+*> solution vector, and EPS is the machine epsilon.
*> \endverbatim
*
* Arguments:
@@ -53,9 +51,9 @@
*> \verbatim
*> TRANS is CHARACTER*1
*> Specifies the operation applied to A.
-*> = 'N': A *x = b (No transpose)
-*> = 'T': A**T *x = b (Transpose)
-*> = 'C': A**H *x = b (Conjugate transpose)
+*> = 'N': A * X = B (No transpose)
+*> = 'T': A**T * X = B (Transpose)
+*> = 'C': A**H * X = B (Conjugate transpose)
*> \endverbatim
*>
*> \param[in] DIAG
@@ -138,7 +136,7 @@
*> \verbatim
*> RESID is DOUBLE PRECISION
*> The maximum over the number of right hand sides of
-*> norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ).
+*> norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS ).
*> \endverbatim
*
* Authors:
@@ -149,18 +147,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZTRT02( UPLO, TRANS, DIAG, N, NRHS, A, LDA, X, LDX, B,
$ LDB, WORK, RWORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
@@ -203,7 +198,7 @@
RETURN
END IF
*
-* Compute the 1-norm of A or A**H.
+* Compute the 1-norm of op(A).
*
IF( LSAME( TRANS, 'N' ) ) THEN
ANORM = ZLANTR( '1', UPLO, DIAG, N, N, A, LDA, RWORK )
@@ -220,7 +215,7 @@
END IF
*
* Compute the maximum over the number of right hand sides of
-* norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS )
+* norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS )
*
RESID = ZERO
DO 10 J = 1, NRHS
diff --git a/lapack-netlib/TESTING/LIN/ztrt03.f b/lapack-netlib/TESTING/LIN/ztrt03.f
index 84aaf65ea..a37887f7e 100644
--- a/lapack-netlib/TESTING/LIN/ztrt03.f
+++ b/lapack-netlib/TESTING/LIN/ztrt03.f
@@ -163,18 +163,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZTRT03( UPLO, TRANS, DIAG, N, NRHS, A, LDA, SCALE,
$ CNORM, TSCAL, X, LDX, B, LDB, WORK, RESID )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
diff --git a/lapack-netlib/TESTING/LIN/ztrt05.f b/lapack-netlib/TESTING/LIN/ztrt05.f
index f31d614dc..63ba27b9a 100644
--- a/lapack-netlib/TESTING/LIN/ztrt05.f
+++ b/lapack-netlib/TESTING/LIN/ztrt05.f
@@ -174,18 +174,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZTRT05( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, X,
$ LDX, XACT, LDXACT, FERR, BERR, RESLTS )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, TRANS, UPLO
diff --git a/lapack-netlib/TESTING/LIN/ztrt06.f b/lapack-netlib/TESTING/LIN/ztrt06.f
index 2f5f5996b..ed55905da 100644
--- a/lapack-netlib/TESTING/LIN/ztrt06.f
+++ b/lapack-netlib/TESTING/LIN/ztrt06.f
@@ -114,18 +114,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_lin
*
* =====================================================================
SUBROUTINE ZTRT06( RCOND, RCONDC, UPLO, DIAG, N, A, LDA, RWORK,
$ RAT )
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIAG, UPLO
diff --git a/lapack-netlib/TESTING/LIN/ztsqr01.f b/lapack-netlib/TESTING/LIN/ztsqr01.f
index 81d7fdb44..629da2996 100644
--- a/lapack-netlib/TESTING/LIN/ztsqr01.f
+++ b/lapack-netlib/TESTING/LIN/ztsqr01.f
@@ -77,16 +77,13 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
* =====================================================================
SUBROUTINE ZTSQR01(TSSW, M, N, MB, NB, RESULT)
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.7.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* April 2012
*
* .. Scalar Arguments ..
CHARACTER TSSW
diff --git a/lapack-netlib/TESTING/MATGEN/Makefile b/lapack-netlib/TESTING/MATGEN/Makefile
index 351757d28..e25082ba5 100644
--- a/lapack-netlib/TESTING/MATGEN/Makefile
+++ b/lapack-netlib/TESTING/MATGEN/Makefile
@@ -40,40 +40,27 @@ ifneq ($(C_LAPACK), 1)
$(FC) $(FFLAGS) -c -o $@ $<
endif
-ifneq "$(or $(BUILD_SINGLE),$(BUILD_COMPLEX))" ""
SCATGEN = slatm1.o slatm7.o slaran.o slarnd.o
-endif
-ifeq ($(BUILD_SINGLE),1)
SMATGEN = slatms.o slatme.o slatmr.o slatmt.o \
slagge.o slagsy.o slakf2.o slarge.o slaror.o slarot.o slatm2.o \
slatm3.o slatm5.o slatm6.o slahilb.o
-endif
-ifeq ($(BUILD_COMPLEX),1)
CMATGEN = clatms.o clatme.o clatmr.o clatmt.o \
clagge.o claghe.o clagsy.o clakf2.o clarge.o claror.o clarot.o \
clatm1.o clarnd.o clatm2.o clatm3.o clatm5.o clatm6.o clahilb.o
-endif
-ifneq "$(or $(BUILD_DOUBLE),$(BUILD_COMPLEX16))" ""
DZATGEN = dlatm1.o dlatm7.o dlaran.o dlarnd.o
-endif
-ifeq ($(BUILD_DOUBLE),1)
DMATGEN = dlatms.o dlatme.o dlatmr.o dlatmt.o \
dlagge.o dlagsy.o dlakf2.o dlarge.o dlaror.o dlarot.o dlatm2.o \
dlatm3.o dlatm5.o dlatm6.o dlahilb.o
-endif
-ifeq ($(BUILD_COMPLEX16),1)
ZMATGEN = zlatms.o zlatme.o zlatmr.o zlatmt.o \
zlagge.o zlaghe.o zlagsy.o zlakf2.o zlarge.o zlaror.o zlarot.o \
zlatm1.o zlarnd.o zlatm2.o zlatm3.o zlatm5.o zlatm6.o zlahilb.o
-endif
.PHONY: all
-.NOTPARALLEL:
all: $(TMGLIB)
ALLOBJ = $(SMATGEN) $(CMATGEN) $(SCATGEN) $(DMATGEN) $(ZMATGEN) \
@@ -100,6 +87,7 @@ complex16: $(ZMATGEN) $(DZATGEN)
$(AR) $(ARFLAGS) $(TMGLIB) $^
$(RANLIB) $(TMGLIB)
+ifdef FRC
$(SCATGEN): $(FRC)
$(SMATGEN): $(FRC)
$(CMATGEN): $(FRC)
@@ -109,6 +97,7 @@ $(ZMATGEN): $(FRC)
FRC:
@FRC=$(FRC)
+endif
.PHONY: clean cleanobj cleanlib
clean: cleanobj cleanlib
@@ -117,9 +106,5 @@ cleanobj:
cleanlib:
rm -f $(TMGLIB)
-ifeq ($(filter $(BUILD_SINGLE) $(BUILD_COMPLEX),1),)
slaran.o: slaran.f ; $(FC) $(FFLAGS_NOOPT) -c -o $@ $<
-endif
-ifeq ($(filter $(BUILD_DOUBLE) $(BUILD_COMPLEX16),1),)
dlaran.o: dlaran.f ; $(FC) $(FFLAGS_NOOPT) -c -o $@ $<
-endif
diff --git a/lapack-netlib/TESTING/MATGEN/clagge.f b/lapack-netlib/TESTING/MATGEN/clagge.f
index f0d86fb50..4575608f6 100644
--- a/lapack-netlib/TESTING/MATGEN/clagge.f
+++ b/lapack-netlib/TESTING/MATGEN/clagge.f
@@ -107,17 +107,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_matgen
*
* =====================================================================
SUBROUTINE CLAGGE( M, N, KL, KU, D, A, LDA, ISEED, WORK, INFO )
*
-* -- LAPACK auxiliary routine (version 3.7.0) --
+* -- LAPACK auxiliary routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, KL, KU, LDA, M, N
diff --git a/lapack-netlib/TESTING/MATGEN/claghe.f b/lapack-netlib/TESTING/MATGEN/claghe.f
index 70a162024..723e0f2d1 100644
--- a/lapack-netlib/TESTING/MATGEN/claghe.f
+++ b/lapack-netlib/TESTING/MATGEN/claghe.f
@@ -95,17 +95,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_matgen
*
* =====================================================================
SUBROUTINE CLAGHE( N, K, D, A, LDA, ISEED, WORK, INFO )
*
-* -- LAPACK auxiliary routine (version 3.7.0) --
+* -- LAPACK auxiliary routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, K, LDA, N
diff --git a/lapack-netlib/TESTING/MATGEN/clagsy.f b/lapack-netlib/TESTING/MATGEN/clagsy.f
index 8c3885464..b01d15565 100644
--- a/lapack-netlib/TESTING/MATGEN/clagsy.f
+++ b/lapack-netlib/TESTING/MATGEN/clagsy.f
@@ -95,17 +95,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_matgen
*
* =====================================================================
SUBROUTINE CLAGSY( N, K, D, A, LDA, ISEED, WORK, INFO )
*
-* -- LAPACK auxiliary routine (version 3.7.0) --
+* -- LAPACK auxiliary routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, K, LDA, N
diff --git a/lapack-netlib/TESTING/MATGEN/clahilb.f b/lapack-netlib/TESTING/MATGEN/clahilb.f
index 6c51bdb0c..f33a05594 100644
--- a/lapack-netlib/TESTING/MATGEN/clahilb.f
+++ b/lapack-netlib/TESTING/MATGEN/clahilb.f
@@ -126,18 +126,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup complex_matgen
*
* =====================================================================
SUBROUTINE CLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK,
$ INFO, PATH)
*
-* -- LAPACK test routine (version 3.8.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2017
*
* .. Scalar Arguments ..
INTEGER N, NRHS, LDA, LDX, LDB, INFO
diff --git a/lapack-netlib/TESTING/MATGEN/clakf2.f b/lapack-netlib/TESTING/MATGEN/clakf2.f
index 9c87e4ccd..5f03cc181 100644
--- a/lapack-netlib/TESTING/MATGEN/clakf2.f
+++ b/lapack-netlib/TESTING/MATGEN/clakf2.f
@@ -98,17 +98,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_matgen
*
* =====================================================================
SUBROUTINE CLAKF2( M, N, A, LDA, B, D, E, Z, LDZ )
*
-* -- LAPACK computational routine (version 3.7.0) --
+* -- LAPACK computational routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LDZ, M, N
diff --git a/lapack-netlib/TESTING/MATGEN/clarge.f b/lapack-netlib/TESTING/MATGEN/clarge.f
index 4c1d47137..77086a481 100644
--- a/lapack-netlib/TESTING/MATGEN/clarge.f
+++ b/lapack-netlib/TESTING/MATGEN/clarge.f
@@ -80,17 +80,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_matgen
*
* =====================================================================
SUBROUTINE CLARGE( N, A, LDA, ISEED, WORK, INFO )
*
-* -- LAPACK auxiliary routine (version 3.7.0) --
+* -- LAPACK auxiliary routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, N
diff --git a/lapack-netlib/TESTING/MATGEN/clarnd.f b/lapack-netlib/TESTING/MATGEN/clarnd.f
index 2236a2c7c..df08d6796 100644
--- a/lapack-netlib/TESTING/MATGEN/clarnd.f
+++ b/lapack-netlib/TESTING/MATGEN/clarnd.f
@@ -58,8 +58,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_matgen
*
*> \par Further Details:
@@ -75,10 +73,9 @@
* =====================================================================
COMPLEX FUNCTION CLARND( IDIST, ISEED )
*
-* -- LAPACK auxiliary routine (version 3.7.0) --
+* -- LAPACK auxiliary routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER IDIST
@@ -93,7 +90,7 @@
REAL ZERO, ONE, TWO
PARAMETER ( ZERO = 0.0E+0, ONE = 1.0E+0, TWO = 2.0E+0 )
REAL TWOPI
- PARAMETER ( TWOPI = 6.2831853071795864769252867663E+0 )
+ PARAMETER ( TWOPI = 6.28318530717958647692528676655900576839E+0 )
* ..
* .. Local Scalars ..
REAL T1, T2
diff --git a/lapack-netlib/TESTING/MATGEN/claror.f b/lapack-netlib/TESTING/MATGEN/claror.f
index 6870c321a..de5331e1f 100644
--- a/lapack-netlib/TESTING/MATGEN/claror.f
+++ b/lapack-netlib/TESTING/MATGEN/claror.f
@@ -151,17 +151,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_matgen
*
* =====================================================================
SUBROUTINE CLAROR( SIDE, INIT, M, N, A, LDA, ISEED, X, INFO )
*
-* -- LAPACK auxiliary routine (version 3.7.0) --
+* -- LAPACK auxiliary routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER INIT, SIDE
diff --git a/lapack-netlib/TESTING/MATGEN/clarot.f b/lapack-netlib/TESTING/MATGEN/clarot.f
index b899c8274..901c0ee8a 100644
--- a/lapack-netlib/TESTING/MATGEN/clarot.f
+++ b/lapack-netlib/TESTING/MATGEN/clarot.f
@@ -221,18 +221,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_matgen
*
* =====================================================================
SUBROUTINE CLAROT( LROWS, LLEFT, LRIGHT, NL, C, S, A, LDA, XLEFT,
$ XRIGHT )
*
-* -- LAPACK auxiliary routine (version 3.7.0) --
+* -- LAPACK auxiliary routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL LLEFT, LRIGHT, LROWS
diff --git a/lapack-netlib/TESTING/MATGEN/clatm1.f b/lapack-netlib/TESTING/MATGEN/clatm1.f
index 48d49897b..05a90fdce 100644
--- a/lapack-netlib/TESTING/MATGEN/clatm1.f
+++ b/lapack-netlib/TESTING/MATGEN/clatm1.f
@@ -130,17 +130,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_matgen
*
* =====================================================================
SUBROUTINE CLATM1( MODE, COND, IRSIGN, IDIST, ISEED, D, N, INFO )
*
-* -- LAPACK auxiliary routine (version 3.7.0) --
+* -- LAPACK auxiliary routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER IDIST, INFO, IRSIGN, MODE, N
diff --git a/lapack-netlib/TESTING/MATGEN/clatm2.f b/lapack-netlib/TESTING/MATGEN/clatm2.f
index 5bd6b9dc8..cd2dc7ae4 100644
--- a/lapack-netlib/TESTING/MATGEN/clatm2.f
+++ b/lapack-netlib/TESTING/MATGEN/clatm2.f
@@ -204,18 +204,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex_matgen
*
* =====================================================================
COMPLEX FUNCTION CLATM2( M, N, I, J, KL, KU, IDIST, ISEED, D,
$ IGRADE, DL, DR, IPVTNG, IWORK, SPARSE )
*
-* -- LAPACK auxiliary routine (version 3.7.0) --
+* -- LAPACK auxiliary routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2016
*
* .. Scalar Arguments ..
*
diff --git a/lapack-netlib/TESTING/MATGEN/clatm3.f b/lapack-netlib/TESTING/MATGEN/clatm3.f
index 42b453553..863325b3f 100644
--- a/lapack-netlib/TESTING/MATGEN/clatm3.f
+++ b/lapack-netlib/TESTING/MATGEN/clatm3.f
@@ -220,8 +220,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex_matgen
*
* =====================================================================
@@ -229,10 +227,9 @@
$ ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK,
$ SPARSE )
*
-* -- LAPACK auxiliary routine (version 3.7.0) --
+* -- LAPACK auxiliary routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2016
*
* .. Scalar Arguments ..
*
diff --git a/lapack-netlib/TESTING/MATGEN/clatm5.f b/lapack-netlib/TESTING/MATGEN/clatm5.f
index 8b3fe50d9..25904e45f 100644
--- a/lapack-netlib/TESTING/MATGEN/clatm5.f
+++ b/lapack-netlib/TESTING/MATGEN/clatm5.f
@@ -192,8 +192,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex_matgen
*
*> \par Further Details:
@@ -268,10 +266,9 @@
$ E, LDE, F, LDF, R, LDR, L, LDL, ALPHA, QBLCKA,
$ QBLCKB )
*
-* -- LAPACK computational routine (version 3.7.0) --
+* -- LAPACK computational routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LDB, LDC, LDD, LDE, LDF, LDL, LDR, M, N,
diff --git a/lapack-netlib/TESTING/MATGEN/clatm6.f b/lapack-netlib/TESTING/MATGEN/clatm6.f
index 74684dbcf..632e896d8 100644
--- a/lapack-netlib/TESTING/MATGEN/clatm6.f
+++ b/lapack-netlib/TESTING/MATGEN/clatm6.f
@@ -166,18 +166,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_matgen
*
* =====================================================================
SUBROUTINE CLATM6( TYPE, N, A, LDA, B, X, LDX, Y, LDY, ALPHA,
$ BETA, WX, WY, S, DIF )
*
-* -- LAPACK computational routine (version 3.7.0) --
+* -- LAPACK computational routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LDX, LDY, N, TYPE
diff --git a/lapack-netlib/TESTING/MATGEN/clatme.f b/lapack-netlib/TESTING/MATGEN/clatme.f
index a06f9bfbd..213a4b3bc 100644
--- a/lapack-netlib/TESTING/MATGEN/clatme.f
+++ b/lapack-netlib/TESTING/MATGEN/clatme.f
@@ -290,8 +290,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_matgen
*
* =====================================================================
@@ -301,10 +299,9 @@
$ A,
$ LDA, WORK, INFO )
*
-* -- LAPACK computational routine (version 3.7.0) --
+* -- LAPACK computational routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIST, RSIGN, SIM, UPPER
diff --git a/lapack-netlib/TESTING/MATGEN/clatmr.f b/lapack-netlib/TESTING/MATGEN/clatmr.f
index e80c4a514..34536d9b9 100644
--- a/lapack-netlib/TESTING/MATGEN/clatmr.f
+++ b/lapack-netlib/TESTING/MATGEN/clatmr.f
@@ -480,8 +480,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_matgen
*
* =====================================================================
@@ -490,10 +488,9 @@
$ CONDR, PIVTNG, IPIVOT, KL, KU, SPARSE, ANORM,
$ PACK, A, LDA, IWORK, INFO )
*
-* -- LAPACK computational routine (version 3.7.0) --
+* -- LAPACK computational routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIST, GRADE, PACK, PIVTNG, RSIGN, SYM
diff --git a/lapack-netlib/TESTING/MATGEN/clatms.f b/lapack-netlib/TESTING/MATGEN/clatms.f
index 9516f227f..a1951216b 100644
--- a/lapack-netlib/TESTING/MATGEN/clatms.f
+++ b/lapack-netlib/TESTING/MATGEN/clatms.f
@@ -324,18 +324,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_matgen
*
* =====================================================================
SUBROUTINE CLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX,
$ KL, KU, PACK, A, LDA, WORK, INFO )
*
-* -- LAPACK computational routine (version 3.7.0) --
+* -- LAPACK computational routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIST, PACK, SYM
@@ -358,7 +355,7 @@
COMPLEX CZERO
PARAMETER ( CZERO = ( 0.0E+0, 0.0E+0 ) )
REAL TWOPI
- PARAMETER ( TWOPI = 6.2831853071795864769252867663E+0 )
+ PARAMETER ( TWOPI = 6.28318530717958647692528676655900576839E+0 )
* ..
* .. Local Scalars ..
LOGICAL CSYM, GIVENS, ILEXTR, ILTEMP, TOPDWN
diff --git a/lapack-netlib/TESTING/MATGEN/clatmt.f b/lapack-netlib/TESTING/MATGEN/clatmt.f
index bdad1b7ba..05eb5566a 100644
--- a/lapack-netlib/TESTING/MATGEN/clatmt.f
+++ b/lapack-netlib/TESTING/MATGEN/clatmt.f
@@ -332,18 +332,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex_matgen
*
* =====================================================================
SUBROUTINE CLATMT( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX,
$ RANK, KL, KU, PACK, A, LDA, WORK, INFO )
*
-* -- LAPACK computational routine (version 3.7.0) --
+* -- LAPACK computational routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
REAL COND, DMAX
@@ -366,7 +363,7 @@
COMPLEX CZERO
PARAMETER ( CZERO = ( 0.0E+0, 0.0E+0 ) )
REAL TWOPI
- PARAMETER ( TWOPI = 6.2831853071795864769252867663E+0 )
+ PARAMETER ( TWOPI = 6.28318530717958647692528676655900576839E+0 )
* ..
* .. Local Scalars ..
COMPLEX C, CT, CTEMP, DUMMY, EXTRA, S, ST
diff --git a/lapack-netlib/TESTING/MATGEN/dlagge.f b/lapack-netlib/TESTING/MATGEN/dlagge.f
index 44b1c25b4..ffd11d278 100644
--- a/lapack-netlib/TESTING/MATGEN/dlagge.f
+++ b/lapack-netlib/TESTING/MATGEN/dlagge.f
@@ -106,17 +106,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_matgen
*
* =====================================================================
SUBROUTINE DLAGGE( M, N, KL, KU, D, A, LDA, ISEED, WORK, INFO )
*
-* -- LAPACK auxiliary routine (version 3.7.0) --
+* -- LAPACK auxiliary routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, KL, KU, LDA, M, N
diff --git a/lapack-netlib/TESTING/MATGEN/dlagsy.f b/lapack-netlib/TESTING/MATGEN/dlagsy.f
index 1c811e994..7ba58ee4f 100644
--- a/lapack-netlib/TESTING/MATGEN/dlagsy.f
+++ b/lapack-netlib/TESTING/MATGEN/dlagsy.f
@@ -94,17 +94,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_matgen
*
* =====================================================================
SUBROUTINE DLAGSY( N, K, D, A, LDA, ISEED, WORK, INFO )
*
-* -- LAPACK auxiliary routine (version 3.7.0) --
+* -- LAPACK auxiliary routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, K, LDA, N
diff --git a/lapack-netlib/TESTING/MATGEN/dlahilb.f b/lapack-netlib/TESTING/MATGEN/dlahilb.f
index 5d0351f46..cf0712b51 100644
--- a/lapack-netlib/TESTING/MATGEN/dlahilb.f
+++ b/lapack-netlib/TESTING/MATGEN/dlahilb.f
@@ -117,17 +117,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup double_matgen
*
* =====================================================================
SUBROUTINE DLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK, INFO)
*
-* -- LAPACK test routine (version 3.8.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2017
*
* .. Scalar Arguments ..
INTEGER N, NRHS, LDA, LDX, LDB, INFO
diff --git a/lapack-netlib/TESTING/MATGEN/dlakf2.f b/lapack-netlib/TESTING/MATGEN/dlakf2.f
index d50b8ac9a..76baefdcd 100644
--- a/lapack-netlib/TESTING/MATGEN/dlakf2.f
+++ b/lapack-netlib/TESTING/MATGEN/dlakf2.f
@@ -98,17 +98,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_matgen
*
* =====================================================================
SUBROUTINE DLAKF2( M, N, A, LDA, B, D, E, Z, LDZ )
*
-* -- LAPACK computational routine (version 3.7.0) --
+* -- LAPACK computational routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LDZ, M, N
diff --git a/lapack-netlib/TESTING/MATGEN/dlaran.f b/lapack-netlib/TESTING/MATGEN/dlaran.f
index 16c9bf1d0..24f6e9727 100644
--- a/lapack-netlib/TESTING/MATGEN/dlaran.f
+++ b/lapack-netlib/TESTING/MATGEN/dlaran.f
@@ -44,8 +44,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup list_temp
*
*> \par Further Details:
@@ -67,10 +65,9 @@
* =====================================================================
DOUBLE PRECISION FUNCTION DLARAN( ISEED )
*
-* -- LAPACK auxiliary routine (version 3.7.0) --
+* -- LAPACK auxiliary routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Array Arguments ..
INTEGER ISEED( 4 )
diff --git a/lapack-netlib/TESTING/MATGEN/dlarge.f b/lapack-netlib/TESTING/MATGEN/dlarge.f
index fc8bcc4be..4f1c09477 100644
--- a/lapack-netlib/TESTING/MATGEN/dlarge.f
+++ b/lapack-netlib/TESTING/MATGEN/dlarge.f
@@ -80,17 +80,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_matgen
*
* =====================================================================
SUBROUTINE DLARGE( N, A, LDA, ISEED, WORK, INFO )
*
-* -- LAPACK auxiliary routine (version 3.7.0) --
+* -- LAPACK auxiliary routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, N
diff --git a/lapack-netlib/TESTING/MATGEN/dlarnd.f b/lapack-netlib/TESTING/MATGEN/dlarnd.f
index cd7415cb7..f41f2ceab 100644
--- a/lapack-netlib/TESTING/MATGEN/dlarnd.f
+++ b/lapack-netlib/TESTING/MATGEN/dlarnd.f
@@ -56,8 +56,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_matgen
*
*> \par Further Details:
@@ -73,10 +71,9 @@
* =====================================================================
DOUBLE PRECISION FUNCTION DLARND( IDIST, ISEED )
*
-* -- LAPACK auxiliary routine (version 3.7.0) --
+* -- LAPACK auxiliary routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER IDIST
@@ -91,7 +88,7 @@
DOUBLE PRECISION ONE, TWO
PARAMETER ( ONE = 1.0D+0, TWO = 2.0D+0 )
DOUBLE PRECISION TWOPI
- PARAMETER ( TWOPI = 6.2831853071795864769252867663D+0 )
+ PARAMETER ( TWOPI = 6.28318530717958647692528676655900576839D+0 )
* ..
* .. Local Scalars ..
DOUBLE PRECISION T1, T2
diff --git a/lapack-netlib/TESTING/MATGEN/dlaror.f b/lapack-netlib/TESTING/MATGEN/dlaror.f
index a48129d25..183aa00d0 100644
--- a/lapack-netlib/TESTING/MATGEN/dlaror.f
+++ b/lapack-netlib/TESTING/MATGEN/dlaror.f
@@ -139,17 +139,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_matgen
*
* =====================================================================
SUBROUTINE DLAROR( SIDE, INIT, M, N, A, LDA, ISEED, X, INFO )
*
-* -- LAPACK auxiliary routine (version 3.7.0) --
+* -- LAPACK auxiliary routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER INIT, SIDE
diff --git a/lapack-netlib/TESTING/MATGEN/dlarot.f b/lapack-netlib/TESTING/MATGEN/dlarot.f
index 6655fa481..7337dc682 100644
--- a/lapack-netlib/TESTING/MATGEN/dlarot.f
+++ b/lapack-netlib/TESTING/MATGEN/dlarot.f
@@ -218,18 +218,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_matgen
*
* =====================================================================
SUBROUTINE DLAROT( LROWS, LLEFT, LRIGHT, NL, C, S, A, LDA, XLEFT,
$ XRIGHT )
*
-* -- LAPACK auxiliary routine (version 3.7.0) --
+* -- LAPACK auxiliary routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL LLEFT, LRIGHT, LROWS
diff --git a/lapack-netlib/TESTING/MATGEN/dlatm1.f b/lapack-netlib/TESTING/MATGEN/dlatm1.f
index cfb144b10..b0d8ffa3e 100644
--- a/lapack-netlib/TESTING/MATGEN/dlatm1.f
+++ b/lapack-netlib/TESTING/MATGEN/dlatm1.f
@@ -128,17 +128,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_matgen
*
* =====================================================================
SUBROUTINE DLATM1( MODE, COND, IRSIGN, IDIST, ISEED, D, N, INFO )
*
-* -- LAPACK auxiliary routine (version 3.7.0) --
+* -- LAPACK auxiliary routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER IDIST, INFO, IRSIGN, MODE, N
diff --git a/lapack-netlib/TESTING/MATGEN/dlatm2.f b/lapack-netlib/TESTING/MATGEN/dlatm2.f
index d7a6d19f3..5a55addc3 100644
--- a/lapack-netlib/TESTING/MATGEN/dlatm2.f
+++ b/lapack-netlib/TESTING/MATGEN/dlatm2.f
@@ -200,18 +200,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup double_matgen
*
* =====================================================================
DOUBLE PRECISION FUNCTION DLATM2( M, N, I, J, KL, KU, IDIST,
$ ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK, SPARSE )
*
-* -- LAPACK auxiliary routine (version 3.7.0) --
+* -- LAPACK auxiliary routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2016
*
* .. Scalar Arguments ..
*
diff --git a/lapack-netlib/TESTING/MATGEN/dlatm3.f b/lapack-netlib/TESTING/MATGEN/dlatm3.f
index 15f5ac080..f5a4a66b3 100644
--- a/lapack-netlib/TESTING/MATGEN/dlatm3.f
+++ b/lapack-netlib/TESTING/MATGEN/dlatm3.f
@@ -217,8 +217,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup double_matgen
*
* =====================================================================
@@ -226,10 +224,9 @@
$ IDIST, ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK,
$ SPARSE )
*
-* -- LAPACK auxiliary routine (version 3.7.0) --
+* -- LAPACK auxiliary routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2016
*
* .. Scalar Arguments ..
*
diff --git a/lapack-netlib/TESTING/MATGEN/dlatm5.f b/lapack-netlib/TESTING/MATGEN/dlatm5.f
index 37076efc8..429315b0d 100644
--- a/lapack-netlib/TESTING/MATGEN/dlatm5.f
+++ b/lapack-netlib/TESTING/MATGEN/dlatm5.f
@@ -192,8 +192,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup double_matgen
*
*> \par Further Details:
@@ -268,10 +266,9 @@
$ E, LDE, F, LDF, R, LDR, L, LDL, ALPHA, QBLCKA,
$ QBLCKB )
*
-* -- LAPACK computational routine (version 3.7.0) --
+* -- LAPACK computational routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LDB, LDC, LDD, LDE, LDF, LDL, LDR, M, N,
diff --git a/lapack-netlib/TESTING/MATGEN/dlatm6.f b/lapack-netlib/TESTING/MATGEN/dlatm6.f
index 462cce0b7..01941609c 100644
--- a/lapack-netlib/TESTING/MATGEN/dlatm6.f
+++ b/lapack-netlib/TESTING/MATGEN/dlatm6.f
@@ -168,18 +168,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_matgen
*
* =====================================================================
SUBROUTINE DLATM6( TYPE, N, A, LDA, B, X, LDX, Y, LDY, ALPHA,
$ BETA, WX, WY, S, DIF )
*
-* -- LAPACK computational routine (version 3.7.0) --
+* -- LAPACK computational routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LDX, LDY, N, TYPE
diff --git a/lapack-netlib/TESTING/MATGEN/dlatm7.f b/lapack-netlib/TESTING/MATGEN/dlatm7.f
index 70c2f98ba..38c993dad 100644
--- a/lapack-netlib/TESTING/MATGEN/dlatm7.f
+++ b/lapack-netlib/TESTING/MATGEN/dlatm7.f
@@ -114,18 +114,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_matgen
*
* =====================================================================
SUBROUTINE DLATM7( MODE, COND, IRSIGN, IDIST, ISEED, D, N,
$ RANK, INFO )
*
-* -- LAPACK computational routine (version 3.7.0) --
+* -- LAPACK computational routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
DOUBLE PRECISION COND
diff --git a/lapack-netlib/TESTING/MATGEN/dlatme.f b/lapack-netlib/TESTING/MATGEN/dlatme.f
index 2d124ef1f..311f16e2d 100644
--- a/lapack-netlib/TESTING/MATGEN/dlatme.f
+++ b/lapack-netlib/TESTING/MATGEN/dlatme.f
@@ -321,8 +321,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_matgen
*
* =====================================================================
@@ -332,10 +330,9 @@
$ A,
$ LDA, WORK, INFO )
*
-* -- LAPACK computational routine (version 3.7.0) --
+* -- LAPACK computational routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIST, RSIGN, SIM, UPPER
diff --git a/lapack-netlib/TESTING/MATGEN/dlatmr.f b/lapack-netlib/TESTING/MATGEN/dlatmr.f
index a914481f7..efb016b91 100644
--- a/lapack-netlib/TESTING/MATGEN/dlatmr.f
+++ b/lapack-netlib/TESTING/MATGEN/dlatmr.f
@@ -461,8 +461,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_matgen
*
* =====================================================================
@@ -471,10 +469,9 @@
$ CONDR, PIVTNG, IPIVOT, KL, KU, SPARSE, ANORM,
$ PACK, A, LDA, IWORK, INFO )
*
-* -- LAPACK computational routine (version 3.7.0) --
+* -- LAPACK computational routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIST, GRADE, PACK, PIVTNG, RSIGN, SYM
diff --git a/lapack-netlib/TESTING/MATGEN/dlatms.f b/lapack-netlib/TESTING/MATGEN/dlatms.f
index 11b9c0389..e6b9fbece 100644
--- a/lapack-netlib/TESTING/MATGEN/dlatms.f
+++ b/lapack-netlib/TESTING/MATGEN/dlatms.f
@@ -313,18 +313,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_matgen
*
* =====================================================================
SUBROUTINE DLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX,
$ KL, KU, PACK, A, LDA, WORK, INFO )
*
-* -- LAPACK computational routine (version 3.7.0) --
+* -- LAPACK computational routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIST, PACK, SYM
@@ -344,7 +341,7 @@
DOUBLE PRECISION ONE
PARAMETER ( ONE = 1.0D0 )
DOUBLE PRECISION TWOPI
- PARAMETER ( TWOPI = 6.2831853071795864769252867663D+0 )
+ PARAMETER ( TWOPI = 6.28318530717958647692528676655900576839D+0 )
* ..
* .. Local Scalars ..
LOGICAL GIVENS, ILEXTR, ILTEMP, TOPDWN
diff --git a/lapack-netlib/TESTING/MATGEN/dlatmt.f b/lapack-netlib/TESTING/MATGEN/dlatmt.f
index a5cf54e47..bdd167f2d 100644
--- a/lapack-netlib/TESTING/MATGEN/dlatmt.f
+++ b/lapack-netlib/TESTING/MATGEN/dlatmt.f
@@ -323,18 +323,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup double_matgen
*
* =====================================================================
SUBROUTINE DLATMT( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX,
$ RANK, KL, KU, PACK, A, LDA, WORK, INFO )
*
-* -- LAPACK computational routine (version 3.7.0) --
+* -- LAPACK computational routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
DOUBLE PRECISION COND, DMAX
@@ -354,7 +351,7 @@
DOUBLE PRECISION ONE
PARAMETER ( ONE = 1.0D0 )
DOUBLE PRECISION TWOPI
- PARAMETER ( TWOPI = 6.2831853071795864769252867663D+0 )
+ PARAMETER ( TWOPI = 6.28318530717958647692528676655900576839D+0 )
* ..
* .. Local Scalars ..
DOUBLE PRECISION ALPHA, ANGLE, C, DUMMY, EXTRA, S, TEMP
diff --git a/lapack-netlib/TESTING/MATGEN/slagge.f b/lapack-netlib/TESTING/MATGEN/slagge.f
index 626039aa0..9627d563d 100644
--- a/lapack-netlib/TESTING/MATGEN/slagge.f
+++ b/lapack-netlib/TESTING/MATGEN/slagge.f
@@ -106,17 +106,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup real_matgen
*
* =====================================================================
SUBROUTINE SLAGGE( M, N, KL, KU, D, A, LDA, ISEED, WORK, INFO )
*
-* -- LAPACK auxiliary routine (version 3.7.0) --
+* -- LAPACK auxiliary routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, KL, KU, LDA, M, N
diff --git a/lapack-netlib/TESTING/MATGEN/slagsy.f b/lapack-netlib/TESTING/MATGEN/slagsy.f
index 5fa7484c4..dd319dadc 100644
--- a/lapack-netlib/TESTING/MATGEN/slagsy.f
+++ b/lapack-netlib/TESTING/MATGEN/slagsy.f
@@ -94,17 +94,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup real_matgen
*
* =====================================================================
SUBROUTINE SLAGSY( N, K, D, A, LDA, ISEED, WORK, INFO )
*
-* -- LAPACK auxiliary routine (version 3.7.0) --
+* -- LAPACK auxiliary routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, K, LDA, N
diff --git a/lapack-netlib/TESTING/MATGEN/slahilb.f b/lapack-netlib/TESTING/MATGEN/slahilb.f
index cb92db6db..4dc833346 100644
--- a/lapack-netlib/TESTING/MATGEN/slahilb.f
+++ b/lapack-netlib/TESTING/MATGEN/slahilb.f
@@ -117,17 +117,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup real_matgen
*
* =====================================================================
SUBROUTINE SLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK, INFO)
*
-* -- LAPACK test routine (version 3.8.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2017
*
* .. Scalar Arguments ..
INTEGER N, NRHS, LDA, LDX, LDB, INFO
diff --git a/lapack-netlib/TESTING/MATGEN/slakf2.f b/lapack-netlib/TESTING/MATGEN/slakf2.f
index d84d4d6c5..ef9f90adf 100644
--- a/lapack-netlib/TESTING/MATGEN/slakf2.f
+++ b/lapack-netlib/TESTING/MATGEN/slakf2.f
@@ -98,17 +98,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup real_matgen
*
* =====================================================================
SUBROUTINE SLAKF2( M, N, A, LDA, B, D, E, Z, LDZ )
*
-* -- LAPACK computational routine (version 3.7.0) --
+* -- LAPACK computational routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LDZ, M, N
diff --git a/lapack-netlib/TESTING/MATGEN/slaran.f b/lapack-netlib/TESTING/MATGEN/slaran.f
index b0d18fccd..586612d9f 100644
--- a/lapack-netlib/TESTING/MATGEN/slaran.f
+++ b/lapack-netlib/TESTING/MATGEN/slaran.f
@@ -44,8 +44,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup real_matgen
*
*> \par Further Details:
@@ -67,10 +65,9 @@
* =====================================================================
REAL FUNCTION SLARAN( ISEED )
*
-* -- LAPACK auxiliary routine (version 3.7.0) --
+* -- LAPACK auxiliary routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Array Arguments ..
INTEGER ISEED( 4 )
diff --git a/lapack-netlib/TESTING/MATGEN/slarge.f b/lapack-netlib/TESTING/MATGEN/slarge.f
index 392948996..8bebf48d5 100644
--- a/lapack-netlib/TESTING/MATGEN/slarge.f
+++ b/lapack-netlib/TESTING/MATGEN/slarge.f
@@ -80,17 +80,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup real_matgen
*
* =====================================================================
SUBROUTINE SLARGE( N, A, LDA, ISEED, WORK, INFO )
*
-* -- LAPACK auxiliary routine (version 3.7.0) --
+* -- LAPACK auxiliary routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, N
diff --git a/lapack-netlib/TESTING/MATGEN/slarnd.f b/lapack-netlib/TESTING/MATGEN/slarnd.f
index 15ae25368..c2d7a5cb2 100644
--- a/lapack-netlib/TESTING/MATGEN/slarnd.f
+++ b/lapack-netlib/TESTING/MATGEN/slarnd.f
@@ -56,8 +56,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup real_matgen
*
*> \par Further Details:
@@ -73,10 +71,9 @@
* =====================================================================
REAL FUNCTION SLARND( IDIST, ISEED )
*
-* -- LAPACK auxiliary routine (version 3.7.0) --
+* -- LAPACK auxiliary routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER IDIST
@@ -91,7 +88,7 @@
REAL ONE, TWO
PARAMETER ( ONE = 1.0E+0, TWO = 2.0E+0 )
REAL TWOPI
- PARAMETER ( TWOPI = 6.2831853071795864769252867663E+0 )
+ PARAMETER ( TWOPI = 6.28318530717958647692528676655900576839E+0 )
* ..
* .. Local Scalars ..
REAL T1, T2
diff --git a/lapack-netlib/TESTING/MATGEN/slaror.f b/lapack-netlib/TESTING/MATGEN/slaror.f
index d58902110..0fc0a7272 100644
--- a/lapack-netlib/TESTING/MATGEN/slaror.f
+++ b/lapack-netlib/TESTING/MATGEN/slaror.f
@@ -139,17 +139,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup real_matgen
*
* =====================================================================
SUBROUTINE SLAROR( SIDE, INIT, M, N, A, LDA, ISEED, X, INFO )
*
-* -- LAPACK auxiliary routine (version 3.7.0) --
+* -- LAPACK auxiliary routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER INIT, SIDE
diff --git a/lapack-netlib/TESTING/MATGEN/slarot.f b/lapack-netlib/TESTING/MATGEN/slarot.f
index ed478cb21..ab4c22ad7 100644
--- a/lapack-netlib/TESTING/MATGEN/slarot.f
+++ b/lapack-netlib/TESTING/MATGEN/slarot.f
@@ -218,18 +218,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup real_matgen
*
* =====================================================================
SUBROUTINE SLAROT( LROWS, LLEFT, LRIGHT, NL, C, S, A, LDA, XLEFT,
$ XRIGHT )
*
-* -- LAPACK auxiliary routine (version 3.7.0) --
+* -- LAPACK auxiliary routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL LLEFT, LRIGHT, LROWS
diff --git a/lapack-netlib/TESTING/MATGEN/slatm1.f b/lapack-netlib/TESTING/MATGEN/slatm1.f
index 8f9e16431..bd01cb620 100644
--- a/lapack-netlib/TESTING/MATGEN/slatm1.f
+++ b/lapack-netlib/TESTING/MATGEN/slatm1.f
@@ -128,17 +128,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup real_matgen
*
* =====================================================================
SUBROUTINE SLATM1( MODE, COND, IRSIGN, IDIST, ISEED, D, N, INFO )
*
-* -- LAPACK auxiliary routine (version 3.7.0) --
+* -- LAPACK auxiliary routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER IDIST, INFO, IRSIGN, MODE, N
diff --git a/lapack-netlib/TESTING/MATGEN/slatm2.f b/lapack-netlib/TESTING/MATGEN/slatm2.f
index 2473f1f44..b259c333e 100644
--- a/lapack-netlib/TESTING/MATGEN/slatm2.f
+++ b/lapack-netlib/TESTING/MATGEN/slatm2.f
@@ -200,18 +200,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup real_matgen
*
* =====================================================================
REAL FUNCTION SLATM2( M, N, I, J, KL, KU, IDIST,
$ ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK, SPARSE )
*
-* -- LAPACK auxiliary routine (version 3.7.0) --
+* -- LAPACK auxiliary routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2016
*
* .. Scalar Arguments ..
*
diff --git a/lapack-netlib/TESTING/MATGEN/slatm3.f b/lapack-netlib/TESTING/MATGEN/slatm3.f
index 18c2c07d5..f4e833734 100644
--- a/lapack-netlib/TESTING/MATGEN/slatm3.f
+++ b/lapack-netlib/TESTING/MATGEN/slatm3.f
@@ -217,8 +217,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup real_matgen
*
* =====================================================================
@@ -226,10 +224,9 @@
$ IDIST, ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK,
$ SPARSE )
*
-* -- LAPACK auxiliary routine (version 3.7.0) --
+* -- LAPACK auxiliary routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2016
*
* .. Scalar Arguments ..
*
diff --git a/lapack-netlib/TESTING/MATGEN/slatm5.f b/lapack-netlib/TESTING/MATGEN/slatm5.f
index 010413498..37a629225 100644
--- a/lapack-netlib/TESTING/MATGEN/slatm5.f
+++ b/lapack-netlib/TESTING/MATGEN/slatm5.f
@@ -192,8 +192,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup real_matgen
*
*> \par Further Details:
@@ -268,10 +266,9 @@
$ E, LDE, F, LDF, R, LDR, L, LDL, ALPHA, QBLCKA,
$ QBLCKB )
*
-* -- LAPACK computational routine (version 3.7.0) --
+* -- LAPACK computational routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LDB, LDC, LDD, LDE, LDF, LDL, LDR, M, N,
diff --git a/lapack-netlib/TESTING/MATGEN/slatm6.f b/lapack-netlib/TESTING/MATGEN/slatm6.f
index 57f660190..b0d27f7dc 100644
--- a/lapack-netlib/TESTING/MATGEN/slatm6.f
+++ b/lapack-netlib/TESTING/MATGEN/slatm6.f
@@ -168,18 +168,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup real_matgen
*
* =====================================================================
SUBROUTINE SLATM6( TYPE, N, A, LDA, B, X, LDX, Y, LDY, ALPHA,
$ BETA, WX, WY, S, DIF )
*
-* -- LAPACK computational routine (version 3.7.0) --
+* -- LAPACK computational routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LDX, LDY, N, TYPE
diff --git a/lapack-netlib/TESTING/MATGEN/slatm7.f b/lapack-netlib/TESTING/MATGEN/slatm7.f
index 098d1c2b7..9f9863b00 100644
--- a/lapack-netlib/TESTING/MATGEN/slatm7.f
+++ b/lapack-netlib/TESTING/MATGEN/slatm7.f
@@ -114,18 +114,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup real_matgen
*
* =====================================================================
SUBROUTINE SLATM7( MODE, COND, IRSIGN, IDIST, ISEED, D, N,
$ RANK, INFO )
*
-* -- LAPACK computational routine (version 3.7.0) --
+* -- LAPACK computational routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
REAL COND
diff --git a/lapack-netlib/TESTING/MATGEN/slatme.f b/lapack-netlib/TESTING/MATGEN/slatme.f
index 8309bcd34..049409ca5 100644
--- a/lapack-netlib/TESTING/MATGEN/slatme.f
+++ b/lapack-netlib/TESTING/MATGEN/slatme.f
@@ -321,8 +321,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup real_matgen
*
* =====================================================================
@@ -332,10 +330,9 @@
$ A,
$ LDA, WORK, INFO )
*
-* -- LAPACK computational routine (version 3.7.0) --
+* -- LAPACK computational routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIST, RSIGN, SIM, UPPER
diff --git a/lapack-netlib/TESTING/MATGEN/slatmr.f b/lapack-netlib/TESTING/MATGEN/slatmr.f
index c2cedd21c..124a6246a 100644
--- a/lapack-netlib/TESTING/MATGEN/slatmr.f
+++ b/lapack-netlib/TESTING/MATGEN/slatmr.f
@@ -461,8 +461,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup real_matgen
*
* =====================================================================
@@ -471,10 +469,9 @@
$ CONDR, PIVTNG, IPIVOT, KL, KU, SPARSE, ANORM,
$ PACK, A, LDA, IWORK, INFO )
*
-* -- LAPACK computational routine (version 3.7.0) --
+* -- LAPACK computational routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIST, GRADE, PACK, PIVTNG, RSIGN, SYM
diff --git a/lapack-netlib/TESTING/MATGEN/slatms.f b/lapack-netlib/TESTING/MATGEN/slatms.f
index 349bfe2eb..eb4f4b38e 100644
--- a/lapack-netlib/TESTING/MATGEN/slatms.f
+++ b/lapack-netlib/TESTING/MATGEN/slatms.f
@@ -313,18 +313,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup real_matgen
*
* =====================================================================
SUBROUTINE SLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX,
$ KL, KU, PACK, A, LDA, WORK, INFO )
*
-* -- LAPACK computational routine (version 3.7.0) --
+* -- LAPACK computational routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIST, PACK, SYM
@@ -344,7 +341,7 @@
REAL ONE
PARAMETER ( ONE = 1.0E0 )
REAL TWOPI
- PARAMETER ( TWOPI = 6.2831853071795864769252867663E+0 )
+ PARAMETER ( TWOPI = 6.28318530717958647692528676655900576839E+0 )
* ..
* .. Local Scalars ..
LOGICAL GIVENS, ILEXTR, ILTEMP, TOPDWN
diff --git a/lapack-netlib/TESTING/MATGEN/slatmt.f b/lapack-netlib/TESTING/MATGEN/slatmt.f
index f69e1d6e5..f06dcc46c 100644
--- a/lapack-netlib/TESTING/MATGEN/slatmt.f
+++ b/lapack-netlib/TESTING/MATGEN/slatmt.f
@@ -323,18 +323,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup real_matgen
*
* =====================================================================
SUBROUTINE SLATMT( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX,
$ RANK, KL, KU, PACK, A, LDA, WORK, INFO )
*
-* -- LAPACK computational routine (version 3.7.0) --
+* -- LAPACK computational routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
REAL COND, DMAX
@@ -354,7 +351,7 @@
REAL ONE
PARAMETER ( ONE = 1.0E0 )
REAL TWOPI
- PARAMETER ( TWOPI = 6.2831853071795864769252867663E+0 )
+ PARAMETER ( TWOPI = 6.28318530717958647692528676655900576839E+0 )
* ..
* .. Local Scalars ..
REAL ALPHA, ANGLE, C, DUMMY, EXTRA, S, TEMP
diff --git a/lapack-netlib/TESTING/MATGEN/zlagge.f b/lapack-netlib/TESTING/MATGEN/zlagge.f
index c9d2bc240..8c2a9676e 100644
--- a/lapack-netlib/TESTING/MATGEN/zlagge.f
+++ b/lapack-netlib/TESTING/MATGEN/zlagge.f
@@ -107,17 +107,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_matgen
*
* =====================================================================
SUBROUTINE ZLAGGE( M, N, KL, KU, D, A, LDA, ISEED, WORK, INFO )
*
-* -- LAPACK auxiliary routine (version 3.7.0) --
+* -- LAPACK auxiliary routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, KL, KU, LDA, M, N
diff --git a/lapack-netlib/TESTING/MATGEN/zlaghe.f b/lapack-netlib/TESTING/MATGEN/zlaghe.f
index 506035061..fb77cfb4c 100644
--- a/lapack-netlib/TESTING/MATGEN/zlaghe.f
+++ b/lapack-netlib/TESTING/MATGEN/zlaghe.f
@@ -95,17 +95,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_matgen
*
* =====================================================================
SUBROUTINE ZLAGHE( N, K, D, A, LDA, ISEED, WORK, INFO )
*
-* -- LAPACK auxiliary routine (version 3.7.0) --
+* -- LAPACK auxiliary routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, K, LDA, N
diff --git a/lapack-netlib/TESTING/MATGEN/zlagsy.f b/lapack-netlib/TESTING/MATGEN/zlagsy.f
index e030a5f18..adbb41e39 100644
--- a/lapack-netlib/TESTING/MATGEN/zlagsy.f
+++ b/lapack-netlib/TESTING/MATGEN/zlagsy.f
@@ -95,17 +95,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_matgen
*
* =====================================================================
SUBROUTINE ZLAGSY( N, K, D, A, LDA, ISEED, WORK, INFO )
*
-* -- LAPACK auxiliary routine (version 3.7.0) --
+* -- LAPACK auxiliary routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, K, LDA, N
diff --git a/lapack-netlib/TESTING/MATGEN/zlahilb.f b/lapack-netlib/TESTING/MATGEN/zlahilb.f
index cb774abd9..f9fee6de7 100644
--- a/lapack-netlib/TESTING/MATGEN/zlahilb.f
+++ b/lapack-netlib/TESTING/MATGEN/zlahilb.f
@@ -126,18 +126,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup complex16_matgen
*
* =====================================================================
SUBROUTINE ZLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK,
$ INFO, PATH)
*
-* -- LAPACK test routine (version 3.8.0) --
+* -- LAPACK test routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2017
*
* .. Scalar Arguments ..
INTEGER N, NRHS, LDA, LDX, LDB, INFO
diff --git a/lapack-netlib/TESTING/MATGEN/zlakf2.f b/lapack-netlib/TESTING/MATGEN/zlakf2.f
index 4260d7caa..b6b9ca4a7 100644
--- a/lapack-netlib/TESTING/MATGEN/zlakf2.f
+++ b/lapack-netlib/TESTING/MATGEN/zlakf2.f
@@ -98,17 +98,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_matgen
*
* =====================================================================
SUBROUTINE ZLAKF2( M, N, A, LDA, B, D, E, Z, LDZ )
*
-* -- LAPACK computational routine (version 3.7.0) --
+* -- LAPACK computational routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LDZ, M, N
diff --git a/lapack-netlib/TESTING/MATGEN/zlarge.f b/lapack-netlib/TESTING/MATGEN/zlarge.f
index 4e1de110e..f899bfd3e 100644
--- a/lapack-netlib/TESTING/MATGEN/zlarge.f
+++ b/lapack-netlib/TESTING/MATGEN/zlarge.f
@@ -80,17 +80,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_matgen
*
* =====================================================================
SUBROUTINE ZLARGE( N, A, LDA, ISEED, WORK, INFO )
*
-* -- LAPACK auxiliary routine (version 3.7.0) --
+* -- LAPACK auxiliary routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, N
diff --git a/lapack-netlib/TESTING/MATGEN/zlarnd.f b/lapack-netlib/TESTING/MATGEN/zlarnd.f
index 2b0498bd3..6e66d2bb2 100644
--- a/lapack-netlib/TESTING/MATGEN/zlarnd.f
+++ b/lapack-netlib/TESTING/MATGEN/zlarnd.f
@@ -58,8 +58,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_matgen
*
*> \par Further Details:
@@ -75,10 +73,9 @@
* =====================================================================
COMPLEX*16 FUNCTION ZLARND( IDIST, ISEED )
*
-* -- LAPACK auxiliary routine (version 3.7.0) --
+* -- LAPACK auxiliary routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER IDIST
@@ -93,7 +90,7 @@
DOUBLE PRECISION ZERO, ONE, TWO
PARAMETER ( ZERO = 0.0D+0, ONE = 1.0D+0, TWO = 2.0D+0 )
DOUBLE PRECISION TWOPI
- PARAMETER ( TWOPI = 6.2831853071795864769252867663D+0 )
+ PARAMETER ( TWOPI = 6.28318530717958647692528676655900576839D+0 )
* ..
* .. Local Scalars ..
DOUBLE PRECISION T1, T2
diff --git a/lapack-netlib/TESTING/MATGEN/zlaror.f b/lapack-netlib/TESTING/MATGEN/zlaror.f
index b8c4fdfa5..8ae8f9dc6 100644
--- a/lapack-netlib/TESTING/MATGEN/zlaror.f
+++ b/lapack-netlib/TESTING/MATGEN/zlaror.f
@@ -151,17 +151,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_matgen
*
* =====================================================================
SUBROUTINE ZLAROR( SIDE, INIT, M, N, A, LDA, ISEED, X, INFO )
*
-* -- LAPACK auxiliary routine (version 3.7.0) --
+* -- LAPACK auxiliary routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER INIT, SIDE
diff --git a/lapack-netlib/TESTING/MATGEN/zlarot.f b/lapack-netlib/TESTING/MATGEN/zlarot.f
index ebb5d98f9..901b5ddbd 100644
--- a/lapack-netlib/TESTING/MATGEN/zlarot.f
+++ b/lapack-netlib/TESTING/MATGEN/zlarot.f
@@ -221,18 +221,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_matgen
*
* =====================================================================
SUBROUTINE ZLAROT( LROWS, LLEFT, LRIGHT, NL, C, S, A, LDA, XLEFT,
$ XRIGHT )
*
-* -- LAPACK auxiliary routine (version 3.7.0) --
+* -- LAPACK auxiliary routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
LOGICAL LLEFT, LRIGHT, LROWS
diff --git a/lapack-netlib/TESTING/MATGEN/zlatm1.f b/lapack-netlib/TESTING/MATGEN/zlatm1.f
index a829d9119..c916c8ca1 100644
--- a/lapack-netlib/TESTING/MATGEN/zlatm1.f
+++ b/lapack-netlib/TESTING/MATGEN/zlatm1.f
@@ -130,17 +130,14 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_matgen
*
* =====================================================================
SUBROUTINE ZLATM1( MODE, COND, IRSIGN, IDIST, ISEED, D, N, INFO )
*
-* -- LAPACK auxiliary routine (version 3.7.0) --
+* -- LAPACK auxiliary routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER IDIST, INFO, IRSIGN, MODE, N
diff --git a/lapack-netlib/TESTING/MATGEN/zlatm2.f b/lapack-netlib/TESTING/MATGEN/zlatm2.f
index ea93431e7..af0151587 100644
--- a/lapack-netlib/TESTING/MATGEN/zlatm2.f
+++ b/lapack-netlib/TESTING/MATGEN/zlatm2.f
@@ -203,18 +203,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex16_matgen
*
* =====================================================================
COMPLEX*16 FUNCTION ZLATM2( M, N, I, J, KL, KU, IDIST,
$ ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK, SPARSE )
*
-* -- LAPACK auxiliary routine (version 3.7.0) --
+* -- LAPACK auxiliary routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2016
*
* .. Scalar Arguments ..
*
diff --git a/lapack-netlib/TESTING/MATGEN/zlatm3.f b/lapack-netlib/TESTING/MATGEN/zlatm3.f
index 25d6233f3..e7fab607c 100644
--- a/lapack-netlib/TESTING/MATGEN/zlatm3.f
+++ b/lapack-netlib/TESTING/MATGEN/zlatm3.f
@@ -220,8 +220,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex16_matgen
*
* =====================================================================
@@ -229,10 +227,9 @@
$ IDIST, ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK,
$ SPARSE )
*
-* -- LAPACK auxiliary routine (version 3.7.0) --
+* -- LAPACK auxiliary routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2016
*
* .. Scalar Arguments ..
*
diff --git a/lapack-netlib/TESTING/MATGEN/zlatm5.f b/lapack-netlib/TESTING/MATGEN/zlatm5.f
index 4ab3e276b..07eeb6a1f 100644
--- a/lapack-netlib/TESTING/MATGEN/zlatm5.f
+++ b/lapack-netlib/TESTING/MATGEN/zlatm5.f
@@ -192,8 +192,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex16_matgen
*
*> \par Further Details:
@@ -268,10 +266,9 @@
$ E, LDE, F, LDF, R, LDR, L, LDL, ALPHA, QBLCKA,
$ QBLCKB )
*
-* -- LAPACK computational routine (version 3.7.0) --
+* -- LAPACK computational routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* June 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LDB, LDC, LDD, LDE, LDF, LDL, LDR, M, N,
diff --git a/lapack-netlib/TESTING/MATGEN/zlatm6.f b/lapack-netlib/TESTING/MATGEN/zlatm6.f
index f000f5228..104becfd1 100644
--- a/lapack-netlib/TESTING/MATGEN/zlatm6.f
+++ b/lapack-netlib/TESTING/MATGEN/zlatm6.f
@@ -166,18 +166,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_matgen
*
* =====================================================================
SUBROUTINE ZLATM6( TYPE, N, A, LDA, B, X, LDX, Y, LDY, ALPHA,
$ BETA, WX, WY, S, DIF )
*
-* -- LAPACK computational routine (version 3.7.0) --
+* -- LAPACK computational routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
INTEGER LDA, LDX, LDY, N, TYPE
diff --git a/lapack-netlib/TESTING/MATGEN/zlatme.f b/lapack-netlib/TESTING/MATGEN/zlatme.f
index fee1eca6e..a081353ce 100644
--- a/lapack-netlib/TESTING/MATGEN/zlatme.f
+++ b/lapack-netlib/TESTING/MATGEN/zlatme.f
@@ -290,8 +290,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_matgen
*
* =====================================================================
@@ -301,10 +299,9 @@
$ A,
$ LDA, WORK, INFO )
*
-* -- LAPACK computational routine (version 3.7.0) --
+* -- LAPACK computational routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIST, RSIGN, SIM, UPPER
diff --git a/lapack-netlib/TESTING/MATGEN/zlatmr.f b/lapack-netlib/TESTING/MATGEN/zlatmr.f
index 56285e1f4..935d717e7 100644
--- a/lapack-netlib/TESTING/MATGEN/zlatmr.f
+++ b/lapack-netlib/TESTING/MATGEN/zlatmr.f
@@ -480,8 +480,6 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_matgen
*
* =====================================================================
@@ -490,10 +488,9 @@
$ CONDR, PIVTNG, IPIVOT, KL, KU, SPARSE, ANORM,
$ PACK, A, LDA, IWORK, INFO )
*
-* -- LAPACK computational routine (version 3.7.0) --
+* -- LAPACK computational routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIST, GRADE, PACK, PIVTNG, RSIGN, SYM
diff --git a/lapack-netlib/TESTING/MATGEN/zlatms.f b/lapack-netlib/TESTING/MATGEN/zlatms.f
index 9bad54860..b8421eede 100644
--- a/lapack-netlib/TESTING/MATGEN/zlatms.f
+++ b/lapack-netlib/TESTING/MATGEN/zlatms.f
@@ -324,18 +324,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_matgen
*
* =====================================================================
SUBROUTINE ZLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX,
$ KL, KU, PACK, A, LDA, WORK, INFO )
*
-* -- LAPACK computational routine (version 3.7.0) --
+* -- LAPACK computational routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
CHARACTER DIST, PACK, SYM
@@ -358,7 +355,7 @@
COMPLEX*16 CZERO
PARAMETER ( CZERO = ( 0.0D+0, 0.0D+0 ) )
DOUBLE PRECISION TWOPI
- PARAMETER ( TWOPI = 6.2831853071795864769252867663D+0 )
+ PARAMETER ( TWOPI = 6.28318530717958647692528676655900576839D+0 )
* ..
* .. Local Scalars ..
LOGICAL GIVENS, ILEXTR, ILTEMP, TOPDWN, ZSYM
diff --git a/lapack-netlib/TESTING/MATGEN/zlatmt.f b/lapack-netlib/TESTING/MATGEN/zlatmt.f
index 257c2627e..25036483c 100644
--- a/lapack-netlib/TESTING/MATGEN/zlatmt.f
+++ b/lapack-netlib/TESTING/MATGEN/zlatmt.f
@@ -332,18 +332,15 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16_matgen
*
* =====================================================================
SUBROUTINE ZLATMT( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX,
$ RANK, KL, KU, PACK, A, LDA, WORK, INFO )
*
-* -- LAPACK computational routine (version 3.7.0) --
+* -- LAPACK computational routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* December 2016
*
* .. Scalar Arguments ..
DOUBLE PRECISION COND, DMAX
@@ -366,7 +363,7 @@
COMPLEX*16 CZERO
PARAMETER ( CZERO = ( 0.0D+0, 0.0D+0 ) )
DOUBLE PRECISION TWOPI
- PARAMETER ( TWOPI = 6.2831853071795864769252867663D+0 )
+ PARAMETER ( TWOPI = 6.28318530717958647692528676655900576839D+0 )
* ..
* .. Local Scalars ..
COMPLEX*16 C, CT, DUMMY, EXTRA, S, ST, ZTEMP
diff --git a/lapack-netlib/TESTING/ced.in b/lapack-netlib/TESTING/ced.in
index ef6c9e36e..283debb94 100644
--- a/lapack-netlib/TESTING/ced.in
+++ b/lapack-netlib/TESTING/ced.in
@@ -1,5 +1,5 @@
CES Data for the Complex Nonsymmetric Schur Form Driver
-6 Number of matrix dimensions
+7 Number of matrix dimensions
0 1 2 3 5 10 20 Matrix dimensions
3 3 1 11 4 8 2 0 Parameters NB, NBMIN, NXOVER, INMIN, INWIN, INIBL, ISHFTS, IACC22
20.0 Threshold for test ratios
@@ -8,7 +8,7 @@ T
2518 3899 995 397 Seed for random number generator
CES 21 Use all matrix types
CEV Data for the Complex Nonsymmetric Eigenvalue Driver
-6 Number of matrix dimensions
+7 Number of matrix dimensions
0 1 2 3 5 10 20 Matrix dimensions
3 3 1 11 4 8 2 0 Parameters NB, NBMIN, NXOVER, INMIN, INWIN, INIBL, ISHFTS, IACC22
20.0 Threshold for test ratios
@@ -17,7 +17,7 @@ T
2518 3899 995 397 Seed for random number generator
CEV 21 Use all matrix types
CSX Data for the Complex Nonsymmetric Schur Form Expert Driver
-6 Number of matrix dimensions
+7 Number of matrix dimensions
0 1 2 3 5 10 20 Matrix dimensions
3 3 1 11 4 8 2 0 Parameters NB, NBMIN, NXOVER, INMIN, INWIN, INIBL, ISHFTS, IACC22
20.0 Threshold for test ratios
diff --git a/lapack-netlib/TESTING/dbal.in b/lapack-netlib/TESTING/dbal.in
index c00fe3e83..828629b15 100644
--- a/lapack-netlib/TESTING/dbal.in
+++ b/lapack-netlib/TESTING/dbal.in
@@ -209,6 +209,6 @@ DBL: Tests DGEBAL
0.00000000000000000000D+00 0.00000000000000000000D+00 0.00000000000000000000D+00 0.63043209914231165391D-03 0.10000000000000000000D+01 0.79310682416114036641D+03
0.00000000000000000000D+00 0.00000000000000000000D+00 0.00000000000000000000D+00 0.00000000000000000000D+00 0.12608641982846233078D-02 0.10000000000000000000D+01
- 2.494800386918399765D+291 1.582914569427869018D+175 1.004336277661868922D+59 3.186183822264904554D-58 5.053968264940243633D-175 0.40083367200179455560D-291;
+ 2.494800386918399765D+291 1.582914569427869018D+175 1.004336277661868922D+59 3.186183822264904554D-58 5.053968264940243633D-175 0.40083367200179455560D-291
0
diff --git a/lapack-netlib/TESTING/dec.in b/lapack-netlib/TESTING/dec.in
index 50837a1a2..4a2aa52a1 100644
--- a/lapack-netlib/TESTING/dec.in
+++ b/lapack-netlib/TESTING/dec.in
@@ -948,3 +948,158 @@ DEC Key indicating type of input
1.20000D+01 -1.40000D+01 3.60000D+01 -2.50000D+01
3.60372D-02 7.96134D-02
0 0
+ 8 1 5
+ 1.0D+00 1.0D+00 1.1D+00 1.3D+00 2.0D+00 3.0D+00 -4.7D+00 3.3D+00
+ 1.0D+00 1.0D+00 3.7D+00 7.9D+00 4.0D+00 5.3D+00 3.3D+00 -9.0D-01
+ 0.0D+00 0.0D+00 2.0D+00 -3.0D+00 3.4D+00 6.5D+00 5.2D+00 1.8D+00
+ 0.0D+00 0.0D+00 4.0D+00 2.0D+00 -5.3D+00 -8.9D+00 -2.0D-01 -5.0D-01
+ 0.0D+00 0.0D+00 0.0D+00 0.0D+00 4.2D+00 2.0D+00 3.3D+00 2.3D+00
+ 0.0D+00 0.0D+00 0.0D+00 0.0D+00 3.7D+00 4.2D+00 9.9D+00 8.8D+00
+ 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 9.9D+00 8.8D+00
+ 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 -9.9D+00 9.9D+00
+ 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00
+ 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00
+ 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00
+ 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00
+ 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00
+ 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00
+ 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00
+ 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00
+ 8 1 5
+ 1.0D+00 1.0D+00 1.1D+00 1.3D+00 2.0D+00 3.0D+00 -4.7D+00 3.3D+00
+ 1.0D+00 1.0D+00 3.7D+00 7.9D+00 4.0D+00 5.3D+00 3.3D+00 -9.0D-01
+ 0.0D+00 0.0D+00 2.0D+00 3.0D+00 3.4D+00 6.5D+00 5.2D+00 1.8D+00
+ 0.0D+00 0.0D+00 4.0D+00 2.0D+00 -5.3D+00 -8.9D+00 -2.0D-01 -5.0D-01
+ 0.0D+00 0.0D+00 0.0D+00 0.0D+00 4.2D+00 2.0D+00 3.3D+00 2.3D+00
+ 0.0D+00 0.0D+00 0.0D+00 0.0D+00 3.7D+00 4.2D+00 9.9D+00 8.8D+00
+ 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 9.9D+00 8.8D+00
+ 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 -9.9D+00 9.9D+00
+ 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00
+ 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00
+ 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00
+ 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00
+ 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00
+ 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00
+ 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00
+ 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00
+ 8 1 5
+ 1.0D+00 1.0D+00 1.1D+00 1.3D+00 2.0D+00 3.0D+00 -4.7D+00 3.3D+00
+ 1.0D+00 1.0D+00 3.7D+00 7.9D+00 4.0D+00 5.3D+00 3.3D+00 -9.0D-01
+ 0.0D+00 0.0D+00 2.0D+00 3.0D+00 3.4D+00 6.5D+00 5.2D+00 1.8D+00
+ 0.0D+00 0.0D+00 0.0D+00 2.0D+00 -5.3D+00 -8.9D+00 -2.0D-01 -5.0D-01
+ 0.0D+00 0.0D+00 0.0D+00 0.0D+00 4.2D+00 2.0D+00 3.3D+00 2.3D+00
+ 0.0D+00 0.0D+00 0.0D+00 0.0D+00 3.7D+00 4.2D+00 9.9D+00 8.8D+00
+ 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 9.9D+00 8.8D+00
+ 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 -9.9D+00 9.9D+00
+ 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00
+ 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00
+ 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00
+ 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00
+ 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00
+ 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00
+ 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00
+ 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00
+ 8 1 5
+ 1.0D+00 1.0D+00 1.1D+00 1.3D+00 2.0D+00 3.0D+00 -4.7D+00 3.3D+00
+ 0.0D+00 1.0D+00 3.7D+00 7.9D+00 4.0D+00 5.3D+00 3.3D+00 -9.0D-01
+ 0.0D+00 0.0D+00 0.0D+00 3.0D+00 3.4D+00 6.5D+00 5.2D+00 1.8D+00
+ 0.0D+00 0.0D+00 0.0D+00 2.0D+00 -5.3D+00 -8.9D+00 -2.0D-01 -5.0D-01
+ 0.0D+00 0.0D+00 0.0D+00 0.0D+00 4.2D+00 2.0D+00 3.3D+00 2.3D+00
+ 0.0D+00 0.0D+00 0.0D+00 0.0D+00 3.7D+00 4.2D+00 9.9D+00 8.8D+00
+ 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 9.9D+00 8.8D+00
+ 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 -9.9D+00 9.9D+00
+ 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00
+ 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00
+ 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00
+ 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00
+ 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00
+ 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00
+ 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00
+ 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00
+ 8 5 1
+ 1.0D+00 1.0D+00 1.1D+00 1.3D+00 2.0D+00 3.0D+00 -4.7D+00 3.3D+00
+ 1.0D+00 1.0D+00 3.7D+00 7.9D+00 4.0D+00 5.3D+00 3.3D+00 -9.0D-01
+ 0.0D+00 0.0D+00 2.0D+00 -3.0D+00 3.4D+00 6.5D+00 5.2D+00 1.8D+00
+ 0.0D+00 0.0D+00 4.0D+00 2.0D+00 -5.3D+00 -8.9D+00 -2.0D-01 -5.0D-01
+ 0.0D+00 0.0D+00 0.0D+00 0.0D+00 4.2D+00 2.0D+00 3.3D+00 2.3D+00
+ 0.0D+00 0.0D+00 0.0D+00 0.0D+00 3.7D+00 4.2D+00 9.9D+00 8.8D+00
+ 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 9.9D+00 8.8D+00
+ 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 -9.9D+00 9.9D+00
+ 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00
+ 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00
+ 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00
+ 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00
+ 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00
+ 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00
+ 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00
+ 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00
+ 8 5 1
+ 1.0D+00 1.0D+00 1.1D+00 1.3D+00 2.0D+00 3.0D+00 -4.7D+00 3.3D+00
+ 1.0D+00 1.0D+00 3.7D+00 7.9D+00 4.0D+00 5.3D+00 3.3D+00 -9.0D-01
+ 0.0D+00 0.0D+00 2.0D+00 3.0D+00 3.4D+00 6.5D+00 5.2D+00 1.8D+00
+ 0.0D+00 0.0D+00 4.0D+00 2.0D+00 -5.3D+00 -8.9D+00 -2.0D-01 -5.0D-01
+ 0.0D+00 0.0D+00 0.0D+00 0.0D+00 4.2D+00 2.0D+00 3.3D+00 2.3D+00
+ 0.0D+00 0.0D+00 0.0D+00 0.0D+00 3.7D+00 4.2D+00 9.9D+00 8.8D+00
+ 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 9.9D+00 8.8D+00
+ 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 -9.9D+00 9.9D+00
+ 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00
+ 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00
+ 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00
+ 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00
+ 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00
+ 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00
+ 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00
+ 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00
+ 8 5 1
+ 1.0D+00 1.0D+00 1.1D+00 1.3D+00 2.0D+00 3.0D+00 -4.7D+00 3.3D+00
+ 1.0D+00 1.0D+00 3.7D+00 7.9D+00 4.0D+00 5.3D+00 3.3D+00 -9.0D-01
+ 0.0D+00 0.0D+00 2.0D+00 3.0D+00 3.4D+00 6.5D+00 5.2D+00 1.8D+00
+ 0.0D+00 0.0D+00 0.0D+00 2.0D+00 -5.3D+00 -8.9D+00 -2.0D-01 -5.0D-01
+ 0.0D+00 0.0D+00 0.0D+00 0.0D+00 4.2D+00 2.0D+00 3.3D+00 2.3D+00
+ 0.0D+00 0.0D+00 0.0D+00 0.0D+00 3.7D+00 4.2D+00 9.9D+00 8.8D+00
+ 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 9.9D+00 8.8D+00
+ 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 -9.9D+00 9.9D+00
+ 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00
+ 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00
+ 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00
+ 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00
+ 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00
+ 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00
+ 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00
+ 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00
+ 8 5 1
+ 1.0D+00 1.0D+00 1.1D+00 1.3D+00 2.0D+00 3.0D+00 -4.7D+00 3.3D+00
+ 0.0D+00 1.0D+00 3.7D+00 7.9D+00 4.0D+00 5.3D+00 3.3D+00 -9.0D-01
+ 0.0D+00 0.0D+00 0.0D+00 3.0D+00 3.4D+00 6.5D+00 5.2D+00 1.8D+00
+ 0.0D+00 0.0D+00 0.0D+00 2.0D+00 -5.3D+00 -8.9D+00 -2.0D-01 -5.0D-01
+ 0.0D+00 0.0D+00 0.0D+00 0.0D+00 4.2D+00 2.0D+00 3.3D+00 2.3D+00
+ 0.0D+00 0.0D+00 0.0D+00 0.0D+00 3.7D+00 4.2D+00 9.9D+00 8.8D+00
+ 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 9.9D+00 8.8D+00
+ 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 -9.9D+00 9.9D+00
+ 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00
+ 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00
+ 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00
+ 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00
+ 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00
+ 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00
+ 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00
+ 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00
+ 4 1 3
+ 1.0D+00 1.0D+00 1.1D+00 1.3D+00
+ 1.0D+00 1.0D+00 3.7D+00 7.9D+00
+ 0.0D+00 0.0D+00 1.0D+00 1.0D+00
+ 0.0D+00 0.0D+00 1.0D+00 1.0D+00
+ 1.0D+00 0.0D+00 0.0D+00 0.0D+00
+ 0.0D+00 1.0D+00 0.0D+00 0.0D+00
+ 0.0D+00 0.0D+00 1.0D+00 0.0D+00
+ 0.0D+00 0.0D+00 0.0D+00 1.0D+00
+ 4 1 3
+ 7.214055213169724D-01 9.376135742769982D-01 5.318280700344581D-01 9.787531445044610D-01
+ -9.376135742769982D-01 7.214055213169724D-01 7.801161815573352D-01 5.734592675974027D-01
+ 0.000000000000000D+00 0.000000000000000D+00 7.214055213169726D-01 9.376135742769983D-01
+ 0.000000000000000D+00 0.000000000000000D+00 -9.376135742769983D-01 7.214055213169726D-01
+ 1.000000000000000D+00 0.000000000000000D+00 5.589642506777136D-01 6.410964218208657D-01
+ 0.000000000000000D+00 1.000000000000000D+00 4.839061798610604D-01 6.207808731846947D-01
+ 0.000000000000000D+00 0.000000000000000D+00 1.000000000000000D+00 0.000000000000000D+00
+ 0.000000000000000D+00 0.000000000000000D+00 0.000000000000000D+00 1.000000000000000D+00
+ 0 0 0
\ No newline at end of file
diff --git a/lapack-netlib/TESTING/ded.in b/lapack-netlib/TESTING/ded.in
index 09f698e42..d0c26853d 100644
--- a/lapack-netlib/TESTING/ded.in
+++ b/lapack-netlib/TESTING/ded.in
@@ -1,5 +1,5 @@
DEV Data file for Real Nonsymmetric Eigenvalue Driver
-6 Number of matrix dimensions
+7 Number of matrix dimensions
0 1 2 3 5 10 20 Matrix dimensions
3 3 1 11 4 8 2 0 Parameters NB, NBMIN, NXOVER, INMIN, INWIN, INIBL, ISHFTS, IACC22
20.0 Threshold for test ratios
@@ -8,7 +8,7 @@ T
2518 3899 995 397 Seed for random number generator
DEV 21 Use all matrix types
DES Data file for Real Nonsymmetric Schur Form Driver
-6 Number of matrix dimensions
+7 Number of matrix dimensions
0 1 2 3 5 10 20 Matrix dimensions
3 3 1 11 4 8 2 0 Parameters NB, NBMIN, NXOVER, INMIN, INWIN, INIBL, ISHFTS, IACC22
20.0 Threshold for test ratios
@@ -17,7 +17,7 @@ T
2518 3899 995 397 Seed for random number generator
DES 21 Use all matrix types
DVX Data file for Real Nonsymmetric Eigenvalue Expert Driver
-6 Number of matrix dimensions
+7 Number of matrix dimensions
0 1 2 3 5 10 20 Matrix dimensions
3 3 1 11 4 8 2 0 Parameters NB, NBMIN, NXOVER, INMIN, INWIN, INIBL, ISHFTS, IACC22
20.0 Threshold for test ratios
diff --git a/lapack-netlib/TESTING/sec.in b/lapack-netlib/TESTING/sec.in
index 441e23d7f..0b2f4e68c 100644
--- a/lapack-netlib/TESTING/sec.in
+++ b/lapack-netlib/TESTING/sec.in
@@ -948,3 +948,167 @@ SEC Key indicating type of input
1.20000E+01 -1.40000E+01 3.60000E+01 -2.50000E+01
3.60372E-02 7.96134E-02
0 0
+ 8 1 5
+ 1.0E+00 1.0E+00 1.1E+00 1.3E+00 2.0E+00 3.0E+00 -4.7E+00 3.3E+00
+ 1.0E+00 1.0E+00 3.7E+00 7.9E+00 4.0E+00 5.3E+00 3.3E+00 -9.0D-01
+ 0.0E+00 0.0E+00 2.0E+00 -3.0E+00 3.4E+00 6.5E+00 5.2E+00 1.8E+00
+ 0.0E+00 0.0E+00 4.0E+00 2.0E+00 -5.3E+00 -8.9E+00 -2.0D-01 -5.0D-01
+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 4.2E+00 2.0E+00 3.3E+00 2.3E+00
+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 3.7E+00 4.2E+00 9.9E+00 8.8E+00
+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 9.9E+00 8.8E+00
+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 -9.9E+00 9.9E+00
+ 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00
+ 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00
+ 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00
+ 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00
+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00
+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00
+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00
+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00
+ 8 1 5
+ 1.0E+00 1.0E+00 1.1E+00 1.3E+00 2.0E+00 3.0E+00 -4.7E+00 3.3E+00
+ 1.0E+00 1.0E+00 3.7E+00 7.9E+00 4.0E+00 5.3E+00 3.3E+00 -9.0D-01
+ 0.0E+00 0.0E+00 2.0E+00 3.0E+00 3.4E+00 6.5E+00 5.2E+00 1.8E+00
+ 0.0E+00 0.0E+00 4.0E+00 2.0E+00 -5.3E+00 -8.9E+00 -2.0D-01 -5.0D-01
+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 4.2E+00 2.0E+00 3.3E+00 2.3E+00
+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 3.7E+00 4.2E+00 9.9E+00 8.8E+00
+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 9.9E+00 8.8E+00
+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 -9.9E+00 9.9E+00
+ 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00
+ 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00
+ 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00
+ 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00
+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00
+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00
+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00
+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00
+ 8 1 5
+ 1.0E+00 1.0E+00 1.1E+00 1.3E+00 2.0E+00 3.0E+00 -4.7E+00 3.3E+00
+ 1.0E+00 1.0E+00 3.7E+00 7.9E+00 4.0E+00 5.3E+00 3.3E+00 -9.0D-01
+ 0.0E+00 0.0E+00 2.0E+00 3.0E+00 3.4E+00 6.5E+00 5.2E+00 1.8E+00
+ 0.0E+00 0.0E+00 0.0E+00 2.0E+00 -5.3E+00 -8.9E+00 -2.0D-01 -5.0D-01
+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 4.2E+00 2.0E+00 3.3E+00 2.3E+00
+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 3.7E+00 4.2E+00 9.9E+00 8.8E+00
+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 9.9E+00 8.8E+00
+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 -9.9E+00 9.9E+00
+ 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00
+ 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00
+ 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00
+ 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00
+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00
+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00
+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00
+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00
+ 8 1 5
+ 1.0E+00 1.0E+00 1.1E+00 1.3E+00 2.0E+00 3.0E+00 -4.7E+00 3.3E+00
+ 0.0E+00 1.0E+00 3.7E+00 7.9E+00 4.0E+00 5.3E+00 3.3E+00 -9.0D-01
+ 0.0E+00 0.0E+00 0.0E+00 3.0E+00 3.4E+00 6.5E+00 5.2E+00 1.8E+00
+ 0.0E+00 0.0E+00 0.0E+00 2.0E+00 -5.3E+00 -8.9E+00 -2.0D-01 -5.0D-01
+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 4.2E+00 2.0E+00 3.3E+00 2.3E+00
+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 3.7E+00 4.2E+00 9.9E+00 8.8E+00
+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 9.9E+00 8.8E+00
+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 -9.9E+00 9.9E+00
+ 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00
+ 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00
+ 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00
+ 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00
+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00
+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00
+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00
+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00
+ 8 5 1
+ 1.0E+00 1.0E+00 1.1E+00 1.3E+00 2.0E+00 3.0E+00 -4.7E+00 3.3E+00
+ 1.0E+00 1.0E+00 3.7E+00 7.9E+00 4.0E+00 5.3E+00 3.3E+00 -9.0D-01
+ 0.0E+00 0.0E+00 2.0E+00 -3.0E+00 3.4E+00 6.5E+00 5.2E+00 1.8E+00
+ 0.0E+00 0.0E+00 4.0E+00 2.0E+00 -5.3E+00 -8.9E+00 -2.0D-01 -5.0D-01
+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 4.2E+00 2.0E+00 3.3E+00 2.3E+00
+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 3.7E+00 4.2E+00 9.9E+00 8.8E+00
+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 9.9E+00 8.8E+00
+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 -9.9E+00 9.9E+00
+ 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00
+ 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00
+ 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00
+ 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00
+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00
+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00
+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00
+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00
+ 8 5 1
+ 1.0E+00 1.0E+00 1.1E+00 1.3E+00 2.0E+00 3.0E+00 -4.7E+00 3.3E+00
+ 1.0E+00 1.0E+00 3.7E+00 7.9E+00 4.0E+00 5.3E+00 3.3E+00 -9.0D-01
+ 0.0E+00 0.0E+00 2.0E+00 3.0E+00 3.4E+00 6.5E+00 5.2E+00 1.8E+00
+ 0.0E+00 0.0E+00 4.0E+00 2.0E+00 -5.3E+00 -8.9E+00 -2.0D-01 -5.0D-01
+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 4.2E+00 2.0E+00 3.3E+00 2.3E+00
+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 3.7E+00 4.2E+00 9.9E+00 8.8E+00
+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 9.9E+00 8.8E+00
+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 -9.9E+00 9.9E+00
+ 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00
+ 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00
+ 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00
+ 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00
+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00
+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00
+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00
+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00
+ 8 5 1
+ 1.0E+00 1.0E+00 1.1E+00 1.3E+00 2.0E+00 3.0E+00 -4.7E+00 3.3E+00
+ 1.0E+00 1.0E+00 3.7E+00 7.9E+00 4.0E+00 5.3E+00 3.3E+00 -9.0D-01
+ 0.0E+00 0.0E+00 2.0E+00 3.0E+00 3.4E+00 6.5E+00 5.2E+00 1.8E+00
+ 0.0E+00 0.0E+00 0.0E+00 2.0E+00 -5.3E+00 -8.9E+00 -2.0D-01 -5.0D-01
+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 4.2E+00 2.0E+00 3.3E+00 2.3E+00
+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 3.7E+00 4.2E+00 9.9E+00 8.8E+00
+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 9.9E+00 8.8E+00
+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 -9.9E+00 9.9E+00
+ 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00
+ 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00
+ 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00
+ 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00
+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00
+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00
+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00
+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00
+ 8 5 1
+ 1.0E+00 1.0E+00 1.1E+00 1.3E+00 2.0E+00 3.0E+00 -4.7E+00 3.3E+00
+ 0.0E+00 1.0E+00 3.7E+00 7.9E+00 4.0E+00 5.3E+00 3.3E+00 -9.0D-01
+ 0.0E+00 0.0E+00 0.0E+00 3.0E+00 3.4E+00 6.5E+00 5.2E+00 1.8E+00
+ 0.0E+00 0.0E+00 0.0E+00 2.0E+00 -5.3E+00 -8.9E+00 -2.0D-01 -5.0D-01
+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 4.2E+00 2.0E+00 3.3E+00 2.3E+00
+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 3.7E+00 4.2E+00 9.9E+00 8.8E+00
+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 9.9E+00 8.8E+00
+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 -9.9E+00 9.9E+00
+ 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00
+ 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00
+ 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00
+ 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00
+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00
+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00
+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00
+ 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00
+ 4 1 3
+ 1.0E+00 1.0E+00 1.1E+00 1.3E+00
+ 1.0E+00 1.0E+00 3.7E+00 7.9E+00
+ 0.0E+00 0.0E+00 1.0E+00 1.0E+00
+ 0.0E+00 0.0E+00 1.0E+00 1.0E+00
+ 1.0E+00 0.0E+00 0.0E+00 0.0E+00
+ 0.0E+00 1.0E+00 0.0E+00 0.0E+00
+ 0.0E+00 0.0E+00 1.0E+00 0.0E+00
+ 0.0E+00 0.0E+00 0.0E+00 1.0E+00
+ 4 1 3
+ 5.0894040E-01 7.6143250E+00 3.6633062E-01 3.2759300E-01
+ -7.6143250E-02 5.0894040E-01 7.0241922E-01 3.0739143E-01
+ 0.0000000E+00 0.0000000E+00 4.2679306E+02 1.3142129E+03
+ 0.0000000E+00 0.0000000E+00 -1.3142129E+01 4.2679306E+02
+ 1.0000000E+00 0.0000000E+00 8.5444570E-01 9.6456930E-02
+ 0.0000000E+00 1.0000000E+00 9.0731663E-01 9.8456895E-01
+ 0.0000000E+00 0.0000000E+00 1.0000000E+00 0.0000000E+00
+ 0.0000000E+00 0.0000000E+00 0.0000000E+00 1.0000000E+00
+ 4 1 3
+ 3.9705437E-01 3.7467423E-01 9.3354374E-01 4.4120440E-01
+ -3.7467424E-03 3.9705437E-01 8.0811077E-01 7.2155964E-01
+ 0.0000000E+00 0.0000000E+00 7.5208154E+02 4.0743164E+03
+ 0.0000000E+00 0.0000000E+00 -4.0743164E+01 7.5208154E+02
+ 1.0000000E+00 0.0000000E+00 2.3644200E-01 5.4977387E-01
+ 0.0000000E+00 1.0000000E+00 5.1509380E-01 1.7662533E-01
+ 0.0000000E+00 0.0000000E+00 1.0000000E+00 0.0000000E+00
+ 0.0000000E+00 0.0000000E+00 0.0000000E+00 1.0000000E+00
+ 0 0 0
diff --git a/lapack-netlib/TESTING/sed.in b/lapack-netlib/TESTING/sed.in
index 2a0a4f77e..56469179a 100644
--- a/lapack-netlib/TESTING/sed.in
+++ b/lapack-netlib/TESTING/sed.in
@@ -1,5 +1,5 @@
SEV Data file for the Real Nonsymmetric Eigenvalue Driver
-6 Number of matrix dimensions
+7 Number of matrix dimensions
0 1 2 3 5 10 20 Matrix dimensions
3 3 1 11 4 8 2 0 Parameters NB, NBMIN, NXOVER, INMIN, INWIN, INIBL, ISHFTS, IACC22
20.0 Threshold for test ratios
@@ -8,7 +8,7 @@ T
2518 3899 995 397 Seed for random number generator
SEV 21 Use all matrix types
SES Data file for the Real Nonsymmetric Schur Form Driver
-6 Number of matrix dimensions
+7 Number of matrix dimensions
0 1 2 3 5 10 20 Matrix dimensions
3 3 1 11 4 8 2 0 Parameters NB, NBMIN, NXOVER, INMIN, INWIN, INIBL, ISHFTS, IACC22
20.0 Threshold for test ratios
@@ -17,7 +17,7 @@ T
2518 3899 995 397 Seed for random number generator
SES 21 Use all matrix types
SVX Data file for the Real Nonsymmetric Eigenvalue Expert Driver
-6 Number of matrix dimensions
+7 Number of matrix dimensions
0 1 2 3 5 10 20 Matrix dimensions
3 3 1 11 4 8 2 0 Parameters NB, NBMIN, NXOVER, INMIN, INWIN, INIBL, ISHFTS, IACC22
20.0 Threshold for test ratios
diff --git a/lapack-netlib/TESTING/zed.in b/lapack-netlib/TESTING/zed.in
index 538d8b0a2..6285a1c20 100644
--- a/lapack-netlib/TESTING/zed.in
+++ b/lapack-netlib/TESTING/zed.in
@@ -1,5 +1,5 @@
ZES Data for the Complex Nonsymmetric Schur Form Driver
-6 Number of matrix dimensions
+7 Number of matrix dimensions
0 1 2 3 5 10 20 Matrix dimensions
3 3 1 11 4 8 2 0 Parameters NB, NBMIN, NXOVER, INMIN, INWIN, INIBL, ISHFTS, IACC22
20.0 Threshold for test ratios
@@ -8,7 +8,7 @@ T
2518 3899 995 397 Seed for random number generator
ZES 21 Use all matrix types
ZEV Data for the Complex Nonsymmetric Eigenvalue Driver
-6 Number of matrix dimensions
+7 Number of matrix dimensions
0 1 2 3 5 10 20 Matrix dimensions
3 3 1 11 4 8 2 0 Parameters NB, NBMIN, NXOVER, INMIN, INWIN, INIBL, ISHFTS, IACC22
20.0 Threshold for test ratios
@@ -17,7 +17,7 @@ T
2518 3899 995 397 Seed for random number generator
ZEV 21 Use all matrix types
ZSX Data for the Complex Nonsymmetric Schur Form Expert Driver
-6 Number of matrix dimensions
+7 Number of matrix dimensions
0 1 2 3 5 10 20 Matrix dimensions
3 3 1 11 4 8 2 0 Parameters NB, NBMIN, NXOVER, INMIN, INWIN, INIBL, ISHFTS, IACC22
20.0 Threshold for test ratios