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

Update LAPACK to 3.8.0

Browse Source
This commit is contained in:
martin
2017-11-23 18:13:35 +01:00
parent b18730f9e1
commit 3be5c3d343
2092 changed files with 45721 additions and 23035 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -3,34 +3,13 @@
# The test files are organized as follows:
#
# AEIGTST -- Auxiliary test routines used in all precisions
# SCIGTST -- Auxiliary test routines used in REAL and COMPLEX
# DZIGTST -- Auxiliary test routines used in DOUBLE PRECISION and
# COMPLEX*16
# SCIGTST -- Auxiliary test routines used in single precision
# DZIGTST -- Auxiliary test routines used in double precision
# SEIGTST -- Single precision real test routines
# CEIGTST -- Single precision complex test routines
# DEIGTST -- Double precision real test routines
# ZEIGTST -- Double precision complex test routines
#
# Test programs can be generated for all or some of the four different
# precisions. Enter make followed by one or more of the data types
# desired. Some examples:
# make single
# make single complex
# make single double complex complex16
# Alternatively, the command
# make
# without any arguments creates all four test programs.
# The executable files are called
# xeigtsts, xeigtstd, xeigtstc, and xeigtstz
# and are created in the next higher directory level.
#
# To remove the object files after the executable files have been
# created, enter
# make clean
# On some systems, you can force the source files to be recompiled by
# entering (for example)
# make single FRC=FRC
#
########################################################################
set(AEIGTST
@@ -119,25 +98,21 @@ set(ZEIGTST zchkee.f
macro(add_eig_executable name)
add_executable(${name} ${ARGN})
target_link_libraries(${name} tmglib ${LAPACK_LIBRARIES})
target_link_libraries(${name} tmglib ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES})
endmacro()
if(BUILD_SINGLE)
add_eig_executable(xeigtsts ${SEIGTST} ${SCIGTST} ${AEIGTST}
${SECOND_SRC})
add_eig_executable(xeigtsts ${SEIGTST} ${SCIGTST} ${AEIGTST})
endif()
if(BUILD_COMPLEX)
add_eig_executable(xeigtstc ${CEIGTST} ${SCIGTST} ${AEIGTST}
${SECOND_SRC})
add_eig_executable(xeigtstc ${CEIGTST} ${SCIGTST} ${AEIGTST})
endif()
if(BUILD_DOUBLE)
add_eig_executable(xeigtstd ${DEIGTST} ${DZIGTST} ${AEIGTST}
${DSECOND_SRC})
add_eig_executable(xeigtstd ${DEIGTST} ${DZIGTST} ${AEIGTST})
endif()
if(BUILD_COMPLEX16)
add_eig_executable(xeigtstz ${ZEIGTST} ${DZIGTST} ${AEIGTST}
${DSECOND_SRC})
add_eig_executable(xeigtstz ${ZEIGTST} ${DZIGTST} ${AEIGTST})
endif()

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

@@ -5,9 +5,8 @@ include ../../make.inc
# The test files are organized as follows:
#
# AEIGTST -- Auxiliary test routines used in all precisions
# SCIGTST -- Auxiliary test routines used in REAL and COMPLEX
# DZIGTST -- Auxiliary test routines used in DOUBLE PRECISION and
# COMPLEX*16
# SCIGTST -- Auxiliary test routines used in single precision
# DZIGTST -- Auxiliary test routines used in double precision
# SEIGTST -- Single precision real test routines
# CEIGTST -- Single precision complex test routines
# DEIGTST -- Double precision real test routines
@@ -24,11 +23,10 @@ include ../../make.inc
# without any arguments creates all four test programs.
# The executable files are called
# xeigtsts, xeigtstd, xeigtstc, and xeigtstz
# and are created in the next higher directory level.
#
# To remove the object files after the executable files have been
# created, enter
# make clean
# make cleanobj
# On some systems, you can force the source files to be recompiled by
# entering (for example)
# make single FRC=FRC
@@ -121,30 +119,22 @@ ZEIGTST = zchkee.o \
all: single complex double complex16
single: ../xeigtsts
complex: ../xeigtstc
double: ../xeigtstd
complex16: ../xeigtstz
single: xeigtsts
complex: xeigtstc
double: xeigtstd
complex16: xeigtstz
../xeigtsts: $(SEIGTST) $(SCIGTST) $(AEIGTST) ../../$(LAPACKLIB)
$(LOADER) $(LOADOPTS) -o $@ \
$(SEIGTST) $(SCIGTST) $(AEIGTST) ../../$(TMGLIB) \
../../$(LAPACKLIB) $(BLASLIB)
xeigtsts: $(SEIGTST) $(SCIGTST) $(AEIGTST) ../../$(TMGLIB) ../../$(LAPACKLIB) $(BLASLIB)
$(LOADER) $(LOADOPTS) -o $@ $^
../xeigtstc: $(CEIGTST) $(SCIGTST) $(AEIGTST) ../../$(LAPACKLIB)
$(LOADER) $(LOADOPTS) -o $@ \
$(CEIGTST) $(SCIGTST) $(AEIGTST) ../../$(TMGLIB) \
../../$(LAPACKLIB) $(BLASLIB)
xeigtstc: $(CEIGTST) $(SCIGTST) $(AEIGTST) ../../$(TMGLIB) ../../$(LAPACKLIB) $(BLASLIB)
$(LOADER) $(LOADOPTS) -o $@ $^
../xeigtstd: $(DEIGTST) $(DZIGTST) $(AEIGTST) ../../$(LAPACKLIB)
$(LOADER) $(LOADOPTS) -o $@ \
$(DEIGTST) $(DZIGTST) $(AEIGTST) ../../$(TMGLIB) \
../../$(LAPACKLIB) $(BLASLIB)
xeigtstd: $(DEIGTST) $(DZIGTST) $(AEIGTST) ../../$(TMGLIB) ../../$(LAPACKLIB) $(BLASLIB)
$(LOADER) $(LOADOPTS) -o $@ $^
../xeigtstz: $(ZEIGTST) $(DZIGTST) $(AEIGTST) ../../$(LAPACKLIB)
$(LOADER) $(LOADOPTS) -o $@ \
$(ZEIGTST) $(DZIGTST) $(AEIGTST) ../../$(TMGLIB) \
../../$(LAPACKLIB) $(BLASLIB)
xeigtstz: $(ZEIGTST) $(DZIGTST) $(AEIGTST) ../../$(TMGLIB) ../../$(LAPACKLIB) $(BLASLIB)
$(LOADER) $(LOADOPTS) -o $@ $^
$(AEIGTST): $(FRC)
$(SCIGTST): $(FRC)
@@ -157,8 +147,11 @@ $(ZEIGTST): $(FRC)
FRC:
@FRC=$(FRC)
clean:
clean: cleanobj cleanexe
cleanobj:
rm -f *.o
cleanexe:
rm -f xeigtst*
schkee.o: schkee.f
$(FORTRAN) $(DRVOPTS) -c -o $@ $<

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

@@ -313,7 +313,7 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
*> \date December 2016
*> \date June 2017
*
*> \ingroup complex_eig
*
@@ -323,10 +323,10 @@
$ D2, D3, U, LDU, WORK, LWORK, RWORK, RESULT,
$ INFO )
*
* -- LAPACK test routine (version 3.7.0) --
* -- LAPACK test routine (version 3.7.1) --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
* December 2016
* June 2017
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDU, LWORK, NOUNIT, NSIZES, NTYPES,
@@ -373,7 +373,7 @@
* ..
* .. External Subroutines ..
EXTERNAL SLASUM, XERBLA, CHBT21, CHBTRD, CLACPY, CLASET,
$ CLATMR, CLATMS, CHBTRD_HB2ST, CSTEQR
$ CLATMR, CLATMS, CHETRD_HB2ST, CSTEQR
* ..
* .. Intrinsic Functions ..
INTRINSIC ABS, REAL, CONJG, MAX, MIN, SQRT

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

