diff options
| author | julie <julielangou@users.noreply.github.com> | 2009-01-12 22:16:18 +0000 |
|---|---|---|
| committer | julie <julielangou@users.noreply.github.com> | 2009-01-12 22:16:18 +0000 |
| commit | 1a86352338086d1a2b3b5d5b01061c07e49e67ba (patch) | |
| tree | 328726e9d5c9f7576bd6f9fef4ccd792e9d60098 | |
| parent | 3cff0c0c7d6f581bb14e645fbd5d035a53581446 (diff) | |
| download | lapack-1a86352338086d1a2b3b5d5b01061c07e49e67ba.tar.gz lapack-1a86352338086d1a2b3b5d5b01061c07e49e67ba.tar.bz2 lapack-1a86352338086d1a2b3b5d5b01061c07e49e67ba.zip | |
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.
| -rw-r--r-- | BLAS/SRC/drotm.f | 4 | ||||
| -rw-r--r-- | BLAS/SRC/srotm.f | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/BLAS/SRC/drotm.f b/BLAS/SRC/drotm.f index 28cf2137..63a3b113 100644 --- 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 3523f99f..fc5a5933 100644 --- 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 |