diff options
| -rw-r--r-- | TESTING/EIG/cdrvst2stg.f | 3 | ||||
| -rw-r--r-- | TESTING/EIG/cerrst.f | 8 | ||||
| -rw-r--r-- | TESTING/LIN/cchkhe_aa.f | 13 | ||||
| -rw-r--r-- | TESTING/LIN/cchksy_aa.f | 11 | ||||
| -rw-r--r-- | TESTING/LIN/cdrvsy_aa.f | 4 | ||||
| -rw-r--r-- | TESTING/LIN/dchklqtp.f | 2 | ||||
| -rw-r--r-- | TESTING/LIN/dchksy_aa.f | 11 | ||||
| -rw-r--r-- | TESTING/LIN/ddrvsy_aa.f | 2 | ||||
| -rw-r--r-- | TESTING/LIN/schklqtp.f | 2 | ||||
| -rw-r--r-- | TESTING/LIN/schksy_aa.f | 11 | ||||
| -rw-r--r-- | TESTING/LIN/sdrvsy_aa.f | 2 | ||||
| -rw-r--r-- | TESTING/LIN/serrsy.f | 2 | ||||
| -rw-r--r-- | TESTING/LIN/zchkhe_aa.f | 11 | ||||
| -rw-r--r-- | TESTING/LIN/zchksy_aa.f | 11 | ||||
| -rw-r--r-- | TESTING/LIN/zchktsqr.f | 4 | ||||
| -rw-r--r-- | TESTING/LIN/zdrvsy_aa.f | 4 | ||||
| -rw-r--r-- | TESTING/LIN/zerrsy.f | 2 |
17 files changed, 36 insertions, 67 deletions
diff --git a/TESTING/EIG/cdrvst2stg.f b/TESTING/EIG/cdrvst2stg.f index 12a27e5d..bb8fcac4 100644 --- a/TESTING/EIG/cdrvst2stg.f +++ b/TESTING/EIG/cdrvst2stg.f @@ -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 diff --git a/TESTING/EIG/cerrst.f b/TESTING/EIG/cerrst.f index 10b2de43..b9b487ca 100644 --- a/TESTING/EIG/cerrst.f +++ b/TESTING/EIG/cerrst.f @@ -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: @@ -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 diff --git a/TESTING/LIN/cchkhe_aa.f b/TESTING/LIN/cchkhe_aa.f index cb1f07b6..8b6308c3 100644 --- a/TESTING/LIN/cchkhe_aa.f +++ b/TESTING/LIN/cchkhe_aa.f @@ -218,18 +218,13 @@ INTEGER ISEED( 4 ), ISEEDY( 4 ) REAL RESULT( NTESTS ) * .. -* .. External Functions .. - REAL DGET06, CLANHE - EXTERNAL DGET06, CLANHE -* .. * .. External Subroutines .. - EXTERNAL ALAERH, ALAHD, ALASUM, XLAENV, CERRHE, CGET04, - $ ZHECON, CHERFS, CHET01_AA, CHETRF_AA, ZHETRI2, - $ CHETRS_AA, CLACPY, CLAIPD, CLARHS, CLATB4, - $ CLATMS, CPOT02, ZPOT03, ZPOT05 + EXTERNAL ALAERH, ALAHD, ALASUM, XLAENV, CERRHE, CHET01_AA, + $ CHETRF_AA, CHETRS_AA, CLACPY, CLAIPD, CLARHS, + $ CLATB4, CLATMS, CPOT02 * .. * .. Intrinsic Functions .. - INTRINSIC REAL, IMAG, MAX, MIN + INTRINSIC MAX, MIN * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/cchksy_aa.f b/TESTING/LIN/cchksy_aa.f index 33bbad19..0b29117b 100644 --- a/TESTING/LIN/cchksy_aa.f +++ b/TESTING/LIN/cchksy_aa.f @@ -218,15 +218,10 @@ INTEGER ISEED( 4 ), ISEEDY( 4 ) REAL RESULT( NTESTS ) * .. -* .. External Functions .. - REAL DGET06, CLANSY - EXTERNAL DGET06, CLANSY -* .. * .. External Subroutines .. - EXTERNAL ALAERH, ALAHD, ALASUM, CERRSY, CGET04, CLACPY, - $ CLARHS, CLATB4, CLATMS, CSYT02, DSYT03, DSYT05, - $ DSYCON, CSYRFS, CSYT01_AA, CSYTRF_AA, - $ DSYTRI2, CSYTRS_AA, XLAENV + EXTERNAL ALAERH, ALAHD, ALASUM, CERRSY, CLACPY, CLARHS, + $ CLATB4, CLATMS, CSYT02, CSYT01_AA, CSYTRF_AA, + $ CSYTRS_AA, XLAENV * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN diff --git a/TESTING/LIN/cdrvsy_aa.f b/TESTING/LIN/cdrvsy_aa.f index b1a5f11c..ee8f16e9 100644 --- a/TESTING/LIN/cdrvsy_aa.f +++ b/TESTING/LIN/cdrvsy_aa.f @@ -204,8 +204,8 @@ EXTERNAL DGET06, CLANSY * .. * .. External Subroutines .. - EXTERNAL ALADHD, ALAERH, ALASVM, DERRVX, CGET04, CLACPY, - $ CLARHS, CLASET, CLATB4, CLATMS, CSYT02, DSYT05, + EXTERNAL ALADHD, ALAERH, ALASVM, CERRVX, CGET04, CLACPY, + $ CLARHS, CLASET, CLATB4, CLATMS, CSYT02, $ CSYSV_AA, CSYT01_AA, CSYTRF_AA, XLAENV * .. * .. Scalars in Common .. diff --git a/TESTING/LIN/dchklqtp.f b/TESTING/LIN/dchklqtp.f index 42ebc963..936b22f7 100644 --- a/TESTING/LIN/dchklqtp.f +++ b/TESTING/LIN/dchklqtp.f @@ -132,7 +132,7 @@ DOUBLE PRECISION RESULT( NTESTS ) * .. * .. External Subroutines .. - EXTERNAL ALAERH, ALAHD, ALASUM, DERRLQTP, DLQT04 + EXTERNAL ALAERH, ALAHD, ALASUM, DERRLQTP, DLQT05 * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/dchksy_aa.f b/TESTING/LIN/dchksy_aa.f index 53d7db6e..f30495aa 100644 --- a/TESTING/LIN/dchksy_aa.f +++ b/TESTING/LIN/dchksy_aa.f @@ -215,15 +215,10 @@ INTEGER ISEED( 4 ), ISEEDY( 4 ) DOUBLE PRECISION RESULT( NTESTS ) * .. -* .. External Functions .. - DOUBLE PRECISION DGET06, DLANSY - EXTERNAL DGET06, DLANSY -* .. * .. External Subroutines .. - EXTERNAL ALAERH, ALAHD, ALASUM, DERRSY, DGET04, DLACPY, - $ DLARHS, DLATB4, DLATMS, DPOT02, DPOT03, DPOT05, - $ DSYCON, DSYRFS, DSYT01_AA, DSYTRF_AA, - $ DSYTRI2, DSYTRS_AA, XLAENV + EXTERNAL ALAERH, ALAHD, ALASUM, DERRSY, DLACPY, DLARHS, + $ DLATB4, DLATMS, DPOT02, DSYT01_AA, DSYTRF_AA, + $ DSYTRS_AA, XLAENV * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN diff --git a/TESTING/LIN/ddrvsy_aa.f b/TESTING/LIN/ddrvsy_aa.f index af39303e..51860d85 100644 --- a/TESTING/LIN/ddrvsy_aa.f +++ b/TESTING/LIN/ddrvsy_aa.f @@ -201,7 +201,7 @@ * .. * .. External Subroutines .. EXTERNAL ALADHD, ALAERH, ALASVM, DERRVX, DGET04, DLACPY, - $ DLARHS, DLASET, DLATB4, DLATMS, DPOT02, DPOT05, + $ DLARHS, DLASET, DLATB4, DLATMS, DPOT02, $ DSYSV_AA, DSYT01_AA, DSYTRF_AA, XLAENV * .. * .. Scalars in Common .. diff --git a/TESTING/LIN/schklqtp.f b/TESTING/LIN/schklqtp.f index 183882ef..f09440d6 100644 --- a/TESTING/LIN/schklqtp.f +++ b/TESTING/LIN/schklqtp.f @@ -132,7 +132,7 @@ REAL RESULT( NTESTS ) * .. * .. External Subroutines .. - EXTERNAL ALAERH, ALAHD, ALASUM, DERRLQTP, DLQT04 + EXTERNAL ALAERH, ALAHD, ALASUM, SERRLQTP, SLQT05 * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/schksy_aa.f b/TESTING/LIN/schksy_aa.f index 35b1d950..304cfc4a 100644 --- a/TESTING/LIN/schksy_aa.f +++ b/TESTING/LIN/schksy_aa.f @@ -215,15 +215,10 @@ INTEGER ISEED( 4 ), ISEEDY( 4 ) REAL RESULT( NTESTS ) * .. -* .. External Functions .. - REAL DGET06, SLANSY - EXTERNAL DGET06, SLANSY -* .. * .. External Subroutines .. - EXTERNAL ALAERH, ALAHD, ALASUM, SERRSY, SGET04, SLACPY, - $ SLARHS, SLATB4, SLATMS, SPOT02, DPOT03, DPOT05, - $ DSYCON, SSYRFS, SSYT01_AA, SSYTRF_AA, - $ DSYTRI2, SSYTRS_AA, XLAENV + EXTERNAL ALAERH, ALAHD, ALASUM, SERRSY, SLACPY, SLARHS, + $ SLATB4, SLATMS, SPOT02, SSYT01_AA, SSYTRF_AA, + $ SSYTRS_AA, XLAENV * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN diff --git a/TESTING/LIN/sdrvsy_aa.f b/TESTING/LIN/sdrvsy_aa.f index 8e5686f8..f826e202 100644 --- a/TESTING/LIN/sdrvsy_aa.f +++ b/TESTING/LIN/sdrvsy_aa.f @@ -199,7 +199,7 @@ * .. * .. External Subroutines .. EXTERNAL ALADHD, ALAERH, ALASVM, SERRVX, SGET04, SLACPY, - $ SLARHS, SLASET, SLATB4, SLATMS, SPOT02, DPOT05, + $ SLARHS, SLASET, SLATB4, SLATMS, SPOT02, $ SSYSV_AA, SSYT01_AA, SSYTRF_AA, XLAENV * .. * .. Scalars in Common .. diff --git a/TESTING/LIN/serrsy.f b/TESTING/LIN/serrsy.f index ce6975d1..a4184cfd 100644 --- a/TESTING/LIN/serrsy.f +++ b/TESTING/LIN/serrsy.f @@ -92,7 +92,7 @@ $ SSYTF2_RK, SSYTF2_ROOK, SSYTRF, SSYTRF_RK, $ SSYTRF_ROOK, SSYTRI, SSYTF2, SSYTRI_3, $ SSYTRI_3X, SSYTRI_ROOK, SSYTRF_AA, SSYTRI2, - $ SYTRI2X, SSYTRS, SSYTRS_3, SSYTRS_ROOK, + $ SSYTRI2X, SSYTRS, SSYTRS_3, SSYTRS_ROOK, $ SSYTRS_AA * .. * .. Scalars in Common .. diff --git a/TESTING/LIN/zchkhe_aa.f b/TESTING/LIN/zchkhe_aa.f index 36125cce..85d194ab 100644 --- a/TESTING/LIN/zchkhe_aa.f +++ b/TESTING/LIN/zchkhe_aa.f @@ -218,15 +218,10 @@ INTEGER ISEED( 4 ), ISEEDY( 4 ) DOUBLE PRECISION RESULT( NTESTS ) * .. -* .. External Functions .. - DOUBLE PRECISION DGET06, ZLANHE - EXTERNAL DGET06, ZLANHE -* .. * .. External Subroutines .. - EXTERNAL ALAERH, ALAHD, ALASUM, XLAENV, ZERRHE, ZGET04, - $ ZHECON, ZHERFS, ZHET01_AA, ZHETRF_AA, ZHETRI2, - $ ZHETRS_AA, ZLACPY, ZLAIPD, ZLARHS, ZLATB4, - $ ZLATMS, ZPOT02, ZPOT03, ZPOT05 + EXTERNAL ALAERH, ALAHD, ALASUM, XLAENV, ZERRHE, + $ ZHET01_AA, ZHETRF_AA, ZHETRS_AA, ZLACPY, + $ ZLAIPD, ZLARHS, ZLATB4, ZLATMS, ZPOT02 * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN diff --git a/TESTING/LIN/zchksy_aa.f b/TESTING/LIN/zchksy_aa.f index 465f06d0..ff4f6bea 100644 --- a/TESTING/LIN/zchksy_aa.f +++ b/TESTING/LIN/zchksy_aa.f @@ -218,15 +218,10 @@ INTEGER ISEED( 4 ), ISEEDY( 4 ) DOUBLE PRECISION RESULT( NTESTS ) * .. -* .. External Functions .. - DOUBLE PRECISION DGET06, ZLANSY - EXTERNAL DGET06, ZLANSY -* .. * .. External Subroutines .. - EXTERNAL ALAERH, ALAHD, ALASUM, ZERRSY, ZGET04, ZLACPY, - $ ZLARHS, ZLATB4, ZLATMS, ZSYT02, DSYT03, DSYT05, - $ DSYCON, ZSYRFS, ZSYT01_AA, ZSYTRF_AA, - $ DSYTRI2, ZSYTRS_AA, XLAENV + EXTERNAL ALAERH, ALAHD, ALASUM, ZERRSY, ZLACPY, ZLARHS, + $ ZLATB4, ZLATMS, ZSYT02, ZSYT01_AA, ZSYTRF_AA, + $ ZSYTRS_AA, XLAENV * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN diff --git a/TESTING/LIN/zchktsqr.f b/TESTING/LIN/zchktsqr.f index 23616092..3945d7a0 100644 --- a/TESTING/LIN/zchktsqr.f +++ b/TESTING/LIN/zchktsqr.f @@ -132,8 +132,8 @@ DOUBLE PRECISION RESULT( NTESTS ) * .. * .. External Subroutines .. - EXTERNAL ALAERH, ALAHD, ALASUM, DERRTSQR, - $ DTSQR01, XLAENV + EXTERNAL ALAERH, ALAHD, ALASUM, ZERRTSQR, + $ ZTSQR01, XLAENV * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN diff --git a/TESTING/LIN/zdrvsy_aa.f b/TESTING/LIN/zdrvsy_aa.f index 7b962678..3963782f 100644 --- a/TESTING/LIN/zdrvsy_aa.f +++ b/TESTING/LIN/zdrvsy_aa.f @@ -204,8 +204,8 @@ EXTERNAL DGET06, ZLANSY * .. * .. External Subroutines .. - EXTERNAL ALADHD, ALAERH, ALASVM, DERRVX, ZGET04, ZLACPY, - $ ZLARHS, ZLASET, ZLATB4, ZLATMS, ZSYT02, DSYT05, + EXTERNAL ALADHD, ALAERH, ALASVM, ZERRVX, ZGET04, ZLACPY, + $ ZLARHS, ZLASET, ZLATB4, ZLATMS, ZSYT02, $ ZSYSV_AA, ZSYT01_AA, ZSYTRF_AA, XLAENV * .. * .. Scalars in Common .. diff --git a/TESTING/LIN/zerrsy.f b/TESTING/LIN/zerrsy.f index 4179e98f..fbbe7d71 100644 --- a/TESTING/LIN/zerrsy.f +++ b/TESTING/LIN/zerrsy.f @@ -91,7 +91,7 @@ $ ZSPTRS, ZSYCON, ZSYCON_3, ZSYCON_ROOK, ZSYRFS, $ ZSYTF2, ZSYTF2_RK, ZSYTF2_ROOK, ZSYTRF, $ ZSYTRF_RK, ZSYTRF_ROOK, ZSYTRI, ZSYTRI_3, - $ ZSYTRI_3X, ZSYTRI_ROOK, ZSYTRI2, ZSYTRI2Z, + $ ZSYTRI_3X, ZSYTRI_ROOK, ZSYTRI2, ZSYTRI2X, $ ZSYTRS, ZSYTRS_3, ZSYTRS_ROOK * .. * .. Scalars in Common .. |