@@ -328,7 +328,7 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
*> \date December 2016
*> \date June 2017
*
*> \ingroup complex_eig
*
@@ -338,10 +338,10 @@
$ LDU, V, TAU, Z, WORK, LWORK, RWORK, LRWORK,
$ IWORK, LIWORK, RESULT, INFO )
*
* -- LAPACK test routine (version 3.7.0) --
* -- LAPACK test routine (version 3.7.1) --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
* December 2016
* June 2017
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDU, LIWORK, LRWORK, LWORK, NOUNIT,
@@ -399,8 +399,7 @@
$ CHET22, CHPEV, CHPEVD, CHPEVX, CLACPY, CLASET,
$ CHEEVD_2STAGE, CHEEVR_2STAGE, CHEEVX_2STAGE,
$ CHEEV_2STAGE, CHBEV_2STAGE, CHBEVD_2STAGE,
$ CHBEVX_2STAGE, CHETRD_2STAGE, CHETRD_SY2SB,
$ CHETRD_SB2ST, CLATMR, CLATMS
$ CHBEVX_2STAGE, CLATMR, CLATMS
* ..
* .. Intrinsic Functions ..
INTRINSIC ABS, REAL, INT, LOG, MAX, MIN, SQRT

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

@@ -27,8 +27,8 @@
*> CHPEV, CHPEVX, CHPEVD, and CSTEDC.
*> CHEEVD_2STAGE, CHEEVR_2STAGE, CHEEVX_2STAGE,
*> CHEEV_2STAGE, CHBEV_2STAGE, CHBEVD_2STAGE,
*> CHBEVX_2STAGE, CHETRD_2STAGE, CHETRD_SY2SB,
*> CHETRD_SB2ST
*> CHBEVX_2STAGE, CHETRD_2STAGE, CHETRD_HE2HB,
*> CHETRD_HB2ST
*> \endverbatim
*
* Arguments:
@@ -54,17 +54,17 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
*> \date December 2016
*> \date June 2017
*
*> \ingroup complex_eig
*
* =====================================================================
SUBROUTINE CERRST( PATH, NUNIT )
*
* -- LAPACK test routine (version 3.7.0) --
* -- LAPACK test routine (version 3.7.1) --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
* December 2016
* June 2017
*
* .. Scalar Arguments ..
CHARACTER*3 PATH
@@ -100,8 +100,8 @@
$ CUNGTR, CUNMTR, CUPGTR, CUPMTR,
$ CHEEVD_2STAGE, CHEEVR_2STAGE, CHEEVX_2STAGE,
$ CHEEV_2STAGE, CHBEV_2STAGE, CHBEVD_2STAGE,
$ CHBEVX_2STAGE, CHETRD_2STAGE, CHETRD_SY2SB,
$ CHETRD_SB2ST
$ CHBEVX_2STAGE, CHETRD_2STAGE, CHETRD_HE2HB,
$ CHETRD_HB2ST
* ..
* .. Scalars in Common ..
LOGICAL LERR, OK

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

