floraachy
/
OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Update the LAPACK testsuite to match 3.10.1

This commit is contained in:
martin-frbg 2022-05-11 18:40:55 +02:00
parent 510c7222ef
commit ffb4f04fbb
1214 changed files with 3605 additions and 5706 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lapack-netlib/TESTING/EIG/CMakeLists.txt
View File

@ -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)

12
lapack-netlib/TESTING/EIG/Makefile
View File

@ -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)

5
lapack-netlib/TESTING/EIG/alahdg.f
View File

@ -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

5
lapack-netlib/TESTING/EIG/alareq.f
View File

@ -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

5
lapack-netlib/TESTING/EIG/alarqg.f
View File

@ -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

5
lapack-netlib/TESTING/EIG/alasmg.f
View File

@ -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

5
lapack-netlib/TESTING/EIG/alasum.f
View File

@ -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

5
lapack-netlib/TESTING/EIG/alasvm.f
View File

@ -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

28
lapack-netlib/TESTING/EIG/cbdt01.f
View File

@ -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' )

10
lapack-netlib/TESTING/EIG/cbdt02.f
View File

@ -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

5
lapack-netlib/TESTING/EIG/cbdt03.f
View File

@ -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

5
lapack-netlib/TESTING/EIG/cbdt05.f
View File

@ -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

3
lapack-netlib/TESTING/EIG/cchkbb.f
View File

@ -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,

5
lapack-netlib/TESTING/EIG/cchkbd.f
View File

@ -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,

5
lapack-netlib/TESTING/EIG/cchkbk.f
View File

@ -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

5
lapack-netlib/TESTING/EIG/cchkbl.f
View File

@ -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

5
lapack-netlib/TESTING/EIG/cchkec.f
View File

@ -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

5
lapack-netlib/TESTING/EIG/cchkee.F
View File

@ -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
*
* =====================================================================
*

5
lapack-netlib/TESTING/EIG/cchkgg.f
View File

@ -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

5
lapack-netlib/TESTING/EIG/cchkgk.f
View File

@ -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

5
lapack-netlib/TESTING/EIG/cchkgl.f
View File

@ -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

5
lapack-netlib/TESTING/EIG/cchkhb.f
View File

@ -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,

51
lapack-netlib/TESTING/EIG/cchkhb2stg.f
View File

@ -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

5
lapack-netlib/TESTING/EIG/cchkhs.f
View File

@ -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

5
lapack-netlib/TESTING/EIG/cchkst.f
View File

@ -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,

24
lapack-netlib/TESTING/EIG/cchkst2stg.f
View File

@ -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

10
lapack-netlib/TESTING/EIG/cckcsd.f
View File

@ -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

5
lapack-netlib/TESTING/EIG/cckglm.f
View File

@ -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

5
lapack-netlib/TESTING/EIG/cckgqr.f
View File

@ -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

45
lapack-netlib/TESTING/EIG/cckgsv.f
View File

@ -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

5
lapack-netlib/TESTING/EIG/ccklse.f
View File

@ -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

12
lapack-netlib/TESTING/EIG/ccsdts.f
View File

@ -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

5
lapack-netlib/TESTING/EIG/cdrges.f
View File

@ -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

13
lapack-netlib/TESTING/EIG/cdrges3.f
View File

@ -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 )

7
lapack-netlib/TESTING/EIG/cdrgev.f
View File

@ -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,

13
lapack-netlib/TESTING/EIG/cdrgev3.f
View File

@ -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 )

5
lapack-netlib/TESTING/EIG/cdrgsx.f
View File

@ -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,

5
lapack-netlib/TESTING/EIG/cdrgvx.f
View File

@ -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,

5
lapack-netlib/TESTING/EIG/cdrvbd.f
View File

@ -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
*

5
lapack-netlib/TESTING/EIG/cdrves.f
View File

@ -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

5
lapack-netlib/TESTING/EIG/cdrvev.f
View File

@ -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,

5
lapack-netlib/TESTING/EIG/cdrvsg.f
View File

@ -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,

5
lapack-netlib/TESTING/EIG/cdrvsg2stg.f
View File

@ -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,

5
lapack-netlib/TESTING/EIG/cdrvst.f
View File

@ -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,

5
lapack-netlib/TESTING/EIG/cdrvst2stg.f
View File

@ -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,

5
lapack-netlib/TESTING/EIG/cdrvsx.f
View File

@ -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,

5
lapack-netlib/TESTING/EIG/cdrvvx.f
View File

@ -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,

5
lapack-netlib/TESTING/EIG/cerrbd.f
View File

