From 0e38bb98b922be68e9fed3edc236c28ea17077a5 Mon Sep 17 00:00:00 2001 From: langou Date: Mon, 14 Mar 2016 20:23:03 +0000 Subject: [PATCH] Email from Tim Hopkins (University of Kent), March 13th (1/11) The work array, RWORK, is declared COMPLEX, it should be REAL. --- TESTING/LIN/cqrt04.f | 3 ++- TESTING/LIN/cqrt05.f | 3 ++- TESTING/LIN/zqrt04.f | 3 ++- TESTING/LIN/zqrt05.f | 3 ++- 4 files changed, 8 insertions(+), 4 deletions(-) diff --git a/TESTING/LIN/cqrt04.f b/TESTING/LIN/cqrt04.f index e3715a9f..e1579c31 100644 --- 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 256045af..07f3d22a 100644 --- 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 274c51a0..fc997505 100644 --- 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 8080a452..489fe03f 100644 --- 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 -- 2.34.1