@@ -125,7 +125,7 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
*> \date December 2016
*> \date June 2017
*
*> \ingroup complex_eig
*
@@ -133,10 +133,10 @@
SUBROUTINE CGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB,
$ RWORK, RESID )
*
* -- LAPACK test routine (version 3.7.0) --
* -- LAPACK test routine (version 3.7.1) --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
* December 2016
* June 2017
*
* .. Scalar Arguments ..
CHARACTER TRANS
@@ -154,7 +154,7 @@
REAL ZERO, ONE
PARAMETER ( ZERO = 0.0E+0, ONE = 1.0E+0 )
COMPLEX CONE
PARAMETER ( CONE = 1.0E+0 )
PARAMETER ( CONE = ( 1.0E+0, 0.0E+0 ) )
* ..
* .. Local Scalars ..
INTEGER J, N1, N2
@@ -191,7 +191,7 @@
* Exit with RESID = 1/EPS if ANORM = 0.
*
EPS = SLAMCH( 'Epsilon' )
ANORM = CLANGE( '1', N1, N2, A, LDA, RWORK )
ANORM = CLANGE( '1', M, N, A, LDA, RWORK )
IF( ANORM.LE.ZERO ) THEN
RESID = ONE / EPS
RETURN

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

@@ -189,8 +189,8 @@
*> \param[out] INFO
*> \verbatim
*> INFO is INTEGER
*> = 0: successful exit
*> < 0: if INFO = -i, the i-th argument had an illegal value
*> = 0: successful exit
*> < 0: if INFO = -i, the i-th argument had an illegal value
*> \endverbatim
*
* Authors:
@@ -201,7 +201,7 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
*> \date December 2016
*> \date June 2017
*
*> \ingroup complex_eig
*
@@ -209,10 +209,10 @@
SUBROUTINE CLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS,
$ A, LDA, X, LDX, B, LDB, ISEED, INFO )
*
* -- LAPACK test routine (version 3.7.0) --
* -- LAPACK test routine (version 3.7.1) --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
* December 2016
* June 2017
*
* .. Scalar Arguments ..
CHARACTER TRANS, UPLO, XTYPE

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

