diff options
| author | julie <julielangou@users.noreply.github.com> | 2012-04-10 20:21:27 +0000 |
|---|---|---|
| committer | julie <julielangou@users.noreply.github.com> | 2012-04-10 20:21:27 +0000 |
| commit | 85f43a20d55cd64b3e18723e0c5a7992b89f13a3 (patch) | |
| tree | 6bbce96356db4025e708fc7fbef9e98643a703a8 | |
| parent | a6d0c3e520e97efcd3ec57bdb14e13cf8dba9bda (diff) | |
| download | lapack-85f43a20d55cd64b3e18723e0c5a7992b89f13a3.tar.gz lapack-85f43a20d55cd64b3e18723e0c5a7992b89f13a3.tar.bz2 lapack-85f43a20d55cd64b3e18723e0c5a7992b89f13a3.zip | |
Fix External Subroutines declarations
| -rw-r--r-- | TESTING/LIN/cchkqrt.f | 4 | ||||
| -rw-r--r-- | TESTING/LIN/cchkqrtp.f | 2 | ||||
| -rw-r--r-- | TESTING/LIN/dchkqrt.f | 2 | ||||
| -rw-r--r-- | TESTING/LIN/dchkqrtp.f | 2 | ||||
| -rw-r--r-- | TESTING/LIN/schkqrt.f | 2 | ||||
| -rw-r--r-- | TESTING/LIN/schkqrtp.f | 2 | ||||
| -rw-r--r-- | TESTING/LIN/zchkqrt.f | 2 | ||||
| -rw-r--r-- | 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 |