summaryrefslogtreecommitdiff
path: root/TESTING
diff options
context:
space:
mode:
authorJulie <julie@cs.utk.edu>2016-11-19 17:09:13 -0800
committerJulie <julie@cs.utk.edu>2016-11-19 17:09:13 -0800
commited4e95e4d25f5f995db75445cbc2ba1db5736d23 (patch)
tree0b68f343e62958a8e71dc34c084e9e899eec990d /TESTING
parent01cdfedf1d726a003f7a4e7331f32a7e434f1707 (diff)
downloadlapack-ed4e95e4d25f5f995db75445cbc2ba1db5736d23.tar.gz
lapack-ed4e95e4d25f5f995db75445cbc2ba1db5736d23.tar.bz2
lapack-ed4e95e4d25f5f995db75445cbc2ba1db5736d23.zip
First minor change to 2 stage contribution
Update Makefile to handle .F Update Cmake build Note: We have duplicate loop numbers due to Define statement that stops the compilation with Cmake default option. Fix coming very shortly
Diffstat (limited to 'TESTING')
-rw-r--r--TESTING/CMakeLists.txt12
-rw-r--r--TESTING/EIG/CMakeLists.txt24
-rw-r--r--TESTING/EIG/cchkhb2stg.f12
-rw-r--r--TESTING/EIG/cchkst2stg.f58
-rw-r--r--TESTING/EIG/cdrvsg2stg.f8
-rw-r--r--TESTING/EIG/cdrvst2stg.f8
-rw-r--r--TESTING/EIG/dchksb2stg.f12
-rw-r--r--TESTING/EIG/dchkst2stg.f58
-rw-r--r--TESTING/EIG/ddrvsg2stg.f8
-rw-r--r--TESTING/EIG/ddrvst2stg.f8
-rw-r--r--TESTING/EIG/ilaenv.f10
-rw-r--r--TESTING/EIG/schksb2stg.f12
-rw-r--r--TESTING/EIG/schkst2stg.f58
-rw-r--r--TESTING/EIG/sdrvsg2stg.f8
-rw-r--r--TESTING/EIG/sdrvst2stg.f8
-rw-r--r--TESTING/EIG/zchkhb2stg.f12
-rw-r--r--TESTING/EIG/zchkst2stg.f58
-rw-r--r--TESTING/EIG/zdrvsg2stg.f8
-rw-r--r--TESTING/EIG/zdrvst2stg.f8
19 files changed, 85 insertions, 305 deletions
diff --git a/TESTING/CMakeLists.txt b/TESTING/CMakeLists.txt
index 3cd6c4a5..6b077255 100644
--- a/TESTING/CMakeLists.txt
+++ b/TESTING/CMakeLists.txt
@@ -37,6 +37,9 @@ add_lapack_test(snep.out nep.in xeigtsts)
add_lapack_test(ssep.out sep.in xeigtsts)
+add_lapack_test(sse2.out se2.in xeigtsts)
+
+
add_lapack_test(ssvd.out svd.in xeigtsts)
@@ -104,6 +107,9 @@ add_lapack_test(dnep.out nep.in xeigtstd)
add_lapack_test(dsep.out sep.in xeigtstd)
+add_lapack_test(dse2.out se2.in xeigtstd)
+
+
add_lapack_test(dsvd.out svd.in xeigtstd)
@@ -169,6 +175,9 @@ add_lapack_test(cnep.out nep.in xeigtstc)
add_lapack_test(csep.out sep.in xeigtstc)
+add_lapack_test(cse2.out se2.in xeigtstc)
+
+
add_lapack_test(csvd.out svd.in xeigtstc)
@@ -236,6 +245,9 @@ add_lapack_test(znep.out nep.in xeigtstz)
add_lapack_test(zsep.out sep.in xeigtstz)
+add_lapack_test(zse2.out se2.in xeigtstz)
+
+
add_lapack_test(zsvd.out svd.in xeigtstz)
diff --git a/TESTING/EIG/CMakeLists.txt b/TESTING/EIG/CMakeLists.txt
index b6bc77d6..e5a2cc9d 100644
--- a/TESTING/EIG/CMakeLists.txt
+++ b/TESTING/EIG/CMakeLists.txt
@@ -49,11 +49,11 @@ set(SCIGTST slafts.f slahd2.f slasum.f slatb9.f sstech.f sstect.f
set(SEIGTST schkee.f
sbdt01.f sbdt02.f sbdt03.f sbdt04.f sbdt05.f
schkbb.f schkbd.f schkbk.f schkbl.f schkec.f
- schkgg.f schkgk.f schkgl.f schkhs.f schksb.f schkst.f
+ schkgg.f schkgk.f schkgl.f schkhs.f schksb.f schkst.f schkst2stg.f schksb2stg.f
sckcsd.f sckglm.f sckgqr.f sckgsv.f scklse.f scsdts.f
sdrges.f sdrgev.f sdrges3.f sdrgev3.f sdrgsx.f sdrgvx.f
- sdrvbd.f sdrves.f sdrvev.f sdrvsg.f
- sdrvst.f sdrvsx.f sdrvvx.f
+ sdrvbd.f sdrves.f sdrvev.f sdrvsg.f sdrvsg2stg.f
+ sdrvst.f sdrvst2stg.f sdrvsx.f sdrvvx.f
serrbd.f serrec.f serred.f serrgg.f serrhs.f serrst.f
sget02.f sget10.f sget22.f sget23.f sget24.f sget31.f
sget32.f sget33.f sget34.f sget35.f sget36.f
@@ -66,11 +66,11 @@ set(SEIGTST schkee.f
set(CEIGTST cchkee.f
cbdt01.f cbdt02.f cbdt03.f cbdt05.f
cchkbb.f cchkbd.f cchkbk.f cchkbl.f cchkec.f
- cchkgg.f cchkgk.f cchkgl.f cchkhb.f cchkhs.f cchkst.f
+ cchkgg.f cchkgk.f cchkgl.f cchkhb.f cchkhs.f cchkst.f cchkst2stg.f cchkhb2stg.f
cckcsd.f cckglm.f cckgqr.f cckgsv.f ccklse.f ccsdts.f
cdrges.f cdrgev.f cdrges3.f cdrgev3.f cdrgsx.f cdrgvx.f
- cdrvbd.f cdrves.f cdrvev.f cdrvsg.f
- cdrvst.f cdrvsx.f cdrvvx.f
+ cdrvbd.f cdrves.f cdrvev.f cdrvsg.f cdrvsg2stg.f
+ cdrvst.f cdrvst2stg.f cdrvsx.f cdrvvx.f
cerrbd.f cerrec.f cerred.f cerrgg.f cerrhs.f cerrst.f
cget02.f cget10.f cget22.f cget23.f cget24.f
cget35.f cget36.f cget37.f cget38.f cget51.f cget52.f
@@ -86,11 +86,11 @@ set(DZIGTST dlafts.f dlahd2.f dlasum.f dlatb9.f dstech.f dstect.f
set(DEIGTST dchkee.f
dbdt01.f dbdt02.f dbdt03.f dbdt04.f dbdt05.f
dchkbb.f dchkbd.f dchkbk.f dchkbl.f dchkec.f
- dchkgg.f dchkgk.f dchkgl.f dchkhs.f dchksb.f dchkst.f
+ dchkgg.f dchkgk.f dchkgl.f dchkhs.f dchksb.f dchkst.f dchkst2stg.f dchksb2stg.f
dckcsd.f dckglm.f dckgqr.f dckgsv.f dcklse.f dcsdts.f
ddrges.f ddrgev.f ddrges3.f ddrgev3.f ddrgsx.f ddrgvx.f
- ddrvbd.f ddrves.f ddrvev.f ddrvsg.f
- ddrvst.f ddrvsx.f ddrvvx.f
+ ddrvbd.f ddrves.f ddrvev.f ddrvsg.f ddrvsg2stg.f
+ ddrvst.f ddrvst2stg.f ddrvsx.f ddrvvx.f
derrbd.f derrec.f derred.f derrgg.f derrhs.f derrst.f
dget02.f dget10.f dget22.f dget23.f dget24.f dget31.f
dget32.f dget33.f dget34.f dget35.f dget36.f
@@ -103,11 +103,11 @@ set(DEIGTST dchkee.f
set(ZEIGTST zchkee.f
zbdt01.f zbdt02.f zbdt03.f zbdt05.f
zchkbb.f zchkbd.f zchkbk.f zchkbl.f zchkec.f
- zchkgg.f zchkgk.f zchkgl.f zchkhb.f zchkhs.f zchkst.f
+ zchkgg.f zchkgk.f zchkgl.f zchkhb.f zchkhs.f zchkst.f zchkst2stg.f zchkhb2stg.f
zckcsd.f zckglm.f zckgqr.f zckgsv.f zcklse.f zcsdts.f
zdrges.f zdrgev.f zdrges3.f zdrgev3.f zdrgsx.f zdrgvx.f
- zdrvbd.f zdrves.f zdrvev.f zdrvsg.f
- zdrvst.f zdrvsx.f zdrvvx.f
+ zdrvbd.f zdrves.f zdrvev.f zdrvsg.f ddrvsg2stg.f
+ zdrvst.f ddrvst2stg.f zdrvsx.f zdrvvx.f
zerrbd.f zerrec.f zerred.f zerrgg.f zerrhs.f zerrst.f
zget02.f zget10.f zget22.f zget23.f zget24.f
zget35.f zget36.f zget37.f zget38.f zget51.f zget52.f
diff --git a/TESTING/EIG/cchkhb2stg.f b/TESTING/EIG/cchkhb2stg.f
index d4aba4b9..5a7f1eda 100644
--- a/TESTING/EIG/cchkhb2stg.f
+++ b/TESTING/EIG/cchkhb2stg.f
@@ -1,7 +1,5 @@
*> \brief \b CCHKHBSTG
*
-* @generated from zchkhb2stg.f, fortran z -> c, Sun Nov 6 00:22:35 2016
-*
* =========== DOCUMENTATION ===========
*
* Online html documentation available at
@@ -315,7 +313,7 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2011
+*> \date November 2016
*
*> \ingroup complex_eig
*
@@ -325,10 +323,10 @@
$ D2, D3, U, LDU, WORK, LWORK, RWORK, RESULT,
$ INFO )
*
-* -- LAPACK test routine (version 3.4.0) --
+* -- LAPACK test routine (version 3.7.0) --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2011
+* November 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDU, LWORK, NOUNIT, NSIZES, NTYPES,
@@ -360,8 +358,8 @@
* .. Local Scalars ..
LOGICAL BADNN, BADNNB
INTEGER I, IINFO, IMODE, ITYPE, J, JC, JCOL, JR, JSIZE,
- $ JTYPE, JWIDTH, K, KMAX, MTYPES, N, NERRS,
- $ NMATS, NMAX, NTEST, NTESTT
+ $ JTYPE, JWIDTH, K, KMAX, LH, LW, MTYPES, N,
+ $ NERRS, NMATS, NMAX, NTEST, NTESTT
REAL ANINV, ANORM, COND, OVFL, RTOVFL, RTUNFL,
$ TEMP1, TEMP2, TEMP3, TEMP4, ULP, ULPINV, UNFL
* ..
diff --git a/TESTING/EIG/cchkst2stg.f b/TESTING/EIG/cchkst2stg.f
index 84bf432a..c0fa4288 100644
--- a/TESTING/EIG/cchkst2stg.f
+++ b/TESTING/EIG/cchkst2stg.f
@@ -1,7 +1,5 @@
*> \brief \b CCHKST2STG
*
-* @generated from zchkst2stg.f, fortran z -> c, Fri Nov 4 15:45:07 2016
-*
* =========== DOCUMENTATION ===========
*
* Online html documentation available at
@@ -616,7 +614,7 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2011
+*> \date November 2016
*
*> \ingroup complex_eig
*
@@ -627,10 +625,10 @@
$ LWORK, RWORK, LRWORK, IWORK, LIWORK, RESULT,
$ INFO )
*
-* -- LAPACK test routine (version 3.4.0) --
+* -- LAPACK test routine (version 3.7.0) --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2011
+* November 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDU, LIWORK, LRWORK, LWORK, NOUNIT,
@@ -1097,56 +1095,6 @@
RESULT( 3 ) = TEMP2 / MAX( UNFL, ULP*MAX( TEMP1, TEMP2 ) )
RESULT( 4 ) = TEMP4 / MAX( UNFL, ULP*MAX( TEMP3, TEMP4 ) )
*
-* Skip the DSYTRD for lower that since we replaced its testing
-* 3 and 4 by the 2-stage one.
- GOTO 101
-*
-* Call CHETRD and CUNGTR to compute S and U from
-* lower triangle, do tests.
-*
- CALL CLACPY( 'L', N, N, A, LDA, V, LDU )
-*
- NTEST = 3
- CALL CHETRD( 'L', N, V, LDU, SD, SE, TAU, WORK, LWORK,
- $ IINFO )
-*
- IF( IINFO.NE.0 ) THEN
- WRITE( NOUNIT, FMT = 9999 )'CHETRD(L)', IINFO, N, JTYPE,
- $ IOLDSD
- INFO = ABS( IINFO )
- IF( IINFO.LT.0 ) THEN
- RETURN
- ELSE
- RESULT( 3 ) = ULPINV
- GO TO 280
- END IF
- END IF
-*
- CALL CLACPY( 'L', N, N, V, LDU, U, LDU )
-*
- NTEST = 4
- CALL CUNGTR( 'L', N, U, LDU, TAU, WORK, LWORK, IINFO )
- IF( IINFO.NE.0 ) THEN
- WRITE( NOUNIT, FMT = 9999 )'CUNGTR(L)', IINFO, N, JTYPE,
- $ IOLDSD
- INFO = ABS( IINFO )
- IF( IINFO.LT.0 ) THEN
- RETURN
- ELSE
- RESULT( 4 ) = ULPINV
- GO TO 280
- END IF
- END IF
-*
- CALL CHET21( 2, 'Lower', N, 1, A, LDA, SD, SE, U, LDU, V,
- $ LDU, TAU, WORK, RWORK, RESULT( 3 ) )
- CALL CHET21( 3, 'Lower', N, 1, A, LDA, SD, SE, U, LDU, V,
- $ LDU, TAU, WORK, RWORK, RESULT( 4 ) )
-*
-*after skipping old tests 3 4 back to the normal
-*
- 101 CONTINUE
-*
* Store the upper triangle of A in AP
*
I = 0
diff --git a/TESTING/EIG/cdrvsg2stg.f b/TESTING/EIG/cdrvsg2stg.f
index 3a624568..a6ccefbf 100644
--- a/TESTING/EIG/cdrvsg2stg.f
+++ b/TESTING/EIG/cdrvsg2stg.f
@@ -1,7 +1,5 @@
*> \brief \b CDRVSG2STG
*
-* @generated from zdrvsg2stg.f, fortran z -> c, Sun Nov 6 14:01:09 2016
-*
* =========== DOCUMENTATION ===========
*
* Online html documentation available at
@@ -368,7 +366,7 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2011
+*> \date November 2016
*
*> \ingroup complex_eig
*
@@ -380,10 +378,10 @@
*
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.4.0) --
+* -- LAPACK test routine (version 3.7.0) --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2011
+* November 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDB, LDZ, LIWORK, LRWORK, NOUNIT,
diff --git a/TESTING/EIG/cdrvst2stg.f b/TESTING/EIG/cdrvst2stg.f
index ab1af355..3d452e3a 100644
--- a/TESTING/EIG/cdrvst2stg.f
+++ b/TESTING/EIG/cdrvst2stg.f
@@ -1,7 +1,5 @@
*> \brief \b CDRVST2STG
*
-* @generated from zdrvst2stg.f, fortran z -> c, Sat Nov 5 23:41:02 2016
-*
* =========== DOCUMENTATION ===========
*
* Online html documentation available at
@@ -330,7 +328,7 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2011
+*> \date November 2016
*
*> \ingroup complex_eig
*
@@ -340,10 +338,10 @@
$ LDU, V, TAU, Z, WORK, LWORK, RWORK, LRWORK,
$ IWORK, LIWORK, RESULT, INFO )
*
-* -- LAPACK test routine (version 3.4.0) --
+* -- LAPACK test routine (version 3.7.0) --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2011
+* November 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDU, LIWORK, LRWORK, LWORK, NOUNIT,
diff --git a/TESTING/EIG/dchksb2stg.f b/TESTING/EIG/dchksb2stg.f
index adac168c..078ba65c 100644
--- a/TESTING/EIG/dchksb2stg.f
+++ b/TESTING/EIG/dchksb2stg.f
@@ -1,7 +1,5 @@
*> \brief \b DCHKSBSTG
*
-* @precisions fortran d -> s
-*
* =========== DOCUMENTATION ===========
*
* Online html documentation available at
@@ -309,7 +307,7 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2011
+*> \date November 2016
*
*> \ingroup double_eig
*
@@ -318,10 +316,10 @@
$ ISEED, THRESH, NOUNIT, A, LDA, SD, SE, D1,
$ D2, D3, U, LDU, WORK, LWORK, RESULT, INFO )
*
-* -- LAPACK test routine (version 3.4.0) --
+* -- LAPACK test routine (version 3.7.0) --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2011
+* November 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDU, LWORK, NOUNIT, NSIZES, NTYPES,
@@ -350,8 +348,8 @@
* .. Local Scalars ..
LOGICAL BADNN, BADNNB
INTEGER I, IINFO, IMODE, ITYPE, J, JC, JCOL, JR, JSIZE,
- $ JTYPE, JWIDTH, K, KMAX, MTYPES, N, NERRS,
- $ NMATS, NMAX, NTEST, NTESTT
+ $ JTYPE, JWIDTH, K, KMAX, LH, LW, MTYPES, N,
+ $ NERRS, NMATS, NMAX, NTEST, NTESTT
DOUBLE PRECISION ANINV, ANORM, COND, OVFL, RTOVFL, RTUNFL,
$ TEMP1, TEMP2, TEMP3, TEMP4, ULP, ULPINV, UNFL
* ..
diff --git a/TESTING/EIG/dchkst2stg.f b/TESTING/EIG/dchkst2stg.f
index 29190691..0aec629a 100644
--- a/TESTING/EIG/dchkst2stg.f
+++ b/TESTING/EIG/dchkst2stg.f
@@ -1,7 +1,5 @@
*> \brief \b DCHKST2STG
*
-* @precisions fortran d -> s
-*
* =========== DOCUMENTATION ===========
*
* Online html documentation available at
@@ -604,7 +602,7 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2011
+*> \date November 2016
*
*> \ingroup double_eig
*
@@ -614,10 +612,10 @@
$ WA1, WA2, WA3, WR, U, LDU, V, VP, TAU, Z, WORK,
$ LWORK, IWORK, LIWORK, RESULT, INFO )
*
-* -- LAPACK test routine (version 3.4.0) --
+* -- LAPACK test routine (version 3.7.0) --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2011
+* November 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDU, LIWORK, LWORK, NOUNIT, NSIZES,
@@ -1080,56 +1078,6 @@
RESULT( 3 ) = TEMP2 / MAX( UNFL, ULP*MAX( TEMP1, TEMP2 ) )
RESULT( 4 ) = TEMP4 / MAX( UNFL, ULP*MAX( TEMP3, TEMP4 ) )
*
-* Skip the DSYTRD for lower that since we replaced its testing
-* 3 and 4 by the 2-stage one.
- GOTO 101
-*
-* Call DSYTRD and DORGTR to compute S and U from
-* lower triangle, do tests.
-*
- CALL DLACPY( 'L', N, N, A, LDA, V, LDU )
-*
- NTEST = 3
- CALL DSYTRD( 'L', N, V, LDU, SD, SE, TAU, WORK, LWORK,
- $ IINFO )
-*
- IF( IINFO.NE.0 ) THEN
- WRITE( NOUNIT, FMT = 9999 )'DSYTRD(L)', IINFO, N, JTYPE,
- $ IOLDSD
- INFO = ABS( IINFO )
- IF( IINFO.LT.0 ) THEN
- RETURN
- ELSE
- RESULT( 3 ) = ULPINV
- GO TO 280
- END IF
- END IF
-*
- CALL DLACPY( 'L', N, N, V, LDU, U, LDU )
-*
- NTEST = 4
- CALL DORGTR( 'L', N, U, LDU, TAU, WORK, LWORK, IINFO )
- IF( IINFO.NE.0 ) THEN
- WRITE( NOUNIT, FMT = 9999 )'DORGTR(L)', IINFO, N, JTYPE,
- $ IOLDSD
- INFO = ABS( IINFO )
- IF( IINFO.LT.0 ) THEN
- RETURN
- ELSE
- RESULT( 4 ) = ULPINV
- GO TO 280
- END IF
- END IF
-*
- CALL DSYT21( 2, 'Lower', N, 1, A, LDA, SD, SE, U, LDU, V,
- $ LDU, TAU, WORK, RESULT( 3 ) )
- CALL DSYT21( 3, 'Lower', N, 1, A, LDA, SD, SE, U, LDU, V,
- $ LDU, TAU, WORK, RESULT( 4 ) )
-*
-*after skipping old tests 3 4 back to the normal
-*
- 101 CONTINUE
-*
* Store the upper triangle of A in AP
*
I = 0
diff --git a/TESTING/EIG/ddrvsg2stg.f b/TESTING/EIG/ddrvsg2stg.f
index b26b7777..ecb44cc6 100644
--- a/TESTING/EIG/ddrvsg2stg.f
+++ b/TESTING/EIG/ddrvsg2stg.f
@@ -1,7 +1,5 @@
*> \brief \b DDRVSG2STG
*
-* @precisions fortran d -> s
-*
* =========== DOCUMENTATION ===========
*
* Online html documentation available at
@@ -354,7 +352,7 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2011
+*> \date November 2016
*
*> \ingroup double_eig
*
@@ -366,10 +364,10 @@
*
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.4.0) --
+* -- LAPACK test routine (version 3.7.0) --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2011
+* November 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDB, LDZ, LIWORK, NOUNIT, NSIZES,
diff --git a/TESTING/EIG/ddrvst2stg.f b/TESTING/EIG/ddrvst2stg.f
index 75385fda..cf1f8c44 100644
--- a/TESTING/EIG/ddrvst2stg.f
+++ b/TESTING/EIG/ddrvst2stg.f
@@ -1,7 +1,5 @@
*> \brief \b DDRVST2STG
*
-* @precisions fortran d -> s
-*
* =========== DOCUMENTATION ===========
*
* Online html documentation available at
@@ -445,7 +443,7 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2011
+*> \date November 2016
*
*> \ingroup double_eig
*
@@ -455,10 +453,10 @@
$ WA2, WA3, U, LDU, V, TAU, Z, WORK, LWORK,
$ IWORK, LIWORK, RESULT, INFO )
*
-* -- LAPACK test routine (version 3.4.0) --
+* -- LAPACK test routine (version 3.7.0) --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2011
+* November 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDU, LIWORK, LWORK, NOUNIT, NSIZES,
diff --git a/TESTING/EIG/ilaenv.f b/TESTING/EIG/ilaenv.f
index 6fca6fcb..c2bbe4b3 100644
--- a/TESTING/EIG/ilaenv.f
+++ b/TESTING/EIG/ilaenv.f
@@ -122,7 +122,7 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2011
+*> \date November 2016
*
*> \ingroup OTHERauxiliary
*
@@ -153,10 +153,10 @@
INTEGER FUNCTION ILAENV( ISPEC, NAME, OPTS, N1, N2, N3,
$ N4 )
*
-* -- LAPACK test routine (version 3.4.0) --
+* -- LAPACK test routine (version 3.7.0) --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2011
+* November 2016
*
* .. Scalar Arguments ..
CHARACTER*( * ) NAME, OPTS
@@ -169,8 +169,8 @@
INTRINSIC INT, MIN, REAL
* ..
* .. External Functions ..
- INTEGER IEEECK
- EXTERNAL IEEECK
+ INTEGER IEEECK, IPARAM2STAGE
+ EXTERNAL IEEECK, IPARAM2STAGE
* ..
* .. Arrays in Common ..
INTEGER IPARMS( 100 )
diff --git a/TESTING/EIG/schksb2stg.f b/TESTING/EIG/schksb2stg.f
index 02163695..dce2b5b1 100644
--- a/TESTING/EIG/schksb2stg.f
+++ b/TESTING/EIG/schksb2stg.f
@@ -1,7 +1,5 @@
*> \brief \b SCHKSBSTG
*
-* @generated from dchksb2stg.f, fortran d -> s, Sun Nov 6 00:12:41 2016
-*
* =========== DOCUMENTATION ===========
*
* Online html documentation available at
@@ -309,7 +307,7 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2011
+*> \date November 2016
*
*> \ingroup single_eig
*
@@ -318,10 +316,10 @@
$ ISEED, THRESH, NOUNIT, A, LDA, SD, SE, D1,
$ D2, D3, U, LDU, WORK, LWORK, RESULT, INFO )
*
-* -- LAPACK test routine (version 3.4.0) --
+* -- LAPACK test routine (version 3.7.0) --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2011
+* November 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDU, LWORK, NOUNIT, NSIZES, NTYPES,
@@ -350,8 +348,8 @@
* .. Local Scalars ..
LOGICAL BADNN, BADNNB
INTEGER I, IINFO, IMODE, ITYPE, J, JC, JCOL, JR, JSIZE,
- $ JTYPE, JWIDTH, K, KMAX, MTYPES, N, NERRS,
- $ NMATS, NMAX, NTEST, NTESTT
+ $ JTYPE, JWIDTH, K, KMAX, LH, LW, MTYPES, N,
+ $ NERRS, NMATS, NMAX, NTEST, NTESTT
REAL ANINV, ANORM, COND, OVFL, RTOVFL, RTUNFL,
$ TEMP1, TEMP2, TEMP3, TEMP4, ULP, ULPINV, UNFL
* ..
diff --git a/TESTING/EIG/schkst2stg.f b/TESTING/EIG/schkst2stg.f
index 8db1cf73..4bf9f107 100644
--- a/TESTING/EIG/schkst2stg.f
+++ b/TESTING/EIG/schkst2stg.f
@@ -1,7 +1,5 @@
*> \brief \b SCHKST2STG
*
-* @generated from dchkst2stg.f, fortran d -> s, Sat Nov 5 22:51:30 2016
-*
* =========== DOCUMENTATION ===========
*
* Online html documentation available at
@@ -604,7 +602,7 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2011
+*> \date November 2016
*
*> \ingroup single_eig
*
@@ -614,10 +612,10 @@
$ WA1, WA2, WA3, WR, U, LDU, V, VP, TAU, Z, WORK,
$ LWORK, IWORK, LIWORK, RESULT, INFO )
*
-* -- LAPACK test routine (version 3.4.0) --
+* -- LAPACK test routine (version 3.7.0) --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2011
+* November 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDU, LIWORK, LWORK, NOUNIT, NSIZES,
@@ -1080,56 +1078,6 @@
RESULT( 3 ) = TEMP2 / MAX( UNFL, ULP*MAX( TEMP1, TEMP2 ) )
RESULT( 4 ) = TEMP4 / MAX( UNFL, ULP*MAX( TEMP3, TEMP4 ) )
*
-* Skip the SSYTRD for lower that since we replaced its testing
-* 3 and 4 by the 2-stage one.
- GOTO 101
-*
-* Call SSYTRD and SORGTR to compute S and U from
-* lower triangle, do tests.
-*
- CALL SLACPY( 'L', N, N, A, LDA, V, LDU )
-*
- NTEST = 3
- CALL SSYTRD( 'L', N, V, LDU, SD, SE, TAU, WORK, LWORK,
- $ IINFO )
-*
- IF( IINFO.NE.0 ) THEN
- WRITE( NOUNIT, FMT = 9999 )'SSYTRD(L)', IINFO, N, JTYPE,
- $ IOLDSD
- INFO = ABS( IINFO )
- IF( IINFO.LT.0 ) THEN
- RETURN
- ELSE
- RESULT( 3 ) = ULPINV
- GO TO 280
- END IF
- END IF
-*
- CALL SLACPY( 'L', N, N, V, LDU, U, LDU )
-*
- NTEST = 4
- CALL SORGTR( 'L', N, U, LDU, TAU, WORK, LWORK, IINFO )
- IF( IINFO.NE.0 ) THEN
- WRITE( NOUNIT, FMT = 9999 )'SORGTR(L)', IINFO, N, JTYPE,
- $ IOLDSD
- INFO = ABS( IINFO )
- IF( IINFO.LT.0 ) THEN
- RETURN
- ELSE
- RESULT( 4 ) = ULPINV
- GO TO 280
- END IF
- END IF
-*
- CALL SSYT21( 2, 'Lower', N, 1, A, LDA, SD, SE, U, LDU, V,
- $ LDU, TAU, WORK, RESULT( 3 ) )
- CALL SSYT21( 3, 'Lower', N, 1, A, LDA, SD, SE, U, LDU, V,
- $ LDU, TAU, WORK, RESULT( 4 ) )
-*
-*after skipping old tests 3 4 back to the normal
-*
- 101 CONTINUE
-*
* Store the upper triangle of A in AP
*
I = 0
diff --git a/TESTING/EIG/sdrvsg2stg.f b/TESTING/EIG/sdrvsg2stg.f
index c39af7fd..c56cd65d 100644
--- a/TESTING/EIG/sdrvsg2stg.f
+++ b/TESTING/EIG/sdrvsg2stg.f
@@ -1,7 +1,5 @@
*> \brief \b SDRVSG2STG
*
-* @generated from ddrvsg2stg.f, fortran d -> s, Sun Nov 6 13:47:49 2016
-*
* =========== DOCUMENTATION ===========
*
* Online html documentation available at
@@ -354,7 +352,7 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2011
+*> \date November 2016
*
*> \ingroup real_eig
*
@@ -366,10 +364,10 @@
*
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.4.0) --
+* -- LAPACK test routine (version 3.7.0) --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2011
+* November 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDB, LDZ, LIWORK, NOUNIT, NSIZES,
diff --git a/TESTING/EIG/sdrvst2stg.f b/TESTING/EIG/sdrvst2stg.f
index 727706a8..ebbbcc90 100644
--- a/TESTING/EIG/sdrvst2stg.f
+++ b/TESTING/EIG/sdrvst2stg.f
@@ -1,7 +1,5 @@
*> \brief \b SDRVST2STG
*
-* @generated from ddrvst2stg.f, fortran d -> s, Sun Nov 6 00:06:01 2016
-*
* =========== DOCUMENTATION ===========
*
* Online html documentation available at
@@ -445,7 +443,7 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2011
+*> \date November 2016
*
*> \ingroup single_eig
*
@@ -455,10 +453,10 @@
$ WA2, WA3, U, LDU, V, TAU, Z, WORK, LWORK,
$ IWORK, LIWORK, RESULT, INFO )
*
-* -- LAPACK test routine (version 3.4.0) --
+* -- LAPACK test routine (version 3.7.0) --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2011
+* November 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDU, LIWORK, LWORK, NOUNIT, NSIZES,
diff --git a/TESTING/EIG/zchkhb2stg.f b/TESTING/EIG/zchkhb2stg.f
index 0660b6fb..c9ed5531 100644
--- a/TESTING/EIG/zchkhb2stg.f
+++ b/TESTING/EIG/zchkhb2stg.f
@@ -1,7 +1,5 @@
*> \brief \b ZCHKHBSTG
*
-* @precisions fortran z -> c
-*
* =========== DOCUMENTATION ===========
*
* Online html documentation available at
@@ -315,7 +313,7 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2011
+*> \date November 2016
*
*> \ingroup complex16_eig
*
@@ -325,10 +323,10 @@
$ D2, D3, U, LDU, WORK, LWORK, RWORK, RESULT,
$ INFO )
*
-* -- LAPACK test routine (version 3.4.0) --
+* -- LAPACK test routine (version 3.7.0) --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2011
+* November 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDU, LWORK, NOUNIT, NSIZES, NTYPES,
@@ -360,8 +358,8 @@
* .. Local Scalars ..
LOGICAL BADNN, BADNNB
INTEGER I, IINFO, IMODE, ITYPE, J, JC, JCOL, JR, JSIZE,
- $ JTYPE, JWIDTH, K, KMAX, MTYPES, N, NERRS,
- $ NMATS, NMAX, NTEST, NTESTT
+ $ JTYPE, JWIDTH, K, KMAX, LH, LW, MTYPES, N,
+ $ NERRS, NMATS, NMAX, NTEST, NTESTT
DOUBLE PRECISION ANINV, ANORM, COND, OVFL, RTOVFL, RTUNFL,
$ TEMP1, TEMP2, TEMP3, TEMP4, ULP, ULPINV, UNFL
* ..
diff --git a/TESTING/EIG/zchkst2stg.f b/TESTING/EIG/zchkst2stg.f
index a1aaffbc..d93191a6 100644
--- a/TESTING/EIG/zchkst2stg.f
+++ b/TESTING/EIG/zchkst2stg.f
@@ -1,7 +1,5 @@
*> \brief \b ZCHKST2STG
*
-* @precisions fortran z -> c
-*
* =========== DOCUMENTATION ===========
*
* Online html documentation available at
@@ -616,7 +614,7 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2011
+*> \date November 2016
*
*> \ingroup complex16_eig
*
@@ -627,10 +625,10 @@
$ LWORK, RWORK, LRWORK, IWORK, LIWORK, RESULT,
$ INFO )
*
-* -- LAPACK test routine (version 3.4.0) --
+* -- LAPACK test routine (version 3.7.0) --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2011
+* November 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDU, LIWORK, LRWORK, LWORK, NOUNIT,
@@ -1097,56 +1095,6 @@
RESULT( 3 ) = TEMP2 / MAX( UNFL, ULP*MAX( TEMP1, TEMP2 ) )
RESULT( 4 ) = TEMP4 / MAX( UNFL, ULP*MAX( TEMP3, TEMP4 ) )
*
-* Skip the DSYTRD for lower that since we replaced its testing
-* 3 and 4 by the 2-stage one.
- GOTO 101
-*
-* Call ZHETRD and ZUNGTR to compute S and U from
-* lower triangle, do tests.
-*
- CALL ZLACPY( 'L', N, N, A, LDA, V, LDU )
-*
- NTEST = 3
- CALL ZHETRD( 'L', N, V, LDU, SD, SE, TAU, WORK, LWORK,
- $ IINFO )
-*
- IF( IINFO.NE.0 ) THEN
- WRITE( NOUNIT, FMT = 9999 )'ZHETRD(L)', IINFO, N, JTYPE,
- $ IOLDSD
- INFO = ABS( IINFO )
- IF( IINFO.LT.0 ) THEN
- RETURN
- ELSE
- RESULT( 3 ) = ULPINV
- GO TO 280
- END IF
- END IF
-*
- CALL ZLACPY( 'L', N, N, V, LDU, U, LDU )
-*
- NTEST = 4
- CALL ZUNGTR( 'L', N, U, LDU, TAU, WORK, LWORK, IINFO )
- IF( IINFO.NE.0 ) THEN
- WRITE( NOUNIT, FMT = 9999 )'ZUNGTR(L)', IINFO, N, JTYPE,
- $ IOLDSD
- INFO = ABS( IINFO )
- IF( IINFO.LT.0 ) THEN
- RETURN
- ELSE
- RESULT( 4 ) = ULPINV
- GO TO 280
- END IF
- END IF
-*
- CALL ZHET21( 2, 'Lower', N, 1, A, LDA, SD, SE, U, LDU, V,
- $ LDU, TAU, WORK, RWORK, RESULT( 3 ) )
- CALL ZHET21( 3, 'Lower', N, 1, A, LDA, SD, SE, U, LDU, V,
- $ LDU, TAU, WORK, RWORK, RESULT( 4 ) )
-*
-*after skipping old tests 3 4 back to the normal
-*
- 101 CONTINUE
-*
* Store the upper triangle of A in AP
*
I = 0
diff --git a/TESTING/EIG/zdrvsg2stg.f b/TESTING/EIG/zdrvsg2stg.f
index f75ce60c..f2a000c7 100644
--- a/TESTING/EIG/zdrvsg2stg.f
+++ b/TESTING/EIG/zdrvsg2stg.f
@@ -1,7 +1,5 @@
*> \brief \b ZDRVSG2STG
*
-* @precisions fortran z -> c
-*
* =========== DOCUMENTATION ===========
*
* Online html documentation available at
@@ -368,7 +366,7 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2011
+*> \date November 2016
*
*> \ingroup complex16_eig
*
@@ -380,10 +378,10 @@
*
IMPLICIT NONE
*
-* -- LAPACK test routine (version 3.4.0) --
+* -- LAPACK test routine (version 3.7.0) --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2011
+* November 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDB, LDZ, LIWORK, LRWORK, NOUNIT,
diff --git a/TESTING/EIG/zdrvst2stg.f b/TESTING/EIG/zdrvst2stg.f
index 0b33f52d..f809d18d 100644
--- a/TESTING/EIG/zdrvst2stg.f
+++ b/TESTING/EIG/zdrvst2stg.f
@@ -1,7 +1,5 @@
*> \brief \b ZDRVST2STG
*
-* @precisions fortran z -> s d c
-*
* =========== DOCUMENTATION ===========
*
* Online html documentation available at
@@ -330,7 +328,7 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2011
+*> \date November 2016
*
*> \ingroup complex16_eig
*
@@ -340,10 +338,10 @@
$ LDU, V, TAU, Z, WORK, LWORK, RWORK, LRWORK,
$ IWORK, LIWORK, RESULT, INFO )
*
-* -- LAPACK test routine (version 3.4.0) --
+* -- LAPACK test routine (version 3.7.0) --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2011
+* November 2016
*
* .. Scalar Arguments ..
INTEGER INFO, LDA, LDU, LIWORK, LRWORK, LWORK, NOUNIT,