@@ -307,7 +307,7 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
*> \date December 2016
*> \date June 2017
*
*> \ingroup double_eig
*
@@ -316,10 +316,10 @@
$ ISEED, THRESH, NOUNIT, A, LDA, SD, SE, D1,
$ D2, D3, U, LDU, WORK, LWORK, RESULT, INFO )
*
* -- LAPACK test routine (version 3.7.0) --
* -- LAPACK test routine (version 3.7.1) --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
* December 2016
* June 2017
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDU, LWORK, NOUNIT, NSIZES, NTYPES,
@@ -363,7 +363,7 @@
* ..
* .. External Subroutines ..
EXTERNAL DLACPY, DLASET, DLASUM, DLATMR, DLATMS, DSBT21,
$ DSBTRD, XERBLA, DSBTRD_SB2ST, DSTEQR
$ DSBTRD, XERBLA, DSYTRD_SB2ST, DSTEQR
* ..
* .. Intrinsic Functions ..
INTRINSIC ABS, DBLE, MAX, MIN, SQRT

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

@@ -125,7 +125,7 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
*> \date December 2016
*> \date June 2017
*
*> \ingroup double_eig
*
@@ -133,10 +133,10 @@
SUBROUTINE DGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB,
$ RWORK, RESID )
*
* -- LAPACK test routine (version 3.7.0) --
* -- LAPACK test routine (version 3.7.1) --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
* December 2016
* June 2017
*
* .. Scalar Arguments ..
CHARACTER TRANS
@@ -189,7 +189,7 @@
* Exit with RESID = 1/EPS if ANORM = 0.
*
EPS = DLAMCH( 'Epsilon' )
ANORM = DLANGE( '1', N1, N2, A, LDA, RWORK )
ANORM = DLANGE( '1', M, N, A, LDA, RWORK )
IF( ANORM.LE.ZERO ) THEN
RESID = ONE / EPS
RETURN

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

@@ -184,8 +184,8 @@
*> \param[out] INFO
*> \verbatim
*> INFO is INTEGER
*> = 0: successful exit
*> < 0: if INFO = -i, the i-th argument had an illegal value
*> = 0: successful exit
*> < 0: if INFO = -i, the i-th argument had an illegal value
*> \endverbatim
*
* Authors:
@@ -196,7 +196,7 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
*> \date December 2016
*> \date June 2017
*
*> \ingroup double_eig
*
@@ -204,10 +204,10 @@
SUBROUTINE DLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS,
$ A, LDA, X, LDX, B, LDB, ISEED, INFO )
*
* -- LAPACK test routine (version 3.7.0) --
* -- LAPACK test routine (version 3.7.1) --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
* December 2016
* June 2017
*
* .. Scalar Arguments ..
CHARACTER TRANS, UPLO, XTYPE

53
lapack-netlib/TESTING/EIG/ilaenv.f
View File

