diff options
| -rw-r--r-- | SRC/CMakeLists.txt | 32 | ||||
| -rw-r--r-- | SRC/Makefile | 3 | ||||
| -rw-r--r-- | SRC/ilaenv.f | 10 | ||||
| -rw-r--r-- | TESTING/CMakeLists.txt | 12 | ||||
| -rw-r--r-- | TESTING/EIG/CMakeLists.txt | 24 | ||||
| -rw-r--r-- | TESTING/EIG/cchkhb2stg.f | 12 | ||||
| -rw-r--r-- | TESTING/EIG/cchkst2stg.f | 58 | ||||
| -rw-r--r-- | TESTING/EIG/cdrvsg2stg.f | 8 | ||||
| -rw-r--r-- | TESTING/EIG/cdrvst2stg.f | 8 | ||||
| -rw-r--r-- | TESTING/EIG/dchksb2stg.f | 12 | ||||
| -rw-r--r-- | TESTING/EIG/dchkst2stg.f | 58 | ||||
| -rw-r--r-- | TESTING/EIG/ddrvsg2stg.f | 8 | ||||
| -rw-r--r-- | TESTING/EIG/ddrvst2stg.f | 8 | ||||
| -rw-r--r-- | TESTING/EIG/ilaenv.f | 10 | ||||
| -rw-r--r-- | TESTING/EIG/schksb2stg.f | 12 | ||||
| -rw-r--r-- | TESTING/EIG/schkst2stg.f | 58 | ||||
| -rw-r--r-- | TESTING/EIG/sdrvsg2stg.f | 8 | ||||
| -rw-r--r-- | TESTING/EIG/sdrvst2stg.f | 8 | ||||
| -rw-r--r-- | TESTING/EIG/zchkhb2stg.f | 12 | ||||
| -rw-r--r-- | TESTING/EIG/zchkst2stg.f | 58 | ||||
| -rw-r--r-- | TESTING/EIG/zdrvsg2stg.f | 8 | ||||
| -rw-r--r-- | TESTING/EIG/zdrvst2stg.f | 8 | ||||
| -rwxr-xr-x | lapack_testing.py | 6 |
23 files changed, 118 insertions, 323 deletions
diff --git a/SRC/CMakeLists.txt b/SRC/CMakeLists.txt index 02a9b3da..69a5083f 100644 --- a/SRC/CMakeLists.txt +++ b/SRC/CMakeLists.txt @@ -46,7 +46,7 @@ # ####################################################################### -set(ALLAUX ilaenv.f ieeeck.f lsamen.f iparmq.f +set(ALLAUX ilaenv.f ieeeck.f lsamen.f iparmq.f iparam2stage.f ilaprec.f ilatrans.f ilauplo.f iladiag.f chla_transtype.f ../INSTALL/ilaver.f ../INSTALL/lsame.f xerbla.f xerbla_array.f ../INSTALL/slamch.f) @@ -112,7 +112,7 @@ set(SLASRC slaqgb.f slaqge.f slaqp2.f slaqps.f slaqsb.f slaqsp.f slaqsy.f slaqr0.f slaqr1.f slaqr2.f slaqr3.f slaqr4.f slaqr5.f slaqtr.f slar1v.f slar2v.f ilaslr.f ilaslc.f - slarf.f slarfb.f slarfg.f slarfgp.f slarft.f slarfx.f slargv.f + slarf.f slarfb.f slarfg.f slarfgp.f slarft.f slarfx.f slarfy.f slargv.f slarrv.f slartv.f slarz.f slarzb.f slarzt.f slaswp.f slasy2.f slasyf.f slasyf_rook.f slasyf_rk.f slasyf_aa.f @@ -160,7 +160,10 @@ set(SLASRC sgelqt.f sgelqt3.f sgemlqt.f sgetsls.f sgeqr.f slatsqr.f slamtsqr.f sgemqr.f sgelq.f slaswlq.f slamswlq.f sgemlq.f - stplqt.f stplqt2.f stpmlqt.f) + stplqt.f stplqt2.f stpmlqt.f + ssytrd_2stage.f ssytrd_sy2sb.f ssytrd_sb2st.f ssb2st_kernels.f + ssyevd_2stage.f ssyev_2stage.f ssyevx_2stage.f ssyevr_2stage.f + ssbev_2stage.f ssbevx_2stage.f ssbevd_2stage.f ssygv_2stage.f) set(DSLASRC spotrs.f sgetrs.f spotrf.f sgetrf.f) @@ -215,7 +218,7 @@ set(CLASRC claqr0.f claqr1.f claqr2.f claqr3.f claqr4.f claqr5.f claqsp.f claqsy.f clar1v.f clar2v.f ilaclr.f ilaclc.f clarf.f clarfb.f clarfg.f clarfgp.f clarft.f - clarfx.f clargv.f clarnv.f clarrv.f clartg.f clartv.f + clarfx.f clarfy.f clargv.f clarnv.f clarrv.f clartg.f clartv.f clarz.f clarzb.f clarzt.f clascl.f claset.f clasr.f classq.f claswp.f clasyf.f clasyf_rook.f clasyf_rk.f clatbs.f clatdf.f clatps.f clatrd.f clatrs.f clatrz.f clauu2.f clauum.f cpbcon.f cpbequ.f cpbrfs.f cpbstf.f cpbsv.f @@ -253,7 +256,10 @@ set(CLASRC cgelqt.f cgelqt3.f cgemlqt.f cgetsls.f cgeqr.f clatsqr.f clamtsqr.f cgemqr.f cgelq.f claswlq.f clamswlq.f cgemlq.f - ctplqt.f ctplqt2.f ctpmlqt.f) + ctplqt.f ctplqt2.f ctpmlqt.f + chetrd_2stage.f chetrd_he2hb.f chetrd_hb2st.f chb2st_kernels.f + cheevd_2stage.f cheev_2stage.f cheevx_2stage.f cheevr_2stage.f + chbev_2stage.f chbevx_2stage.f chbevd_2stage.f chegv_2stage.f) set(CXLASRC cgesvxx.f cgerfsx.f cla_gerfsx_extended.f cla_geamv.f cla_gercond_c.f cla_gercond_x.f cla_gerpvgrw.f @@ -292,8 +298,8 @@ set(DLASRC dlaqgb.f dlaqge.f dlaqp2.f dlaqps.f dlaqsb.f dlaqsp.f dlaqsy.f dlaqr0.f dlaqr1.f dlaqr2.f dlaqr3.f dlaqr4.f dlaqr5.f dlaqtr.f dlar1v.f dlar2v.f iladlr.f iladlc.f - dlarf.f dlarfb.f dlarfg.f dlarfgp.f dlarft.f dlarfx.f dlargv.f - dlarrv.f dlartv.f + dlarf.f dlarfb.f dlarfg.f dlarfgp.f dlarft.f dlarfx.f dlarfy.f + dlargv.f dlarrv.f dlartv.f dlarz.f dlarzb.f dlarzt.f dlaswp.f dlasy2.f dlasyf.f dlasyf_rook.f dlasyf_rk.f dlasyf_aa.f dlatbs.f dlatdf.f dlatps.f dlatrd.f dlatrs.f dlatrz.f dlauu2.f @@ -341,7 +347,10 @@ set(DLASRC dgelqt.f dgelqt3.f dgemlqt.f dgetsls.f dgeqr.f dlatsqr.f dlamtsqr.f dgemqr.f dgelq.f dlaswlq.f dlamswlq.f dgemlq.f - dtplqt.f dtplqt2.f dtpmlqt.f ) + dtplqt.f dtplqt2.f dtpmlqt.f + dsytrd_2stage.f dsytrd_sy2sb.f dsytrd_sb2st.f dsb2st_kernels.f + dsyevd_2stage.f dsyev_2stage.f dsyevx_2stage.f dsyevr_2stage.f + dsbev_2stage.f dsbevx_2stage.f dsbevd_2stage.f dsygv_2stage.f) set(DXLASRC dgesvxx.f dgerfsx.f dla_gerfsx_extended.f dla_geamv.f dla_gercond.f dla_gerpvgrw.f dsysvxx.f dsyrfsx.f @@ -396,7 +405,7 @@ set(ZLASRC zlaqsp.f zlaqsy.f zlar1v.f zlar2v.f ilazlr.f ilazlc.f zlarcm.f zlarf.f zlarfb.f zlarfg.f zlarfgp.f zlarft.f - zlarfx.f zlargv.f zlarnv.f zlarrv.f zlartg.f zlartv.f + zlarfx.f zlarfy.f zlargv.f zlarnv.f zlarrv.f zlartg.f zlartv.f zlarz.f zlarzb.f zlarzt.f zlascl.f zlaset.f zlasr.f zlassq.f zlaswp.f zlasyf.f zlasyf_rook.f zlasyf_rk.f zlatbs.f zlatdf.f zlatps.f zlatrd.f zlatrs.f zlatrz.f zlauu2.f @@ -438,7 +447,10 @@ set(ZLASRC zgelqt.f zgelqt3.f zgemlqt.f zgetsls.f zgeqr.f zlatsqr.f zlamtsqr.f zgemqr.f zgelq.f zlaswlq.f zlamswlq.f zgemlq.f - ztplqt.f ztplqt2.f ztpmlqt.f) + ztplqt.f ztplqt2.f ztpmlqt.f + zhetrd_2stage.f zhetrd_he2hb.f zhetrd_hb2st.f zhb2st_kernels.f + zheevd_2stage.f zheev_2stage.f zheevx_2stage.f zheevr_2stage.f + zhbev_2stage.f zhbevx_2stage.f zhbevd_2stage.f zhegv_2stage.f) set(ZXLASRC zgesvxx.f zgerfsx.f zla_gerfsx_extended.f zla_geamv.f zla_gercond_c.f zla_gercond_x.f zla_gerpvgrw.f zsysvxx.f zsyrfsx.f diff --git a/SRC/Makefile b/SRC/Makefile index c521d7f6..dfb62ae7 100644 --- a/SRC/Makefile +++ b/SRC/Makefile @@ -556,6 +556,9 @@ clean: .f.o: $(FORTRAN) $(OPTS) -c $< -o $@ +.F.o: + $(FORTRAN) $(OPTS) -c $< -o $@ + slaruv.o: slaruv.f ; $(FORTRAN) $(NOOPT) -c $< -o $@ dlaruv.o: dlaruv.f ; $(FORTRAN) $(NOOPT) -c $< -o $@ sla_wwaddw.o: sla_wwaddw.f ; $(FORTRAN) $(NOOPT) -c $< -o $@ diff --git a/SRC/ilaenv.f b/SRC/ilaenv.f index c66f1679..8205a75a 100644 --- a/SRC/ilaenv.f +++ b/SRC/ilaenv.f @@ -132,7 +132,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 +*> \date November 2016 * *> \ingroup OTHERauxiliary * @@ -162,10 +162,10 @@ * ===================================================================== INTEGER FUNCTION ILAENV( ISPEC, NAME, OPTS, N1, N2, N3, N4 ) * -* -- LAPACK auxiliary routine (version 3.6.1) -- +* -- LAPACK auxiliary 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..-- -* June 2016 +* November 2016 * * .. Scalar Arguments .. CHARACTER*( * ) NAME, OPTS @@ -183,8 +183,8 @@ INTRINSIC CHAR, ICHAR, INT, MIN, REAL * .. * .. External Functions .. - INTEGER IEEECK, IPARMQ - EXTERNAL IEEECK, IPARMQ + INTEGER IEEECK, IPARMQ, IPARAM2STAGE + EXTERNAL IEEECK, IPARMQ, IPARAM2STAGE * .. * .. Executable Statements .. * 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, diff --git a/lapack_testing.py b/lapack_testing.py index 4ffd72a0..a3d05a95 100755 --- a/lapack_testing.py +++ b/lapack_testing.py @@ -226,19 +226,19 @@ for dtype in range_prec: sys.stdout.flush() dtests = ( - ("nep", "sep", "svd", + ("nep", "sep", "se2", "svd", letter+"ec",letter+"ed",letter+"gg", letter+"gd",letter+"sb",letter+"sg", letter+"bb","glm","gqr", "gsv","csd","lse", letter+"test", letter+dtypes[0][dtype-1]+"test",letter+"test_rfp"), - ("Nonsymmetric Eigenvalue Problem", "Symmetric Eigenvalue Problem", "Singular Value Decomposition", + ("Nonsymmetric Eigenvalue Problem", "Symmetric Eigenvalue Problem", "Symmetric Eigenvalue Problem 2 stage", "Singular Value Decomposition", "Eigen Condition","Nonsymmetric Eigenvalue","Nonsymmetric Generalized Eigenvalue Problem", "Nonsymmetric Generalized Eigenvalue Problem driver", "Symmetric Eigenvalue Problem", "Symmetric Eigenvalue Generalized Problem", "Banded Singular Value Decomposition routines", "Generalized Linear Regression Model routines", "Generalized QR and RQ factorization routines", "Generalized Singular Value Decomposition routines", "CS Decomposition routines", "Constrained Linear Least Squares routines", "Linear Equation routines", "Mixed Precision linear equation routines","RFP linear equation routines"), - (letter+"nep", letter+"sep", letter+"svd", + (letter+"nep", letter+"sep", letter+"se2", letter+"svd", letter+"ec",letter+"ed",letter+"gg", letter+"gd",letter+"sb",letter+"sg", letter+"bb",letter+"glm",letter+"gqr", |