From 35dd277cdd1053324e2f6848393252740607ee29 Mon Sep 17 00:00:00 2001 From: Marcel Jacobse <44684927+mjacobse@users.noreply.github.com> Date: Wed, 10 Aug 2022 20:18:54 +0200 Subject: [PATCH] Fix type mismatches in function calls of testing code --- TESTING/EIG/cerrst.f | 74 +++++++++++++++++----------------- TESTING/LIN/cerrrfp.f | 24 ++++++----- TESTING/LIN/clqt04.f | 3 +- TESTING/LIN/clqt05.f | 3 +- TESTING/LIN/ctsqr01.f | 3 +- TESTING/LIN/cunhr_col01.f | 2 +- TESTING/LIN/cunhr_col02.f | 2 +- TESTING/LIN/zchkhe_aa_2stage.f | 3 +- TESTING/LIN/zlqt04.f | 3 +- TESTING/LIN/zlqt05.f | 3 +- TESTING/LIN/ztsqr01.f | 3 +- TESTING/LIN/zunhr_col01.f | 2 +- TESTING/LIN/zunhr_col02.f | 2 +- 13 files changed, 68 insertions(+), 59 deletions(-) diff --git a/TESTING/EIG/cerrst.f b/TESTING/EIG/cerrst.f index eef34b44bb..18b5cad363 100644 --- a/TESTING/EIG/cerrst.f +++ b/TESTING/EIG/cerrst.f @@ -628,56 +628,56 @@ SUBROUTINE CERRST( PATH, NUNIT ) SRNAMT = 'CHEEVX_2STAGE' INFOT = 1 CALL CHEEVX_2STAGE( '/', 'A', 'U', 0, A, 1, - $ 0.0D0, 0.0D0, 0, 0, 0.0D0, + $ 0.0, 0.0, 0, 0, 0.0, $ M, X, Z, 1, W, 1, RW, IW, I3, INFO ) CALL CHKXER( 'CHEEVX_2STAGE', INFOT, NOUT, LERR, OK ) INFOT = 1 CALL CHEEVX_2STAGE( 'V', 'A', 'U', 0, A, 1, - $ 0.0D0, 0.0D0, 0, 0, 0.0D0, + $ 0.0, 0.0, 0, 0, 0.0, $ M, X, Z, 1, W, 1, RW, IW, I3, INFO ) CALL CHKXER( 'CHEEVX_2STAGE', INFOT, NOUT, LERR, OK ) INFOT = 2 CALL CHEEVX_2STAGE( 'N', '/', 'U', 0, A, 1, - $ 0.0D0, 1.0D0, 1, 0, 0.0D0, + $ 0.0, 1.0, 1, 0, 0.0, $ M, X, Z, 1, W, 1, RW, IW, I3, INFO ) CALL CHKXER( 'CHEEVX_2STAGE', INFOT, NOUT, LERR, OK ) INFOT = 3 CALL CHEEVX_2STAGE( 'N', 'A', '/', 0, A, 1, - $ 0.0D0, 0.0D0, 0, 0, 0.0D0, + $ 0.0, 0.0, 0, 0, 0.0, $ M, X, Z, 1, W, 1, RW, IW, I3, INFO ) INFOT = 4 CALL CHEEVX_2STAGE( 'N', 'A', 'U', -1, A, 1, - $ 0.0D0, 0.0D0, 0, 0, 0.0D0, + $ 0.0, 0.0, 0, 0, 0.0, $ M, X, Z, 1, W, 1, RW, IW, I3, INFO ) CALL CHKXER( 'CHEEVX_2STAGE', INFOT, NOUT, LERR, OK ) INFOT = 6 CALL CHEEVX_2STAGE( 'N', 'A', 'U', 2, A, 1, - $ 0.0D0, 0.0D0, 0, 0, 0.0D0, + $ 0.0, 0.0, 0, 0, 0.0, $ M, X, Z, 2, W, 3, RW, IW, I3, INFO ) CALL CHKXER( 'CHEEVX_2STAGE', INFOT, NOUT, LERR, OK ) INFOT = 8 CALL CHEEVX_2STAGE( 'N', 'V', 'U', 1, A, 1, - $ 0.0D0, 0.0D0, 0, 0, 0.0D0, + $ 0.0, 0.0, 0, 0, 0.0, $ M, X, Z, 1, W, 1, RW, IW, I3, INFO ) CALL CHKXER( 'CHEEVX_2STAGE', INFOT, NOUT, LERR, OK ) INFOT = 9 CALL CHEEVX_2STAGE( 'N', 'I', 'U', 1, A, 1, - $ 0.0D0, 0.0D0, 0, 0, 0.0D0, + $ 0.0, 0.0, 0, 0, 0.0, $ M, X, Z, 1, W, 1, RW, IW, I3, INFO ) CALL CHKXER( 'CHEEVX_2STAGE', INFOT, NOUT, LERR, OK ) INFOT = 10 CALL CHEEVX_2STAGE( 'N', 'I', 'U', 2, A, 2, - $ 0.0D0, 0.0D0, 2, 1, 0.0D0, + $ 0.0, 0.0, 2, 1, 0.0, $ M, X, Z, 2, W, 3, RW, IW, I3, INFO ) CALL CHKXER( 'CHEEVX_2STAGE', INFOT, NOUT, LERR, OK ) INFOT = 15 CALL CHEEVX_2STAGE( 'N', 'A', 'U', 2, A, 2, - $ 0.0D0, 0.0D0, 0, 0, 0.0D0, + $ 0.0, 0.0, 0, 0, 0.0, $ M, X, Z, 0, W, 3, RW, IW, I3, INFO ) CALL CHKXER( 'CHEEVX_2STAGE', INFOT, NOUT, LERR, OK ) INFOT = 17 CALL CHEEVX_2STAGE( 'N', 'A', 'U', 2, A, 2, - $ 0.0D0, 0.0D0, 0, 0, 0.0D0, + $ 0.0, 0.0, 0, 0, 0.0, $ M, X, Z, 2, W, 0, RW, IW, I1, INFO ) CALL CHKXER( 'CHEEVX_2STAGE', INFOT, NOUT, LERR, OK ) NT = NT + 11 @@ -755,79 +755,79 @@ SUBROUTINE CERRST( PATH, NUNIT ) N = 1 INFOT = 1 CALL CHEEVR_2STAGE( '/', 'A', 'U', 0, A, 1, - $ 0.0D0, 0.0D0, 1, 1, 0.0D0, + $ 0.0, 0.0, 1, 1, 0.0, $ M, R, Z, 1, IW, Q, 2*N, RW, 24*N, IW( 2*N+1 ), $ 10*N, INFO ) CALL CHKXER( 'CHEEVR_2STAGE', INFOT, NOUT, LERR, OK ) INFOT = 1 CALL CHEEVR_2STAGE( 'V', 'A', 'U', 0, A, 1, - $ 0.0D0, 0.0D0, 1, 1, 0.0D0, + $ 0.0, 0.0, 1, 1, 0.0, $ M, R, Z, 1, IW, Q, 2*N, RW, 24*N, IW( 2*N+1 ), $ 10*N, INFO ) CALL CHKXER( 'CHEEVR_2STAGE', INFOT, NOUT, LERR, OK ) INFOT = 2 CALL CHEEVR_2STAGE( 'N', '/', 'U', 0, A, 1, - $ 0.0D0, 0.0D0, 1, 1, 0.0D0, + $ 0.0, 0.0, 1, 1, 0.0, $ M, R, Z, 1, IW, Q, 2*N, RW, 24*N, IW( 2*N+1 ), $ 10*N, INFO ) CALL CHKXER( 'CHEEVR_2STAGE', INFOT, NOUT, LERR, OK ) INFOT = 3 CALL CHEEVR_2STAGE( 'N', 'A', '/', -1, A, 1, - $ 0.0D0, 0.0D0, 1, 1, 0.0D0, + $ 0.0, 0.0, 1, 1, 0.0, $ M, R, Z, 1, IW, Q, 2*N, RW, 24*N, $ IW( 2*N+1 ), 10*N, INFO ) CALL CHKXER( 'CHEEVR_2STAGE', INFOT, NOUT, LERR, OK ) INFOT = 4 CALL CHEEVR_2STAGE( 'N', 'A', 'U', -1, A, 1, - $ 0.0D0, 0.0D0, 1, 1, 0.0D0, + $ 0.0, 0.0, 1, 1, 0.0, $ M, R, Z, 1, IW, Q, 2*N, RW, 24*N, $ IW( 2*N+1 ), 10*N, INFO ) CALL CHKXER( 'CHEEVR_2STAGE', INFOT, NOUT, LERR, OK ) INFOT = 6 CALL CHEEVR_2STAGE( 'N', 'A', 'U', 2, A, 1, - $ 0.0D0, 0.0D0, 1, 1, 0.0D0, + $ 0.0, 0.0, 1, 1, 0.0, $ M, R, Z, 1, IW, Q, 2*N, RW, 24*N, IW( 2*N+1 ), $ 10*N, INFO ) CALL CHKXER( 'CHEEVR_2STAGE', INFOT, NOUT, LERR, OK ) INFOT = 8 CALL CHEEVR_2STAGE( 'N', 'V', 'U', 1, A, 1, - $ 0.0D0, 0.0D0, 1, 1, 0.0D0, + $ 0.0, 0.0, 1, 1, 0.0, $ M, R, Z, 1, IW, Q, 2*N, RW, 24*N, IW( 2*N+1 ), $ 10*N, INFO ) CALL CHKXER( 'CHEEVR_2STAGE', INFOT, NOUT, LERR, OK ) INFOT = 9 CALL CHEEVR_2STAGE( 'N', 'I', 'U', 1, A, 1, - $ 0.0D0, 0.0D0, 0, 1, 0.0D0, + $ 0.0, 0.0, 0, 1, 0.0, $ M, R, Z, 1, IW, Q, 2*N, RW, 24*N, IW( 2*N+1 ), $ 10*N, INFO ) CALL CHKXER( 'CHEEVR_2STAGE', INFOT, NOUT, LERR, OK ) INFOT = 10 CALL CHEEVR_2STAGE( 'N', 'I', 'U', 2, A, 2, - $ 0.0D0, 0.0D0, 2, 1, 0.0D0, + $ 0.0, 0.0, 2, 1, 0.0, $ M, R, Z, 1, IW, Q, 2*N, RW, 24*N, IW( 2*N+1 ), $ 10*N, INFO ) CALL CHKXER( 'CHEEVR_2STAGE', INFOT, NOUT, LERR, OK ) INFOT = 15 CALL CHEEVR_2STAGE( 'N', 'I', 'U', 1, A, 1, - $ 0.0D0, 0.0D0, 1, 1, 0.0D0, + $ 0.0, 0.0, 1, 1, 0.0, $ M, R, Z, 0, IW, Q, 2*N, RW, 24*N, IW( 2*N+1 ), $ 10*N, INFO ) CALL CHKXER( 'CHEEVR_2STAGE', INFOT, NOUT, LERR, OK ) INFOT = 18 CALL CHEEVR_2STAGE( 'N', 'I', 'U', 1, A, 1, - $ 0.0D0, 0.0D0, 1, 1, 0.0D0, + $ 0.0, 0.0, 1, 1, 0.0, $ M, R, Z, 1, IW, Q, 2*N-1, RW, 24*N, IW( 2*N+1 ), $ 10*N, INFO ) CALL CHKXER( 'CHEEVR_2STAGE', INFOT, NOUT, LERR, OK ) INFOT = 20 CALL CHEEVR_2STAGE( 'N', 'I', 'U', 1, A, 1, - $ 0.0D0, 0.0D0, 1, 1, 0.0D0, + $ 0.0, 0.0, 1, 1, 0.0, $ M, R, Z, 1, IW, Q, 26*N, RW, 24*N-1, IW( 2*N-1 ), $ 10*N, INFO ) CALL CHKXER( 'CHEEVR_2STAGE', INFOT, NOUT, LERR, OK ) INFOT = 22 CALL CHEEVR_2STAGE( 'N', 'I', 'U', 1, A, 1, - $ 0.0D0, 0.0D0, 1, 1, 0.0D0, + $ 0.0, 0.0, 1, 1, 0.0, $ M, R, Z, 1, IW, Q, 26*N, RW, 24*N, IW, 10*N-1, $ INFO ) CALL CHKXER( 'CHEEVR_2STAGE', INFOT, NOUT, LERR, OK ) @@ -1259,65 +1259,65 @@ SUBROUTINE CERRST( PATH, NUNIT ) SRNAMT = 'CHBEVX_2STAGE' INFOT = 1 CALL CHBEVX_2STAGE( '/', 'A', 'U', 0, 0, A, 1, Q, 1, - $ 0.0D0, 0.0D0, 0, 0, 0.0D0, + $ 0.0, 0.0, 0, 0, 0.0, $ M, X, Z, 1, W, 0, RW, IW, I3, INFO ) INFOT = 1 CALL CHBEVX_2STAGE( 'V', 'A', 'U', 0, 0, A, 1, Q, 1, - $ 0.0D0, 0.0D0, 0, 0, 0.0D0, + $ 0.0, 0.0, 0, 0, 0.0, $ M, X, Z, 1, W, 0, RW, IW, I3, INFO ) CALL CHKXER( 'CHBEVX_2STAGE', INFOT, NOUT, LERR, OK ) INFOT = 2 CALL CHBEVX_2STAGE( 'N', '/', 'U', 0, 0, A, 1, Q, 1, - $ 0.0D0, 1.0D0, 1, 0, 0.0D0, + $ 0.0, 1.0, 1, 0, 0.0, $ M, X, Z, 1, W, 0, RW, IW, I3, INFO ) CALL CHKXER( 'CHBEVX_2STAGE', INFOT, NOUT, LERR, OK ) INFOT = 3 CALL CHBEVX_2STAGE( 'N', 'A', '/', 0, 0, A, 1, Q, 1, - $ 0.0D0, 0.0D0, 0, 0, 0.0D0, + $ 0.0, 0.0, 0, 0, 0.0, $ M, X, Z, 1, W, 0, RW, IW, I3, INFO ) INFOT = 4 CALL CHBEVX_2STAGE( 'N', 'A', 'U', -1, 0, A, 1, Q, 1, - $ 0.0D0, 0.0D0, 0, 0, 0.0D0, + $ 0.0, 0.0, 0, 0, 0.0, $ M, X, Z, 1, W, 0, RW, IW, I3, INFO ) CALL CHKXER( 'CHBEVX_2STAGE', INFOT, NOUT, LERR, OK ) INFOT = 5 CALL CHBEVX_2STAGE( 'N', 'A', 'U', 0, -1, A, 1, Q, 1, - $ 0.0D0, 0.0D0, 0, 0, 0.0D0, + $ 0.0, 0.0, 0, 0, 0.0, $ M, X, Z, 1, W, 0, RW, IW, I3, INFO ) CALL CHKXER( 'CHBEVX_2STAGE', INFOT, NOUT, LERR, OK ) INFOT = 7 CALL CHBEVX_2STAGE( 'N', 'A', 'U', 2, 1, A, 1, Q, 2, - $ 0.0D0, 0.0D0, 0, 0, 0.0D0, + $ 0.0, 0.0, 0, 0, 0.0, $ M, X, Z, 2, W, 0, RW, IW, I3, INFO ) CALL CHKXER( 'CHBEVX_2STAGE', INFOT, NOUT, LERR, OK ) * INFOT = 9 * CALL CHBEVX_2STAGE( 'V', 'A', 'U', 2, 0, A, 1, Q, 1, -* $ 0.0D0, 0.0D0, 0, 0, 0.0D0, +* $ 0.0, 0.0, 0, 0, 0.0, * $ M, X, Z, 2, W, 0, RW, IW, I3, INFO ) * CALL CHKXER( 'CHBEVX_2STAGE', INFOT, NOUT, LERR, OK ) INFOT = 11 CALL CHBEVX_2STAGE( 'N', 'V', 'U', 1, 0, A, 1, Q, 1, - $ 0.0D0, 0.0D0, 0, 0, 0.0D0, + $ 0.0, 0.0, 0, 0, 0.0, $ M, X, Z, 1, W, 0, RW, IW, I3, INFO ) CALL CHKXER( 'CHBEVX_2STAGE', INFOT, NOUT, LERR, OK ) INFOT = 12 CALL CHBEVX_2STAGE( 'N', 'I', 'U', 1, 0, A, 1, Q, 1, - $ 0.0D0, 0.0D0, 0, 0, 0.0D0, + $ 0.0, 0.0, 0, 0, 0.0, $ M, X, Z, 1, W, 0, RW, IW, I3, INFO ) CALL CHKXER( 'CHBEVX_2STAGE', INFOT, NOUT, LERR, OK ) INFOT = 13 CALL CHBEVX_2STAGE( 'N', 'I', 'U', 1, 0, A, 1, Q, 1, - $ 0.0D0, 0.0D0, 1, 2, 0.0D0, + $ 0.0, 0.0, 1, 2, 0.0, $ M, X, Z, 1, W, 0, RW, IW, I3, INFO ) CALL CHKXER( 'CHBEVX_2STAGE', INFOT, NOUT, LERR, OK ) INFOT = 18 CALL CHBEVX_2STAGE( 'N', 'A', 'U', 2, 0, A, 1, Q, 2, - $ 0.0D0, 0.0D0, 0, 0, 0.0D0, + $ 0.0, 0.0, 0, 0, 0.0, $ M, X, Z, 0, W, 0, RW, IW, I3, INFO ) CALL CHKXER( 'CHBEVX_2STAGE', INFOT, NOUT, LERR, OK ) INFOT = 20 CALL CHBEVX_2STAGE( 'N', 'A', 'U', 2, 0, A, 1, Q, 2, - $ 0.0D0, 0.0D0, 0, 0, 0.0D0, + $ 0.0, 0.0, 0, 0, 0.0, $ M, X, Z, 1, W, 0, RW, IW, I3, INFO ) CALL CHKXER( 'CHBEVX_2STAGE', INFOT, NOUT, LERR, OK ) NT = NT + 12 diff --git a/TESTING/LIN/cerrrfp.f b/TESTING/LIN/cerrrfp.f index 02f7781447..bf56311e39 100644 --- a/TESTING/LIN/cerrrfp.f +++ b/TESTING/LIN/cerrrfp.f @@ -63,7 +63,8 @@ SUBROUTINE CERRRFP( NUNIT ) * .. * .. Local Scalars .. INTEGER INFO - COMPLEX ALPHA, BETA + COMPLEX ALPHACMPLX + REAL ALPHA, BETA * .. * .. Local Arrays .. COMPLEX A( 1, 1), B( 1, 1) @@ -91,8 +92,9 @@ SUBROUTINE CERRRFP( NUNIT ) OK = .TRUE. A( 1, 1 ) = CMPLX( 1.0 , 1.0 ) B( 1, 1 ) = CMPLX( 1.0 , 1.0 ) - ALPHA = CMPLX( 1.0 , 1.0 ) - BETA = CMPLX( 1.0 , 1.0 ) + ALPHACMPLX = CMPLX( 1.0 , 1.0 ) + ALPHA = 1.0 + BETA = 1.0 * SRNAMT = 'CPFTRF' INFOT = 1 @@ -135,28 +137,28 @@ SUBROUTINE CERRRFP( NUNIT ) * SRNAMT = 'CTFSM ' INFOT = 1 - CALL CTFSM( '/', 'L', 'U', 'C', 'U', 0, 0, ALPHA, A, B, 1 ) + CALL CTFSM( '/', 'L', 'U', 'C', 'U', 0, 0, ALPHACMPLX, A, B, 1 ) CALL CHKXER( 'CTFSM ', INFOT, NOUT, LERR, OK ) INFOT = 2 - CALL CTFSM( 'N', '/', 'U', 'C', 'U', 0, 0, ALPHA, A, B, 1 ) + CALL CTFSM( 'N', '/', 'U', 'C', 'U', 0, 0, ALPHACMPLX, A, B, 1 ) CALL CHKXER( 'CTFSM ', INFOT, NOUT, LERR, OK ) INFOT = 3 - CALL CTFSM( 'N', 'L', '/', 'C', 'U', 0, 0, ALPHA, A, B, 1 ) + CALL CTFSM( 'N', 'L', '/', 'C', 'U', 0, 0, ALPHACMPLX, A, B, 1 ) CALL CHKXER( 'CTFSM ', INFOT, NOUT, LERR, OK ) INFOT = 4 - CALL CTFSM( 'N', 'L', 'U', '/', 'U', 0, 0, ALPHA, A, B, 1 ) + CALL CTFSM( 'N', 'L', 'U', '/', 'U', 0, 0, ALPHACMPLX, A, B, 1 ) CALL CHKXER( 'CTFSM ', INFOT, NOUT, LERR, OK ) INFOT = 5 - CALL CTFSM( 'N', 'L', 'U', 'C', '/', 0, 0, ALPHA, A, B, 1 ) + CALL CTFSM( 'N', 'L', 'U', 'C', '/', 0, 0, ALPHACMPLX, A, B, 1 ) CALL CHKXER( 'CTFSM ', INFOT, NOUT, LERR, OK ) INFOT = 6 - CALL CTFSM( 'N', 'L', 'U', 'C', 'U', -1, 0, ALPHA, A, B, 1 ) + CALL CTFSM( 'N', 'L', 'U', 'C', 'U', -1, 0, ALPHACMPLX, A, B, 1 ) CALL CHKXER( 'CTFSM ', INFOT, NOUT, LERR, OK ) INFOT = 7 - CALL CTFSM( 'N', 'L', 'U', 'C', 'U', 0, -1, ALPHA, A, B, 1 ) + CALL CTFSM( 'N', 'L', 'U', 'C', 'U', 0, -1, ALPHACMPLX, A, B, 1 ) CALL CHKXER( 'CTFSM ', INFOT, NOUT, LERR, OK ) INFOT = 11 - CALL CTFSM( 'N', 'L', 'U', 'C', 'U', 0, 0, ALPHA, A, B, 0 ) + CALL CTFSM( 'N', 'L', 'U', 'C', 'U', 0, 0, ALPHACMPLX, A, B, 0 ) CALL CHKXER( 'CTFSM ', INFOT, NOUT, LERR, OK ) * SRNAMT = 'CTFTRI' diff --git a/TESTING/LIN/clqt04.f b/TESTING/LIN/clqt04.f index 97bae67687..c444ce44c1 100644 --- a/TESTING/LIN/clqt04.f +++ b/TESTING/LIN/clqt04.f @@ -86,8 +86,9 @@ SUBROUTINE CLQT04(M,N,NB,RESULT) * .. * .. Local allocatable arrays COMPLEX, ALLOCATABLE :: AF(:,:), Q(:,:), - $ L(:,:), RWORK(:), WORK( : ), T(:,:), + $ L(:,:), WORK( : ), T(:,:), $ CF(:,:), DF(:,:), A(:,:), C(:,:), D(:,:) + REAL, ALLOCATABLE :: RWORK(:) * * .. Parameters .. REAL ZERO diff --git a/TESTING/LIN/clqt05.f b/TESTING/LIN/clqt05.f index 47e335869d..387b19d027 100644 --- a/TESTING/LIN/clqt05.f +++ b/TESTING/LIN/clqt05.f @@ -93,8 +93,9 @@ SUBROUTINE CLQT05(M,N,L,NB,RESULT) * .. * .. 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/ctsqr01.f b/TESTING/LIN/ctsqr01.f index 0d91776f88..ca1bf5230e 100644 --- a/TESTING/LIN/ctsqr01.f +++ b/TESTING/LIN/ctsqr01.f @@ -96,8 +96,9 @@ SUBROUTINE CTSQR01(TSSW, M, N, MB, NB, RESULT) * .. * .. Local allocatable arrays COMPLEX, ALLOCATABLE :: AF(:,:), Q(:,:), - $ R(:,:), RWORK(:), WORK( : ), T(:), + $ R(:,:), WORK( : ), T(:), $ CF(:,:), DF(:,:), A(:,:), C(:,:), D(:,:), LQ(:,:) + REAL, ALLOCATABLE :: RWORK(:) * * .. Parameters .. REAL ZERO diff --git a/TESTING/LIN/cunhr_col01.f b/TESTING/LIN/cunhr_col01.f index d77d60b1a0..056a5a7c67 100644 --- a/TESTING/LIN/cunhr_col01.f +++ b/TESTING/LIN/cunhr_col01.f @@ -311,7 +311,7 @@ SUBROUTINE CUNHR_COL01( M, N, MB1, NB1, NB2, RESULT ) * Compute |I - (Q**H)*Q| / ( eps * m ) and store in RESULT(2) * CALL CLASET( 'Full', M, M, CZERO, CONE, R, M ) - CALL CHERK( 'U', 'C', M, M, -CONE, Q, M, CONE, R, M ) + CALL CHERK( 'U', 'C', M, M, REAL(-CONE), Q, M, REAL(CONE), R, M ) RESID = CLANSY( '1', 'Upper', M, R, M, RWORK ) RESULT( 2 ) = RESID / ( EPS * MAX( 1, M ) ) * diff --git a/TESTING/LIN/cunhr_col02.f b/TESTING/LIN/cunhr_col02.f index 001f291da9..4a4f677911 100644 --- a/TESTING/LIN/cunhr_col02.f +++ b/TESTING/LIN/cunhr_col02.f @@ -273,7 +273,7 @@ SUBROUTINE CUNHR_COL02( M, N, MB1, NB1, NB2, RESULT ) * Compute |I - (Q**T)*Q| / ( eps * m ) and store in RESULT(2) * CALL CLASET( 'Full', M, M, CZERO, CONE, R, M ) - CALL CHERK( 'U', 'C', M, M, -CONE, Q, M, CONE, R, M ) + CALL CHERK( 'U', 'C', M, M, REAL(-CONE), Q, M, REAL(CONE), R, M ) RESID = CLANSY( '1', 'Upper', M, R, M, RWORK ) RESULT( 2 ) = RESID / ( EPS * MAX( 1, M ) ) * diff --git a/TESTING/LIN/zchkhe_aa_2stage.f b/TESTING/LIN/zchkhe_aa_2stage.f index 726e1fea6d..802bc9e7cc 100644 --- a/TESTING/LIN/zchkhe_aa_2stage.f +++ b/TESTING/LIN/zchkhe_aa_2stage.f @@ -185,7 +185,8 @@ SUBROUTINE ZCHKHE_AA_2STAGE( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, LOGICAL DOTYPE( * ) INTEGER IWORK( * ), NBVAL( * ), NSVAL( * ), NVAL( * ) COMPLEX*16 A( * ), AFAC( * ), AINV( * ), B( * ), - $ RWORK( * ), WORK( * ), X( * ), XACT( * ) + $ WORK( * ), X( * ), XACT( * ) + DOUBLE PRECISION RWORK( * ) * .. * * ===================================================================== diff --git a/TESTING/LIN/zlqt04.f b/TESTING/LIN/zlqt04.f index 2e7a0e8ee3..3afa7c397d 100644 --- a/TESTING/LIN/zlqt04.f +++ b/TESTING/LIN/zlqt04.f @@ -86,8 +86,9 @@ SUBROUTINE ZLQT04(M,N,NB,RESULT) * .. * .. Local allocatable arrays COMPLEX*16, ALLOCATABLE :: AF(:,:), Q(:,:), - $ L(:,:), RWORK(:), WORK( : ), T(:,:), + $ L(:,:), WORK( : ), T(:,:), $ CF(:,:), DF(:,:), A(:,:), C(:,:), D(:,:) + DOUBLE PRECISION, ALLOCATABLE :: RWORK(:) * * .. Parameters .. DOUBLE PRECISION ZERO diff --git a/TESTING/LIN/zlqt05.f b/TESTING/LIN/zlqt05.f index a795a50d1b..e845621a96 100644 --- a/TESTING/LIN/zlqt05.f +++ b/TESTING/LIN/zlqt05.f @@ -93,8 +93,9 @@ SUBROUTINE ZLQT05(M,N,L,NB,RESULT) * .. * .. 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/ztsqr01.f b/TESTING/LIN/ztsqr01.f index 629da2996d..f844d512bc 100644 --- a/TESTING/LIN/ztsqr01.f +++ b/TESTING/LIN/ztsqr01.f @@ -96,8 +96,9 @@ SUBROUTINE ZTSQR01(TSSW, M, N, MB, NB, RESULT) * .. * .. Local allocatable arrays COMPLEX*16, ALLOCATABLE :: AF(:,:), Q(:,:), - $ R(:,:), RWORK(:), WORK( : ), T(:), + $ R(:,:), WORK( : ), T(:), $ CF(:,:), DF(:,:), A(:,:), C(:,:), D(:,:), LQ(:,:) + DOUBLE PRECISION, ALLOCATABLE :: RWORK(:) * * .. Parameters .. DOUBLE PRECISION ZERO diff --git a/TESTING/LIN/zunhr_col01.f b/TESTING/LIN/zunhr_col01.f index b7590a8ea5..a632fe4c6b 100644 --- a/TESTING/LIN/zunhr_col01.f +++ b/TESTING/LIN/zunhr_col01.f @@ -311,7 +311,7 @@ SUBROUTINE ZUNHR_COL01( M, N, MB1, NB1, NB2, RESULT ) * Compute |I - (Q**H)*Q| / ( eps * m ) and store in RESULT(2) * CALL ZLASET( 'Full', M, M, CZERO, CONE, R, M ) - CALL ZHERK( 'U', 'C', M, M, -CONE, Q, M, CONE, R, M ) + CALL ZHERK( 'U', 'C', M, M, REAL(-CONE), Q, M, REAL(CONE), R, M ) RESID = ZLANSY( '1', 'Upper', M, R, M, RWORK ) RESULT( 2 ) = RESID / ( EPS * MAX( 1, M ) ) * diff --git a/TESTING/LIN/zunhr_col02.f b/TESTING/LIN/zunhr_col02.f index c6e7f80cd0..1c2e713716 100644 --- a/TESTING/LIN/zunhr_col02.f +++ b/TESTING/LIN/zunhr_col02.f @@ -273,7 +273,7 @@ SUBROUTINE ZUNHR_COL02( M, N, MB1, NB1, NB2, RESULT ) * Compute |I - (Q**T)*Q| / ( eps * m ) and store in RESULT(2) * CALL ZLASET( 'Full', M, M, CZERO, CONE, R, M ) - CALL ZHERK( 'U', 'C', M, M, -CONE, Q, M, CONE, R, M ) + CALL ZHERK( 'U', 'C', M, M, REAL(-CONE), Q, M, REAL(CONE), R, M ) RESID = ZLANSY( '1', 'Upper', M, R, M, RWORK ) RESULT( 2 ) = RESID / ( EPS * MAX( 1, M ) ) *