From 20ebed48e472f1ac2919601d8bb44d8e84fc2e9b Mon Sep 17 00:00:00 2001 From: Elena Ivanova Date: Mon, 12 Sep 2016 20:45:35 +0200 Subject: [PATCH] Mistake in the comments to CTREVC3 / ZTREVC3 (github issue #48) See: https://github.com/Reference-LAPACK/lapack/issues/48 --- SRC/ctrevc3.f | 4 ++-- SRC/ztrevc3.f | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/SRC/ctrevc3.f b/SRC/ctrevc3.f index 1340116..2b0ba66 100644 --- a/SRC/ctrevc3.f +++ b/SRC/ctrevc3.f @@ -18,8 +18,8 @@ * Definition: * =========== * -* SUBROUTINE CTREVC3( SIDE, HOWMNY, SELECT, N, T, LDT, VL, LDVL, -* VR, LDVR, MM, M, WORK, LWORK, RWORK, INFO ) +* SUBROUTINE CTREVC3( SIDE, HOWMNY, SELECT, N, T, LDT, VL, LDVL, VR, +* LDVR, MM, M, WORK, LWORK, RWORK, LRWORK, INFO) * * .. Scalar Arguments .. * CHARACTER HOWMNY, SIDE diff --git a/SRC/ztrevc3.f b/SRC/ztrevc3.f index 6656852..81c7c9e 100644 --- a/SRC/ztrevc3.f +++ b/SRC/ztrevc3.f @@ -18,8 +18,8 @@ * Definition: * =========== * -* SUBROUTINE ZTREVC3( SIDE, HOWMNY, SELECT, N, T, LDT, VL, LDVL, -* VR, LDVR, MM, M, WORK, LWORK, RWORK, INFO ) +* SUBROUTINE ZTREVC3( SIDE, HOWMNY, SELECT, N, T, LDT, VL, LDVL, VR, +* $ LDVR, MM, M, WORK, LWORK, RWORK, LRWORK, INFO) * * .. Scalar Arguments .. * CHARACTER HOWMNY, SIDE -- 2.7.4