Update the LAPACK testsuite to match 3.10.1

OpenMathLib · martin-frbg · Aug 6, 2022 · Apr 21, 2022 · Apr 21, 2022 · Apr 21, 2022
commit ffb4f04fbb4ad456e8a4b6da39aa3c72abf21a18
diff --git 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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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 @@ SUBROUTINE CBDT01( M, N, KD, A, LDA, Q, LDQ, D, E, PT, LDPT, WORK,
          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 @@ SUBROUTINE CBDT01( M, N, KD, A, LDA, Q, LDQ, D, E, PT, LDPT, WORK,
          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
@@ -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
@@ -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
@@ -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
@@ -351,8 +351,6 @@
 *> \author Univ. of Colorado Denver
 *> \author NAG Ltd.
 *
-*> \date December 2016
-*
 *> \ingroup complex_eig
 *
 *  =====================================================================
@@ -364,7 +362,6 @@ SUBROUTINE CCHKBB( NSIZES, MVAL, NVAL, NWDTHS, KK, NTYPES, DOTYPE,
 *  -- 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
@@ -405,8 +405,6 @@
 *> \author Univ. of Colorado Denver
 *> \author NAG Ltd.
 *
-*> \date June 2016
-*
 *> \ingroup complex_eig
 *
 *  =====================================================================
@@ -415,10 +413,9 @@ SUBROUTINE CCHKBD( NSIZES, MVAL, NVAL, NTYPES, DOTYPE, NRHS,
      $                   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,