From 787b766551f3b41ad8532bf9a5fd4765a30166df Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Sat, 22 Jul 2023 18:11:38 +0200 Subject: [PATCH] Fix actual arguments (Reference-LAPACK PR 885) --- lapack-netlib/TESTING/EIG/zerrst.f | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lapack-netlib/TESTING/EIG/zerrst.f b/lapack-netlib/TESTING/EIG/zerrst.f index 948f94bc2..d7b41c053 100644 --- a/lapack-netlib/TESTING/EIG/zerrst.f +++ b/lapack-netlib/TESTING/EIG/zerrst.f @@ -160,13 +160,13 @@ * SRNAMT = 'ZHETD2' INFOT = 1 - CALL ZHETD2( '/', 0, A, 1, D, E, TAU, W, 1, INFO ) + CALL ZHETD2( '/', 0, A, 1, D, E, TAU, INFO ) CALL CHKXER( 'ZHETD2', INFOT, NOUT, LERR, OK ) INFOT = 2 - CALL ZHETD2( 'U', -1, A, 1, D, E, TAU, W, 1, INFO ) + CALL ZHETD2( 'U', -1, A, 1, D, E, TAU, INFO ) CALL CHKXER( 'ZHETD2', INFOT, NOUT, LERR, OK ) INFOT = 4 - CALL ZHETD2( 'U', 2, A, 1, D, E, TAU, W, 1, INFO ) + CALL ZHETD2( 'U', 2, A, 1, D, E, TAU, INFO ) CALL CHKXER( 'ZHETD2', INFOT, NOUT, LERR, OK ) NT = NT + 3 *