@@ -122,7 +122,7 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
*> \date December 2016
*> \date November 2017
*
*> \ingroup OTHERauxiliary
*
@@ -153,10 +153,10 @@
INTEGER FUNCTION ILAENV( ISPEC, NAME, OPTS, N1, N2, N3,
$ N4 )
*
* -- LAPACK test routine (version 3.7.0) --
* -- LAPACK test routine (version 3.8.0) --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
* December 2016
* November 2017
*
* .. Scalar Arguments ..
CHARACTER*( * ) NAME, OPTS
@@ -250,6 +250,53 @@ C ILAENV = 0
*
* End of ILAENV
*
END
INTEGER FUNCTION ILAENV2STAGE( ISPEC, NAME, OPTS, N1, N2,
$ N3, N4 )
* .. Scalar Arguments ..
CHARACTER*( * ) NAME, OPTS
INTEGER ISPEC, N1, N2, N3, N4
* ..
*
* =====================================================================
*
* .. Local variables ..
INTEGER IISPEC
* .. External Functions ..
INTEGER IPARAM2STAGE
EXTERNAL IPARAM2STAGE
* ..
* .. Arrays in Common ..
INTEGER IPARMS( 100 )
* ..
* .. Common blocks ..
COMMON / CLAENV / IPARMS
* ..
* .. Save statement ..
SAVE / CLAENV /
* ..
* .. Executable Statements ..
*
IF(( ISPEC.GE.1 ) .AND. (ISPEC.LE.5)) THEN
*
* 1 <= ISPEC <= 5: 2stage eigenvalues SVD routines.
*
IF( ISPEC.EQ.1 ) THEN
ILAENV2STAGE = IPARMS( 1 )
ELSE
IISPEC = 16 + ISPEC
ILAENV2STAGE = IPARAM2STAGE( IISPEC, NAME, OPTS,
$ N1, N2, N3, N4 )
ENDIF
*
ELSE
*
* Invalid value for ISPEC
*
ILAENV2STAGE = -1
END IF
*
RETURN
END
INTEGER FUNCTION IPARMQ( ISPEC, NAME, OPTS, N, ILO, IHI, LWORK )
*

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

@@ -307,7 +307,7 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
*> \date December 2016
*> \date June 2017
*
*> \ingroup single_eig
*
@@ -316,10 +316,10 @@
$ ISEED, THRESH, NOUNIT, A, LDA, SD, SE, D1,
$ D2, D3, U, LDU, WORK, LWORK, RESULT, INFO )
*
* -- LAPACK test routine (version 3.7.0) --
* -- LAPACK test routine (version 3.7.1) --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
* December 2016
* June 2017
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDU, LWORK, NOUNIT, NSIZES, NTYPES,
@@ -363,7 +363,7 @@
* ..
* .. External Subroutines ..
EXTERNAL SLACPY, SLASET, SLASUM, SLATMR, SLATMS, SSBT21,
$ SSBTRD, XERBLA, SSBTRD_SB2ST, SSTEQR
$ SSBTRD, XERBLA, SSYTRD_SB2ST, SSTEQR
* ..
* .. Intrinsic Functions ..
INTRINSIC ABS, REAL, MAX, MIN, SQRT

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

@@ -125,7 +125,7 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
*> \date December 2016
*> \date June 2017
*
*> \ingroup single_eig
*
@@ -133,10 +133,10 @@
SUBROUTINE SGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB,
$ RWORK, RESID )
*
* -- LAPACK test routine (version 3.7.0) --
* -- LAPACK test routine (version 3.7.1) --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
* December 2016
* June 2017
*
* .. Scalar Arguments ..
CHARACTER TRANS
@@ -189,7 +189,7 @@
* Exit with RESID = 1/EPS if ANORM = 0.
*
EPS = SLAMCH( 'Epsilon' )
ANORM = SLANGE( '1', N1, N2, A, LDA, RWORK )
ANORM = SLANGE( '1', M, N, A, LDA, RWORK )
IF( ANORM.LE.ZERO ) THEN
RESID = ONE / EPS
RETURN

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

@@ -184,8 +184,8 @@
*> \param[out] INFO
*> \verbatim
*> INFO is INTEGER
*> = 0: successful exit
*> < 0: if INFO = -i, the i-th argument had an illegal value
*> = 0: successful exit
*> < 0: if INFO = -i, the i-th argument had an illegal value
*> \endverbatim
*
* Authors:
@@ -196,7 +196,7 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
*> \date December 2016
*> \date June 2017
*
*> \ingroup single_eig
*
@@ -204,10 +204,10 @@
SUBROUTINE SLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS,
$ A, LDA, X, LDX, B, LDB, ISEED, INFO )
*
* -- LAPACK test routine (version 3.7.0) --
* -- LAPACK test routine (version 3.7.1) --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
* December 2016
* June 2017
*
* .. Scalar Arguments ..
CHARACTER TRANS, UPLO, XTYPE

