Update the LAPACK testsuite to match 3.10.1
This commit is contained in:
martin-frbg
parent
510c7222ef
commit
ffb4f04fbb
|
|
@ -36,7 +36,7 @@ set(SEIGTST schkee.F
|
||||||
serrbd.f serrec.f serred.f serrgg.f serrhs.f serrst.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
|
sget02.f sget10.f sget22.f sget23.f sget24.f sget31.f
|
||||||
sget32.f sget33.f sget34.f sget35.f sget36.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
|
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
|
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
|
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
|
derrbd.f derrec.f derred.f derrgg.f derrhs.f derrst.f
|
||||||
dget02.f dget10.f dget22.f dget23.f dget24.f dget31.f
|
dget02.f dget10.f dget22.f dget23.f dget24.f dget31.f
|
||||||
dget32.f dget33.f dget34.f dget35.f dget36.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
|
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
|
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
|
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)
|
macro(add_eig_executable name)
|
||||||
add_executable(${name} ${ARGN})
|
add_executable(${name} ${ARGN})
|
||||||
target_link_libraries(${name} openblas${SUFFIX64_UNDERSCORE})
|
target_link_libraries(${name} ${TMGLIB} ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
|
||||||
endmacro()
|
endmacro()
|
||||||
|
|
||||||
if(BUILD_SINGLE)
|
if(BUILD_SINGLE)
|
||||||
|
|
|
||||||
|
|
@ -58,7 +58,7 @@ SEIGTST = schkee.o \
|
||||||
serrbd.o serrec.o serred.o serrgg.o serrhs.o serrst.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 \
|
sget02.o sget10.o sget22.o sget23.o sget24.o sget31.o \
|
||||||
sget32.o sget33.o sget34.o sget35.o sget36.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 \
|
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 \
|
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 \
|
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 \
|
derrbd.o derrec.o derred.o derrgg.o derrhs.o derrst.o \
|
||||||
dget02.o dget10.o dget22.o dget23.o dget24.o dget31.o \
|
dget02.o dget10.o dget22.o dget23.o dget24.o dget31.o \
|
||||||
dget32.o dget33.o dget34.o dget35.o dget36.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 \
|
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 \
|
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 \
|
dort03.o dsbt21.o dsgt01.o dslect.o dspt21.o dstt21.o \
|
||||||
|
|
@ -128,16 +128,16 @@ double: xeigtstd
|
||||||
complex16: xeigtstz
|
complex16: xeigtstz
|
||||||
|
|
||||||
xeigtsts: $(SEIGTST) $(SCIGTST) $(AEIGTST) $(TMGLIB) ../$(LAPACKLIB) $(BLASLIB)
|
xeigtsts: $(SEIGTST) $(SCIGTST) $(AEIGTST) $(TMGLIB) ../$(LAPACKLIB) $(BLASLIB)
|
||||||
$(LOADER) $(FFLAGS) $(LDFLAGS) -o $@ $^
|
$(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^
|
||||||
|
|
||||||
xeigtstc: $(CEIGTST) $(SCIGTST) $(AEIGTST) $(TMGLIB) ../$(LAPACKLIB) $(BLASLIB)
|
xeigtstc: $(CEIGTST) $(SCIGTST) $(AEIGTST) $(TMGLIB) ../$(LAPACKLIB) $(BLASLIB)
|
||||||
$(LOADER) $(FFLAGS) $(LDFLAGS) -o $@ $^
|
$(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^
|
||||||
|
|
||||||
xeigtstd: $(DEIGTST) $(DZIGTST) $(AEIGTST) $(TMGLIB) ../$(LAPACKLIB) $(BLASLIB)
|
xeigtstd: $(DEIGTST) $(DZIGTST) $(AEIGTST) $(TMGLIB) ../$(LAPACKLIB) $(BLASLIB)
|
||||||
$(LOADER) $(FFLAGS) $(LDFLAGS) -o $@ $^
|
$(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^
|
||||||
|
|
||||||
xeigtstz: $(ZEIGTST) $(DZIGTST) $(AEIGTST) $(TMGLIB) ../$(LAPACKLIB) $(BLASLIB)
|
xeigtstz: $(ZEIGTST) $(DZIGTST) $(AEIGTST) $(TMGLIB) ../$(LAPACKLIB) $(BLASLIB)
|
||||||
$(LOADER) $(FFLAGS) $(LDFLAGS) -o $@ $^
|
$(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^
|
||||||
|
|
||||||
$(AEIGTST): $(FRC)
|
$(AEIGTST): $(FRC)
|
||||||
$(SCIGTST): $(FRC)
|
$(SCIGTST): $(FRC)
|
||||||
|
|
|
||||||
|
|
@ -55,17 +55,14 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup aux_eig
|
*> \ingroup aux_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE ALAHDG( IOUNIT, PATH )
|
SUBROUTINE ALAHDG( IOUNIT, PATH )
|
||||||
*
|
*
|
||||||
* -- LAPACK test routine (version 3.7.0) --
|
* -- LAPACK test routine --
|
||||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
CHARACTER*3 PATH
|
CHARACTER*3 PATH
|
||||||
|
|
|
||||||
|
|
@ -83,17 +83,14 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup aux_eig
|
*> \ingroup aux_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE ALAREQ( PATH, NMATS, DOTYPE, NTYPES, NIN, NOUT )
|
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, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
CHARACTER*3 PATH
|
CHARACTER*3 PATH
|
||||||
|
|
|
||||||
|
|
@ -83,17 +83,14 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup aux_eig
|
*> \ingroup aux_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE ALARQG( PATH, NMATS, DOTYPE, NTYPES, NIN, NOUT )
|
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, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
CHARACTER*3 PATH
|
CHARACTER*3 PATH
|
||||||
|
|
|
||||||
|
|
@ -66,17 +66,14 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup aux_eig
|
*> \ingroup aux_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE ALASMG( TYPE, NOUT, NFAIL, NRUN, NERRS )
|
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, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
CHARACTER*3 TYPE
|
CHARACTER*3 TYPE
|
||||||
|
|
|
||||||
|
|
@ -66,17 +66,14 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup aux_eig
|
*> \ingroup aux_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE ALASUM( TYPE, NOUT, NFAIL, NRUN, NERRS )
|
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, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
CHARACTER*3 TYPE
|
CHARACTER*3 TYPE
|
||||||
|
|
|
||||||
|
|
@ -66,17 +66,14 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup aux_eig
|
*> \ingroup aux_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE ALASVM( TYPE, NOUT, NFAIL, NRUN, NERRS )
|
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, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
CHARACTER*3 TYPE
|
CHARACTER*3 TYPE
|
||||||
|
|
|
||||||
|
|
@ -28,13 +28,13 @@
|
||||||
*> \verbatim
|
*> \verbatim
|
||||||
*>
|
*>
|
||||||
*> CBDT01 reconstructs a general matrix A from its bidiagonal form
|
*> CBDT01 reconstructs a general matrix A from its bidiagonal form
|
||||||
*> A = Q * B * P'
|
*> A = Q * B * P**H
|
||||||
*> where Q (m by min(m,n)) and P' (min(m,n) by n) are unitary
|
*> where Q (m by min(m,n)) and P**H (min(m,n) by n) are unitary
|
||||||
*> matrices and B is bidiagonal.
|
*> matrices and B is bidiagonal.
|
||||||
*>
|
*>
|
||||||
*> The test ratio to test the reduction is
|
*> The test ratio to test the reduction is
|
||||||
*> RESID = norm( A - Q * B * PT ) / ( n * norm(A) * EPS )
|
*> RESID = norm(A - Q * B * P**H) / ( n * norm(A) * EPS )
|
||||||
*> where PT = P' and EPS is the machine precision.
|
*> where EPS is the machine precision.
|
||||||
*> \endverbatim
|
*> \endverbatim
|
||||||
*
|
*
|
||||||
* Arguments:
|
* Arguments:
|
||||||
|
|
@ -49,7 +49,7 @@
|
||||||
*> \param[in] N
|
*> \param[in] N
|
||||||
*> \verbatim
|
*> \verbatim
|
||||||
*> N is INTEGER
|
*> 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
|
*> \endverbatim
|
||||||
*>
|
*>
|
||||||
*> \param[in] KD
|
*> \param[in] KD
|
||||||
|
|
@ -78,7 +78,7 @@
|
||||||
*> \verbatim
|
*> \verbatim
|
||||||
*> Q is COMPLEX array, dimension (LDQ,N)
|
*> Q is COMPLEX array, dimension (LDQ,N)
|
||||||
*> The m by min(m,n) unitary matrix Q in the reduction
|
*> The m by min(m,n) unitary matrix Q in the reduction
|
||||||
*> A = Q * B * P'.
|
*> A = Q * B * P**H.
|
||||||
*> \endverbatim
|
*> \endverbatim
|
||||||
*>
|
*>
|
||||||
*> \param[in] LDQ
|
*> \param[in] LDQ
|
||||||
|
|
@ -103,8 +103,8 @@
|
||||||
*> \param[in] PT
|
*> \param[in] PT
|
||||||
*> \verbatim
|
*> \verbatim
|
||||||
*> PT is COMPLEX array, dimension (LDPT,N)
|
*> PT is COMPLEX array, dimension (LDPT,N)
|
||||||
*> The min(m,n) by n unitary matrix P' in the reduction
|
*> The min(m,n) by n unitary matrix P**H in the reduction
|
||||||
*> A = Q * B * P'.
|
*> A = Q * B * P**H.
|
||||||
*> \endverbatim
|
*> \endverbatim
|
||||||
*>
|
*>
|
||||||
*> \param[in] LDPT
|
*> \param[in] LDPT
|
||||||
|
|
@ -127,7 +127,8 @@
|
||||||
*> \param[out] RESID
|
*> \param[out] RESID
|
||||||
*> \verbatim
|
*> \verbatim
|
||||||
*> RESID is REAL
|
*> 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
|
*> \endverbatim
|
||||||
*
|
*
|
||||||
* Authors:
|
* Authors:
|
||||||
|
|
@ -138,18 +139,15 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CBDT01( M, N, KD, A, LDA, Q, LDQ, D, E, PT, LDPT, WORK,
|
SUBROUTINE CBDT01( M, N, KD, A, LDA, Q, LDQ, D, E, PT, LDPT, WORK,
|
||||||
$ RWORK, RESID )
|
$ RWORK, RESID )
|
||||||
*
|
*
|
||||||
* -- LAPACK test routine (version 3.7.0) --
|
* -- LAPACK test routine --
|
||||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER KD, LDA, LDPT, LDQ, M, N
|
INTEGER KD, LDA, LDPT, LDQ, M, N
|
||||||
|
|
@ -190,7 +188,7 @@
|
||||||
RETURN
|
RETURN
|
||||||
END IF
|
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
|
RESID = ZERO
|
||||||
IF( KD.NE.0 ) THEN
|
IF( KD.NE.0 ) THEN
|
||||||
|
|
@ -268,7 +266,7 @@
|
||||||
END IF
|
END IF
|
||||||
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 )
|
ANORM = CLANGE( '1', M, N, A, LDA, RWORK )
|
||||||
EPS = SLAMCH( 'Precision' )
|
EPS = SLAMCH( 'Precision' )
|
||||||
|
|
|
||||||
|
|
@ -27,7 +27,8 @@
|
||||||
*>
|
*>
|
||||||
*> \verbatim
|
*> \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 ),
|
*> RESID = norm( B - U * C ) / ( max(m,n) * norm(B) * EPS ),
|
||||||
*>
|
*>
|
||||||
|
|
@ -66,7 +67,7 @@
|
||||||
*> \param[in] C
|
*> \param[in] C
|
||||||
*> \verbatim
|
*> \verbatim
|
||||||
*> C is COMPLEX array, dimension (LDC,N)
|
*> 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
|
*> \endverbatim
|
||||||
*>
|
*>
|
||||||
*> \param[in] LDC
|
*> \param[in] LDC
|
||||||
|
|
@ -111,18 +112,15 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CBDT02( M, N, B, LDB, C, LDC, U, LDU, WORK, RWORK,
|
SUBROUTINE CBDT02( M, N, B, LDB, C, LDC, U, LDU, WORK, RWORK,
|
||||||
$ RESID )
|
$ RESID )
|
||||||
*
|
*
|
||||||
* -- LAPACK test routine (version 3.7.0) --
|
* -- LAPACK test routine --
|
||||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER LDB, LDC, LDU, M, N
|
INTEGER LDB, LDC, LDU, M, N
|
||||||
|
|
|
||||||
|
|
@ -127,18 +127,15 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CBDT03( UPLO, N, KD, D, E, U, LDU, S, VT, LDVT, WORK,
|
SUBROUTINE CBDT03( UPLO, N, KD, D, E, U, LDU, S, VT, LDVT, WORK,
|
||||||
$ RESID )
|
$ RESID )
|
||||||
*
|
*
|
||||||
* -- LAPACK test routine (version 3.7.0) --
|
* -- LAPACK test routine --
|
||||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
CHARACTER UPLO
|
CHARACTER UPLO
|
||||||
|
|
|
||||||
|
|
@ -117,18 +117,15 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup double_eig
|
*> \ingroup double_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CBDT05( M, N, A, LDA, S, NS, U, LDU,
|
SUBROUTINE CBDT05( M, N, A, LDA, S, NS, U, LDU,
|
||||||
$ VT, LDVT, WORK, RESID )
|
$ VT, LDVT, WORK, RESID )
|
||||||
*
|
*
|
||||||
* -- LAPACK test routine (version 3.7.0) --
|
* -- LAPACK test routine --
|
||||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER LDA, LDU, LDVT, M, N, NS
|
INTEGER LDA, LDU, LDVT, M, N, NS
|
||||||
|
|
|
||||||
|
|
@ -351,8 +351,6 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
|
|
@ -364,7 +362,6 @@
|
||||||
* -- LAPACK test routine (input) --
|
* -- LAPACK test routine (input) --
|
||||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER INFO, LDA, LDAB, LDC, LDP, LDQ, LWORK, NOUNIT,
|
INTEGER INFO, LDA, LDAB, LDC, LDP, LDQ, LWORK, NOUNIT,
|
||||||
|
|
|
||||||
|
|
@ -405,8 +405,6 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date June 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
|
|
@ -415,10 +413,9 @@
|
||||||
$ Y, Z, Q, LDQ, PT, LDPT, U, VT, WORK, LWORK,
|
$ Y, Z, Q, LDQ, PT, LDPT, U, VT, WORK, LWORK,
|
||||||
$ RWORK, NOUT, INFO )
|
$ RWORK, NOUT, INFO )
|
||||||
*
|
*
|
||||||
* -- LAPACK test routine (version 3.7.0) --
|
* -- LAPACK test routine --
|
||||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* June 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER INFO, LDA, LDPT, LDQ, LDX, LWORK, NOUT, NRHS,
|
INTEGER INFO, LDA, LDPT, LDQ, LDX, LWORK, NOUT, NRHS,
|
||||||
|
|
|
||||||
|
|
@ -48,17 +48,14 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CCHKBK( NIN, NOUT )
|
SUBROUTINE CCHKBK( NIN, NOUT )
|
||||||
*
|
*
|
||||||
* -- LAPACK test routine (version 3.7.0) --
|
* -- LAPACK test routine --
|
||||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER NIN, NOUT
|
INTEGER NIN, NOUT
|
||||||
|
|
|
||||||
|
|
@ -47,17 +47,14 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CCHKBL( NIN, NOUT )
|
SUBROUTINE CCHKBL( NIN, NOUT )
|
||||||
*
|
*
|
||||||
* -- LAPACK test routine (version 3.7.0) --
|
* -- LAPACK test routine --
|
||||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER NIN, NOUT
|
INTEGER NIN, NOUT
|
||||||
|
|
|
||||||
|
|
@ -68,17 +68,14 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CCHKEC( THRESH, TSTERR, NIN, NOUT )
|
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, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
LOGICAL TSTERR
|
LOGICAL TSTERR
|
||||||
|
|
|
||||||
|
|
@ -1027,8 +1027,6 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date June 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
|
|
@ -1038,10 +1036,9 @@
|
||||||
use omp_lib
|
use omp_lib
|
||||||
#endif
|
#endif
|
||||||
*
|
*
|
||||||
* -- LAPACK test routine (version 3.7.0) --
|
* -- LAPACK test routine --
|
||||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* June 2016
|
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
*
|
*
|
||||||
|
|
|
||||||
|
|
@ -492,8 +492,6 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date June 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
|
|
@ -503,10 +501,9 @@
|
||||||
$ ALPHA3, BETA3, EVECTL, EVECTR, WORK, LWORK,
|
$ ALPHA3, BETA3, EVECTL, EVECTR, WORK, LWORK,
|
||||||
$ RWORK, LLWORK, RESULT, INFO )
|
$ RWORK, LLWORK, RESULT, INFO )
|
||||||
*
|
*
|
||||||
* -- LAPACK test routine (version 3.7.0) --
|
* -- LAPACK test routine --
|
||||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* June 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
LOGICAL TSTDIF
|
LOGICAL TSTDIF
|
||||||
|
|
|
||||||
|
|
@ -47,17 +47,14 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CCHKGK( NIN, NOUT )
|
SUBROUTINE CCHKGK( NIN, NOUT )
|
||||||
*
|
*
|
||||||
* -- LAPACK test routine (version 3.7.0) --
|
* -- LAPACK test routine --
|
||||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER NIN, NOUT
|
INTEGER NIN, NOUT
|
||||||
|
|
|
||||||
|
|
@ -46,17 +46,14 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CCHKGL( NIN, NOUT )
|
SUBROUTINE CCHKGL( NIN, NOUT )
|
||||||
*
|
*
|
||||||
* -- LAPACK test routine (version 3.7.0) --
|
* -- LAPACK test routine --
|
||||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER NIN, NOUT
|
INTEGER NIN, NOUT
|
||||||
|
|
|
||||||
|
|
@ -289,8 +289,6 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
|
|
@ -298,10 +296,9 @@
|
||||||
$ THRESH, NOUNIT, A, LDA, SD, SE, U, LDU, WORK,
|
$ THRESH, NOUNIT, A, LDA, SD, SE, U, LDU, WORK,
|
||||||
$ LWORK, RWORK, RESULT, INFO )
|
$ LWORK, RWORK, RESULT, INFO )
|
||||||
*
|
*
|
||||||
* -- LAPACK test routine (version 3.7.0) --
|
* -- LAPACK test routine --
|
||||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER INFO, LDA, LDU, LWORK, NOUNIT, NSIZES, NTYPES,
|
INTEGER INFO, LDA, LDU, LWORK, NOUNIT, NSIZES, NTYPES,
|
||||||
|
|
|
||||||
|
|
@ -1,4 +1,4 @@
|
||||||
*> \brief \b CCHKHBSTG
|
*> \brief \b CCHKHB2STG
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
|
|
@ -8,7 +8,7 @@
|
||||||
* Definition:
|
* 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,
|
* ISEED, THRESH, NOUNIT, A, LDA, SD, SE, D1,
|
||||||
* D2, D3, U, LDU, WORK, LWORK, RWORK RESULT,
|
* D2, D3, U, LDU, WORK, LWORK, RWORK RESULT,
|
||||||
* INFO )
|
* INFO )
|
||||||
|
|
@ -21,7 +21,8 @@
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* LOGICAL DOTYPE( * )
|
* LOGICAL DOTYPE( * )
|
||||||
* INTEGER ISEED( 4 ), KK( * ), NN( * )
|
* INTEGER ISEED( 4 ), KK( * ), NN( * )
|
||||||
* REAL RESULT( * ), RWORK( * ), SD( * ), SE( * )
|
* REAL RESULT( * ), RWORK( * ), SD( * ), SE( * ),
|
||||||
|
* $ D1( * ), D2( * ), D3( * )
|
||||||
* COMPLEX A( LDA, * ), U( LDU, * ), WORK( * )
|
* COMPLEX A( LDA, * ), U( LDU, * ), WORK( * )
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
|
|
@ -31,18 +32,18 @@
|
||||||
*>
|
*>
|
||||||
*> \verbatim
|
*> \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.
|
*> from, used with the Hermitian eigenvalue problem.
|
||||||
*>
|
*>
|
||||||
*> CHBTRD factors a Hermitian band matrix A as U S U* , where * means
|
*> CHBTRD factors a Hermitian band matrix A as U S U* , where * means
|
||||||
*> conjugate transpose, S is symmetric tridiagonal, and U is unitary.
|
*> conjugate transpose, S is symmetric tridiagonal, and U is unitary.
|
||||||
*> CHBTRD can use either just the lower or just the upper triangle
|
*> 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* ,
|
*> CHETRD_HB2ST factors a Hermitian band matrix A as U S U* ,
|
||||||
*> where * means conjugate transpose, S is symmetric tridiagonal, and U is
|
*> where * means conjugate transpose, S is symmetric tridiagonal, and U is
|
||||||
*> unitary. CHETRD_HB2ST can use either just the lower or just
|
*> 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'.
|
*> DSTEQR factors S as Z D1 Z'.
|
||||||
*> D1 is the matrix of eigenvalues computed when Z is not computed
|
*> 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
|
*> D3 is the matrix of eigenvalues computed when Z is not computed
|
||||||
*> and from the S resulting of DSYTRD_SB2ST "L".
|
*> 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
|
*> of bandwidths ("k's"), and a number of matrix "types" are
|
||||||
*> specified. For each size ("n"), each bandwidth ("k") less than or
|
*> specified. For each size ("n"), each bandwidth ("k") less than or
|
||||||
*> equal to "n", and each type of matrix, one matrix will be generated
|
*> equal to "n", and each type of matrix, one matrix will be generated
|
||||||
|
|
@ -126,7 +127,7 @@
|
||||||
*> \verbatim
|
*> \verbatim
|
||||||
*> NSIZES is INTEGER
|
*> NSIZES is INTEGER
|
||||||
*> The number of sizes of matrices to use. If it is zero,
|
*> 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
|
*> \endverbatim
|
||||||
*>
|
*>
|
||||||
*> \param[in] NN
|
*> \param[in] NN
|
||||||
|
|
@ -141,7 +142,7 @@
|
||||||
*> \verbatim
|
*> \verbatim
|
||||||
*> NWDTHS is INTEGER
|
*> NWDTHS is INTEGER
|
||||||
*> The number of bandwidths to use. If it is zero,
|
*> 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
|
*> \endverbatim
|
||||||
*>
|
*>
|
||||||
*> \param[in] KK
|
*> \param[in] KK
|
||||||
|
|
@ -154,7 +155,7 @@
|
||||||
*> \param[in] NTYPES
|
*> \param[in] NTYPES
|
||||||
*> \verbatim
|
*> \verbatim
|
||||||
*> NTYPES is INTEGER
|
*> 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
|
*> does nothing. It must be at least zero. If it is MAXTYP+1
|
||||||
*> and NSIZES is 1, then an additional type, MAXTYP+1 is
|
*> and NSIZES is 1, then an additional type, MAXTYP+1 is
|
||||||
*> defined, which is to use whatever matrix is in A. This
|
*> defined, which is to use whatever matrix is in A. This
|
||||||
|
|
@ -184,7 +185,7 @@
|
||||||
*> congruential sequence limited to small integers, and so
|
*> congruential sequence limited to small integers, and so
|
||||||
*> should produce machine independent random numbers. The
|
*> should produce machine independent random numbers. The
|
||||||
*> values of ISEED are changed on exit, and can be used in 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.
|
*> sequence.
|
||||||
*> \endverbatim
|
*> \endverbatim
|
||||||
*>
|
*>
|
||||||
|
|
@ -235,6 +236,23 @@
|
||||||
*> computed by CHBTRD.
|
*> computed by CHBTRD.
|
||||||
*> \endverbatim
|
*> \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
|
*> \param[out] U
|
||||||
*> \verbatim
|
*> \verbatim
|
||||||
*> U is COMPLEX array, dimension (LDU, max(NN))
|
*> U is COMPLEX array, dimension (LDU, max(NN))
|
||||||
|
|
@ -313,8 +331,6 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date June 2017
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
|
|
@ -323,10 +339,9 @@
|
||||||
$ D2, D3, U, LDU, WORK, LWORK, RWORK, RESULT,
|
$ D2, D3, U, LDU, WORK, LWORK, RWORK, RESULT,
|
||||||
$ INFO )
|
$ INFO )
|
||||||
*
|
*
|
||||||
* -- LAPACK test routine (version 3.7.1) --
|
* -- LAPACK test routine --
|
||||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* June 2017
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER INFO, LDA, LDU, LWORK, NOUNIT, NSIZES, NTYPES,
|
INTEGER INFO, LDA, LDU, LWORK, NOUNIT, NSIZES, NTYPES,
|
||||||
|
|
@ -432,7 +447,7 @@
|
||||||
END IF
|
END IF
|
||||||
*
|
*
|
||||||
IF( INFO.NE.0 ) THEN
|
IF( INFO.NE.0 ) THEN
|
||||||
CALL XERBLA( 'CCHKHBSTG', -INFO )
|
CALL XERBLA( 'CCHKHB2STG', -INFO )
|
||||||
RETURN
|
RETURN
|
||||||
END IF
|
END IF
|
||||||
*
|
*
|
||||||
|
|
@ -837,7 +852,7 @@
|
||||||
CALL SLASUM( 'CHB', NOUNIT, NERRS, NTESTT )
|
CALL SLASUM( 'CHB', NOUNIT, NERRS, NTESTT )
|
||||||
RETURN
|
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, ')' )
|
$ I6, ', JTYPE=', I6, ', ISEED=(', 3( I5, ',' ), I5, ')' )
|
||||||
9998 FORMAT( / 1X, A3,
|
9998 FORMAT( / 1X, A3,
|
||||||
$ ' -- Complex Hermitian Banded Tridiagonal Reduction Routines'
|
$ ' -- Complex Hermitian Banded Tridiagonal Reduction Routines'
|
||||||
|
|
@ -873,6 +888,6 @@
|
||||||
9993 FORMAT( ' N=', I5, ', K=', I4, ', seed=', 4( I4, ',' ), ' type ',
|
9993 FORMAT( ' N=', I5, ', K=', I4, ', seed=', 4( I4, ',' ), ' type ',
|
||||||
$ I2, ', test(', I2, ')=', G10.3 )
|
$ I2, ', test(', I2, ')=', G10.3 )
|
||||||
*
|
*
|
||||||
* End of CCHKHBSTG
|
* End of CCHKHB2STG
|
||||||
*
|
*
|
||||||
END
|
END
|
||||||
|
|
|
||||||
|
|
@ -401,8 +401,6 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
|
|
@ -412,10 +410,9 @@
|
||||||
$ WORK, NWORK, RWORK, IWORK, SELECT, RESULT,
|
$ WORK, NWORK, RWORK, IWORK, SELECT, RESULT,
|
||||||
$ INFO )
|
$ INFO )
|
||||||
*
|
*
|
||||||
* -- LAPACK test routine (version 3.7.0) --
|
* -- LAPACK test routine --
|
||||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER INFO, LDA, LDU, NOUNIT, NSIZES, NTYPES, NWORK
|
INTEGER INFO, LDA, LDU, NOUNIT, NSIZES, NTYPES, NWORK
|
||||||
|
|
|
||||||
|
|
@ -593,8 +593,6 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
|
|
@ -604,10 +602,9 @@
|
||||||
$ LWORK, RWORK, LRWORK, IWORK, LIWORK, RESULT,
|
$ LWORK, RWORK, LRWORK, IWORK, LIWORK, RESULT,
|
||||||
$ INFO )
|
$ INFO )
|
||||||
*
|
*
|
||||||
* -- LAPACK test routine (version 3.7.0) --
|
* -- LAPACK test routine --
|
||||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER INFO, LDA, LDU, LIWORK, LRWORK, LWORK, NOUNIT,
|
INTEGER INFO, LDA, LDU, LIWORK, LRWORK, LWORK, NOUNIT,
|
||||||
|
|
|
||||||
|
|
@ -614,8 +614,6 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
|
|
@ -625,10 +623,9 @@
|
||||||
$ LWORK, RWORK, LRWORK, IWORK, LIWORK, RESULT,
|
$ LWORK, RWORK, LRWORK, IWORK, LIWORK, RESULT,
|
||||||
$ INFO )
|
$ INFO )
|
||||||
*
|
*
|
||||||
* -- LAPACK test routine (version 3.7.0) --
|
* -- LAPACK test routine --
|
||||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER INFO, LDA, LDU, LIWORK, LRWORK, LWORK, NOUNIT,
|
INTEGER INFO, LDA, LDU, LIWORK, LRWORK, LWORK, NOUNIT,
|
||||||
|
|
@ -690,7 +687,7 @@
|
||||||
$ XERBLA, CCOPY, CHET21, CHETRD, CHPT21, CHPTRD,
|
$ XERBLA, CCOPY, CHET21, CHETRD, CHPT21, CHPTRD,
|
||||||
$ CLACPY, CLASET, CLATMR, CLATMS, CPTEQR, CSTEDC,
|
$ CLACPY, CLASET, CLATMR, CLATMS, CPTEQR, CSTEDC,
|
||||||
$ CSTEMR, CSTEIN, CSTEQR, CSTT21, CSTT22, CUNGTR,
|
$ CSTEMR, CSTEIN, CSTEQR, CSTT21, CSTT22, CUNGTR,
|
||||||
$ CUPGTR, CHETRD_2STAGE
|
$ CUPGTR, CHETRD_2STAGE, SLASET
|
||||||
* ..
|
* ..
|
||||||
* .. Intrinsic Functions ..
|
* .. Intrinsic Functions ..
|
||||||
INTRINSIC ABS, REAL, CONJG, INT, LOG, MAX, MIN, SQRT
|
INTRINSIC ABS, REAL, CONJG, INT, LOG, MAX, MIN, SQRT
|
||||||
|
|
@ -1014,8 +1011,8 @@
|
||||||
* the one from above. Compare it with D1 computed
|
* the one from above. Compare it with D1 computed
|
||||||
* using the 1-stage.
|
* using the 1-stage.
|
||||||
*
|
*
|
||||||
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SD, N )
|
CALL SLASET( 'Full', N, 1, ZERO, ZERO, SD, N )
|
||||||
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SE, N )
|
CALL SLASET( 'Full', N, 1, ZERO, ZERO, SE, N )
|
||||||
CALL CLACPY( 'U', N, N, A, LDA, V, LDU )
|
CALL CLACPY( 'U', N, N, A, LDA, V, LDU )
|
||||||
LH = MAX(1, 4*N)
|
LH = MAX(1, 4*N)
|
||||||
LW = LWORK - LH
|
LW = LWORK - LH
|
||||||
|
|
@ -1048,8 +1045,8 @@
|
||||||
* the one from above. Compare it with D1 computed
|
* the one from above. Compare it with D1 computed
|
||||||
* using the 1-stage.
|
* using the 1-stage.
|
||||||
*
|
*
|
||||||
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SD, N )
|
CALL SLASET( 'Full', N, 1, ZERO, ZERO, SD, N )
|
||||||
CALL DLASET( 'Full', N, 1, ZERO, ZERO, SE, N )
|
CALL SLASET( 'Full', N, 1, ZERO, ZERO, SE, N )
|
||||||
CALL CLACPY( 'L', N, N, A, LDA, V, LDU )
|
CALL CLACPY( 'L', N, N, A, LDA, V, LDU )
|
||||||
CALL CHETRD_2STAGE( 'N', "L", N, V, LDU, SD, SE, TAU,
|
CALL CHETRD_2STAGE( 'N', "L", N, V, LDU, SD, SE, TAU,
|
||||||
$ WORK, LH, WORK( LH+1 ), LW, IINFO )
|
$ WORK, LH, WORK( LH+1 ), LW, IINFO )
|
||||||
|
|
@ -1075,7 +1072,6 @@
|
||||||
END IF
|
END IF
|
||||||
END IF
|
END IF
|
||||||
*
|
*
|
||||||
*
|
|
||||||
* Do Tests 3 and 4 which are similar to 11 and 12 but with the
|
* 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
|
* D1 computed using the standard 1-stage reduction as reference
|
||||||
*
|
*
|
||||||
|
|
@ -1738,7 +1734,6 @@
|
||||||
END IF
|
END IF
|
||||||
END IF
|
END IF
|
||||||
*
|
*
|
||||||
*
|
|
||||||
* Do test 28
|
* Do test 28
|
||||||
*
|
*
|
||||||
TEMP2 = TWO*( TWO*N-ONE )*ULP*
|
TEMP2 = TWO*( TWO*N-ONE )*ULP*
|
||||||
|
|
@ -1795,7 +1790,6 @@
|
||||||
*
|
*
|
||||||
* Do Tests 29 and 30
|
* Do Tests 29 and 30
|
||||||
*
|
*
|
||||||
*
|
|
||||||
* Call CSTEMR to compute D2, do tests.
|
* Call CSTEMR to compute D2, do tests.
|
||||||
*
|
*
|
||||||
* Compute D2
|
* Compute D2
|
||||||
|
|
@ -1835,7 +1829,6 @@
|
||||||
RESULT( 31 ) = TEMP2 / MAX( UNFL,
|
RESULT( 31 ) = TEMP2 / MAX( UNFL,
|
||||||
$ ULP*MAX( TEMP1, TEMP2 ) )
|
$ ULP*MAX( TEMP1, TEMP2 ) )
|
||||||
*
|
*
|
||||||
*
|
|
||||||
* Call CSTEMR(V,V) to compute D1 and Z, do tests.
|
* Call CSTEMR(V,V) to compute D1 and Z, do tests.
|
||||||
*
|
*
|
||||||
* Compute D1 and Z
|
* Compute D1 and Z
|
||||||
|
|
@ -1937,7 +1930,6 @@
|
||||||
RESULT( 34 ) = ZERO
|
RESULT( 34 ) = ZERO
|
||||||
END IF
|
END IF
|
||||||
*
|
*
|
||||||
*
|
|
||||||
* Call CSTEMR(V,A) to compute D1 and Z, do tests.
|
* Call CSTEMR(V,A) to compute D1 and Z, do tests.
|
||||||
*
|
*
|
||||||
* Compute D1 and Z
|
* Compute D1 and Z
|
||||||
|
|
@ -1994,7 +1986,7 @@
|
||||||
END IF
|
END IF
|
||||||
END IF
|
END IF
|
||||||
*
|
*
|
||||||
* Do Test 34
|
* Do Test 37
|
||||||
*
|
*
|
||||||
TEMP1 = ZERO
|
TEMP1 = ZERO
|
||||||
TEMP2 = ZERO
|
TEMP2 = ZERO
|
||||||
|
|
@ -2013,7 +2005,6 @@
|
||||||
*
|
*
|
||||||
* End of Loop -- Check for RESULT(j) > THRESH
|
* End of Loop -- Check for RESULT(j) > THRESH
|
||||||
*
|
*
|
||||||
*
|
|
||||||
* Print out tests which fail.
|
* Print out tests which fail.
|
||||||
*
|
*
|
||||||
DO 290 JR = 1, NTEST
|
DO 290 JR = 1, NTEST
|
||||||
|
|
@ -2088,6 +2079,7 @@
|
||||||
$ 4( I4, ',' ), ' result ', I3, ' is', 1P, E10.3 )
|
$ 4( I4, ',' ), ' result ', I3, ' is', 1P, E10.3 )
|
||||||
*
|
*
|
||||||
9987 FORMAT( / 'Test performed: see CCHKST2STG for details.', / )
|
9987 FORMAT( / 'Test performed: see CCHKST2STG for details.', / )
|
||||||
|
*
|
||||||
* End of CCHKST2STG
|
* End of CCHKST2STG
|
||||||
*
|
*
|
||||||
END
|
END
|
||||||
|
|
|
||||||
|
|
@ -175,8 +175,6 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
|
|
@ -184,10 +182,9 @@
|
||||||
$ MMAX, X, XF, U1, U2, V1T, V2T, THETA, IWORK,
|
$ MMAX, X, XF, U1, U2, V1T, V2T, THETA, IWORK,
|
||||||
$ WORK, RWORK, NIN, NOUT, INFO )
|
$ 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, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER INFO, NIN, NM, NMATS, MMAX, NOUT
|
INTEGER INFO, NIN, NM, NMATS, MMAX, NOUT
|
||||||
|
|
@ -208,13 +205,14 @@
|
||||||
PARAMETER ( NTESTS = 15 )
|
PARAMETER ( NTESTS = 15 )
|
||||||
INTEGER NTYPES
|
INTEGER NTYPES
|
||||||
PARAMETER ( NTYPES = 4 )
|
PARAMETER ( NTYPES = 4 )
|
||||||
REAL GAPDIGIT, ORTH, PIOVER2, REALONE, REALZERO, TEN
|
REAL GAPDIGIT, ORTH, REALONE, REALZERO, TEN
|
||||||
PARAMETER ( GAPDIGIT = 10.0E0, ORTH = 1.0E-4,
|
PARAMETER ( GAPDIGIT = 10.0E0, ORTH = 1.0E-4,
|
||||||
$ PIOVER2 = 1.57079632679489662E0,
|
|
||||||
$ REALONE = 1.0E0, REALZERO = 0.0E0,
|
$ REALONE = 1.0E0, REALZERO = 0.0E0,
|
||||||
$ TEN = 10.0E0 )
|
$ TEN = 10.0E0 )
|
||||||
COMPLEX ONE, ZERO
|
COMPLEX ONE, ZERO
|
||||||
PARAMETER ( ONE = (1.0E0,0.0E0), ZERO = (0.0E0,0.0E0) )
|
PARAMETER ( ONE = (1.0E0,0.0E0), ZERO = (0.0E0,0.0E0) )
|
||||||
|
REAL PIOVER2
|
||||||
|
PARAMETER ( PIOVER2 = 1.57079632679489661923132169163975144210E0 )
|
||||||
* ..
|
* ..
|
||||||
* .. Local Scalars ..
|
* .. Local Scalars ..
|
||||||
LOGICAL FIRSTT
|
LOGICAL FIRSTT
|
||||||
|
|
|
||||||
|
|
@ -159,8 +159,6 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
|
|
@ -168,10 +166,9 @@
|
||||||
$ NMAX, A, AF, B, BF, X, WORK, RWORK, NIN, NOUT,
|
$ NMAX, A, AF, B, BF, X, WORK, RWORK, NIN, NOUT,
|
||||||
$ INFO )
|
$ INFO )
|
||||||
*
|
*
|
||||||
* -- LAPACK test routine (version 3.7.0) --
|
* -- LAPACK test routine --
|
||||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER INFO, NIN, NMATS, NMAX, NN, NOUT
|
INTEGER INFO, NIN, NMATS, NMAX, NN, NOUT
|
||||||
|
|
|
||||||
|
|
@ -202,8 +202,6 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
|
|
@ -211,10 +209,9 @@
|
||||||
$ THRESH, NMAX, A, AF, AQ, AR, TAUA, B, BF, BZ,
|
$ THRESH, NMAX, A, AF, AQ, AR, TAUA, B, BF, BZ,
|
||||||
$ BT, BWK, TAUB, WORK, RWORK, NIN, NOUT, INFO )
|
$ 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, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER INFO, NIN, NM, NMATS, NMAX, NN, NOUT, NP
|
INTEGER INFO, NIN, NM, NMATS, NMAX, NN, NOUT, NP
|
||||||
|
|
|
||||||
|
|
@ -189,8 +189,6 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
|
|
@ -198,10 +196,9 @@
|
||||||
$ NMAX, A, AF, B, BF, U, V, Q, ALPHA, BETA, R,
|
$ NMAX, A, AF, B, BF, U, V, Q, ALPHA, BETA, R,
|
||||||
$ IWORK, WORK, RWORK, NIN, NOUT, INFO )
|
$ 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, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER INFO, NIN, NM, NMATS, NMAX, NOUT
|
INTEGER INFO, NIN, NM, NMATS, NMAX, NOUT
|
||||||
|
|
@ -229,7 +226,7 @@
|
||||||
CHARACTER*3 PATH
|
CHARACTER*3 PATH
|
||||||
INTEGER I, IINFO, IM, IMAT, KLA, KLB, KUA, KUB, LDA,
|
INTEGER I, IINFO, IM, IMAT, KLA, KLB, KUA, KUB, LDA,
|
||||||
$ LDB, LDQ, LDR, LDU, LDV, LWORK, M, MODEA,
|
$ 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
|
REAL ANORM, BNORM, CNDNMA, CNDNMB
|
||||||
* ..
|
* ..
|
||||||
* .. Local Arrays ..
|
* .. Local Arrays ..
|
||||||
|
|
@ -260,6 +257,43 @@
|
||||||
LDR = NMAX
|
LDR = NMAX
|
||||||
LWORK = NMAX*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 for each value of M in MVAL.
|
||||||
*
|
*
|
||||||
DO 30 IM = 1, NM
|
DO 30 IM = 1, NM
|
||||||
|
|
@ -335,6 +369,7 @@
|
||||||
9999 FORMAT( ' CLATMS in CCKGSV INFO = ', I5 )
|
9999 FORMAT( ' CLATMS in CCKGSV INFO = ', I5 )
|
||||||
9998 FORMAT( ' M=', I4, ' P=', I4, ', N=', I4, ', type ', I2,
|
9998 FORMAT( ' M=', I4, ' P=', I4, ', N=', I4, ', type ', I2,
|
||||||
$ ', test ', I2, ', ratio=', G13.6 )
|
$ ', test ', I2, ', ratio=', G13.6 )
|
||||||
|
9997 FORMAT( ' FOUND NaN in BETA(', I4,')' )
|
||||||
RETURN
|
RETURN
|
||||||
*
|
*
|
||||||
* End of CCKGSV
|
* End of CCKGSV
|
||||||
|
|
|
||||||
|
|
@ -159,8 +159,6 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
|
|
@ -168,10 +166,9 @@
|
||||||
$ NMAX, A, AF, B, BF, X, WORK, RWORK, NIN, NOUT,
|
$ NMAX, A, AF, B, BF, X, WORK, RWORK, NIN, NOUT,
|
||||||
$ INFO )
|
$ INFO )
|
||||||
*
|
*
|
||||||
* -- LAPACK test routine (version 3.7.0) --
|
* -- LAPACK test routine --
|
||||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER INFO, NIN, NMATS, NMAX, NN, NOUT
|
INTEGER INFO, NIN, NMATS, NMAX, NN, NOUT
|
||||||
|
|
|
||||||
|
|
@ -220,8 +220,6 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
|
|
@ -229,10 +227,9 @@
|
||||||
$ LDV1T, V2T, LDV2T, THETA, IWORK, WORK, LWORK,
|
$ LDV1T, V2T, LDV2T, THETA, IWORK, WORK, LWORK,
|
||||||
$ RWORK, RESULT )
|
$ RWORK, RESULT )
|
||||||
*
|
*
|
||||||
* -- LAPACK test routine (version 3.7.0) --
|
* -- LAPACK test routine --
|
||||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER LDX, LDU1, LDU2, LDV1T, LDV2T, LWORK, M, P, Q
|
INTEGER LDX, LDU1, LDU2, LDV1T, LDV2T, LWORK, M, P, Q
|
||||||
|
|
@ -248,11 +245,12 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
*
|
*
|
||||||
* .. Parameters ..
|
* .. Parameters ..
|
||||||
REAL PIOVER2, REALONE, REALZERO
|
REAL REALONE, REALZERO
|
||||||
PARAMETER ( PIOVER2 = 1.57079632679489662E0,
|
PARAMETER ( REALONE = 1.0E0, REALZERO = 0.0E0 )
|
||||||
$ REALONE = 1.0E0, REALZERO = 0.0E0 )
|
|
||||||
COMPLEX ZERO, ONE
|
COMPLEX ZERO, ONE
|
||||||
PARAMETER ( ZERO = (0.0E0,0.0E0), ONE = (1.0E0,0.0E0) )
|
PARAMETER ( ZERO = (0.0E0,0.0E0), ONE = (1.0E0,0.0E0) )
|
||||||
|
REAL PIOVER2
|
||||||
|
PARAMETER ( PIOVER2 = 1.57079632679489661923132169163975144210E0 )
|
||||||
* ..
|
* ..
|
||||||
* .. Local Scalars ..
|
* .. Local Scalars ..
|
||||||
INTEGER I, INFO, R
|
INTEGER I, INFO, R
|
||||||
|
|
|
||||||
|
|
@ -372,8 +372,6 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date June 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
|
|
@ -381,10 +379,9 @@
|
||||||
$ NOUNIT, A, LDA, B, S, T, Q, LDQ, Z, ALPHA,
|
$ NOUNIT, A, LDA, B, S, T, Q, LDQ, Z, ALPHA,
|
||||||
$ BETA, WORK, LWORK, RWORK, RESULT, BWORK, INFO )
|
$ 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, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* June 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER INFO, LDA, LDQ, LWORK, NOUNIT, NSIZES, NTYPES
|
INTEGER INFO, LDA, LDQ, LWORK, NOUNIT, NSIZES, NTYPES
|
||||||
|
|
|
||||||
|
|
@ -372,8 +372,6 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date February 2015
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
|
|
@ -382,10 +380,9 @@
|
||||||
$ BETA, WORK, LWORK, RWORK, RESULT, BWORK,
|
$ BETA, WORK, LWORK, RWORK, RESULT, BWORK,
|
||||||
$ INFO )
|
$ INFO )
|
||||||
*
|
*
|
||||||
* -- LAPACK test routine (version 3.6.1) --
|
* -- LAPACK test routine --
|
||||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* February 2015
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER INFO, LDA, LDQ, LWORK, NOUNIT, NSIZES, NTYPES
|
INTEGER INFO, LDA, LDQ, LWORK, NOUNIT, NSIZES, NTYPES
|
||||||
|
|
@ -744,6 +741,14 @@
|
||||||
RSUB = 5
|
RSUB = 5
|
||||||
END IF
|
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 CGGES3 to compute H, T, Q, Z, alpha, and beta.
|
||||||
*
|
*
|
||||||
CALL CLACPY( 'Full', N, N, A, LDA, S, LDA )
|
CALL CLACPY( 'Full', N, N, A, LDA, S, LDA )
|
||||||
|
|
|
||||||
|
|
@ -69,7 +69,7 @@
|
||||||
*>
|
*>
|
||||||
*> VL(i) denotes the i-th column of VL.
|
*> 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|) )
|
*> | (beta A - alpha B) * VR | / ( ulp max(|beta A|, |alpha B|) )
|
||||||
*>
|
*>
|
||||||
|
|
@ -389,8 +389,6 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date June 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
|
|
@ -399,10 +397,9 @@
|
||||||
$ ALPHA, BETA, ALPHA1, BETA1, WORK, LWORK, RWORK,
|
$ ALPHA, BETA, ALPHA1, BETA1, WORK, LWORK, RWORK,
|
||||||
$ RESULT, INFO )
|
$ RESULT, INFO )
|
||||||
*
|
*
|
||||||
* -- LAPACK test routine (version 3.7.0) --
|
* -- LAPACK test routine --
|
||||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* June 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER INFO, LDA, LDQ, LDQE, LWORK, NOUNIT, NSIZES,
|
INTEGER INFO, LDA, LDQ, LDQE, LWORK, NOUNIT, NSIZES,
|
||||||
|
|
|
||||||
|
|
@ -389,8 +389,6 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date January 2015
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
|
|
@ -399,10 +397,9 @@
|
||||||
$ ALPHA, BETA, ALPHA1, BETA1, WORK, LWORK,
|
$ ALPHA, BETA, ALPHA1, BETA1, WORK, LWORK,
|
||||||
$ RWORK, RESULT, INFO )
|
$ RWORK, RESULT, INFO )
|
||||||
*
|
*
|
||||||
* -- LAPACK test routine (version 3.6.1) --
|
* -- LAPACK test routine --
|
||||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* January 2015
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER INFO, LDA, LDQ, LDQE, LWORK, NOUNIT, NSIZES,
|
INTEGER INFO, LDA, LDQ, LDQE, LWORK, NOUNIT, NSIZES,
|
||||||
|
|
@ -736,6 +733,14 @@
|
||||||
RESULT( I ) = -ONE
|
RESULT( I ) = -ONE
|
||||||
110 CONTINUE
|
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 CGGEV3 to compute eigenvalues and eigenvectors.
|
||||||
*
|
*
|
||||||
CALL CLACPY( ' ', N, N, A, LDA, S, LDA )
|
CALL CLACPY( ' ', N, N, A, LDA, S, LDA )
|
||||||
|
|
|
||||||
|
|
@ -340,8 +340,6 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date June 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
|
|
@ -349,10 +347,9 @@
|
||||||
$ AI, BI, Z, Q, ALPHA, BETA, C, LDC, S, WORK,
|
$ AI, BI, Z, Q, ALPHA, BETA, C, LDC, S, WORK,
|
||||||
$ LWORK, RWORK, IWORK, LIWORK, BWORK, INFO )
|
$ 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, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* June 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER INFO, LDA, LDC, LIWORK, LWORK, NCMAX, NIN,
|
INTEGER INFO, LDA, LDC, LIWORK, LWORK, NCMAX, NIN,
|
||||||
|
|
|
||||||
|
|
@ -288,8 +288,6 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date June 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
|
|
@ -298,10 +296,9 @@
|
||||||
$ S, STRU, DIF, DIFTRU, WORK, LWORK, RWORK,
|
$ S, STRU, DIF, DIFTRU, WORK, LWORK, RWORK,
|
||||||
$ IWORK, LIWORK, RESULT, BWORK, INFO )
|
$ 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, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* June 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER IHI, ILO, INFO, LDA, LIWORK, LWORK, NIN, NOUT,
|
INTEGER IHI, ILO, INFO, LDA, LIWORK, LWORK, NIN, NOUT,
|
||||||
|
|
|
||||||
|
|
@ -391,8 +391,6 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date June 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
|
|
@ -401,10 +399,9 @@
|
||||||
$ SSAV, E, WORK, LWORK, RWORK, IWORK, NOUNIT,
|
$ SSAV, E, WORK, LWORK, RWORK, IWORK, NOUNIT,
|
||||||
$ INFO )
|
$ INFO )
|
||||||
*
|
*
|
||||||
* -- LAPACK test routine (version 3.7.0) --
|
* -- LAPACK test routine --
|
||||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* June 2016
|
|
||||||
*
|
*
|
||||||
IMPLICIT NONE
|
IMPLICIT NONE
|
||||||
*
|
*
|
||||||
|
|
|
||||||
|
|
@ -369,8 +369,6 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date June 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
|
|
@ -378,10 +376,9 @@
|
||||||
$ NOUNIT, A, LDA, H, HT, W, WT, VS, LDVS, RESULT,
|
$ NOUNIT, A, LDA, H, HT, W, WT, VS, LDVS, RESULT,
|
||||||
$ WORK, NWORK, RWORK, IWORK, BWORK, INFO )
|
$ 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, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* June 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER INFO, LDA, LDVS, NOUNIT, NSIZES, NTYPES, NWORK
|
INTEGER INFO, LDA, LDVS, NOUNIT, NSIZES, NTYPES, NWORK
|
||||||
|
|
|
||||||
|
|
@ -381,8 +381,6 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
|
|
@ -391,10 +389,9 @@
|
||||||
$ LRE, LDLRE, RESULT, WORK, NWORK, RWORK, IWORK,
|
$ LRE, LDLRE, RESULT, WORK, NWORK, RWORK, IWORK,
|
||||||
$ INFO )
|
$ INFO )
|
||||||
*
|
*
|
||||||
* -- LAPACK test routine (version 3.7.0) --
|
* -- LAPACK test routine --
|
||||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER INFO, LDA, LDLRE, LDVL, LDVR, NOUNIT, NSIZES,
|
INTEGER INFO, LDA, LDLRE, LDVL, LDVR, NOUNIT, NSIZES,
|
||||||
|
|
|
||||||
|
|
@ -360,8 +360,6 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
|
|
@ -370,10 +368,9 @@
|
||||||
$ BP, WORK, NWORK, RWORK, LRWORK, IWORK, LIWORK,
|
$ BP, WORK, NWORK, RWORK, LRWORK, IWORK, LIWORK,
|
||||||
$ RESULT, INFO )
|
$ RESULT, INFO )
|
||||||
*
|
*
|
||||||
* -- LAPACK test routine (version 3.7.0) --
|
* -- LAPACK test routine --
|
||||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER INFO, LDA, LDB, LDZ, LIWORK, LRWORK, NOUNIT,
|
INTEGER INFO, LDA, LDB, LDZ, LIWORK, LRWORK, NOUNIT,
|
||||||
|
|
|
||||||
|
|
@ -366,8 +366,6 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
|
|
@ -378,10 +376,9 @@
|
||||||
*
|
*
|
||||||
IMPLICIT NONE
|
IMPLICIT NONE
|
||||||
*
|
*
|
||||||
* -- LAPACK test routine (version 3.7.0) --
|
* -- LAPACK test routine --
|
||||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER INFO, LDA, LDB, LDZ, LIWORK, LRWORK, NOUNIT,
|
INTEGER INFO, LDA, LDB, LDZ, LIWORK, LRWORK, NOUNIT,
|
||||||
|
|
|
||||||
|
|
@ -328,8 +328,6 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
|
|
@ -338,10 +336,9 @@
|
||||||
$ LDU, V, TAU, Z, WORK, LWORK, RWORK, LRWORK,
|
$ LDU, V, TAU, Z, WORK, LWORK, RWORK, LRWORK,
|
||||||
$ IWORK, LIWORK, RESULT, INFO )
|
$ IWORK, LIWORK, RESULT, INFO )
|
||||||
*
|
*
|
||||||
* -- LAPACK test routine (version 3.7.0) --
|
* -- LAPACK test routine --
|
||||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER INFO, LDA, LDU, LIWORK, LRWORK, LWORK, NOUNIT,
|
INTEGER INFO, LDA, LDU, LIWORK, LRWORK, LWORK, NOUNIT,
|
||||||
|
|
|
||||||
|
|
@ -328,8 +328,6 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date June 2017
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
|
|
@ -338,10 +336,9 @@
|
||||||
$ LDU, V, TAU, Z, WORK, LWORK, RWORK, LRWORK,
|
$ LDU, V, TAU, Z, WORK, LWORK, RWORK, LRWORK,
|
||||||
$ IWORK, LIWORK, RESULT, INFO )
|
$ IWORK, LIWORK, RESULT, INFO )
|
||||||
*
|
*
|
||||||
* -- LAPACK test routine (version 3.7.1) --
|
* -- LAPACK test routine --
|
||||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* June 2017
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER INFO, LDA, LDU, LIWORK, LRWORK, LWORK, NOUNIT,
|
INTEGER INFO, LDA, LDU, LIWORK, LRWORK, LWORK, NOUNIT,
|
||||||
|
|
|
||||||
|
|
@ -425,8 +425,6 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date June 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
|
|
@ -435,10 +433,9 @@
|
||||||
$ LDVS, VS1, RESULT, WORK, LWORK, RWORK, BWORK,
|
$ LDVS, VS1, RESULT, WORK, LWORK, RWORK, BWORK,
|
||||||
$ INFO )
|
$ INFO )
|
||||||
*
|
*
|
||||||
* -- LAPACK test routine (version 3.7.0) --
|
* -- LAPACK test routine --
|
||||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* June 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER INFO, LDA, LDVS, LWORK, NIUNIT, NOUNIT, NSIZES,
|
INTEGER INFO, LDA, LDVS, LWORK, NIUNIT, NOUNIT, NSIZES,
|
||||||
|
|
|
||||||
|
|
@ -485,8 +485,6 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date June 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
|
|
@ -496,10 +494,9 @@
|
||||||
$ RCONDE, RCNDE1, RCDEIN, SCALE, SCALE1, RESULT,
|
$ RCONDE, RCNDE1, RCDEIN, SCALE, SCALE1, RESULT,
|
||||||
$ WORK, NWORK, RWORK, INFO )
|
$ WORK, NWORK, RWORK, INFO )
|
||||||
*
|
*
|
||||||
* -- LAPACK test routine (version 3.7.0) --
|
* -- LAPACK test routine --
|
||||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* June 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER INFO, LDA, LDLRE, LDVL, LDVR, NIUNIT, NOUNIT,
|
INTEGER INFO, LDA, LDLRE, LDVL, LDVR, NIUNIT, NOUNIT,
|
||||||
|
|
|
||||||
|
|
@ -47,17 +47,14 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CERRBD( PATH, NUNIT )
|
SUBROUTINE CERRBD( PATH, NUNIT )
|
||||||
*
|
*
|
||||||
* -- LAPACK test routine (version 3.7.0) --
|
* -- LAPACK test routine --
|
||||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
CHARACTER*3 PATH
|
CHARACTER*3 PATH
|
||||||
|
|
|
||||||
|
|
@ -49,17 +49,14 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CERREC( PATH, NUNIT )
|
SUBROUTINE CERREC( PATH, NUNIT )
|
||||||
*
|
*
|
||||||
* -- LAPACK test routine (version 3.7.0) --
|
* -- LAPACK test routine --
|
||||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
CHARACTER*3 PATH
|
CHARACTER*3 PATH
|
||||||
|
|
|
||||||
|
|
@ -63,17 +63,14 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date June 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CERRED( PATH, NUNIT )
|
SUBROUTINE CERRED( PATH, NUNIT )
|
||||||
*
|
*
|
||||||
* -- LAPACK test routine (version 3.7.0) --
|
* -- LAPACK test routine --
|
||||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* June 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
CHARACTER*3 PATH
|
CHARACTER*3 PATH
|
||||||
|
|
|
||||||
|
|
@ -50,17 +50,14 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date June 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CERRGG( PATH, NUNIT )
|
SUBROUTINE CERRGG( PATH, NUNIT )
|
||||||
*
|
*
|
||||||
* -- LAPACK test routine (version 3.7.0) --
|
* -- LAPACK test routine --
|
||||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* June 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
CHARACTER*3 PATH
|
CHARACTER*3 PATH
|
||||||
|
|
@ -100,7 +97,7 @@
|
||||||
$ CGGLSE, CGGQRF, CGGRQF, CHGEQZ,
|
$ CGGLSE, CGGQRF, CGGRQF, CHGEQZ,
|
||||||
$ CHKXER, CTGEVC, CTGEXC, CTGSEN, CTGSJA, CTGSNA,
|
$ CHKXER, CTGEVC, CTGEXC, CTGSEN, CTGSJA, CTGSNA,
|
||||||
$ CTGSYL, CUNCSD, CGGES3, CGGEV3, CGGHD3,
|
$ CTGSYL, CUNCSD, CGGES3, CGGEV3, CGGHD3,
|
||||||
$ CGGSVD3, CGGSVP3
|
$ CGGSVD3, CGGSVP3, XLAENV
|
||||||
* ..
|
* ..
|
||||||
* .. Scalars in Common ..
|
* .. Scalars in Common ..
|
||||||
LOGICAL LERR, OK
|
LOGICAL LERR, OK
|
||||||
|
|
@ -138,6 +135,14 @@
|
||||||
NT = 0
|
NT = 0
|
||||||
LWORK = 1
|
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.
|
* Test error exits for the GG path.
|
||||||
*
|
*
|
||||||
IF( LSAMEN( 2, C2, 'GG' ) ) THEN
|
IF( LSAMEN( 2, C2, 'GG' ) ) THEN
|
||||||
|
|
|
||||||
|
|
@ -48,17 +48,14 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CERRHS( PATH, NUNIT )
|
SUBROUTINE CERRHS( PATH, NUNIT )
|
||||||
*
|
*
|
||||||
* -- LAPACK test routine (version 3.7.0) --
|
* -- LAPACK test routine --
|
||||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
CHARACTER*3 PATH
|
CHARACTER*3 PATH
|
||||||
|
|
|
||||||
|
|
@ -54,17 +54,14 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date June 2017
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CERRST( PATH, NUNIT )
|
SUBROUTINE CERRST( PATH, NUNIT )
|
||||||
*
|
*
|
||||||
* -- LAPACK test routine (version 3.7.1) --
|
* -- LAPACK test routine --
|
||||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* June 2017
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
CHARACTER*3 PATH
|
CHARACTER*3 PATH
|
||||||
|
|
|
||||||
|
|
@ -28,9 +28,10 @@
|
||||||
*> \verbatim
|
*> \verbatim
|
||||||
*>
|
*>
|
||||||
*> CGET02 computes the residual for a solution of a system of linear
|
*> CGET02 computes the residual for a solution of a system of linear
|
||||||
*> equations A*x = b or A'*x = b:
|
*> equations op(A)*X = B:
|
||||||
*> RESID = norm(B - A*X) / ( norm(A) * norm(X) * EPS ),
|
*> RESID = norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ),
|
||||||
*> where EPS is the machine epsilon.
|
*> where op(A) = A, A**T, or A**H, depending on TRANS, and EPS is the
|
||||||
|
*> machine epsilon.
|
||||||
*> \endverbatim
|
*> \endverbatim
|
||||||
*
|
*
|
||||||
* Arguments:
|
* Arguments:
|
||||||
|
|
@ -40,9 +41,9 @@
|
||||||
*> \verbatim
|
*> \verbatim
|
||||||
*> TRANS is CHARACTER*1
|
*> TRANS is CHARACTER*1
|
||||||
*> Specifies the form of the system of equations:
|
*> Specifies the form of the system of equations:
|
||||||
*> = 'N': A *x = b
|
*> = 'N': A * X = B (No transpose)
|
||||||
*> = 'T': A^T*x = b, where A^T is the transpose of A
|
*> = 'T': A**T * X = B (Transpose)
|
||||||
*> = 'C': A^H*x = b, where A^H is the conjugate transpose of A
|
*> = 'C': A**H * X = B (Conjugate transpose)
|
||||||
*> \endverbatim
|
*> \endverbatim
|
||||||
*>
|
*>
|
||||||
*> \param[in] M
|
*> \param[in] M
|
||||||
|
|
@ -114,7 +115,7 @@
|
||||||
*> \verbatim
|
*> \verbatim
|
||||||
*> RESID is REAL
|
*> RESID is REAL
|
||||||
*> The maximum over the number of right hand sides of
|
*> 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
|
*> \endverbatim
|
||||||
*
|
*
|
||||||
* Authors:
|
* Authors:
|
||||||
|
|
@ -125,18 +126,15 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date June 2017
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB,
|
SUBROUTINE CGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB,
|
||||||
$ RWORK, RESID )
|
$ RWORK, RESID )
|
||||||
*
|
*
|
||||||
* -- LAPACK test routine (version 3.7.1) --
|
* -- LAPACK test routine --
|
||||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* June 2017
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
CHARACTER TRANS
|
CHARACTER TRANS
|
||||||
|
|
@ -191,19 +189,23 @@
|
||||||
* Exit with RESID = 1/EPS if ANORM = 0.
|
* Exit with RESID = 1/EPS if ANORM = 0.
|
||||||
*
|
*
|
||||||
EPS = SLAMCH( 'Epsilon' )
|
EPS = SLAMCH( 'Epsilon' )
|
||||||
|
IF( LSAME( TRANS, 'N' ) ) THEN
|
||||||
ANORM = CLANGE( '1', M, N, A, LDA, RWORK )
|
ANORM = CLANGE( '1', M, N, A, LDA, RWORK )
|
||||||
|
ELSE
|
||||||
|
ANORM = CLANGE( 'I', M, N, A, LDA, RWORK )
|
||||||
|
END IF
|
||||||
IF( ANORM.LE.ZERO ) THEN
|
IF( ANORM.LE.ZERO ) THEN
|
||||||
RESID = ONE / EPS
|
RESID = ONE / EPS
|
||||||
RETURN
|
RETURN
|
||||||
END IF
|
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,
|
CALL CGEMM( TRANS, 'No transpose', N1, NRHS, N2, -CONE, A, LDA, X,
|
||||||
$ LDX, CONE, B, LDB )
|
$ LDX, CONE, B, LDB )
|
||||||
*
|
*
|
||||||
* Compute the maximum over the number of right hand sides of
|
* 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
|
RESID = ZERO
|
||||||
DO 10 J = 1, NRHS
|
DO 10 J = 1, NRHS
|
||||||
|
|
|
||||||
|
|
@ -92,17 +92,14 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CGET10( M, N, A, LDA, B, LDB, WORK, RWORK, RESULT )
|
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, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER LDA, LDB, M, N
|
INTEGER LDA, LDB, M, N
|
||||||
|
|
|
||||||
|
|
@ -125,6 +125,7 @@
|
||||||
*> RESULT is REAL array, dimension (2)
|
*> RESULT is REAL array, dimension (2)
|
||||||
*> RESULT(1) = | A E - E W | / ( |A| |E| ulp )
|
*> RESULT(1) = | A E - E W | / ( |A| |E| ulp )
|
||||||
*> RESULT(2) = max | m-norm(E(j)) - 1 | / ( n ulp )
|
*> RESULT(2) = max | m-norm(E(j)) - 1 | / ( n ulp )
|
||||||
|
*> j
|
||||||
*> \endverbatim
|
*> \endverbatim
|
||||||
*
|
*
|
||||||
* Authors:
|
* Authors:
|
||||||
|
|
@ -135,18 +136,15 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CGET22( TRANSA, TRANSE, TRANSW, N, A, LDA, E, LDE, W,
|
SUBROUTINE CGET22( TRANSA, TRANSE, TRANSW, N, A, LDA, E, LDE, W,
|
||||||
$ WORK, RWORK, RESULT )
|
$ WORK, RWORK, RESULT )
|
||||||
*
|
*
|
||||||
* -- LAPACK test routine (version 3.7.0) --
|
* -- LAPACK test routine --
|
||||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
CHARACTER TRANSA, TRANSE, TRANSW
|
CHARACTER TRANSA, TRANSE, TRANSW
|
||||||
|
|
@ -299,7 +297,7 @@
|
||||||
RESULT( 1 ) = ( ERRNRM / ANORM ) / ULP
|
RESULT( 1 ) = ( ERRNRM / ANORM ) / ULP
|
||||||
ELSE
|
ELSE
|
||||||
IF( ANORM.LT.ONE ) THEN
|
IF( ANORM.LT.ONE ) THEN
|
||||||
RESULT( 1 ) = ( MIN( ERRNRM, ANORM ) / ANORM ) / ULP
|
RESULT( 1 ) = ONE / ULP
|
||||||
ELSE
|
ELSE
|
||||||
RESULT( 1 ) = MIN( ERRNRM / ANORM, ONE ) / ULP
|
RESULT( 1 ) = MIN( ERRNRM / ANORM, ONE ) / ULP
|
||||||
END IF
|
END IF
|
||||||
|
|
|
||||||
|
|
@ -357,8 +357,6 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
|
|
@ -368,10 +366,9 @@
|
||||||
$ RCONDE, RCNDE1, RCDEIN, SCALE, SCALE1, RESULT,
|
$ RCONDE, RCNDE1, RCDEIN, SCALE, SCALE1, RESULT,
|
||||||
$ WORK, LWORK, RWORK, INFO )
|
$ WORK, LWORK, RWORK, INFO )
|
||||||
*
|
*
|
||||||
* -- LAPACK test routine (version 3.7.0) --
|
* -- LAPACK test routine --
|
||||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
LOGICAL COMP
|
LOGICAL COMP
|
||||||
|
|
|
||||||
|
|
@ -325,8 +325,6 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
|
|
@ -335,10 +333,9 @@
|
||||||
$ RCDVIN, NSLCT, ISLCT, ISRT, RESULT, WORK,
|
$ RCDVIN, NSLCT, ISLCT, ISRT, RESULT, WORK,
|
||||||
$ LWORK, RWORK, BWORK, INFO )
|
$ LWORK, RWORK, BWORK, INFO )
|
||||||
*
|
*
|
||||||
* -- LAPACK test routine (version 3.7.0) --
|
* -- LAPACK test routine --
|
||||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
LOGICAL COMP
|
LOGICAL COMP
|
||||||
|
|
|
||||||
|
|
@ -77,17 +77,14 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CGET35( RMAX, LMAX, NINFO, KNT, NIN )
|
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, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER KNT, LMAX, NIN, NINFO
|
INTEGER KNT, LMAX, NIN, NINFO
|
||||||
|
|
|
||||||
|
|
@ -78,17 +78,14 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CGET36( RMAX, LMAX, NINFO, KNT, NIN )
|
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, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER KNT, LMAX, NIN, NINFO
|
INTEGER KNT, LMAX, NIN, NINFO
|
||||||
|
|
|
||||||
|
|
@ -83,17 +83,14 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CGET37( RMAX, LMAX, NINFO, KNT, NIN )
|
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, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER KNT, NIN
|
INTEGER KNT, NIN
|
||||||
|
|
|
||||||
|
|
@ -84,17 +84,14 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CGET38( RMAX, LMAX, NINFO, KNT, NIN )
|
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, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER KNT, NIN
|
INTEGER KNT, NIN
|
||||||
|
|
|
||||||
|
|
@ -147,18 +147,15 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CGET51( ITYPE, N, A, LDA, B, LDB, U, LDU, V, LDV, WORK,
|
SUBROUTINE CGET51( ITYPE, N, A, LDA, B, LDB, U, LDU, V, LDV, WORK,
|
||||||
$ RWORK, RESULT )
|
$ RWORK, RESULT )
|
||||||
*
|
*
|
||||||
* -- LAPACK test routine (version 3.7.0) --
|
* -- LAPACK test routine --
|
||||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER ITYPE, LDA, LDB, LDU, LDV, N
|
INTEGER ITYPE, LDA, LDB, LDU, LDV, N
|
||||||
|
|
|
||||||
|
|
@ -153,18 +153,15 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CGET52( LEFT, N, A, LDA, B, LDB, E, LDE, ALPHA, BETA,
|
SUBROUTINE CGET52( LEFT, N, A, LDA, B, LDB, E, LDE, ALPHA, BETA,
|
||||||
$ WORK, RWORK, RESULT )
|
$ WORK, RWORK, RESULT )
|
||||||
*
|
*
|
||||||
* -- LAPACK test routine (version 3.7.0) --
|
* -- LAPACK test routine --
|
||||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
LOGICAL LEFT
|
LOGICAL LEFT
|
||||||
|
|
@ -237,7 +234,7 @@
|
||||||
BETMAX = SAFMAX / MAX( ONE, ANORM )
|
BETMAX = SAFMAX / MAX( ONE, ANORM )
|
||||||
*
|
*
|
||||||
* Compute error matrix.
|
* 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
|
DO 10 JVEC = 1, N
|
||||||
ALPHAI = ALPHA( JVEC )
|
ALPHAI = ALPHA( JVEC )
|
||||||
|
|
@ -277,7 +274,7 @@
|
||||||
DO 20 J = 1, N
|
DO 20 J = 1, N
|
||||||
TEMP1 = MAX( TEMP1, ABS1( E( J, JVEC ) ) )
|
TEMP1 = MAX( TEMP1, ABS1( E( J, JVEC ) ) )
|
||||||
20 CONTINUE
|
20 CONTINUE
|
||||||
ENRMER = MAX( ENRMER, TEMP1-ONE )
|
ENRMER = MAX( ENRMER, ABS( TEMP1-ONE ) )
|
||||||
30 CONTINUE
|
30 CONTINUE
|
||||||
*
|
*
|
||||||
* Compute RESULT(2) : the normalization error in E.
|
* Compute RESULT(2) : the normalization error in E.
|
||||||
|
|
|
||||||
|
|
@ -148,18 +148,15 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CGET54( N, A, LDA, B, LDB, S, LDS, T, LDT, U, LDU, V,
|
SUBROUTINE CGET54( N, A, LDA, B, LDB, S, LDS, T, LDT, U, LDU, V,
|
||||||
$ LDV, WORK, RESULT )
|
$ LDV, WORK, RESULT )
|
||||||
*
|
*
|
||||||
* -- LAPACK test routine (version 3.7.0) --
|
* -- LAPACK test routine --
|
||||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER LDA, LDB, LDS, LDT, LDU, LDV, N
|
INTEGER LDA, LDB, LDS, LDT, LDU, LDV, N
|
||||||
|
|
|
||||||
|
|
@ -142,18 +142,15 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CGLMTS( N, M, P, A, AF, LDA, B, BF, LDB, D, DF,
|
SUBROUTINE CGLMTS( N, M, P, A, AF, LDA, B, BF, LDB, D, DF,
|
||||||
$ X, U, WORK, LWORK, RWORK, RESULT )
|
$ 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, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER LDA, LDB, LWORK, M, P, N
|
INTEGER LDA, LDB, LWORK, M, P, N
|
||||||
|
|
|
||||||
|
|
@ -168,18 +168,15 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CGQRTS( N, M, P, A, AF, Q, R, LDA, TAUA, B, BF, Z, T,
|
SUBROUTINE CGQRTS( N, M, P, A, AF, Q, R, LDA, TAUA, B, BF, Z, T,
|
||||||
$ BWK, LDB, TAUB, WORK, LWORK, RWORK, RESULT )
|
$ 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, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER LDA, LDB, LWORK, M, P, N
|
INTEGER LDA, LDB, LWORK, M, P, N
|
||||||
|
|
|
||||||
|
|
@ -168,18 +168,15 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CGRQTS( M, P, N, A, AF, Q, R, LDA, TAUA, B, BF, Z, T,
|
SUBROUTINE CGRQTS( M, P, N, A, AF, Q, R, LDA, TAUA, B, BF, Z, T,
|
||||||
$ BWK, LDB, TAUB, WORK, LWORK, RWORK, RESULT )
|
$ 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, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER LDA, LDB, LWORK, M, P, N
|
INTEGER LDA, LDB, LWORK, M, P, N
|
||||||
|
|
|
||||||
|
|
@ -200,8 +200,6 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date August 2015
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
|
|
@ -209,10 +207,9 @@
|
||||||
$ LDV, Q, LDQ, ALPHA, BETA, R, LDR, IWORK, WORK,
|
$ LDV, Q, LDQ, ALPHA, BETA, R, LDR, IWORK, WORK,
|
||||||
$ LWORK, RWORK, RESULT )
|
$ LWORK, RWORK, RESULT )
|
||||||
*
|
*
|
||||||
* -- LAPACK test routine (version 3.7.0) --
|
* -- LAPACK test routine --
|
||||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* August 2015
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER LDA, LDB, LDQ, LDR, LDU, LDV, LWORK, M, N, P
|
INTEGER LDA, LDB, LDQ, LDR, LDU, LDV, LWORK, M, N, P
|
||||||
|
|
|
||||||
|
|
@ -144,18 +144,15 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CHBT21( UPLO, N, KA, KS, A, LDA, D, E, U, LDU, WORK,
|
SUBROUTINE CHBT21( UPLO, N, KA, KS, A, LDA, D, E, U, LDU, WORK,
|
||||||
$ RWORK, RESULT )
|
$ RWORK, RESULT )
|
||||||
*
|
*
|
||||||
* -- LAPACK test routine (version 3.7.0) --
|
* -- LAPACK test routine --
|
||||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
CHARACTER UPLO
|
CHARACTER UPLO
|
||||||
|
|
|
||||||
|
|
@ -206,18 +206,15 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CHET21( ITYPE, UPLO, N, KBAND, A, LDA, D, E, U, LDU, V,
|
SUBROUTINE CHET21( ITYPE, UPLO, N, KBAND, A, LDA, D, E, U, LDU, V,
|
||||||
$ LDV, TAU, WORK, RWORK, RESULT )
|
$ 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, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
CHARACTER UPLO
|
CHARACTER UPLO
|
||||||
|
|
|
||||||
|
|
@ -153,18 +153,15 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CHET22( ITYPE, UPLO, N, M, KBAND, A, LDA, D, E, U, LDU,
|
SUBROUTINE CHET22( ITYPE, UPLO, N, M, KBAND, A, LDA, D, E, U, LDU,
|
||||||
$ V, LDV, TAU, WORK, RWORK, RESULT )
|
$ 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, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
CHARACTER UPLO
|
CHARACTER UPLO
|
||||||
|
|
|
||||||
|
|
@ -34,17 +34,14 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
|
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, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
LOGICAL LERR, OK
|
LOGICAL LERR, OK
|
||||||
|
|
@ -66,6 +63,6 @@
|
||||||
9999 FORMAT( ' *** Illegal value of parameter number ', I2,
|
9999 FORMAT( ' *** Illegal value of parameter number ', I2,
|
||||||
$ ' not detected by ', A6, ' ***' )
|
$ ' not detected by ', A6, ' ***' )
|
||||||
*
|
*
|
||||||
* End of CHKXER.
|
* End of CHKXER
|
||||||
*
|
*
|
||||||
END
|
END
|
||||||
|
|
|
||||||
|
|
@ -220,18 +220,15 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CHPT21( ITYPE, UPLO, N, KBAND, AP, D, E, U, LDU, VP,
|
SUBROUTINE CHPT21( ITYPE, UPLO, N, KBAND, AP, D, E, U, LDU, VP,
|
||||||
$ TAU, WORK, RWORK, RESULT )
|
$ TAU, WORK, RWORK, RESULT )
|
||||||
*
|
*
|
||||||
* -- LAPACK test routine (version 3.7.0) --
|
* -- LAPACK test routine --
|
||||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
CHARACTER UPLO
|
CHARACTER UPLO
|
||||||
|
|
|
||||||
|
|
@ -132,18 +132,15 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CHST01( N, ILO, IHI, A, LDA, H, LDH, Q, LDQ, WORK,
|
SUBROUTINE CHST01( N, ILO, IHI, A, LDA, H, LDH, Q, LDQ, WORK,
|
||||||
$ LWORK, RWORK, RESULT )
|
$ LWORK, RWORK, RESULT )
|
||||||
*
|
*
|
||||||
* -- LAPACK test routine (version 3.7.0) --
|
* -- LAPACK test routine --
|
||||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER IHI, ILO, LDA, LDH, LDQ, LWORK, N
|
INTEGER IHI, ILO, LDA, LDH, LDQ, LWORK, N
|
||||||
|
|
|
||||||
|
|
@ -101,17 +101,14 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CLARFY( UPLO, N, V, INCV, TAU, C, LDC, WORK )
|
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, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
CHARACTER UPLO
|
CHARACTER UPLO
|
||||||
|
|
|
||||||
|
|
@ -30,8 +30,7 @@
|
||||||
*> CLARHS chooses a set of NRHS random solution vectors and sets
|
*> CLARHS chooses a set of NRHS random solution vectors and sets
|
||||||
*> up the right hand sides for the linear system
|
*> up the right hand sides for the linear system
|
||||||
*> op( A ) * X = B,
|
*> op( A ) * X = B,
|
||||||
*> where op( A ) may be A, A**T (transpose of A), or A**H (conjugate
|
*> where op(A) = A, A**T or A**H, depending on TRANS.
|
||||||
*> transpose of A).
|
|
||||||
*> \endverbatim
|
*> \endverbatim
|
||||||
*
|
*
|
||||||
* Arguments:
|
* Arguments:
|
||||||
|
|
@ -85,9 +84,9 @@
|
||||||
*> TRANS is CHARACTER*1
|
*> TRANS is CHARACTER*1
|
||||||
*> Used only if A is nonsymmetric; specifies the operation
|
*> Used only if A is nonsymmetric; specifies the operation
|
||||||
*> applied to the matrix A.
|
*> applied to the matrix A.
|
||||||
*> = 'N': B := A * X
|
*> = 'N': B := A * X (No transpose)
|
||||||
*> = 'T': B := A**T * X
|
*> = 'T': B := A**T * X (Transpose)
|
||||||
*> = 'C': B := A**H * X
|
*> = 'C': B := A**H * X (Conjugate transpose)
|
||||||
*> \endverbatim
|
*> \endverbatim
|
||||||
*>
|
*>
|
||||||
*> \param[in] M
|
*> \param[in] M
|
||||||
|
|
@ -201,18 +200,15 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date June 2017
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS,
|
SUBROUTINE CLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS,
|
||||||
$ A, LDA, X, LDX, B, LDB, ISEED, INFO )
|
$ 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, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* June 2017
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
CHARACTER TRANS, UPLO, XTYPE
|
CHARACTER TRANS, UPLO, XTYPE
|
||||||
|
|
|
||||||
|
|
@ -163,18 +163,15 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CLATM4( ITYPE, N, NZ1, NZ2, RSIGN, AMAGN, RCOND,
|
SUBROUTINE CLATM4( ITYPE, N, NZ1, NZ2, RSIGN, AMAGN, RCOND,
|
||||||
$ TRIANG, IDIST, ISEED, A, LDA )
|
$ 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, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
LOGICAL RSIGN
|
LOGICAL RSIGN
|
||||||
|
|
|
||||||
|
|
@ -51,17 +51,14 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date June 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
LOGICAL FUNCTION CLCTES( Z, D )
|
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, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* June 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
COMPLEX D, Z
|
COMPLEX D, Z
|
||||||
|
|
|
||||||
|
|
@ -50,17 +50,14 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
LOGICAL FUNCTION CLCTSX( ALPHA, BETA )
|
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, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
COMPLEX ALPHA, BETA
|
COMPLEX ALPHA, BETA
|
||||||
|
|
|
||||||
|
|
@ -147,18 +147,15 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CLSETS( M, P, N, A, AF, LDA, B, BF, LDB, C, CF,
|
SUBROUTINE CLSETS( M, P, N, A, AF, LDA, B, BF, LDB, C, CF,
|
||||||
$ D, DF, X, WORK, LWORK, RWORK, RESULT )
|
$ 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, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER LDA, LDB, LWORK, M, P, N
|
INTEGER LDA, LDB, LWORK, M, P, N
|
||||||
|
|
|
||||||
|
|
@ -144,18 +144,15 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CSBMV( UPLO, N, K, ALPHA, A, LDA, X, INCX, BETA, Y,
|
SUBROUTINE CSBMV( UPLO, N, K, ALPHA, A, LDA, X, INCX, BETA, Y,
|
||||||
$ INCY )
|
$ INCY )
|
||||||
*
|
*
|
||||||
* -- LAPACK test routine (version 3.7.0) --
|
* -- LAPACK test routine --
|
||||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
CHARACTER UPLO
|
CHARACTER UPLO
|
||||||
|
|
|
||||||
|
|
@ -144,18 +144,15 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CSGT01( ITYPE, UPLO, N, M, A, LDA, B, LDB, Z, LDZ, D,
|
SUBROUTINE CSGT01( ITYPE, UPLO, N, M, A, LDA, B, LDB, Z, LDZ, D,
|
||||||
$ WORK, RWORK, RESULT )
|
$ WORK, RWORK, RESULT )
|
||||||
*
|
*
|
||||||
* -- LAPACK test routine (version 3.7.0) --
|
* -- LAPACK test routine --
|
||||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
CHARACTER UPLO
|
CHARACTER UPLO
|
||||||
|
|
|
||||||
|
|
@ -49,17 +49,14 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date June 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
LOGICAL FUNCTION CSLECT( Z )
|
LOGICAL FUNCTION CSLECT( Z )
|
||||||
*
|
*
|
||||||
* -- LAPACK test routine (version 3.7.0) --
|
* -- LAPACK test routine --
|
||||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* June 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
COMPLEX Z
|
COMPLEX Z
|
||||||
|
|
|
||||||
|
|
@ -125,18 +125,15 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CSTT21( N, KBAND, AD, AE, SD, SE, U, LDU, WORK, RWORK,
|
SUBROUTINE CSTT21( N, KBAND, AD, AE, SD, SE, U, LDU, WORK, RWORK,
|
||||||
$ RESULT )
|
$ RESULT )
|
||||||
*
|
*
|
||||||
* -- LAPACK test routine (version 3.7.0) --
|
* -- LAPACK test routine --
|
||||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER KBAND, LDU, N
|
INTEGER KBAND, LDU, N
|
||||||
|
|
|
||||||
|
|
@ -137,18 +137,15 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CSTT22( N, M, KBAND, AD, AE, SD, SE, U, LDU, WORK,
|
SUBROUTINE CSTT22( N, M, KBAND, AD, AE, SD, SE, U, LDU, WORK,
|
||||||
$ LDWORK, RWORK, RESULT )
|
$ LDWORK, RWORK, RESULT )
|
||||||
*
|
*
|
||||||
* -- LAPACK test routine (version 3.7.0) --
|
* -- LAPACK test routine --
|
||||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER KBAND, LDU, LDWORK, M, N
|
INTEGER KBAND, LDU, LDWORK, M, N
|
||||||
|
|
|
||||||
|
|
@ -118,18 +118,15 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CUNT01( ROWCOL, M, N, U, LDU, WORK, LWORK, RWORK,
|
SUBROUTINE CUNT01( ROWCOL, M, N, U, LDU, WORK, LWORK, RWORK,
|
||||||
$ RESID )
|
$ RESID )
|
||||||
*
|
*
|
||||||
* -- LAPACK test routine (version 3.7.0) --
|
* -- LAPACK test routine --
|
||||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
CHARACTER ROWCOL
|
CHARACTER ROWCOL
|
||||||
|
|
|
||||||
|
|
@ -154,18 +154,15 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup complex_eig
|
*> \ingroup complex_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CUNT03( RC, MU, MV, N, K, U, LDU, V, LDV, WORK, LWORK,
|
SUBROUTINE CUNT03( RC, MU, MV, N, K, U, LDU, V, LDV, WORK, LWORK,
|
||||||
$ RWORK, RESULT, INFO )
|
$ RWORK, RESULT, INFO )
|
||||||
*
|
*
|
||||||
* -- LAPACK test routine (version 3.7.0) --
|
* -- LAPACK test routine --
|
||||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
CHARACTER*( * ) RC
|
CHARACTER*( * ) RC
|
||||||
|
|
|
||||||
|
|
@ -27,13 +27,13 @@
|
||||||
*> \verbatim
|
*> \verbatim
|
||||||
*>
|
*>
|
||||||
*> DBDT01 reconstructs a general matrix A from its bidiagonal form
|
*> DBDT01 reconstructs a general matrix A from its bidiagonal form
|
||||||
*> A = Q * B * P'
|
*> A = Q * B * P**T
|
||||||
*> where Q (m by min(m,n)) and P' (min(m,n) by n) are orthogonal
|
*> where Q (m by min(m,n)) and P**T (min(m,n) by n) are orthogonal
|
||||||
*> matrices and B is bidiagonal.
|
*> matrices and B is bidiagonal.
|
||||||
*>
|
*>
|
||||||
*> The test ratio to test the reduction is
|
*> The test ratio to test the reduction is
|
||||||
*> RESID = norm( A - Q * B * PT ) / ( n * norm(A) * EPS )
|
*> RESID = norm(A - Q * B * P**T) / ( n * norm(A) * EPS )
|
||||||
*> where PT = P' and EPS is the machine precision.
|
*> where EPS is the machine precision.
|
||||||
*> \endverbatim
|
*> \endverbatim
|
||||||
*
|
*
|
||||||
* Arguments:
|
* Arguments:
|
||||||
|
|
@ -48,7 +48,7 @@
|
||||||
*> \param[in] N
|
*> \param[in] N
|
||||||
*> \verbatim
|
*> \verbatim
|
||||||
*> N is INTEGER
|
*> 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
|
*> \endverbatim
|
||||||
*>
|
*>
|
||||||
*> \param[in] KD
|
*> \param[in] KD
|
||||||
|
|
@ -77,7 +77,7 @@
|
||||||
*> \verbatim
|
*> \verbatim
|
||||||
*> Q is DOUBLE PRECISION array, dimension (LDQ,N)
|
*> Q is DOUBLE PRECISION array, dimension (LDQ,N)
|
||||||
*> The m by min(m,n) orthogonal matrix Q in the reduction
|
*> The m by min(m,n) orthogonal matrix Q in the reduction
|
||||||
*> A = Q * B * P'.
|
*> A = Q * B * P**T.
|
||||||
*> \endverbatim
|
*> \endverbatim
|
||||||
*>
|
*>
|
||||||
*> \param[in] LDQ
|
*> \param[in] LDQ
|
||||||
|
|
@ -102,8 +102,8 @@
|
||||||
*> \param[in] PT
|
*> \param[in] PT
|
||||||
*> \verbatim
|
*> \verbatim
|
||||||
*> PT is DOUBLE PRECISION array, dimension (LDPT,N)
|
*> PT is DOUBLE PRECISION array, dimension (LDPT,N)
|
||||||
*> The min(m,n) by n orthogonal matrix P' in the reduction
|
*> The min(m,n) by n orthogonal matrix P**T in the reduction
|
||||||
*> A = Q * B * P'.
|
*> A = Q * B * P**T.
|
||||||
*> \endverbatim
|
*> \endverbatim
|
||||||
*>
|
*>
|
||||||
*> \param[in] LDPT
|
*> \param[in] LDPT
|
||||||
|
|
@ -121,7 +121,8 @@
|
||||||
*> \param[out] RESID
|
*> \param[out] RESID
|
||||||
*> \verbatim
|
*> \verbatim
|
||||||
*> RESID is DOUBLE PRECISION
|
*> 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
|
*> \endverbatim
|
||||||
*
|
*
|
||||||
* Authors:
|
* Authors:
|
||||||
|
|
@ -132,18 +133,15 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup double_eig
|
*> \ingroup double_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE DBDT01( M, N, KD, A, LDA, Q, LDQ, D, E, PT, LDPT, WORK,
|
SUBROUTINE DBDT01( M, N, KD, A, LDA, Q, LDQ, D, E, PT, LDPT, WORK,
|
||||||
$ RESID )
|
$ RESID )
|
||||||
*
|
*
|
||||||
* -- LAPACK test routine (version 3.7.0) --
|
* -- LAPACK test routine --
|
||||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER KD, LDA, LDPT, LDQ, M, N
|
INTEGER KD, LDA, LDPT, LDQ, M, N
|
||||||
|
|
@ -183,7 +181,7 @@
|
||||||
RETURN
|
RETURN
|
||||||
END IF
|
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
|
RESID = ZERO
|
||||||
IF( KD.NE.0 ) THEN
|
IF( KD.NE.0 ) THEN
|
||||||
|
|
@ -261,7 +259,7 @@
|
||||||
END IF
|
END IF
|
||||||
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 )
|
ANORM = DLANGE( '1', M, N, A, LDA, WORK )
|
||||||
EPS = DLAMCH( 'Precision' )
|
EPS = DLAMCH( 'Precision' )
|
||||||
|
|
|
||||||
|
|
@ -25,7 +25,8 @@
|
||||||
*>
|
*>
|
||||||
*> \verbatim
|
*> \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 ),
|
*> RESID = norm( B - U * C ) / ( max(m,n) * norm(B) * EPS ),
|
||||||
*>
|
*>
|
||||||
|
|
@ -64,7 +65,7 @@
|
||||||
*> \param[in] C
|
*> \param[in] C
|
||||||
*> \verbatim
|
*> \verbatim
|
||||||
*> C is DOUBLE PRECISION array, dimension (LDC,N)
|
*> 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
|
*> \endverbatim
|
||||||
*>
|
*>
|
||||||
*> \param[in] LDC
|
*> \param[in] LDC
|
||||||
|
|
@ -104,17 +105,14 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup double_eig
|
*> \ingroup double_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE DBDT02( M, N, B, LDB, C, LDC, U, LDU, WORK, RESID )
|
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, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER LDB, LDC, LDU, M, N
|
INTEGER LDB, LDC, LDU, M, N
|
||||||
|
|
|
||||||
|
|
@ -127,18 +127,15 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup double_eig
|
*> \ingroup double_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE DBDT03( UPLO, N, KD, D, E, U, LDU, S, VT, LDVT, WORK,
|
SUBROUTINE DBDT03( UPLO, N, KD, D, E, U, LDU, S, VT, LDVT, WORK,
|
||||||
$ RESID )
|
$ RESID )
|
||||||
*
|
*
|
||||||
* -- LAPACK test routine (version 3.7.0) --
|
* -- LAPACK test routine --
|
||||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
CHARACTER UPLO
|
CHARACTER UPLO
|
||||||
|
|
|
||||||
|
|
@ -123,18 +123,15 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup double_eig
|
*> \ingroup double_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE DBDT04( UPLO, N, D, E, S, NS, U, LDU, VT, LDVT, WORK,
|
SUBROUTINE DBDT04( UPLO, N, D, E, S, NS, U, LDU, VT, LDVT, WORK,
|
||||||
$ RESID )
|
$ RESID )
|
||||||
*
|
*
|
||||||
* -- LAPACK test routine (version 3.7.0) --
|
* -- LAPACK test routine --
|
||||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
CHARACTER UPLO
|
CHARACTER UPLO
|
||||||
|
|
|
||||||
|
|
@ -1,3 +1,5 @@
|
||||||
|
*> \brief \b DBDT05
|
||||||
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
|
|
@ -117,18 +119,15 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup double_eig
|
*> \ingroup double_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE DBDT05( M, N, A, LDA, S, NS, U, LDU,
|
SUBROUTINE DBDT05( M, N, A, LDA, S, NS, U, LDU,
|
||||||
$ VT, LDVT, WORK, RESID )
|
$ VT, LDVT, WORK, RESID )
|
||||||
*
|
*
|
||||||
* -- LAPACK test routine (version 3.7.0) --
|
* -- LAPACK test routine --
|
||||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER LDA, LDU, LDVT, M, N, NS
|
INTEGER LDA, LDU, LDVT, M, N, NS
|
||||||
|
|
|
||||||
|
|
@ -345,8 +345,6 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup double_eig
|
*> \ingroup double_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
|
|
@ -358,7 +356,6 @@
|
||||||
* -- LAPACK test routine (input) --
|
* -- LAPACK test routine (input) --
|
||||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER INFO, LDA, LDAB, LDC, LDP, LDQ, LWORK, NOUNIT,
|
INTEGER INFO, LDA, LDAB, LDC, LDP, LDQ, LWORK, NOUNIT,
|
||||||
|
|
|
||||||
|
|
@ -483,8 +483,6 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date June 2016
|
|
||||||
*
|
|
||||||
*> \ingroup double_eig
|
*> \ingroup double_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
|
|
@ -493,10 +491,9 @@
|
||||||
$ Y, Z, Q, LDQ, PT, LDPT, U, VT, WORK, LWORK,
|
$ Y, Z, Q, LDQ, PT, LDPT, U, VT, WORK, LWORK,
|
||||||
$ IWORK, NOUT, INFO )
|
$ IWORK, NOUT, INFO )
|
||||||
*
|
*
|
||||||
* -- LAPACK test routine (version 3.7.0) --
|
* -- LAPACK test routine --
|
||||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* June 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER INFO, LDA, LDPT, LDQ, LDX, LWORK, NOUT, NRHS,
|
INTEGER INFO, LDA, LDPT, LDQ, LDX, LWORK, NOUT, NRHS,
|
||||||
|
|
|
||||||
|
|
@ -48,17 +48,14 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup double_eig
|
*> \ingroup double_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE DCHKBK( NIN, NOUT )
|
SUBROUTINE DCHKBK( NIN, NOUT )
|
||||||
*
|
*
|
||||||
* -- LAPACK test routine (version 3.7.0) --
|
* -- LAPACK test routine --
|
||||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER NIN, NOUT
|
INTEGER NIN, NOUT
|
||||||
|
|
|
||||||
|
|
@ -47,17 +47,14 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup double_eig
|
*> \ingroup double_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE DCHKBL( NIN, NOUT )
|
SUBROUTINE DCHKBL( NIN, NOUT )
|
||||||
*
|
*
|
||||||
* -- LAPACK test routine (version 3.7.0) --
|
* -- LAPACK test routine --
|
||||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER NIN, NOUT
|
INTEGER NIN, NOUT
|
||||||
|
|
|
||||||
|
|
@ -24,7 +24,7 @@
|
||||||
*>
|
*>
|
||||||
*> DCHKEC tests eigen- condition estimation routines
|
*> DCHKEC tests eigen- condition estimation routines
|
||||||
*> DLALN2, DLASY2, DLANV2, DLAQTR, DLAEXC,
|
*> 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
|
*> In all cases, the routine runs through a fixed set of numerical
|
||||||
*> examples, subjects them to various tests, and compares the test
|
*> examples, subjects them to various tests, and compares the test
|
||||||
|
|
@ -69,17 +69,14 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date December 2016
|
|
||||||
*
|
|
||||||
*> \ingroup double_eig
|
*> \ingroup double_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE DCHKEC( THRESH, TSTERR, NIN, NOUT )
|
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, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* December 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
LOGICAL TSTERR
|
LOGICAL TSTERR
|
||||||
|
|
@ -95,9 +92,9 @@
|
||||||
INTEGER KLAEXC, KLALN2, KLANV2, KLAQTR, KLASY2, KTREXC,
|
INTEGER KLAEXC, KLALN2, KLANV2, KLAQTR, KLASY2, KTREXC,
|
||||||
$ KTRSEN, KTRSNA, KTRSYL, LLAEXC, LLALN2, LLANV2,
|
$ KTRSEN, KTRSNA, KTRSYL, LLAEXC, LLALN2, LLANV2,
|
||||||
$ LLAQTR, LLASY2, LTREXC, LTRSYL, NLANV2, NLAQTR,
|
$ LLAQTR, LLASY2, LTREXC, LTRSYL, NLANV2, NLAQTR,
|
||||||
$ NLASY2, NTESTS, NTRSYL
|
$ NLASY2, NTESTS, NTRSYL, KTGEXC, NTGEXC, LTGEXC
|
||||||
DOUBLE PRECISION EPS, RLAEXC, RLALN2, RLANV2, RLAQTR, RLASY2,
|
DOUBLE PRECISION EPS, RLAEXC, RLALN2, RLANV2, RLAQTR, RLASY2,
|
||||||
$ RTREXC, RTRSYL, SFMIN
|
$ RTREXC, RTRSYL, SFMIN, RTGEXC
|
||||||
* ..
|
* ..
|
||||||
* .. Local Arrays ..
|
* .. Local Arrays ..
|
||||||
INTEGER LTRSEN( 3 ), LTRSNA( 3 ), NLAEXC( 2 ),
|
INTEGER LTRSEN( 3 ), LTRSNA( 3 ), NLAEXC( 2 ),
|
||||||
|
|
@ -107,7 +104,7 @@
|
||||||
* ..
|
* ..
|
||||||
* .. External Subroutines ..
|
* .. External Subroutines ..
|
||||||
EXTERNAL DERREC, DGET31, DGET32, DGET33, DGET34, DGET35,
|
EXTERNAL DERREC, DGET31, DGET32, DGET33, DGET34, DGET35,
|
||||||
$ DGET36, DGET37, DGET38, DGET39
|
$ DGET36, DGET37, DGET38, DGET39, DGET40
|
||||||
* ..
|
* ..
|
||||||
* .. External Functions ..
|
* .. External Functions ..
|
||||||
DOUBLE PRECISION DLAMCH
|
DOUBLE PRECISION DLAMCH
|
||||||
|
|
@ -189,9 +186,15 @@
|
||||||
OK = .FALSE.
|
OK = .FALSE.
|
||||||
WRITE( NOUT, FMT = 9991 )RLAQTR, LLAQTR, NLAQTR, KLAQTR
|
WRITE( NOUT, FMT = 9991 )RLAQTR, LLAQTR, NLAQTR, KLAQTR
|
||||||
END IF
|
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 +
|
NTESTS = KLALN2 + KLASY2 + KLANV2 + KLAEXC + KTRSYL + KTREXC +
|
||||||
$ KTRSNA + KTRSEN + KLAQTR
|
$ KTRSNA + KTRSEN + KLAQTR + KTGEXC
|
||||||
IF( OK )
|
IF( OK )
|
||||||
$ WRITE( NOUT, FMT = 9990 )PATH, NTESTS
|
$ WRITE( NOUT, FMT = 9990 )PATH, NTESTS
|
||||||
*
|
*
|
||||||
|
|
@ -218,11 +221,13 @@
|
||||||
$ 'old ( ', I6, ' tests run)' )
|
$ 'old ( ', I6, ' tests run)' )
|
||||||
9989 FORMAT( ' Tests of the Nonsymmetric eigenproblem condition estim',
|
9989 FORMAT( ' Tests of the Nonsymmetric eigenproblem condition estim',
|
||||||
$ 'ation routines', / ' DLALN2, DLASY2, DLANV2, DLAEXC, DTRS',
|
$ '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 ',
|
9988 FORMAT( ' Relative machine precision (EPS) = ', D16.6, / ' Safe ',
|
||||||
$ 'minimum (SFMIN) = ', D16.6, / )
|
$ 'minimum (SFMIN) = ', D16.6, / )
|
||||||
9987 FORMAT( ' Routines pass computational tests if test ratio is les',
|
9987 FORMAT( ' Routines pass computational tests if test ratio is les',
|
||||||
$ 's than', F8.2, / / )
|
$ 's than', F8.2, / / )
|
||||||
|
9986 FORMAT( ' Error in DTGEXC: RMAX =', D12.3, / ' LMAX = ', I8, ' N',
|
||||||
|
$ 'INFO=', I8, ' KNT=', I8 )
|
||||||
*
|
*
|
||||||
* End of DCHKEC
|
* End of DCHKEC
|
||||||
*
|
*
|
||||||
|
|
|
||||||
|
|
@ -1033,8 +1033,6 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date June 2016
|
|
||||||
*
|
|
||||||
*> \ingroup double_eig
|
*> \ingroup double_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
|
|
@ -1044,10 +1042,9 @@
|
||||||
use omp_lib
|
use omp_lib
|
||||||
#endif
|
#endif
|
||||||
*
|
*
|
||||||
* -- LAPACK test routine (version 3.7.0) --
|
* -- LAPACK test routine --
|
||||||
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* June 2016
|
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
*
|
*
|
||||||
|
|
|
||||||
|
|
@ -500,8 +500,6 @@
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date June 2016
|
|
||||||
*
|
|
||||||
*> \ingroup double_eig
|
*> \ingroup double_eig
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
|
|
@ -511,10 +509,9 @@
|
||||||
$ BETA1, ALPHR3, ALPHI3, BETA3, EVECTL, EVECTR,
|
$ BETA1, ALPHR3, ALPHI3, BETA3, EVECTL, EVECTR,
|
||||||
$ WORK, LWORK, LLWORK, RESULT, INFO )
|
$ 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, --
|
* -- LAPACK is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* June 2016
|
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
LOGICAL TSTDIF
|
LOGICAL TSTDIF
|
||||||
|
|
|
||||||
Some files were not shown because too many files have changed in this diff Show More
Loading…
Reference in New Issue