Following a out-of-bound complaint by gfortran

Modify size in declaration of DX and DY.
It was set to 1, and 5 or N in the comments !!!!!
Put * in the declaration and N in the comments

This routine may need to be double-checked.

diff --git a/BLAS/SRC/drotm.f b/BLAS/SRC/drotm.f
index 28cf213..63a3b11 100644 (file)
--- a/BLAS/SRC/drotm.f
+++ b/BLAS/SRC/drotm.f
@@ -3,7 +3,7 @@
       INTEGER INCX,INCY,N
 *     ..
 *     .. Array Arguments ..
-      DOUBLE PRECISION DPARAM(5),DX(1),DY(1)
+      DOUBLE PRECISION DPARAM(5),DX(*),DY(*)
 *     ..
 *
 *  Purpose
@@ -32,7 +32,7 @@
 *         number of elements in input vector(s)
 *
 *  DX     (input/output) DOUBLE PRECISION array, dimension N
-*         double precision vector with 5 elements
+*         double precision vector with N elements
 *
 *  INCX   (input) INTEGER
 *         storage spacing between elements of DX

diff --git a/BLAS/SRC/srotm.f b/BLAS/SRC/srotm.f
index 3523f99..fc5a593 100644 (file)
--- a/BLAS/SRC/srotm.f
+++ b/BLAS/SRC/srotm.f
@@ -3,7 +3,7 @@
       INTEGER INCX,INCY,N
 *     ..
 *     .. Array Arguments ..
-      REAL SPARAM(5),SX(1),SY(1)
+      REAL SPARAM(5),SX(*),SY(*)
 *     ..
 *
 *  Purpose
@@ -33,7 +33,7 @@
 *         number of elements in input vector(s)
 *
 *  SX     (input/output) REAL array, dimension N
-*         double precision vector with 5 elements
+*         double precision vector with N elements
 *
 *  INCX   (input) INTEGER
 *         storage spacing between elements of SX