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 1340116a191fec69e4041774f6470af28f45a79f..2b0ba66de602c52b928cdc33951069407905ab5f 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 665685290a72f70eb8a35af9795e6caa3968181c..81c7c9e32002fbd41bd0a754019ca35d0f16e46f 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