From 85f43a20d55cd64b3e18723e0c5a7992b89f13a3 Mon Sep 17 00:00:00 2001 From: julie Date: Tue, 10 Apr 2012 20:21:27 +0000 Subject: Fix External Subroutines declarations --- TESTING/LIN/cchkqrt.f | 4 +--- TESTING/LIN/cchkqrtp.f | 2 +- TESTING/LIN/dchkqrt.f | 2 +- TESTING/LIN/dchkqrtp.f | 2 +- TESTING/LIN/schkqrt.f | 2 +- TESTING/LIN/schkqrtp.f | 2 +- TESTING/LIN/zchkqrt.f | 2 +- TESTING/LIN/zchkqrtp.f | 2 +- 8 files changed, 8 insertions(+), 10 deletions(-) diff --git a/TESTING/LIN/cchkqrt.f b/TESTING/LIN/cchkqrt.f index 83008e8a..407e452a 100644 --- a/TESTING/LIN/cchkqrt.f +++ b/TESTING/LIN/cchkqrt.f @@ -132,9 +132,7 @@ REAL RESULT( NTESTS ) * .. * .. External Subroutines .. - EXTERNAL ALAERH, ALAHD, ALASUM, DERRQR, DGEQRS, DGET02, - $ DLACPY, DLARHS, DLATB4, DLATMS, DQRT01, - $ DQRT01P, DQRT02, DQRT03, XLAENV + EXTERNAL ALAERH, ALAHD, ALASUM, CERRQRT, CQRT04 * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/cchkqrtp.f b/TESTING/LIN/cchkqrtp.f index fe4d0eb5..9bc2c72b 100644 --- a/TESTING/LIN/cchkqrtp.f +++ b/TESTING/LIN/cchkqrtp.f @@ -132,7 +132,7 @@ REAL RESULT( NTESTS ) * .. * .. External Subroutines .. - EXTERNAL ALAERH, ALAHD, ALASUM, SERRQR, SQRT04 + EXTERNAL ALAERH, ALAHD, ALASUM, CERRQRTP * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/dchkqrt.f b/TESTING/LIN/dchkqrt.f index 1f333d15..a4825a2f 100644 --- a/TESTING/LIN/dchkqrt.f +++ b/TESTING/LIN/dchkqrt.f @@ -132,7 +132,7 @@ DOUBLE PRECISION RESULT( NTESTS ) * .. * .. External Subroutines .. - EXTERNAL ALAERH, ALAHD, ALASUM, DQRT04 + EXTERNAL ALAERH, ALAHD, ALASUM, DERRQRT, DQRT04 * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/dchkqrtp.f b/TESTING/LIN/dchkqrtp.f index 05e3f9e4..fdb31f24 100644 --- a/TESTING/LIN/dchkqrtp.f +++ b/TESTING/LIN/dchkqrtp.f @@ -132,7 +132,7 @@ DOUBLE PRECISION RESULT( NTESTS ) * .. * .. External Subroutines .. - EXTERNAL ALAERH, ALAHD, ALASUM, SERRQR, SQRT04 + EXTERNAL ALAERH, ALAHD, ALASUM, DERRQRTP * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/schkqrt.f b/TESTING/LIN/schkqrt.f index de422d81..0d6368af 100644 --- a/TESTING/LIN/schkqrt.f +++ b/TESTING/LIN/schkqrt.f @@ -129,7 +129,7 @@ REAL RESULT( NTESTS ) * .. * .. External Subroutines .. - EXTERNAL ALAERH, ALAHD, ALASUM, SERRQR, SQRT04 + EXTERNAL ALAERH, ALAHD, ALASUM, SERRQRT, SQRT04 * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/schkqrtp.f b/TESTING/LIN/schkqrtp.f index 11e62a4b..68ba96fe 100644 --- a/TESTING/LIN/schkqrtp.f +++ b/TESTING/LIN/schkqrtp.f @@ -132,7 +132,7 @@ REAL RESULT( NTESTS ) * .. * .. External Subroutines .. - EXTERNAL ALAERH, ALAHD, ALASUM, SERRQR, SQRT04 + EXTERNAL ALAERH, ALAHD, ALASUM, SERRQRTP * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/zchkqrt.f b/TESTING/LIN/zchkqrt.f index e13fcc89..274c94f1 100644 --- a/TESTING/LIN/zchkqrt.f +++ b/TESTING/LIN/zchkqrt.f @@ -131,7 +131,7 @@ DOUBLE PRECISION RESULT( NTESTS ) * .. * .. External Subroutines .. - EXTERNAL ALAERH, ALAHD, ALASUM, ZQRT04 + EXTERNAL ALAERH, ALAHD, ALASUM, ZERRQRT, ZQRT04 * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/zchkqrtp.f b/TESTING/LIN/zchkqrtp.f index 0268f19e..fc297b7c 100644 --- a/TESTING/LIN/zchkqrtp.f +++ b/TESTING/LIN/zchkqrtp.f @@ -132,7 +132,7 @@ DOUBLE PRECISION RESULT( NTESTS ) * .. * .. External Subroutines .. - EXTERNAL ALAERH, ALAHD, ALASUM, SERRQR, SQRT04 + EXTERNAL ALAERH, ALAHD, ALASUM, ZERRQRTP * .. * .. Scalars in Common .. LOGICAL LERR, OK -- cgit v1.2.3