projects / platform / upstream / lapack.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 7d0ed41)
Email from Tim Hopkins (University of Kent), March 13th (1/11)
authorlangou <langou@users.noreply.github.com>
Mon, 14 Mar 2016 20:23:03 +0000 (20:23 +0000)
committerlangou <langou@users.noreply.github.com>
Mon, 14 Mar 2016 20:23:03 +0000 (20:23 +0000)
The work array, RWORK, is declared COMPLEX, it should be REAL.

TESTING/LIN/cqrt04.f patch | blob | history
TESTING/LIN/cqrt05.f patch | blob | history
TESTING/LIN/zqrt04.f patch | blob | history
TESTING/LIN/zqrt05.f patch | blob | history

diff --git a/TESTING/LIN/cqrt04.f b/TESTING/LIN/cqrt04.f
index e3715a9fd42d4b7a3293e76dd54980057af96fe1..e1579c31d0bd10335afcb382560ec83e61517bbb 100644 (file)
--- a/TESTING/LIN/cqrt04.f
+++ b/TESTING/LIN/cqrt04.f
@@ -89,8 +89,9 @@
 *     ..
 *     .. Local allocatable arrays 
       COMPLEX, ALLOCATABLE :: AF(:,:), Q(:,:),
-     $  R(:,:), RWORK(:), WORK( : ), T(:,:), 
+     $  R(:,:), WORK( : ), T(:,:), 
      $  CF(:,:), DF(:,:), A(:,:), C(:,:), D(:,:)
+      REAL, ALLOCATABLE :: RWORK(:)
 *
 *     .. Parameters ..
       REAL ZERO
diff --git a/TESTING/LIN/cqrt05.f b/TESTING/LIN/cqrt05.f
index 256045af62cd1c6314d958867a1d78f5cd64c118..07f3d22a787344054dd34f521e8c1ce89c8303e2 100644 (file)
--- a/TESTING/LIN/cqrt05.f
+++ b/TESTING/LIN/cqrt05.f
@@ -96,8 +96,9 @@
 *     ..
 *     .. Local allocatable arrays 
       COMPLEX, ALLOCATABLE :: AF(:,:), Q(:,:),
-     $  R(:,:), RWORK(:), WORK( : ), T(:,:), 
+     $  R(:,:), WORK( : ), T(:,:), 
      $  CF(:,:), DF(:,:), A(:,:), C(:,:), D(:,:)
+      REAL, ALLOCATABLE :: RWORK(:)
 *
 *     .. Parameters ..
       REAL ZERO
diff --git a/TESTING/LIN/zqrt04.f b/TESTING/LIN/zqrt04.f
index 274c51a09bed44ac1254c4ef7fd919501ce33685..fc9975059a3f4500ba9b70cf5ef91a9706e48b65 100644 (file)
--- a/TESTING/LIN/zqrt04.f
+++ b/TESTING/LIN/zqrt04.f
@@ -89,8 +89,9 @@
 *     ..
 *     .. Local allocatable arrays 
       COMPLEX*16, ALLOCATABLE :: AF(:,:), Q(:,:),
-     $  R(:,:), RWORK(:), WORK( : ), T(:,:), 
+     $  R(:,:), WORK( : ), T(:,:), 
      $  CF(:,:), DF(:,:), A(:,:), C(:,:), D(:,:)
+      DOUBLE PRECISION, ALLOCATABLE :: RWORK(:)
 *
 *     .. Parameters ..
       DOUBLE PRECISION ZERO
diff --git a/TESTING/LIN/zqrt05.f b/TESTING/LIN/zqrt05.f
index 8080a4522a7c71b206d52fc1b5c9f0e026b5cad8..489fe03fef03642b622c4a759450eaa17b3136f1 100644 (file)
--- a/TESTING/LIN/zqrt05.f
+++ b/TESTING/LIN/zqrt05.f
@@ -96,8 +96,9 @@
 *     ..
 *     .. Local allocatable arrays 
       COMPLEX*16, ALLOCATABLE :: AF(:,:), Q(:,:),
-     $  R(:,:), RWORK(:), WORK( : ), T(:,:), 
+     $  R(:,:), WORK( : ), T(:,:), 
      $  CF(:,:), DF(:,:), A(:,:), C(:,:), D(:,:)
+      DOUBLE PRECISION, ALLOCATABLE :: RWORK(:)
 *
 *     .. Parameters ..
       DOUBLE PRECISION ZERO
Domain: System / Base;