Fix External Subroutines declarations

diff --git a/TESTING/LIN/cchkqrt.f b/TESTING/LIN/cchkqrt.f
index 83008e8aae4fe2688100f3f00a20e116d6d520b5..407e452a076c00f127537377bea53a700b978e5a 100644 (file)
--- 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 fe4d0eb54426acacd46ed58c7c9df690beb287cb..9bc2c72bf454da2ef11a56e6a0e49a010e051230 100644 (file)
--- 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 1f333d15ec3dd3f420501e8421d07dede695e9ac..a4825a2fcfc06497254aceafd07f191e6f0f0df8 100644 (file)
--- 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 05e3f9e4333fd642cfccee697537f48010cd527e..fdb31f2482545f611d3bccdb6a4e2c609325b7b0 100644 (file)
--- 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 de422d815acfaa767bedcffdad12a7a587cd71c6..0d6368af6eca9fd779dc030108e5fb6baa10d587 100644 (file)
--- 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 11e62a4b148754a31f7855683dd2a357f8ef1a0f..68ba96feed7ecafc49258a891d8cba25453a4ebd 100644 (file)
--- 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 e13fcc8939c031ca7db7eb9501d3ccd4f36a760c..274c94f13af16f6ae897d7c8faab737a9b24cafc 100644 (file)
--- 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 0268f19e6545dc12f6c286ad5e7f328e3fdef458..fc297b7cb6eadd23d67bf87a21f95c71249fce60 100644 (file)
--- 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