From: Elena Ivanova <elena.x.ivanova@oracle.com>
Date: Mon, 12 Sep 2016 18:45:35 +0000 (+0200)
Subject: Mistake in the comments to CTREVC3 / ZTREVC3 (github issue #48)
X-Git-Tag: accepted/tizen/5.0/unified/20181102.024111~138
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=20ebed48e472f1ac2919601d8bb44d8e84fc2e9b;p=platform%2Fupstream%2Flapack.git

Mistake in the comments to CTREVC3 / ZTREVC3 (github issue #48)

See: https://github.com/Reference-LAPACK/lapack/issues/48
---

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