6
lapack-netlib/TESTING/EIG/zchkhb2stg.f
View File

@@ -313,7 +313,7 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
*> \date December 2016
*> \date June 2017
*
*> \ingroup complex16_eig
*
@@ -323,10 +323,10 @@
$ D2, D3, U, LDU, WORK, LWORK, RWORK, RESULT,
$ INFO )
*
* -- LAPACK test routine (version 3.7.0) --
* -- LAPACK test routine (version 3.7.1) --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
* December 2016
* June 2017
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDU, LWORK, NOUNIT, NSIZES, NTYPES,

6
lapack-netlib/TESTING/EIG/zdrvst2stg.f
View File

@@ -328,7 +328,7 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
*> \date December 2016
*> \date June 2017
*
*> \ingroup complex16_eig
*
@@ -338,10 +338,10 @@
$ LDU, V, TAU, Z, WORK, LWORK, RWORK, LRWORK,
$ IWORK, LIWORK, RESULT, INFO )
*
* -- LAPACK test routine (version 3.7.0) --
* -- LAPACK test routine (version 3.7.1) --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
* December 2016
* June 2017
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDU, LIWORK, LRWORK, LWORK, NOUNIT,

6
lapack-netlib/TESTING/EIG/zerrst.f
View File

@@ -55,17 +55,17 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
*> \date December 2016
*> \date June 2017
*
*> \ingroup complex16_eig
*
* =====================================================================
SUBROUTINE ZERRST( PATH, NUNIT )
*
* -- LAPACK test routine (version 3.7.0) --
* -- LAPACK test routine (version 3.7.1) --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
* December 2016
* June 2017
*
* .. Scalar Arguments ..
CHARACTER*3 PATH

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

@@ -125,7 +125,7 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
*> \date December 2016
*> \date June 2017
*
*> \ingroup complex16_eig
*
@@ -133,10 +133,10 @@
SUBROUTINE ZGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB,
$ RWORK, RESID )
*
* -- LAPACK test routine (version 3.7.0) --
* -- LAPACK test routine (version 3.7.1) --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
* December 2016
* June 2017
*
* .. Scalar Arguments ..
CHARACTER TRANS
@@ -154,7 +154,7 @@
DOUBLE PRECISION ZERO, ONE
PARAMETER ( ZERO = 0.0D+0, ONE = 1.0D+0 )
COMPLEX*16 CONE
PARAMETER ( CONE = 1.0D+0 )
PARAMETER ( CONE = ( 1.0D+0, 0.0D+0 ) )
* ..
* .. Local Scalars ..
INTEGER J, N1, N2
@@ -191,7 +191,7 @@
* Exit with RESID = 1/EPS if ANORM = 0.
*
EPS = DLAMCH( 'Epsilon' )
ANORM = ZLANGE( '1', N1, N2, A, LDA, RWORK )
ANORM = ZLANGE( '1', M, N, A, LDA, RWORK )
IF( ANORM.LE.ZERO ) THEN
RESID = ONE / EPS
RETURN

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

@@ -189,8 +189,8 @@
*> \param[out] INFO
*> \verbatim
*> INFO is INTEGER
*> = 0: successful exit
*> < 0: if INFO = -i, the i-th argument had an illegal value
*> = 0: successful exit
*> < 0: if INFO = -i, the i-th argument had an illegal value
*> \endverbatim
*
* Authors:
@@ -201,7 +201,7 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
*> \date December 2016
*> \date June 2017
*
*> \ingroup complex16_eig
*
@@ -209,10 +209,10 @@
SUBROUTINE ZLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS,
$ A, LDA, X, LDX, B, LDB, ISEED, INFO )
*
* -- LAPACK test routine (version 3.7.0) --
* -- LAPACK test routine (version 3.7.1) --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
* December 2016
* June 2017
*
* .. Scalar Arguments ..
CHARACTER TRANS, UPLO, XTYPE