From ff6637d893261a2248e939db741ed9422f421c72 Mon Sep 17 00:00:00 2001
From: Henning Thielemann <git@henning-thielemann.de>
Date: Mon, 12 Jun 2017 11:39:47 +0200
Subject: BLAS/xROTM; parameter comments for xX and xY: correct array dimension

---
 BLAS/SRC/drotm.f | 6 ++----
 BLAS/SRC/srotm.f | 6 ++----
 2 files changed, 4 insertions(+), 8 deletions(-)

(limited to 'BLAS')

diff --git a/BLAS/SRC/drotm.f b/BLAS/SRC/drotm.f
index b006dbd5..f75b88b3 100644
--- a/BLAS/SRC/drotm.f
+++ b/BLAS/SRC/drotm.f
@@ -51,8 +51,7 @@
 *>
 *> \param[in,out] DX
 *> \verbatim
-*>          DX is DOUBLE PRECISION array, dimension N
-*>         double precision vector with N elements
+*>          DX is DOUBLE PRECISION array, dimension ( 1 + ( N - 1 )*abs( INCX ) )
 *> \endverbatim
 *>
 *> \param[in] INCX
@@ -63,8 +62,7 @@
 *>
 *> \param[in,out] DY
 *> \verbatim
-*>          DY is DOUBLE PRECISION array, dimension N
-*>         double precision vector with N elements
+*>          DY is DOUBLE PRECISION array, dimension ( 1 + ( N - 1 )*abs( INCY ) )
 *> \endverbatim
 *>
 *> \param[in] INCY
diff --git a/BLAS/SRC/srotm.f b/BLAS/SRC/srotm.f
index c71f7f01..a0d00f28 100644
--- a/BLAS/SRC/srotm.f
+++ b/BLAS/SRC/srotm.f
@@ -52,8 +52,7 @@
 *>
 *> \param[in,out] SX
 *> \verbatim
-*>          SX is REAL array, dimension N
-*>         double precision vector with N elements
+*>          SX is REAL array, dimension ( 1 + ( N - 1 )*abs( INCX ) )
 *> \endverbatim
 *>
 *> \param[in] INCX
@@ -64,8 +63,7 @@
 *>
 *> \param[in,out] SY
 *> \verbatim
-*>          SY is REAL array, dimension N
-*>         double precision vector with N elements
+*>          SY is REAL array, dimension ( 1 + ( N - 1 )*abs( INCY ) )
 *> \endverbatim
 *>
 *> \param[in] INCY
-- 
cgit v1.2.3