From 2eab06a6d81a591909b5cd4e5859deb85a512e09 Mon Sep 17 00:00:00 2001 From: Henning Thielemann Date: Mon, 12 Jun 2017 11:49:28 +0200 Subject: [PATCH] BLAS/xROTMx, comment on xPARAM: put 5 in parentheses --- BLAS/SRC/drotm.f | 2 +- BLAS/SRC/drotmg.f | 2 +- BLAS/SRC/srotm.f | 2 +- BLAS/SRC/srotmg.f | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) diff --git a/BLAS/SRC/drotm.f b/BLAS/SRC/drotm.f index f75b88b..a3ce166 100644 --- a/BLAS/SRC/drotm.f +++ b/BLAS/SRC/drotm.f @@ -73,7 +73,7 @@ *> *> \param[in,out] DPARAM *> \verbatim -*> DPARAM is DOUBLE PRECISION array, dimension 5 +*> DPARAM is DOUBLE PRECISION array, dimension (5) *> DPARAM(1)=DFLAG *> DPARAM(2)=DH11 *> DPARAM(3)=DH21 diff --git a/BLAS/SRC/drotmg.f b/BLAS/SRC/drotmg.f index 1fb025f..570525b 100644 --- a/BLAS/SRC/drotmg.f +++ b/BLAS/SRC/drotmg.f @@ -67,7 +67,7 @@ *> *> \param[in,out] DPARAM *> \verbatim -*> DPARAM is DOUBLE PRECISION array, dimension 5 +*> DPARAM is DOUBLE PRECISION array, dimension (5) *> DPARAM(1)=DFLAG *> DPARAM(2)=DH11 *> DPARAM(3)=DH21 diff --git a/BLAS/SRC/srotm.f b/BLAS/SRC/srotm.f index a0d00f2..eed3273 100644 --- a/BLAS/SRC/srotm.f +++ b/BLAS/SRC/srotm.f @@ -74,7 +74,7 @@ *> *> \param[in,out] SPARAM *> \verbatim -*> SPARAM is REAL array, dimension 5 +*> SPARAM is REAL array, dimension (5) *> SPARAM(1)=SFLAG *> SPARAM(2)=SH11 *> SPARAM(3)=SH21 diff --git a/BLAS/SRC/srotmg.f b/BLAS/SRC/srotmg.f index a5077c0..b942e02 100644 --- a/BLAS/SRC/srotmg.f +++ b/BLAS/SRC/srotmg.f @@ -67,7 +67,7 @@ *> *> \param[in,out] SPARAM *> \verbatim -*> SPARAM is REAL array, dimension 5 +*> SPARAM is REAL array, dimension (5) *> SPARAM(1)=SFLAG *> SPARAM(2)=SH11 *> SPARAM(3)=SH21 -- 2.7.4