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 (file)
--- 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 (file)
--- 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