@ -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

5
lapack-netlib/TESTING/EIG/cerrec.f
View File

@ -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

5
lapack-netlib/TESTING/EIG/cerred.f
View File

@ -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

15
lapack-netlib/TESTING/EIG/cerrgg.f
View File

@ -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

5
lapack-netlib/TESTING/EIG/cerrhs.f
View File

@ -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

5
lapack-netlib/TESTING/EIG/cerrst.f
View File

@ -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

28
lapack-netlib/TESTING/EIG/cget02.f
View File

@ -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

5
lapack-netlib/TESTING/EIG/cget10.f
View File

@ -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

8
lapack-netlib/TESTING/EIG/cget22.f
View File

@ -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

5
lapack-netlib/TESTING/EIG/cget23.f
View File

@ -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

5
lapack-netlib/TESTING/EIG/cget24.f
View File

@ -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

5
lapack-netlib/TESTING/EIG/cget35.f
View File

@ -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

5
lapack-netlib/TESTING/EIG/cget36.f
View File

@ -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

5
lapack-netlib/TESTING/EIG/cget37.f
View File

@ -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

5
lapack-netlib/TESTING/EIG/cget38.f
View File

@ -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

5
lapack-netlib/TESTING/EIG/cget51.f
View File

@ -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

9
lapack-netlib/TESTING/EIG/cget52.f
View File

@ -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.

5
lapack-netlib/TESTING/EIG/cget54.f
View File

@ -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

5
lapack-netlib/TESTING/EIG/cglmts.f
View File

@ -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

5
lapack-netlib/TESTING/EIG/cgqrts.f
View File

@ -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

5
lapack-netlib/TESTING/EIG/cgrqts.f
View File

@ -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

5
lapack-netlib/TESTING/EIG/cgsvts3.f
View File

@ -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

5
lapack-netlib/TESTING/EIG/chbt21.f
View File

@ -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

5
lapack-netlib/TESTING/EIG/chet21.f
View File

@ -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

5
lapack-netlib/TESTING/EIG/chet22.f
View File

@ -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

7
lapack-netlib/TESTING/EIG/chkxer.f
View File

@ -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

5
lapack-netlib/TESTING/EIG/chpt21.f
View File

@ -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

5
lapack-netlib/TESTING/EIG/chst01.f
View File

@ -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

5
lapack-netlib/TESTING/EIG/clarfy.f
View File

@ -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

14
lapack-netlib/TESTING/EIG/clarhs.f
View File

@ -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

5
lapack-netlib/TESTING/EIG/clatm4.f
View File

@ -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

5
lapack-netlib/TESTING/EIG/clctes.f
View File

@ -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

5
lapack-netlib/TESTING/EIG/clctsx.f
View File

@ -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

5
lapack-netlib/TESTING/EIG/clsets.f
View File

@ -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

5
lapack-netlib/TESTING/EIG/csbmv.f
View File

@ -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

5
lapack-netlib/TESTING/EIG/csgt01.f
View File

@ -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

5
lapack-netlib/TESTING/EIG/cslect.f
View File

@ -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

5
lapack-netlib/TESTING/EIG/cstt21.f
View File

@ -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

5
lapack-netlib/TESTING/EIG/cstt22.f
View File

@ -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

5
lapack-netlib/TESTING/EIG/cunt01.f
View File

@ -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

5
lapack-netlib/TESTING/EIG/cunt03.f
View File

@ -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

28
lapack-netlib/TESTING/EIG/dbdt01.f
View File

@ -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' )

10
lapack-netlib/TESTING/EIG/dbdt02.f
View File

@ -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

5
lapack-netlib/TESTING/EIG/dbdt03.f
View File

@ -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

5
lapack-netlib/TESTING/EIG/dbdt04.f
View File

@ -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

7
lapack-netlib/TESTING/EIG/dbdt05.f
View File

@ -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

3
lapack-netlib/TESTING/EIG/dchkbb.f
View File

@ -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,

5
lapack-netlib/TESTING/EIG/dchkbd.f
View File

@ -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,

5
lapack-netlib/TESTING/EIG/dchkbk.f
View File

@ -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

5
lapack-netlib/TESTING/EIG/dchkbl.f
View File

@ -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

25
lapack-netlib/TESTING/EIG/dchkec.f
View File

@ -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
*

5
lapack-netlib/TESTING/EIG/dchkee.F
View File

@ -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
*
* =====================================================================
*

5
lapack-netlib/TESTING/EIG/dchkgg.f
View File

@ -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

Some files were not shown because too many files have changed in this diff Show More