diff options
| author | Henning Thielemann <git@henning-thielemann.de> | 2017-06-12 11:39:47 +0200 |
|---|---|---|
| committer | Henning Thielemann <git@henning-thielemann.de> | 2017-06-12 11:39:47 +0200 |
| commit | ff6637d893261a2248e939db741ed9422f421c72 (patch) | |
| tree | 03830d4ecf42e8956c8c92610ee89d3d789b2fe6 | |
| parent | 98fd66325bd6900becd886df52293158d14096a3 (diff) | |
| download | lapack-ff6637d893261a2248e939db741ed9422f421c72.tar.gz lapack-ff6637d893261a2248e939db741ed9422f421c72.tar.bz2 lapack-ff6637d893261a2248e939db741ed9422f421c72.zip | |
BLAS/xROTM; parameter comments for xX and xY: correct array dimension
| -rw-r--r-- | BLAS/SRC/drotm.f | 6 | ||||
| -rw-r--r-- | BLAS/SRC/srotm.f | 6 |
2 files changed, 4 insertions, 8 deletions
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 |