summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorHenning Thielemann <git@henning-thielemann.de>2017-06-09 14:22:41 +0200
committerHenning Thielemann <git@henning-thielemann.de>2017-06-09 14:22:41 +0200
commit98fd66325bd6900becd886df52293158d14096a3 (patch)
treeac75d7d062efb42907b7da58de14a35abf8af04f
parente3780628f3d5543cb70cff2e4f5143a95ace0d4e (diff)
downloadlapack-98fd66325bd6900becd886df52293158d14096a3.tar.gz
lapack-98fd66325bd6900becd886df52293158d14096a3.tar.bz2
lapack-98fd66325bd6900becd886df52293158d14096a3.zip
BLAS doxygen array parameter comments: use the same format as LAPACK
i.e. "A is TYPE array, dimension ( LDx, N )"
-rw-r--r--BLAS/SRC/cgbmv.f6
-rw-r--r--BLAS/SRC/cgemm.f6
-rw-r--r--BLAS/SRC/cgemv.f6
-rw-r--r--BLAS/SRC/cgerc.f6
-rw-r--r--BLAS/SRC/cgeru.f6
-rw-r--r--BLAS/SRC/chbmv.f6
-rw-r--r--BLAS/SRC/chemm.f6
-rw-r--r--BLAS/SRC/chemv.f6
-rw-r--r--BLAS/SRC/cher.f4
-rw-r--r--BLAS/SRC/cher2.f6
-rw-r--r--BLAS/SRC/cher2k.f6
-rw-r--r--BLAS/SRC/cherk.f4
-rw-r--r--BLAS/SRC/chpmv.f6
-rw-r--r--BLAS/SRC/chpr.f4
-rw-r--r--BLAS/SRC/chpr2.f6
-rw-r--r--BLAS/SRC/csymm.f6
-rw-r--r--BLAS/SRC/csyr2k.f6
-rw-r--r--BLAS/SRC/csyrk.f4
-rw-r--r--BLAS/SRC/ctbmv.f4
-rw-r--r--BLAS/SRC/ctbsv.f4
-rw-r--r--BLAS/SRC/ctpmv.f4
-rw-r--r--BLAS/SRC/ctpsv.f4
-rw-r--r--BLAS/SRC/ctrmm.f4
-rw-r--r--BLAS/SRC/ctrmv.f4
-rw-r--r--BLAS/SRC/ctrsm.f4
-rw-r--r--BLAS/SRC/ctrsv.f4
-rw-r--r--BLAS/SRC/dgbmv.f6
-rw-r--r--BLAS/SRC/dgemm.f6
-rw-r--r--BLAS/SRC/dgemv.f6
-rw-r--r--BLAS/SRC/dger.f6
-rw-r--r--BLAS/SRC/dsbmv.f6
-rw-r--r--BLAS/SRC/dspmv.f6
-rw-r--r--BLAS/SRC/dspr.f4
-rw-r--r--BLAS/SRC/dspr2.f6
-rw-r--r--BLAS/SRC/dsymm.f6
-rw-r--r--BLAS/SRC/dsymv.f6
-rw-r--r--BLAS/SRC/dsyr.f4
-rw-r--r--BLAS/SRC/dsyr2.f6
-rw-r--r--BLAS/SRC/dsyr2k.f6
-rw-r--r--BLAS/SRC/dsyrk.f4
-rw-r--r--BLAS/SRC/dtbmv.f4
-rw-r--r--BLAS/SRC/dtbsv.f4
-rw-r--r--BLAS/SRC/dtpmv.f4
-rw-r--r--BLAS/SRC/dtpsv.f4
-rw-r--r--BLAS/SRC/dtrmm.f4
-rw-r--r--BLAS/SRC/dtrmv.f4
-rw-r--r--BLAS/SRC/dtrsm.f4
-rw-r--r--BLAS/SRC/dtrsv.f4
-rw-r--r--BLAS/SRC/sgbmv.f6
-rw-r--r--BLAS/SRC/sgemm.f6
-rw-r--r--BLAS/SRC/sgemv.f6
-rw-r--r--BLAS/SRC/sger.f6
-rw-r--r--BLAS/SRC/ssbmv.f6
-rw-r--r--BLAS/SRC/sspmv.f6
-rw-r--r--BLAS/SRC/sspr.f4
-rw-r--r--BLAS/SRC/sspr2.f6
-rw-r--r--BLAS/SRC/ssymm.f6
-rw-r--r--BLAS/SRC/ssymv.f6
-rw-r--r--BLAS/SRC/ssyr.f4
-rw-r--r--BLAS/SRC/ssyr2.f6
-rw-r--r--BLAS/SRC/ssyr2k.f6
-rw-r--r--BLAS/SRC/ssyrk.f4
-rw-r--r--BLAS/SRC/stbmv.f4
-rw-r--r--BLAS/SRC/stbsv.f4
-rw-r--r--BLAS/SRC/stpmv.f4
-rw-r--r--BLAS/SRC/stpsv.f4
-rw-r--r--BLAS/SRC/strmm.f4
-rw-r--r--BLAS/SRC/strmv.f4
-rw-r--r--BLAS/SRC/strsm.f4
-rw-r--r--BLAS/SRC/strsv.f4
-rw-r--r--BLAS/SRC/zgbmv.f6
-rw-r--r--BLAS/SRC/zgemm.f6
-rw-r--r--BLAS/SRC/zgemv.f6
-rw-r--r--BLAS/SRC/zgerc.f6
-rw-r--r--BLAS/SRC/zgeru.f6
-rw-r--r--BLAS/SRC/zhbmv.f6
-rw-r--r--BLAS/SRC/zhemm.f6
-rw-r--r--BLAS/SRC/zhemv.f6
-rw-r--r--BLAS/SRC/zher.f4
-rw-r--r--BLAS/SRC/zher2.f6
-rw-r--r--BLAS/SRC/zher2k.f6
-rw-r--r--BLAS/SRC/zherk.f4
-rw-r--r--BLAS/SRC/zhpmv.f6
-rw-r--r--BLAS/SRC/zhpr.f4
-rw-r--r--BLAS/SRC/zhpr2.f6
-rw-r--r--BLAS/SRC/zsymm.f6
-rw-r--r--BLAS/SRC/zsyr2k.f6
-rw-r--r--BLAS/SRC/zsyrk.f4
-rw-r--r--BLAS/SRC/ztbmv.f6
-rw-r--r--BLAS/SRC/ztbsv.f4
-rw-r--r--BLAS/SRC/ztpmv.f6
-rw-r--r--BLAS/SRC/ztpsv.f4
-rw-r--r--BLAS/SRC/ztrmm.f6
-rw-r--r--BLAS/SRC/ztrmv.f6
-rw-r--r--BLAS/SRC/ztrsm.f4
-rw-r--r--BLAS/SRC/ztrsv.f4
96 files changed, 246 insertions, 246 deletions
diff --git a/BLAS/SRC/cgbmv.f b/BLAS/SRC/cgbmv.f
index de12852a..3cf35196 100644
--- a/BLAS/SRC/cgbmv.f
+++ b/BLAS/SRC/cgbmv.f
@@ -87,7 +87,7 @@
*>
*> \param[in] A
*> \verbatim
-*> A is COMPLEX array of DIMENSION ( LDA, n ).
+*> A is COMPLEX array, dimension ( LDA, N )
*> Before entry, the leading ( kl + ku + 1 ) by n part of the
*> array A must contain the matrix of coefficients, supplied
*> column by column, with the leading diagonal of the matrix in
@@ -118,7 +118,7 @@
*>
*> \param[in] X
*> \verbatim
-*> X is COMPLEX array of DIMENSION at least
+*> X is COMPLEX array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCX ) ) when TRANS = 'N' or 'n'
*> and at least
*> ( 1 + ( m - 1 )*abs( INCX ) ) otherwise.
@@ -142,7 +142,7 @@
*>
*> \param[in,out] Y
*> \verbatim
-*> Y is COMPLEX array of DIMENSION at least
+*> Y is COMPLEX array, dimension at least
*> ( 1 + ( m - 1 )*abs( INCY ) ) when TRANS = 'N' or 'n'
*> and at least
*> ( 1 + ( n - 1 )*abs( INCY ) ) otherwise.
diff --git a/BLAS/SRC/cgemm.f b/BLAS/SRC/cgemm.f
index 018ffad6..ba1d7144 100644
--- a/BLAS/SRC/cgemm.f
+++ b/BLAS/SRC/cgemm.f
@@ -97,7 +97,7 @@
*>
*> \param[in] A
*> \verbatim
-*> A is COMPLEX array of DIMENSION ( LDA, ka ), where ka is
+*> A is COMPLEX array, dimension ( LDA, ka ), where ka is
*> k when TRANSA = 'N' or 'n', and is m otherwise.
*> Before entry with TRANSA = 'N' or 'n', the leading m by k
*> part of the array A must contain the matrix A, otherwise
@@ -116,7 +116,7 @@
*>
*> \param[in] B
*> \verbatim
-*> B is COMPLEX array of DIMENSION ( LDB, kb ), where kb is
+*> B is COMPLEX array, dimension ( LDB, kb ), where kb is
*> n when TRANSB = 'N' or 'n', and is k otherwise.
*> Before entry with TRANSB = 'N' or 'n', the leading k by n
*> part of the array B must contain the matrix B, otherwise
@@ -142,7 +142,7 @@
*>
*> \param[in,out] C
*> \verbatim
-*> C is COMPLEX array of DIMENSION ( LDC, n ).
+*> C is COMPLEX array, dimension ( LDC, N )
*> Before entry, the leading m by n part of the array C must
*> contain the matrix C, except when beta is zero, in which
*> case C need not be set on entry.
diff --git a/BLAS/SRC/cgemv.f b/BLAS/SRC/cgemv.f
index aeb94090..99bcdcd1 100644
--- a/BLAS/SRC/cgemv.f
+++ b/BLAS/SRC/cgemv.f
@@ -73,7 +73,7 @@
*>
*> \param[in] A
*> \verbatim
-*> A is COMPLEX array of DIMENSION ( LDA, n ).
+*> A is COMPLEX array, dimension ( LDA, N )
*> Before entry, the leading m by n part of the array A must
*> contain the matrix of coefficients.
*> \endverbatim
@@ -88,7 +88,7 @@
*>
*> \param[in] X
*> \verbatim
-*> X is COMPLEX array of DIMENSION at least
+*> X is COMPLEX array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCX ) ) when TRANS = 'N' or 'n'
*> and at least
*> ( 1 + ( m - 1 )*abs( INCX ) ) otherwise.
@@ -112,7 +112,7 @@
*>
*> \param[in,out] Y
*> \verbatim
-*> Y is COMPLEX array of DIMENSION at least
+*> Y is COMPLEX array, dimension at least
*> ( 1 + ( m - 1 )*abs( INCY ) ) when TRANS = 'N' or 'n'
*> and at least
*> ( 1 + ( n - 1 )*abs( INCY ) ) otherwise.
diff --git a/BLAS/SRC/cgerc.f b/BLAS/SRC/cgerc.f
index e730edfd..f3f96a6a 100644
--- a/BLAS/SRC/cgerc.f
+++ b/BLAS/SRC/cgerc.f
@@ -57,7 +57,7 @@
*>
*> \param[in] X
*> \verbatim
-*> X is COMPLEX array of dimension at least
+*> X is COMPLEX array, dimension at least
*> ( 1 + ( m - 1 )*abs( INCX ) ).
*> Before entry, the incremented array X must contain the m
*> element vector x.
@@ -72,7 +72,7 @@
*>
*> \param[in] Y
*> \verbatim
-*> Y is COMPLEX array of dimension at least
+*> Y is COMPLEX array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCY ) ).
*> Before entry, the incremented array Y must contain the n
*> element vector y.
@@ -87,7 +87,7 @@
*>
*> \param[in,out] A
*> \verbatim
-*> A is COMPLEX array of DIMENSION ( LDA, n ).
+*> A is COMPLEX array, dimension ( LDA, N )
*> Before entry, the leading m by n part of the array A must
*> contain the matrix of coefficients. On exit, A is
*> overwritten by the updated matrix.
diff --git a/BLAS/SRC/cgeru.f b/BLAS/SRC/cgeru.f
index bc7540fa..f8342b5b 100644
--- a/BLAS/SRC/cgeru.f
+++ b/BLAS/SRC/cgeru.f
@@ -57,7 +57,7 @@
*>
*> \param[in] X
*> \verbatim
-*> X is COMPLEX array of dimension at least
+*> X is COMPLEX array, dimension at least
*> ( 1 + ( m - 1 )*abs( INCX ) ).
*> Before entry, the incremented array X must contain the m
*> element vector x.
@@ -72,7 +72,7 @@
*>
*> \param[in] Y
*> \verbatim
-*> Y is COMPLEX array of dimension at least
+*> Y is COMPLEX array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCY ) ).
*> Before entry, the incremented array Y must contain the n
*> element vector y.
@@ -87,7 +87,7 @@
*>
*> \param[in,out] A
*> \verbatim
-*> A is COMPLEX array of DIMENSION ( LDA, n ).
+*> A is COMPLEX array, dimension ( LDA, N )
*> Before entry, the leading m by n part of the array A must
*> contain the matrix of coefficients. On exit, A is
*> overwritten by the updated matrix.
diff --git a/BLAS/SRC/chbmv.f b/BLAS/SRC/chbmv.f
index 435c8dd2..e25e6e2a 100644
--- a/BLAS/SRC/chbmv.f
+++ b/BLAS/SRC/chbmv.f
@@ -72,7 +72,7 @@
*>
*> \param[in] A
*> \verbatim
-*> A is COMPLEX array of DIMENSION ( LDA, n ).
+*> A is COMPLEX array, dimension ( LDA, N )
*> Before entry with UPLO = 'U' or 'u', the leading ( k + 1 )
*> by n part of the array A must contain the upper triangular
*> band part of the hermitian matrix, supplied column by
@@ -123,7 +123,7 @@
*>
*> \param[in] X
*> \verbatim
-*> X is COMPLEX array of DIMENSION at least
+*> X is COMPLEX array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCX ) ).
*> Before entry, the incremented array X must contain the
*> vector x.
@@ -144,7 +144,7 @@
*>
*> \param[in,out] Y
*> \verbatim
-*> Y is COMPLEX array of DIMENSION at least
+*> Y is COMPLEX array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCY ) ).
*> Before entry, the incremented array Y must contain the
*> vector y. On exit, Y is overwritten by the updated vector y.
diff --git a/BLAS/SRC/chemm.f b/BLAS/SRC/chemm.f
index 834b209a..8cf94fa2 100644
--- a/BLAS/SRC/chemm.f
+++ b/BLAS/SRC/chemm.f
@@ -87,7 +87,7 @@
*>
*> \param[in] A
*> \verbatim
-*> A is COMPLEX array of DIMENSION ( LDA, ka ), where ka is
+*> A is COMPLEX array, dimension ( LDA, ka ), where ka is
*> m when SIDE = 'L' or 'l' and is n otherwise.
*> Before entry with SIDE = 'L' or 'l', the m by m part of
*> the array A must contain the hermitian matrix, such that
@@ -124,7 +124,7 @@
*>
*> \param[in] B
*> \verbatim
-*> B is COMPLEX array of DIMENSION ( LDB, n ).
+*> B is COMPLEX array, dimension ( LDB, N )
*> Before entry, the leading m by n part of the array B must
*> contain the matrix B.
*> \endverbatim
@@ -146,7 +146,7 @@
*>
*> \param[in,out] C
*> \verbatim
-*> C is COMPLEX array of DIMENSION ( LDC, n ).
+*> C is COMPLEX array, dimension ( LDC, N )
*> Before entry, the leading m by n part of the array C must
*> contain the matrix C, except when beta is zero, in which
*> case C need not be set on entry.
diff --git a/BLAS/SRC/chemv.f b/BLAS/SRC/chemv.f
index 21509297..be0f405c 100644
--- a/BLAS/SRC/chemv.f
+++ b/BLAS/SRC/chemv.f
@@ -65,7 +65,7 @@
*>
*> \param[in] A
*> \verbatim
-*> A is COMPLEX array of DIMENSION ( LDA, n ).
+*> A is COMPLEX array, dimension ( LDA, N )
*> Before entry with UPLO = 'U' or 'u', the leading n by n
*> upper triangular part of the array A must contain the upper
*> triangular part of the hermitian matrix and the strictly
@@ -88,7 +88,7 @@
*>
*> \param[in] X
*> \verbatim
-*> X is COMPLEX array of dimension at least
+*> X is COMPLEX array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCX ) ).
*> Before entry, the incremented array X must contain the n
*> element vector x.
@@ -110,7 +110,7 @@
*>
*> \param[in,out] Y
*> \verbatim
-*> Y is COMPLEX array of dimension at least
+*> Y is COMPLEX array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCY ) ).
*> Before entry, the incremented array Y must contain the n
*> element vector y. On exit, Y is overwritten by the updated
diff --git a/BLAS/SRC/cher.f b/BLAS/SRC/cher.f
index 78a4e0b7..fde0c855 100644
--- a/BLAS/SRC/cher.f
+++ b/BLAS/SRC/cher.f
@@ -65,7 +65,7 @@
*>
*> \param[in] X
*> \verbatim
-*> X is COMPLEX array of dimension at least
+*> X is COMPLEX array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCX ) ).
*> Before entry, the incremented array X must contain the n
*> element vector x.
@@ -80,7 +80,7 @@
*>
*> \param[in,out] A
*> \verbatim
-*> A is COMPLEX array of DIMENSION ( LDA, n ).
+*> A is COMPLEX array, dimension ( LDA, N )
*> Before entry with UPLO = 'U' or 'u', the leading n by n
*> upper triangular part of the array A must contain the upper
*> triangular part of the hermitian matrix and the strictly
diff --git a/BLAS/SRC/cher2.f b/BLAS/SRC/cher2.f
index fd65f970..ca12834f 100644
--- a/BLAS/SRC/cher2.f
+++ b/BLAS/SRC/cher2.f
@@ -65,7 +65,7 @@
*>
*> \param[in] X
*> \verbatim
-*> X is COMPLEX array of dimension at least
+*> X is COMPLEX array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCX ) ).
*> Before entry, the incremented array X must contain the n
*> element vector x.
@@ -80,7 +80,7 @@
*>
*> \param[in] Y
*> \verbatim
-*> Y is COMPLEX array of dimension at least
+*> Y is COMPLEX array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCY ) ).
*> Before entry, the incremented array Y must contain the n
*> element vector y.
@@ -95,7 +95,7 @@
*>
*> \param[in,out] A
*> \verbatim
-*> A is COMPLEX array of DIMENSION ( LDA, n ).
+*> A is COMPLEX array, dimension ( LDA, N )
*> Before entry with UPLO = 'U' or 'u', the leading n by n
*> upper triangular part of the array A must contain the upper
*> triangular part of the hermitian matrix and the strictly
diff --git a/BLAS/SRC/cher2k.f b/BLAS/SRC/cher2k.f
index ace3c5d2..fb9925d5 100644
--- a/BLAS/SRC/cher2k.f
+++ b/BLAS/SRC/cher2k.f
@@ -95,7 +95,7 @@
*>
*> \param[in] A
*> \verbatim
-*> A is COMPLEX array of DIMENSION ( LDA, ka ), where ka is
+*> A is COMPLEX array, dimension ( LDA, ka ), where ka is
*> k when TRANS = 'N' or 'n', and is n otherwise.
*> Before entry with TRANS = 'N' or 'n', the leading n by k
*> part of the array A must contain the matrix A, otherwise
@@ -114,7 +114,7 @@
*>
*> \param[in] B
*> \verbatim
-*> B is COMPLEX array of DIMENSION ( LDB, kb ), where kb is
+*> B is COMPLEX array, dimension ( LDB, kb ), where kb is
*> k when TRANS = 'N' or 'n', and is n otherwise.
*> Before entry with TRANS = 'N' or 'n', the leading n by k
*> part of the array B must contain the matrix B, otherwise
@@ -139,7 +139,7 @@
*>
*> \param[in,out] C
*> \verbatim
-*> C is COMPLEX array of DIMENSION ( LDC, n ).
+*> C is COMPLEX array, dimension ( LDC, N )
*> Before entry with UPLO = 'U' or 'u', the leading n by n
*> upper triangular part of the array C must contain the upper
*> triangular part of the hermitian matrix and the strictly
diff --git a/BLAS/SRC/cherk.f b/BLAS/SRC/cherk.f
index 1c47e57b..79f40783 100644
--- a/BLAS/SRC/cherk.f
+++ b/BLAS/SRC/cherk.f
@@ -90,7 +90,7 @@
*>
*> \param[in] A
*> \verbatim
-*> A is COMPLEX array of DIMENSION ( LDA, ka ), where ka is
+*> A is COMPLEX array, dimension ( LDA, ka ), where ka is
*> k when TRANS = 'N' or 'n', and is n otherwise.
*> Before entry with TRANS = 'N' or 'n', the leading n by k
*> part of the array A must contain the matrix A, otherwise
@@ -115,7 +115,7 @@
*>
*> \param[in,out] C
*> \verbatim
-*> C is COMPLEX array of DIMENSION ( LDC, n ).
+*> C is COMPLEX array, dimension ( LDC, N )
*> Before entry with UPLO = 'U' or 'u', the leading n by n
*> upper triangular part of the array C must contain the upper
*> triangular part of the hermitian matrix and the strictly
diff --git a/BLAS/SRC/chpmv.f b/BLAS/SRC/chpmv.f
index b182bfb9..bc0026ae 100644
--- a/BLAS/SRC/chpmv.f
+++ b/BLAS/SRC/chpmv.f
@@ -65,7 +65,7 @@
*>
*> \param[in] AP
*> \verbatim
-*> AP is COMPLEX array of DIMENSION at least
+*> AP is COMPLEX array, dimension at least
*> ( ( n*( n + 1 ) )/2 ).
*> Before entry with UPLO = 'U' or 'u', the array AP must
*> contain the upper triangular part of the hermitian matrix
@@ -83,7 +83,7 @@
*>
*> \param[in] X
*> \verbatim
-*> X is COMPLEX array of dimension at least
+*> X is COMPLEX array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCX ) ).
*> Before entry, the incremented array X must contain the n
*> element vector x.
@@ -105,7 +105,7 @@
*>
*> \param[in,out] Y
*> \verbatim
-*> Y is COMPLEX array of dimension at least
+*> Y is COMPLEX array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCY ) ).
*> Before entry, the incremented array Y must contain the n
*> element vector y. On exit, Y is overwritten by the updated
diff --git a/BLAS/SRC/chpr.f b/BLAS/SRC/chpr.f
index 6212c043..25df8949 100644
--- a/BLAS/SRC/chpr.f
+++ b/BLAS/SRC/chpr.f
@@ -65,7 +65,7 @@
*>
*> \param[in] X
*> \verbatim
-*> X is COMPLEX array of dimension at least
+*> X is COMPLEX array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCX ) ).
*> Before entry, the incremented array X must contain the n
*> element vector x.
@@ -80,7 +80,7 @@
*>
*> \param[in,out] AP
*> \verbatim
-*> AP is COMPLEX array of DIMENSION at least
+*> AP is COMPLEX array, dimension at least
*> ( ( n*( n + 1 ) )/2 ).
*> Before entry with UPLO = 'U' or 'u', the array AP must
*> contain the upper triangular part of the hermitian matrix
diff --git a/BLAS/SRC/chpr2.f b/BLAS/SRC/chpr2.f
index 3ca388a4..66ef2f29 100644
--- a/BLAS/SRC/chpr2.f
+++ b/BLAS/SRC/chpr2.f
@@ -65,7 +65,7 @@
*>
*> \param[in] X
*> \verbatim
-*> X is COMPLEX array of dimension at least
+*> X is COMPLEX array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCX ) ).
*> Before entry, the incremented array X must contain the n
*> element vector x.
@@ -80,7 +80,7 @@
*>
*> \param[in] Y
*> \verbatim
-*> Y is COMPLEX array of dimension at least
+*> Y is COMPLEX array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCY ) ).
*> Before entry, the incremented array Y must contain the n
*> element vector y.
@@ -95,7 +95,7 @@
*>
*> \param[in,out] AP
*> \verbatim
-*> AP is COMPLEX array of DIMENSION at least
+*> AP is COMPLEX array, dimension at least
*> ( ( n*( n + 1 ) )/2 ).
*> Before entry with UPLO = 'U' or 'u', the array AP must
*> contain the upper triangular part of the hermitian matrix
diff --git a/BLAS/SRC/csymm.f b/BLAS/SRC/csymm.f
index 906a5720..8f052641 100644
--- a/BLAS/SRC/csymm.f
+++ b/BLAS/SRC/csymm.f
@@ -87,7 +87,7 @@
*>
*> \param[in] A
*> \verbatim
-*> A is COMPLEX array of DIMENSION ( LDA, ka ), where ka is
+*> A is COMPLEX array, dimension ( LDA, ka ), where ka is
*> m when SIDE = 'L' or 'l' and is n otherwise.
*> Before entry with SIDE = 'L' or 'l', the m by m part of
*> the array A must contain the symmetric matrix, such that
@@ -122,7 +122,7 @@
*>
*> \param[in] B
*> \verbatim
-*> B is COMPLEX array of DIMENSION ( LDB, n ).
+*> B is COMPLEX array, dimension ( LDB, N )
*> Before entry, the leading m by n part of the array B must
*> contain the matrix B.
*> \endverbatim
@@ -144,7 +144,7 @@
*>
*> \param[in,out] C
*> \verbatim
-*> C is COMPLEX array of DIMENSION ( LDC, n ).
+*> C is COMPLEX array, dimension ( LDC, N )
*> Before entry, the leading m by n part of the array C must
*> contain the matrix C, except when beta is zero, in which
*> case C need not be set on entry.
diff --git a/BLAS/SRC/csyr2k.f b/BLAS/SRC/csyr2k.f
index 1fdeadc0..b321d092 100644
--- a/BLAS/SRC/csyr2k.f
+++ b/BLAS/SRC/csyr2k.f
@@ -92,7 +92,7 @@
*>
*> \param[in] A
*> \verbatim
-*> A is COMPLEX array of DIMENSION ( LDA, ka ), where ka is
+*> A is COMPLEX array, dimension ( LDA, ka ), where ka is
*> k when TRANS = 'N' or 'n', and is n otherwise.
*> Before entry with TRANS = 'N' or 'n', the leading n by k
*> part of the array A must contain the matrix A, otherwise
@@ -111,7 +111,7 @@
*>
*> \param[in] B
*> \verbatim
-*> B is COMPLEX array of DIMENSION ( LDB, kb ), where kb is
+*> B is COMPLEX array, dimension ( LDB, kb ), where kb is
*> k when TRANS = 'N' or 'n', and is n otherwise.
*> Before entry with TRANS = 'N' or 'n', the leading n by k
*> part of the array B must contain the matrix B, otherwise
@@ -136,7 +136,7 @@
*>
*> \param[in,out] C
*> \verbatim
-*> C is COMPLEX array of DIMENSION ( LDC, n ).
+*> C is COMPLEX array, dimension ( LDC, N )
*> Before entry with UPLO = 'U' or 'u', the leading n by n
*> upper triangular part of the array C must contain the upper
*> triangular part of the symmetric matrix and the strictly
diff --git a/BLAS/SRC/csyrk.f b/BLAS/SRC/csyrk.f
index c4494c5a..c25384ac 100644
--- a/BLAS/SRC/csyrk.f
+++ b/BLAS/SRC/csyrk.f
@@ -90,7 +90,7 @@
*>
*> \param[in] A
*> \verbatim
-*> A is COMPLEX array of DIMENSION ( LDA, ka ), where ka is
+*> A is COMPLEX array, dimension ( LDA, ka ), where ka is
*> k when TRANS = 'N' or 'n', and is n otherwise.
*> Before entry with TRANS = 'N' or 'n', the leading n by k
*> part of the array A must contain the matrix A, otherwise
@@ -115,7 +115,7 @@
*>
*> \param[in,out] C
*> \verbatim
-*> C is COMPLEX array of DIMENSION ( LDC, n ).
+*> C is COMPLEX array, dimension ( LDC, N )
*> Before entry with UPLO = 'U' or 'u', the leading n by n
*> upper triangular part of the array C must contain the upper
*> triangular part of the symmetric matrix and the strictly
diff --git a/BLAS/SRC/ctbmv.f b/BLAS/SRC/ctbmv.f
index 1513c1a3..205ab9c4 100644
--- a/BLAS/SRC/ctbmv.f
+++ b/BLAS/SRC/ctbmv.f
@@ -90,7 +90,7 @@
*>
*> \param[in] A
*> \verbatim
-*> A is COMPLEX array of DIMENSION ( LDA, n ).
+*> A is COMPLEX array, dimension ( LDA, N ).
*> Before entry with UPLO = 'U' or 'u', the leading ( k + 1 )
*> by n part of the array A must contain the upper triangular
*> band part of the matrix of coefficients, supplied column by
@@ -142,7 +142,7 @@
*>
*> \param[in,out] X
*> \verbatim
-*> X is COMPLEX array of dimension at least
+*> X is COMPLEX array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCX ) ).
*> Before entry, the incremented array X must contain the n
*> element vector x. On exit, X is overwritten with the
diff --git a/BLAS/SRC/ctbsv.f b/BLAS/SRC/ctbsv.f
index f4cc3306..16050f16 100644
--- a/BLAS/SRC/ctbsv.f
+++ b/BLAS/SRC/ctbsv.f
@@ -94,7 +94,7 @@
*>
*> \param[in] A
*> \verbatim
-*> A is COMPLEX array of DIMENSION ( LDA, n ).
+*> A is COMPLEX array, dimension ( LDA, N )
*> Before entry with UPLO = 'U' or 'u', the leading ( k + 1 )
*> by n part of the array A must contain the upper triangular
*> band part of the matrix of coefficients, supplied column by
@@ -146,7 +146,7 @@
*>
*> \param[in,out] X
*> \verbatim
-*> X is COMPLEX array of dimension at least
+*> X is COMPLEX array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCX ) ).
*> Before entry, the incremented array X must contain the n
*> element right-hand side vector b. On exit, X is overwritten
diff --git a/BLAS/SRC/ctpmv.f b/BLAS/SRC/ctpmv.f
index 4582acc9..e6997915 100644
--- a/BLAS/SRC/ctpmv.f
+++ b/BLAS/SRC/ctpmv.f
@@ -80,7 +80,7 @@
*>
*> \param[in] AP
*> \verbatim
-*> AP is COMPLEX array of DIMENSION at least
+*> AP is COMPLEX array, dimension at least
*> ( ( n*( n + 1 ) )/2 ).
*> Before entry with UPLO = 'U' or 'u', the array AP must
*> contain the upper triangular matrix packed sequentially,
@@ -98,7 +98,7 @@
*>
*> \param[in,out] X
*> \verbatim
-*> X is COMPLEX array of dimension at least
+*> X is COMPLEX array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCX ) ).
*> Before entry, the incremented array X must contain the n
*> element vector x. On exit, X is overwritten with the
diff --git a/BLAS/SRC/ctpsv.f b/BLAS/SRC/ctpsv.f
index 2fcd19ba..2335ef50 100644
--- a/BLAS/SRC/ctpsv.f
+++ b/BLAS/SRC/ctpsv.f
@@ -83,7 +83,7 @@
*>
*> \param[in] AP
*> \verbatim
-*> AP is COMPLEX array of DIMENSION at least
+*> AP is COMPLEX array, dimension at least
*> ( ( n*( n + 1 ) )/2 ).
*> Before entry with UPLO = 'U' or 'u', the array AP must
*> contain the upper triangular matrix packed sequentially,
@@ -101,7 +101,7 @@
*>
*> \param[in,out] X
*> \verbatim
-*> X is COMPLEX array of dimension at least
+*> X is COMPLEX array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCX ) ).
*> Before entry, the incremented array X must contain the n
*> element right-hand side vector b. On exit, X is overwritten
diff --git a/BLAS/SRC/ctrmm.f b/BLAS/SRC/ctrmm.f
index a23fb27c..6f79d066 100644
--- a/BLAS/SRC/ctrmm.f
+++ b/BLAS/SRC/ctrmm.f
@@ -109,7 +109,7 @@
*>
*> \param[in] A
*> \verbatim
-*> A is COMPLEX array of DIMENSION ( LDA, k ), where k is m
+*> A is COMPLEX array, dimension ( LDA, k ), where k is m
*> when SIDE = 'L' or 'l' and is n when SIDE = 'R' or 'r'.
*> Before entry with UPLO = 'U' or 'u', the leading k by k
*> upper triangular part of the array A must contain the upper
@@ -134,7 +134,7 @@
*>
*> \param[in,out] B
*> \verbatim
-*> B is COMPLEX array of DIMENSION ( LDB, n ).
+*> B is COMPLEX array, dimension ( LDB, N ).
*> Before entry, the leading m by n part of the array B must
*> contain the matrix B, and on exit is overwritten by the
*> transformed matrix.
diff --git a/BLAS/SRC/ctrmv.f b/BLAS/SRC/ctrmv.f
index 8795e870..1eec65be 100644
--- a/BLAS/SRC/ctrmv.f
+++ b/BLAS/SRC/ctrmv.f
@@ -80,7 +80,7 @@
*>
*> \param[in] A
*> \verbatim
-*> A is COMPLEX array of DIMENSION ( LDA, n ).
+*> A is COMPLEX array, dimension ( LDA, N ).
*> Before entry with UPLO = 'U' or 'u', the leading n by n
*> upper triangular part of the array A must contain the upper
*> triangular matrix and the strictly lower triangular part of
@@ -103,7 +103,7 @@
*>
*> \param[in,out] X
*> \verbatim
-*> X is COMPLEX array of dimension at least
+*> X is COMPLEX array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCX ) ).
*> Before entry, the incremented array X must contain the n
*> element vector x. On exit, X is overwritten with the
diff --git a/BLAS/SRC/ctrsm.f b/BLAS/SRC/ctrsm.f
index 7ee5c947..2c2aff02 100644
--- a/BLAS/SRC/ctrsm.f
+++ b/BLAS/SRC/ctrsm.f
@@ -111,7 +111,7 @@
*>
*> \param[in] A
*> \verbatim
-*> A is COMPLEX array of DIMENSION ( LDA, k ),
+*> A is COMPLEX array, dimension ( LDA, k ),
*> where k is m when SIDE = 'L' or 'l'
*> and k is n when SIDE = 'R' or 'r'.
*> Before entry with UPLO = 'U' or 'u', the leading k by k
@@ -137,7 +137,7 @@
*>
*> \param[in,out] B
*> \verbatim
-*> B is COMPLEX array of DIMENSION ( LDB, n ).
+*> B is COMPLEX array, dimension ( LDB, N )
*> Before entry, the leading m by n part of the array B must
*> contain the right-hand side matrix B, and on exit is
*> overwritten by the solution matrix X.
diff --git a/BLAS/SRC/ctrsv.f b/BLAS/SRC/ctrsv.f
index 7981a21d..81c08240 100644
--- a/BLAS/SRC/ctrsv.f
+++ b/BLAS/SRC/ctrsv.f
@@ -83,7 +83,7 @@
*>
*> \param[in] A
*> \verbatim
-*> A is COMPLEX array of DIMENSION ( LDA, n ).
+*> A is COMPLEX array, dimension ( LDA, N )
*> Before entry with UPLO = 'U' or 'u', the leading n by n
*> upper triangular part of the array A must contain the upper
*> triangular matrix and the strictly lower triangular part of
@@ -106,7 +106,7 @@
*>
*> \param[in,out] X
*> \verbatim
-*> X is COMPLEX array of dimension at least
+*> X is COMPLEX array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCX ) ).
*> Before entry, the incremented array X must contain the n
*> element right-hand side vector b. On exit, X is overwritten
diff --git a/BLAS/SRC/dgbmv.f b/BLAS/SRC/dgbmv.f
index 3769e18b..29fb5434 100644
--- a/BLAS/SRC/dgbmv.f
+++ b/BLAS/SRC/dgbmv.f
@@ -85,7 +85,7 @@
*>
*> \param[in] A
*> \verbatim
-*> A is DOUBLE PRECISION array of DIMENSION ( LDA, n ).
+*> A is DOUBLE PRECISION array, dimension ( LDA, N )
*> Before entry, the leading ( kl + ku + 1 ) by n part of the
*> array A must contain the matrix of coefficients, supplied
*> column by column, with the leading diagonal of the matrix in
@@ -116,7 +116,7 @@
*>
*> \param[in] X
*> \verbatim
-*> X is DOUBLE PRECISION array of DIMENSION at least
+*> X is DOUBLE PRECISION array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCX ) ) when TRANS = 'N' or 'n'
*> and at least
*> ( 1 + ( m - 1 )*abs( INCX ) ) otherwise.
@@ -140,7 +140,7 @@
*>
*> \param[in,out] Y
*> \verbatim
-*> Y is DOUBLE PRECISION array of DIMENSION at least
+*> Y is DOUBLE PRECISION array, dimension at least
*> ( 1 + ( m - 1 )*abs( INCY ) ) when TRANS = 'N' or 'n'
*> and at least
*> ( 1 + ( n - 1 )*abs( INCY ) ) otherwise.
diff --git a/BLAS/SRC/dgemm.f b/BLAS/SRC/dgemm.f
index 5c5a2ac2..3a60ca4e 100644
--- a/BLAS/SRC/dgemm.f
+++ b/BLAS/SRC/dgemm.f
@@ -97,7 +97,7 @@
*>
*> \param[in] A
*> \verbatim
-*> A is DOUBLE PRECISION array of DIMENSION ( LDA, ka ), where ka is
+*> A is DOUBLE PRECISION array, dimension ( LDA, ka ), where ka is
*> k when TRANSA = 'N' or 'n', and is m otherwise.
*> Before entry with TRANSA = 'N' or 'n', the leading m by k
*> part of the array A must contain the matrix A, otherwise
@@ -116,7 +116,7 @@
*>
*> \param[in] B
*> \verbatim
-*> B is DOUBLE PRECISION array of DIMENSION ( LDB, kb ), where kb is
+*> B is DOUBLE PRECISION array, dimension ( LDB, kb ), where kb is
*> n when TRANSB = 'N' or 'n', and is k otherwise.
*> Before entry with TRANSB = 'N' or 'n', the leading k by n
*> part of the array B must contain the matrix B, otherwise
@@ -142,7 +142,7 @@
*>
*> \param[in,out] C
*> \verbatim
-*> C is DOUBLE PRECISION array of DIMENSION ( LDC, n ).
+*> C is DOUBLE PRECISION array, dimension ( LDC, N )
*> Before entry, the leading m by n part of the array C must
*> contain the matrix C, except when beta is zero, in which
*> case C need not be set on entry.
diff --git a/BLAS/SRC/dgemv.f b/BLAS/SRC/dgemv.f
index dd14c350..08e395b1 100644
--- a/BLAS/SRC/dgemv.f
+++ b/BLAS/SRC/dgemv.f
@@ -71,7 +71,7 @@
*>
*> \param[in] A
*> \verbatim
-*> A is DOUBLE PRECISION array of DIMENSION ( LDA, n ).
+*> A is DOUBLE PRECISION array, dimension ( LDA, N )
*> Before entry, the leading m by n part of the array A must
*> contain the matrix of coefficients.
*> \endverbatim
@@ -86,7 +86,7 @@
*>
*> \param[in] X
*> \verbatim
-*> X is DOUBLE PRECISION array of DIMENSION at least
+*> X is DOUBLE PRECISION array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCX ) ) when TRANS = 'N' or 'n'
*> and at least
*> ( 1 + ( m - 1 )*abs( INCX ) ) otherwise.
@@ -110,7 +110,7 @@
*>
*> \param[in,out] Y
*> \verbatim
-*> Y is DOUBLE PRECISION array of DIMENSION at least
+*> Y is DOUBLE PRECISION array, dimension at least
*> ( 1 + ( m - 1 )*abs( INCY ) ) when TRANS = 'N' or 'n'
*> and at least
*> ( 1 + ( n - 1 )*abs( INCY ) ) otherwise.
diff --git a/BLAS/SRC/dger.f b/BLAS/SRC/dger.f
index 289141e8..bdc8ef43 100644
--- a/BLAS/SRC/dger.f
+++ b/BLAS/SRC/dger.f
@@ -57,7 +57,7 @@
*>
*> \param[in] X
*> \verbatim
-*> X is DOUBLE PRECISION array of dimension at least
+*> X is DOUBLE PRECISION array, dimension at least
*> ( 1 + ( m - 1 )*abs( INCX ) ).
*> Before entry, the incremented array X must contain the m
*> element vector x.
@@ -72,7 +72,7 @@
*>
*> \param[in] Y
*> \verbatim
-*> Y is DOUBLE PRECISION array of dimension at least
+*> Y is DOUBLE PRECISION array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCY ) ).
*> Before entry, the incremented array Y must contain the n
*> element vector y.
@@ -87,7 +87,7 @@
*>
*> \param[in,out] A
*> \verbatim
-*> A is DOUBLE PRECISION array of DIMENSION ( LDA, n ).
+*> A is DOUBLE PRECISION array, dimension ( LDA, N )
*> Before entry, the leading m by n part of the array A must
*> contain the matrix of coefficients. On exit, A is
*> overwritten by the updated matrix.
diff --git a/BLAS/SRC/dsbmv.f b/BLAS/SRC/dsbmv.f
index aea12134..0f7c6940 100644
--- a/BLAS/SRC/dsbmv.f
+++ b/BLAS/SRC/dsbmv.f
@@ -72,7 +72,7 @@
*>
*> \param[in] A
*> \verbatim
-*> A is DOUBLE PRECISION array of DIMENSION ( LDA, n ).
+*> A is DOUBLE PRECISION array, dimension ( LDA, N )
*> Before entry with UPLO = 'U' or 'u', the leading ( k + 1 )
*> by n part of the array A must contain the upper triangular
*> band part of the symmetric matrix, supplied column by
@@ -120,7 +120,7 @@
*>
*> \param[in] X
*> \verbatim
-*> X is DOUBLE PRECISION array of DIMENSION at least
+*> X is DOUBLE PRECISION array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCX ) ).
*> Before entry, the incremented array X must contain the
*> vector x.
@@ -141,7 +141,7 @@
*>
*> \param[in,out] Y
*> \verbatim
-*> Y is DOUBLE PRECISION array of DIMENSION at least
+*> Y is DOUBLE PRECISION array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCY ) ).
*> Before entry, the incremented array Y must contain the
*> vector y. On exit, Y is overwritten by the updated vector y.
diff --git a/BLAS/SRC/dspmv.f b/BLAS/SRC/dspmv.f
index 72a28fed..6e26c0f4 100644
--- a/BLAS/SRC/dspmv.f
+++ b/BLAS/SRC/dspmv.f
@@ -65,7 +65,7 @@
*>
*> \param[in] AP
*> \verbatim
-*> AP is DOUBLE PRECISION array of DIMENSION at least
+*> AP is DOUBLE PRECISION array, dimension at least
*> ( ( n*( n + 1 ) )/2 ).
*> Before entry with UPLO = 'U' or 'u', the array AP must
*> contain the upper triangular part of the symmetric matrix
@@ -81,7 +81,7 @@
*>
*> \param[in] X
*> \verbatim
-*> X is DOUBLE PRECISION array of dimension at least
+*> X is DOUBLE PRECISION array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCX ) ).
*> Before entry, the incremented array X must contain the n
*> element vector x.
@@ -103,7 +103,7 @@
*>
*> \param[in,out] Y
*> \verbatim
-*> Y is DOUBLE PRECISION array of dimension at least
+*> Y is DOUBLE PRECISION array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCY ) ).
*> Before entry, the incremented array Y must contain the n
*> element vector y. On exit, Y is overwritten by the updated
diff --git a/BLAS/SRC/dspr.f b/BLAS/SRC/dspr.f
index e89f87d4..f9d709e2 100644
--- a/BLAS/SRC/dspr.f
+++ b/BLAS/SRC/dspr.f
@@ -65,7 +65,7 @@
*>
*> \param[in] X
*> \verbatim
-*> X is DOUBLE PRECISION array of dimension at least
+*> X is DOUBLE PRECISION array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCX ) ).
*> Before entry, the incremented array X must contain the n
*> element vector x.
@@ -80,7 +80,7 @@
*>
*> \param[in,out] AP
*> \verbatim
-*> AP is DOUBLE PRECISION array of DIMENSION at least
+*> AP is DOUBLE PRECISION array, dimension at least
*> ( ( n*( n + 1 ) )/2 ).
*> Before entry with UPLO = 'U' or 'u', the array AP must
*> contain the upper triangular part of the symmetric matrix
diff --git a/BLAS/SRC/dspr2.f b/BLAS/SRC/dspr2.f
index 4cd416f5..175d8e84 100644
--- a/BLAS/SRC/dspr2.f
+++ b/BLAS/SRC/dspr2.f
@@ -65,7 +65,7 @@
*>
*> \param[in] X
*> \verbatim
-*> X is DOUBLE PRECISION array of dimension at least
+*> X is DOUBLE PRECISION array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCX ) ).
*> Before entry, the incremented array X must contain the n
*> element vector x.
@@ -80,7 +80,7 @@
*>
*> \param[in] Y
*> \verbatim
-*> Y is DOUBLE PRECISION array of dimension at least
+*> Y is DOUBLE PRECISION array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCY ) ).
*> Before entry, the incremented array Y must contain the n
*> element vector y.
@@ -95,7 +95,7 @@
*>
*> \param[in,out] AP
*> \verbatim
-*> AP is DOUBLE PRECISION array of DIMENSION at least
+*> AP is DOUBLE PRECISION array, dimension at least
*> ( ( n*( n + 1 ) )/2 ).
*> Before entry with UPLO = 'U' or 'u', the array AP must
*> contain the upper triangular part of the symmetric matrix
diff --git a/BLAS/SRC/dsymm.f b/BLAS/SRC/dsymm.f
index 77c797ea..622d2469 100644
--- a/BLAS/SRC/dsymm.f
+++ b/BLAS/SRC/dsymm.f
@@ -87,7 +87,7 @@
*>
*> \param[in] A
*> \verbatim
-*> A is DOUBLE PRECISION array of DIMENSION ( LDA, ka ), where ka is
+*> A is DOUBLE PRECISION array, dimension ( LDA, ka ), where ka is
*> m when SIDE = 'L' or 'l' and is n otherwise.
*> Before entry with SIDE = 'L' or 'l', the m by m part of
*> the array A must contain the symmetric matrix, such that
@@ -122,7 +122,7 @@
*>
*> \param[in] B
*> \verbatim
-*> B is DOUBLE PRECISION array of DIMENSION ( LDB, n ).
+*> B is DOUBLE PRECISION array, dimension ( LDB, N )
*> Before entry, the leading m by n part of the array B must
*> contain the matrix B.
*> \endverbatim
@@ -144,7 +144,7 @@
*>
*> \param[in,out] C
*> \verbatim
-*> C is DOUBLE PRECISION array of DIMENSION ( LDC, n ).
+*> C is DOUBLE PRECISION array, dimension ( LDC, N )
*> Before entry, the leading m by n part of the array C must
*> contain the matrix C, except when beta is zero, in which
*> case C need not be set on entry.
diff --git a/BLAS/SRC/dsymv.f b/BLAS/SRC/dsymv.f
index af2dfd2a..4bf973f1 100644
--- a/BLAS/SRC/dsymv.f
+++ b/BLAS/SRC/dsymv.f
@@ -65,7 +65,7 @@
*>
*> \param[in] A
*> \verbatim
-*> A is DOUBLE PRECISION array of DIMENSION ( LDA, n ).
+*> A is DOUBLE PRECISION array, dimension ( LDA, N )
*> Before entry with UPLO = 'U' or 'u', the leading n by n
*> upper triangular part of the array A must contain the upper
*> triangular part of the symmetric matrix and the strictly
@@ -86,7 +86,7 @@
*>
*> \param[in] X
*> \verbatim
-*> X is DOUBLE PRECISION array of dimension at least
+*> X is DOUBLE PRECISION array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCX ) ).
*> Before entry, the incremented array X must contain the n
*> element vector x.
@@ -108,7 +108,7 @@
*>
*> \param[in,out] Y
*> \verbatim
-*> Y is DOUBLE PRECISION array of dimension at least
+*> Y is DOUBLE PRECISION array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCY ) ).
*> Before entry, the incremented array Y must contain the n
*> element vector y. On exit, Y is overwritten by the updated
diff --git a/BLAS/SRC/dsyr.f b/BLAS/SRC/dsyr.f
index c998ee82..7fe256fa 100644
--- a/BLAS/SRC/dsyr.f
+++ b/BLAS/SRC/dsyr.f
@@ -65,7 +65,7 @@
*>
*> \param[in] X
*> \verbatim
-*> X is DOUBLE PRECISION array of dimension at least
+*> X is DOUBLE PRECISION array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCX ) ).
*> Before entry, the incremented array X must contain the n
*> element vector x.
@@ -80,7 +80,7 @@
*>
*> \param[in,out] A
*> \verbatim
-*> A is DOUBLE PRECISION array of DIMENSION ( LDA, n ).
+*> A is DOUBLE PRECISION array, dimension ( LDA, N )
*> Before entry with UPLO = 'U' or 'u', the leading n by n
*> upper triangular part of the array A must contain the upper
*> triangular part of the symmetric matrix and the strictly
diff --git a/BLAS/SRC/dsyr2.f b/BLAS/SRC/dsyr2.f
index 8bfa5fe0..8970c4dc 100644
--- a/BLAS/SRC/dsyr2.f
+++ b/BLAS/SRC/dsyr2.f
@@ -65,7 +65,7 @@
*>
*> \param[in] X
*> \verbatim
-*> X is DOUBLE PRECISION array of dimension at least
+*> X is DOUBLE PRECISION array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCX ) ).
*> Before entry, the incremented array X must contain the n
*> element vector x.
@@ -80,7 +80,7 @@
*>
*> \param[in] Y
*> \verbatim
-*> Y is DOUBLE PRECISION array of dimension at least
+*> Y is DOUBLE PRECISION array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCY ) ).
*> Before entry, the incremented array Y must contain the n
*> element vector y.
@@ -95,7 +95,7 @@
*>
*> \param[in,out] A
*> \verbatim
-*> A is DOUBLE PRECISION array of DIMENSION ( LDA, n ).
+*> A is DOUBLE PRECISION array, dimension ( LDA, N )
*> Before entry with UPLO = 'U' or 'u', the leading n by n
*> upper triangular part of the array A must contain the upper
*> triangular part of the symmetric matrix and the strictly
diff --git a/BLAS/SRC/dsyr2k.f b/BLAS/SRC/dsyr2k.f
index 6dd7ca29..f3a5940c 100644
--- a/BLAS/SRC/dsyr2k.f
+++ b/BLAS/SRC/dsyr2k.f
@@ -95,7 +95,7 @@
*>
*> \param[in] A
*> \verbatim
-*> A is DOUBLE PRECISION array of DIMENSION ( LDA, ka ), where ka is
+*> A is DOUBLE PRECISION array, dimension ( LDA, ka ), where ka is
*> k when TRANS = 'N' or 'n', and is n otherwise.
*> Before entry with TRANS = 'N' or 'n', the leading n by k
*> part of the array A must contain the matrix A, otherwise
@@ -114,7 +114,7 @@
*>
*> \param[in] B
*> \verbatim
-*> B is DOUBLE PRECISION array of DIMENSION ( LDB, kb ), where kb is
+*> B is DOUBLE PRECISION array, dimension ( LDB, kb ), where kb is
*> k when TRANS = 'N' or 'n', and is n otherwise.
*> Before entry with TRANS = 'N' or 'n', the leading n by k
*> part of the array B must contain the matrix B, otherwise
@@ -139,7 +139,7 @@
*>
*> \param[in,out] C
*> \verbatim
-*> C is DOUBLE PRECISION array of DIMENSION ( LDC, n ).
+*> C is DOUBLE PRECISION array, dimension ( LDC, N )
*> Before entry with UPLO = 'U' or 'u', the leading n by n
*> upper triangular part of the array C must contain the upper
*> triangular part of the symmetric matrix and the strictly
diff --git a/BLAS/SRC/dsyrk.f b/BLAS/SRC/dsyrk.f
index bd70dfba..4be4d8d3 100644
--- a/BLAS/SRC/dsyrk.f
+++ b/BLAS/SRC/dsyrk.f
@@ -92,7 +92,7 @@
*>
*> \param[in] A
*> \verbatim
-*> A is DOUBLE PRECISION array of DIMENSION ( LDA, ka ), where ka is
+*> A is DOUBLE PRECISION array, dimension ( LDA, ka ), where ka is
*> k when TRANS = 'N' or 'n', and is n otherwise.
*> Before entry with TRANS = 'N' or 'n', the leading n by k
*> part of the array A must contain the matrix A, otherwise
@@ -117,7 +117,7 @@
*>
*> \param[in,out] C
*> \verbatim
-*> C is DOUBLE PRECISION array of DIMENSION ( LDC, n ).
+*> C is DOUBLE PRECISION array, dimension ( LDC, N )
*> Before entry with UPLO = 'U' or 'u', the leading n by n
*> upper triangular part of the array C must contain the upper
*> triangular part of the symmetric matrix and the strictly
diff --git a/BLAS/SRC/dtbmv.f b/BLAS/SRC/dtbmv.f
index 20dd83ea..e27d50f2 100644
--- a/BLAS/SRC/dtbmv.f
+++ b/BLAS/SRC/dtbmv.f
@@ -90,7 +90,7 @@
*>
*> \param[in] A
*> \verbatim
-*> A is DOUBLE PRECISION array of DIMENSION ( LDA, n ).
+*> A is DOUBLE PRECISION array, dimension ( LDA, N )
*> Before entry with UPLO = 'U' or 'u', the leading ( k + 1 )
*> by n part of the array A must contain the upper triangular
*> band part of the matrix of coefficients, supplied column by
@@ -142,7 +142,7 @@
*>
*> \param[in,out] X
*> \verbatim
-*> X is DOUBLE PRECISION array of dimension at least
+*> X is DOUBLE PRECISION array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCX ) ).
*> Before entry, the incremented array X must contain the n
*> element vector x. On exit, X is overwritten with the
diff --git a/BLAS/SRC/dtbsv.f b/BLAS/SRC/dtbsv.f
index ad468288..d8c6f144 100644
--- a/BLAS/SRC/dtbsv.f
+++ b/BLAS/SRC/dtbsv.f
@@ -94,7 +94,7 @@
*>
*> \param[in] A
*> \verbatim
-*> A is DOUBLE PRECISION array of DIMENSION ( LDA, n ).
+*> A is DOUBLE PRECISION array, dimension ( LDA, N )
*> Before entry with UPLO = 'U' or 'u', the leading ( k + 1 )
*> by n part of the array A must contain the upper triangular
*> band part of the matrix of coefficients, supplied column by
@@ -146,7 +146,7 @@
*>
*> \param[in,out] X
*> \verbatim
-*> X is DOUBLE PRECISION array of dimension at least
+*> X is DOUBLE PRECISION array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCX ) ).
*> Before entry, the incremented array X must contain the n
*> element right-hand side vector b. On exit, X is overwritten
diff --git a/BLAS/SRC/dtpmv.f b/BLAS/SRC/dtpmv.f
index 3b0e6209..bad91f32 100644
--- a/BLAS/SRC/dtpmv.f
+++ b/BLAS/SRC/dtpmv.f
@@ -80,7 +80,7 @@
*>
*> \param[in] AP
*> \verbatim
-*> AP is DOUBLE PRECISION array of DIMENSION at least
+*> AP is DOUBLE PRECISION array, dimension at least
*> ( ( n*( n + 1 ) )/2 ).
*> Before entry with UPLO = 'U' or 'u', the array AP must
*> contain the upper triangular matrix packed sequentially,
@@ -98,7 +98,7 @@
*>
*> \param[in,out] X
*> \verbatim
-*> X is DOUBLE PRECISION array of dimension at least
+*> X is DOUBLE PRECISION array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCX ) ).
*> Before entry, the incremented array X must contain the n
*> element vector x. On exit, X is overwritten with the
diff --git a/BLAS/SRC/dtpsv.f b/BLAS/SRC/dtpsv.f
index a5d9faa4..abcd0770 100644
--- a/BLAS/SRC/dtpsv.f
+++ b/BLAS/SRC/dtpsv.f
@@ -83,7 +83,7 @@
*>
*> \param[in] AP
*> \verbatim
-*> AP is DOUBLE PRECISION array of DIMENSION at least
+*> AP is DOUBLE PRECISION array, dimension at least
*> ( ( n*( n + 1 ) )/2 ).
*> Before entry with UPLO = 'U' or 'u', the array AP must
*> contain the upper triangular matrix packed sequentially,
@@ -101,7 +101,7 @@
*>
*> \param[in,out] X
*> \verbatim
-*> X is DOUBLE PRECISION array of dimension at least
+*> X is DOUBLE PRECISION array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCX ) ).
*> Before entry, the incremented array X must contain the n
*> element right-hand side vector b. On exit, X is overwritten
diff --git a/BLAS/SRC/dtrmm.f b/BLAS/SRC/dtrmm.f
index e315d596..0241c4d1 100644
--- a/BLAS/SRC/dtrmm.f
+++ b/BLAS/SRC/dtrmm.f
@@ -109,7 +109,7 @@
*>
*> \param[in] A
*> \verbatim
-*> A is DOUBLE PRECISION array of DIMENSION ( LDA, k ), where k is m
+*> A is DOUBLE PRECISION array, dimension ( LDA, k ), where k is m
*> when SIDE = 'L' or 'l' and is n when SIDE = 'R' or 'r'.
*> Before entry with UPLO = 'U' or 'u', the leading k by k
*> upper triangular part of the array A must contain the upper
@@ -134,7 +134,7 @@
*>
*> \param[in,out] B
*> \verbatim
-*> B is DOUBLE PRECISION array of DIMENSION ( LDB, n ).
+*> B is DOUBLE PRECISION array, dimension ( LDB, N )
*> Before entry, the leading m by n part of the array B must
*> contain the matrix B, and on exit is overwritten by the
*> transformed matrix.
diff --git a/BLAS/SRC/dtrmv.f b/BLAS/SRC/dtrmv.f
index 83959d06..11c12ac7 100644
--- a/BLAS/SRC/dtrmv.f
+++ b/BLAS/SRC/dtrmv.f
@@ -80,7 +80,7 @@
*>
*> \param[in] A
*> \verbatim
-*> A is DOUBLE PRECISION array of DIMENSION ( LDA, n ).
+*> A is DOUBLE PRECISION array, dimension ( LDA, N )
*> Before entry with UPLO = 'U' or 'u', the leading n by n
*> upper triangular part of the array A must contain the upper
*> triangular matrix and the strictly lower triangular part of
@@ -103,7 +103,7 @@
*>
*> \param[in,out] X
*> \verbatim
-*> X is DOUBLE PRECISION array of dimension at least
+*> X is DOUBLE PRECISION array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCX ) ).
*> Before entry, the incremented array X must contain the n
*> element vector x. On exit, X is overwritten with the
diff --git a/BLAS/SRC/dtrsm.f b/BLAS/SRC/dtrsm.f
index bc440f06..5a92bcaf 100644
--- a/BLAS/SRC/dtrsm.f
+++ b/BLAS/SRC/dtrsm.f
@@ -111,7 +111,7 @@
*>
*> \param[in] A
*> \verbatim
-*> A is DOUBLE PRECISION array of DIMENSION ( LDA, k ),
+*> A is DOUBLE PRECISION array, dimension ( LDA, k ),
*> where k is m when SIDE = 'L' or 'l'
*> and k is n when SIDE = 'R' or 'r'.
*> Before entry with UPLO = 'U' or 'u', the leading k by k
@@ -137,7 +137,7 @@
*>
*> \param[in,out] B
*> \verbatim
-*> B is DOUBLE PRECISION array of DIMENSION ( LDB, n ).
+*> B is DOUBLE PRECISION array, dimension ( LDB, N )
*> Before entry, the leading m by n part of the array B must
*> contain the right-hand side matrix B, and on exit is
*> overwritten by the solution matrix X.
diff --git a/BLAS/SRC/dtrsv.f b/BLAS/SRC/dtrsv.f
index cab3fd98..331f1d43 100644
--- a/BLAS/SRC/dtrsv.f
+++ b/BLAS/SRC/dtrsv.f
@@ -83,7 +83,7 @@
*>
*> \param[in] A
*> \verbatim
-*> A is DOUBLE PRECISION array of DIMENSION ( LDA, n ).
+*> A is DOUBLE PRECISION array, dimension ( LDA, N )
*> Before entry with UPLO = 'U' or 'u', the leading n by n
*> upper triangular part of the array A must contain the upper
*> triangular matrix and the strictly lower triangular part of
@@ -106,7 +106,7 @@
*>
*> \param[in,out] X
*> \verbatim
-*> X is DOUBLE PRECISION array of dimension at least
+*> X is DOUBLE PRECISION array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCX ) ).
*> Before entry, the incremented array X must contain the n
*> element right-hand side vector b. On exit, X is overwritten
diff --git a/BLAS/SRC/sgbmv.f b/BLAS/SRC/sgbmv.f
index 92896324..df13b588 100644
--- a/BLAS/SRC/sgbmv.f
+++ b/BLAS/SRC/sgbmv.f
@@ -85,7 +85,7 @@
*>
*> \param[in] A
*> \verbatim
-*> A is REAL array of DIMENSION ( LDA, n ).
+*> A is REAL array, dimension ( LDA, N )
*> Before entry, the leading ( kl + ku + 1 ) by n part of the
*> array A must contain the matrix of coefficients, supplied
*> column by column, with the leading diagonal of the matrix in
@@ -116,7 +116,7 @@
*>
*> \param[in] X
*> \verbatim
-*> X is REAL array of DIMENSION at least
+*> X is REAL array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCX ) ) when TRANS = 'N' or 'n'
*> and at least
*> ( 1 + ( m - 1 )*abs( INCX ) ) otherwise.
@@ -140,7 +140,7 @@
*>
*> \param[in,out] Y
*> \verbatim
-*> Y is REAL array of DIMENSION at least
+*> Y is REAL array, dimension at least
*> ( 1 + ( m - 1 )*abs( INCY ) ) when TRANS = 'N' or 'n'
*> and at least
*> ( 1 + ( n - 1 )*abs( INCY ) ) otherwise.
diff --git a/BLAS/SRC/sgemm.f b/BLAS/SRC/sgemm.f
index d7bdb9c4..ca2fb175 100644
--- a/BLAS/SRC/sgemm.f
+++ b/BLAS/SRC/sgemm.f
@@ -97,7 +97,7 @@
*>
*> \param[in] A
*> \verbatim
-*> A is REAL array of DIMENSION ( LDA, ka ), where ka is
+*> A is REAL array, dimension ( LDA, ka ), where ka is
*> k when TRANSA = 'N' or 'n', and is m otherwise.
*> Before entry with TRANSA = 'N' or 'n', the leading m by k
*> part of the array A must contain the matrix A, otherwise
@@ -116,7 +116,7 @@
*>
*> \param[in] B
*> \verbatim
-*> B is REAL array of DIMENSION ( LDB, kb ), where kb is
+*> B is REAL array, dimension ( LDB, kb ), where kb is
*> n when TRANSB = 'N' or 'n', and is k otherwise.
*> Before entry with TRANSB = 'N' or 'n', the leading k by n
*> part of the array B must contain the matrix B, otherwise
@@ -142,7 +142,7 @@
*>
*> \param[in,out] C
*> \verbatim
-*> C is REAL array of DIMENSION ( LDC, n ).
+*> C is REAL array, dimension ( LDC, N )
*> Before entry, the leading m by n part of the array C must
*> contain the matrix C, except when beta is zero, in which
*> case C need not be set on entry.
diff --git a/BLAS/SRC/sgemv.f b/BLAS/SRC/sgemv.f
index 0dfb1fc0..a7691386 100644
--- a/BLAS/SRC/sgemv.f
+++ b/BLAS/SRC/sgemv.f
@@ -71,7 +71,7 @@
*>
*> \param[in] A
*> \verbatim
-*> A is REAL array of DIMENSION ( LDA, n ).
+*> A is REAL array, dimension ( LDA, N )
*> Before entry, the leading m by n part of the array A must
*> contain the matrix of coefficients.
*> \endverbatim
@@ -86,7 +86,7 @@
*>
*> \param[in] X
*> \verbatim
-*> X is REAL array of DIMENSION at least
+*> X is REAL array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCX ) ) when TRANS = 'N' or 'n'
*> and at least
*> ( 1 + ( m - 1 )*abs( INCX ) ) otherwise.
@@ -110,7 +110,7 @@
*>
*> \param[in,out] Y
*> \verbatim
-*> Y is REAL array of DIMENSION at least
+*> Y is REAL array, dimension at least
*> ( 1 + ( m - 1 )*abs( INCY ) ) when TRANS = 'N' or 'n'
*> and at least
*> ( 1 + ( n - 1 )*abs( INCY ) ) otherwise.
diff --git a/BLAS/SRC/sger.f b/BLAS/SRC/sger.f
index c2a9958f..7dbff21d 100644
--- a/BLAS/SRC/sger.f
+++ b/BLAS/SRC/sger.f
@@ -57,7 +57,7 @@
*>
*> \param[in] X
*> \verbatim
-*> X is REAL array of dimension at least
+*> X is REAL array, dimension at least
*> ( 1 + ( m - 1 )*abs( INCX ) ).
*> Before entry, the incremented array X must contain the m
*> element vector x.
@@ -72,7 +72,7 @@
*>
*> \param[in] Y
*> \verbatim
-*> Y is REAL array of dimension at least
+*> Y is REAL array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCY ) ).
*> Before entry, the incremented array Y must contain the n
*> element vector y.
@@ -87,7 +87,7 @@
*>
*> \param[in,out] A
*> \verbatim
-*> A is REAL array of DIMENSION ( LDA, n ).
+*> A is REAL array, dimension ( LDA, N )
*> Before entry, the leading m by n part of the array A must
*> contain the matrix of coefficients. On exit, A is
*> overwritten by the updated matrix.
diff --git a/BLAS/SRC/ssbmv.f b/BLAS/SRC/ssbmv.f
index b711d8b0..f0e21005 100644
--- a/BLAS/SRC/ssbmv.f
+++ b/BLAS/SRC/ssbmv.f
@@ -72,7 +72,7 @@
*>
*> \param[in] A
*> \verbatim
-*> A is REAL array of DIMENSION ( LDA, n ).
+*> A is REAL array, dimension ( LDA, N )
*> Before entry with UPLO = 'U' or 'u', the leading ( k + 1 )
*> by n part of the array A must contain the upper triangular
*> band part of the symmetric matrix, supplied column by
@@ -120,7 +120,7 @@
*>
*> \param[in] X
*> \verbatim
-*> X is REAL array of DIMENSION at least
+*> X is REAL array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCX ) ).
*> Before entry, the incremented array X must contain the
*> vector x.
@@ -141,7 +141,7 @@
*>
*> \param[in,out] Y
*> \verbatim
-*> Y is REAL array of DIMENSION at least
+*> Y is REAL array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCY ) ).
*> Before entry, the incremented array Y must contain the
*> vector y. On exit, Y is overwritten by the updated vector y.
diff --git a/BLAS/SRC/sspmv.f b/BLAS/SRC/sspmv.f
index bc8af3d4..39fe2776 100644
--- a/BLAS/SRC/sspmv.f
+++ b/BLAS/SRC/sspmv.f
@@ -65,7 +65,7 @@
*>
*> \param[in] AP
*> \verbatim
-*> AP is REAL array of DIMENSION at least
+*> AP is REAL array, dimension at least
*> ( ( n*( n + 1 ) )/2 ).
*> Before entry with UPLO = 'U' or 'u', the array AP must
*> contain the upper triangular part of the symmetric matrix
@@ -81,7 +81,7 @@
*>
*> \param[in] X
*> \verbatim
-*> X is REAL array of dimension at least
+*> X is REAL array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCX ) ).
*> Before entry, the incremented array X must contain the n
*> element vector x.
@@ -103,7 +103,7 @@
*>
*> \param[in,out] Y
*> \verbatim
-*> Y is REAL array of dimension at least
+*> Y is REAL array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCY ) ).
*> Before entry, the incremented array Y must contain the n
*> element vector y. On exit, Y is overwritten by the updated
diff --git a/BLAS/SRC/sspr.f b/BLAS/SRC/sspr.f
index 52cb7317..79df3c28 100644
--- a/BLAS/SRC/sspr.f
+++ b/BLAS/SRC/sspr.f
@@ -65,7 +65,7 @@
*>
*> \param[in] X
*> \verbatim
-*> X is REAL array of dimension at least
+*> X is REAL array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCX ) ).
*> Before entry, the incremented array X must contain the n
*> element vector x.
@@ -80,7 +80,7 @@
*>
*> \param[in,out] AP
*> \verbatim
-*> AP is REAL array of DIMENSION at least
+*> AP is REAL array, dimension at least
*> ( ( n*( n + 1 ) )/2 ).
*> Before entry with UPLO = 'U' or 'u', the array AP must
*> contain the upper triangular part of the symmetric matrix
diff --git a/BLAS/SRC/sspr2.f b/BLAS/SRC/sspr2.f
index b4c81187..da33c6cd 100644
--- a/BLAS/SRC/sspr2.f
+++ b/BLAS/SRC/sspr2.f
@@ -65,7 +65,7 @@
*>
*> \param[in] X
*> \verbatim
-*> X is REAL array of dimension at least
+*> X is REAL array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCX ) ).
*> Before entry, the incremented array X must contain the n
*> element vector x.
@@ -80,7 +80,7 @@
*>
*> \param[in] Y
*> \verbatim
-*> Y is REAL array of dimension at least
+*> Y is REAL array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCY ) ).
*> Before entry, the incremented array Y must contain the n
*> element vector y.
@@ -95,7 +95,7 @@
*>
*> \param[in,out] AP
*> \verbatim
-*> AP is REAL array of DIMENSION at least
+*> AP is REAL array, dimension at least
*> ( ( n*( n + 1 ) )/2 ).
*> Before entry with UPLO = 'U' or 'u', the array AP must
*> contain the upper triangular part of the symmetric matrix
diff --git a/BLAS/SRC/ssymm.f b/BLAS/SRC/ssymm.f
index d3a193f7..6263c175 100644
--- a/BLAS/SRC/ssymm.f
+++ b/BLAS/SRC/ssymm.f
@@ -87,7 +87,7 @@
*>
*> \param[in] A
*> \verbatim
-*> A is REAL array of DIMENSION ( LDA, ka ), where ka is
+*> A is REAL array, dimension ( LDA, ka ), where ka is
*> m when SIDE = 'L' or 'l' and is n otherwise.
*> Before entry with SIDE = 'L' or 'l', the m by m part of
*> the array A must contain the symmetric matrix, such that
@@ -122,7 +122,7 @@
*>
*> \param[in] B
*> \verbatim
-*> B is REAL array of DIMENSION ( LDB, n ).
+*> B is REAL array, dimension ( LDB, N )
*> Before entry, the leading m by n part of the array B must
*> contain the matrix B.
*> \endverbatim
@@ -144,7 +144,7 @@
*>
*> \param[in,out] C
*> \verbatim
-*> C is REAL array of DIMENSION ( LDC, n ).
+*> C is REAL array, dimension ( LDC, N )
*> Before entry, the leading m by n part of the array C must
*> contain the matrix C, except when beta is zero, in which
*> case C need not be set on entry.
diff --git a/BLAS/SRC/ssymv.f b/BLAS/SRC/ssymv.f
index a1fa54f1..d3c4c38c 100644
--- a/BLAS/SRC/ssymv.f
+++ b/BLAS/SRC/ssymv.f
@@ -65,7 +65,7 @@
*>
*> \param[in] A
*> \verbatim
-*> A is REAL array of DIMENSION ( LDA, n ).
+*> A is REAL array, dimension ( LDA, N )
*> Before entry with UPLO = 'U' or 'u', the leading n by n
*> upper triangular part of the array A must contain the upper
*> triangular part of the symmetric matrix and the strictly
@@ -86,7 +86,7 @@
*>
*> \param[in] X
*> \verbatim
-*> X is REAL array of dimension at least
+*> X is REAL array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCX ) ).
*> Before entry, the incremented array X must contain the n
*> element vector x.
@@ -108,7 +108,7 @@
*>
*> \param[in,out] Y
*> \verbatim
-*> Y is REAL array of dimension at least
+*> Y is REAL array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCY ) ).
*> Before entry, the incremented array Y must contain the n
*> element vector y. On exit, Y is overwritten by the updated
diff --git a/BLAS/SRC/ssyr.f b/BLAS/SRC/ssyr.f
index 9d73f868..bdc39449 100644
--- a/BLAS/SRC/ssyr.f
+++ b/BLAS/SRC/ssyr.f
@@ -65,7 +65,7 @@
*>
*> \param[in] X
*> \verbatim
-*> X is REAL array of dimension at least
+*> X is REAL array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCX ) ).
*> Before entry, the incremented array X must contain the n
*> element vector x.
@@ -80,7 +80,7 @@
*>
*> \param[in,out] A
*> \verbatim
-*> A is REAL array of DIMENSION ( LDA, n ).
+*> A is REAL array, dimension ( LDA, N )
*> Before entry with UPLO = 'U' or 'u', the leading n by n
*> upper triangular part of the array A must contain the upper
*> triangular part of the symmetric matrix and the strictly
diff --git a/BLAS/SRC/ssyr2.f b/BLAS/SRC/ssyr2.f
index a2a083ad..d2dcf8d7 100644
--- a/BLAS/SRC/ssyr2.f
+++ b/BLAS/SRC/ssyr2.f
@@ -65,7 +65,7 @@
*>
*> \param[in] X
*> \verbatim
-*> X is REAL array of dimension at least
+*> X is REAL array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCX ) ).
*> Before entry, the incremented array X must contain the n
*> element vector x.
@@ -80,7 +80,7 @@
*>
*> \param[in] Y
*> \verbatim
-*> Y is REAL array of dimension at least
+*> Y is REAL array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCY ) ).
*> Before entry, the incremented array Y must contain the n
*> element vector y.
@@ -95,7 +95,7 @@
*>
*> \param[in,out] A
*> \verbatim
-*> A is REAL array of DIMENSION ( LDA, n ).
+*> A is REAL array, dimension ( LDA, N )
*> Before entry with UPLO = 'U' or 'u', the leading n by n
*> upper triangular part of the array A must contain the upper
*> triangular part of the symmetric matrix and the strictly
diff --git a/BLAS/SRC/ssyr2k.f b/BLAS/SRC/ssyr2k.f
index 4a705f79..b271fdcd 100644
--- a/BLAS/SRC/ssyr2k.f
+++ b/BLAS/SRC/ssyr2k.f
@@ -95,7 +95,7 @@
*>
*> \param[in] A
*> \verbatim
-*> A is REAL array of DIMENSION ( LDA, ka ), where ka is
+*> A is REAL array, dimension ( LDA, ka ), where ka is
*> k when TRANS = 'N' or 'n', and is n otherwise.
*> Before entry with TRANS = 'N' or 'n', the leading n by k
*> part of the array A must contain the matrix A, otherwise
@@ -114,7 +114,7 @@
*>
*> \param[in] B
*> \verbatim
-*> B is REAL array of DIMENSION ( LDB, kb ), where kb is
+*> B is REAL array, dimension ( LDB, kb ), where kb is
*> k when TRANS = 'N' or 'n', and is n otherwise.
*> Before entry with TRANS = 'N' or 'n', the leading n by k
*> part of the array B must contain the matrix B, otherwise
@@ -139,7 +139,7 @@
*>
*> \param[in,out] C
*> \verbatim
-*> C is REAL array of DIMENSION ( LDC, n ).
+*> C is REAL array, dimension ( LDC, N )
*> Before entry with UPLO = 'U' or 'u', the leading n by n
*> upper triangular part of the array C must contain the upper
*> triangular part of the symmetric matrix and the strictly
diff --git a/BLAS/SRC/ssyrk.f b/BLAS/SRC/ssyrk.f
index ecb1e4f1..abaddf99 100644
--- a/BLAS/SRC/ssyrk.f
+++ b/BLAS/SRC/ssyrk.f
@@ -92,7 +92,7 @@
*>
*> \param[in] A
*> \verbatim
-*> A is REAL array of DIMENSION ( LDA, ka ), where ka is
+*> A is REAL array, dimension ( LDA, ka ), where ka is
*> k when TRANS = 'N' or 'n', and is n otherwise.
*> Before entry with TRANS = 'N' or 'n', the leading n by k
*> part of the array A must contain the matrix A, otherwise
@@ -117,7 +117,7 @@
*>
*> \param[in,out] C
*> \verbatim
-*> C is REAL array of DIMENSION ( LDC, n ).
+*> C is REAL array, dimension ( LDC, N )
*> Before entry with UPLO = 'U' or 'u', the leading n by n
*> upper triangular part of the array C must contain the upper
*> triangular part of the symmetric matrix and the strictly
diff --git a/BLAS/SRC/stbmv.f b/BLAS/SRC/stbmv.f
index 4323864e..a714f205 100644
--- a/BLAS/SRC/stbmv.f
+++ b/BLAS/SRC/stbmv.f
@@ -90,7 +90,7 @@
*>
*> \param[in] A
*> \verbatim
-*> A is REAL array of DIMENSION ( LDA, n ).
+*> A is REAL array, dimension ( LDA, N )
*> Before entry with UPLO = 'U' or 'u', the leading ( k + 1 )
*> by n part of the array A must contain the upper triangular
*> band part of the matrix of coefficients, supplied column by
@@ -142,7 +142,7 @@
*>
*> \param[in,out] X
*> \verbatim
-*> X is REAL array of dimension at least
+*> X is REAL array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCX ) ).
*> Before entry, the incremented array X must contain the n
*> element vector x. On exit, X is overwritten with the
diff --git a/BLAS/SRC/stbsv.f b/BLAS/SRC/stbsv.f
index 00aaeba6..721b8049 100644
--- a/BLAS/SRC/stbsv.f
+++ b/BLAS/SRC/stbsv.f
@@ -94,7 +94,7 @@
*>
*> \param[in] A
*> \verbatim
-*> A is REAL array of DIMENSION ( LDA, n ).
+*> A is REAL array, dimension ( LDA, N )
*> Before entry with UPLO = 'U' or 'u', the leading ( k + 1 )
*> by n part of the array A must contain the upper triangular
*> band part of the matrix of coefficients, supplied column by
@@ -146,7 +146,7 @@
*>
*> \param[in,out] X
*> \verbatim
-*> X is REAL array of dimension at least
+*> X is REAL array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCX ) ).
*> Before entry, the incremented array X must contain the n
*> element right-hand side vector b. On exit, X is overwritten
diff --git a/BLAS/SRC/stpmv.f b/BLAS/SRC/stpmv.f
index 765e7f91..833f808b 100644
--- a/BLAS/SRC/stpmv.f
+++ b/BLAS/SRC/stpmv.f
@@ -80,7 +80,7 @@
*>
*> \param[in] AP
*> \verbatim
-*> AP is REAL array of DIMENSION at least
+*> AP is REAL array, dimension at least
*> ( ( n*( n + 1 ) )/2 ).
*> Before entry with UPLO = 'U' or 'u', the array AP must
*> contain the upper triangular matrix packed sequentially,
@@ -98,7 +98,7 @@
*>
*> \param[in,out] X
*> \verbatim
-*> X is REAL array of dimension at least
+*> X is REAL array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCX ) ).
*> Before entry, the incremented array X must contain the n
*> element vector x. On exit, X is overwritten with the
diff --git a/BLAS/SRC/stpsv.f b/BLAS/SRC/stpsv.f
index 5a29776d..fe1f4078 100644
--- a/BLAS/SRC/stpsv.f
+++ b/BLAS/SRC/stpsv.f
@@ -83,7 +83,7 @@
*>
*> \param[in] AP
*> \verbatim
-*> AP is REAL array of DIMENSION at least
+*> AP is REAL array, dimension at least
*> ( ( n*( n + 1 ) )/2 ).
*> Before entry with UPLO = 'U' or 'u', the array AP must
*> contain the upper triangular matrix packed sequentially,
@@ -101,7 +101,7 @@
*>
*> \param[in,out] X
*> \verbatim
-*> X is REAL array of dimension at least
+*> X is REAL array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCX ) ).
*> Before entry, the incremented array X must contain the n
*> element right-hand side vector b. On exit, X is overwritten
diff --git a/BLAS/SRC/strmm.f b/BLAS/SRC/strmm.f
index dd208721..e11330ae 100644
--- a/BLAS/SRC/strmm.f
+++ b/BLAS/SRC/strmm.f
@@ -109,7 +109,7 @@
*>
*> \param[in] A
*> \verbatim
-*> A is REAL array of DIMENSION ( LDA, k ), where k is m
+*> A is REAL array, dimension ( LDA, k ), where k is m
*> when SIDE = 'L' or 'l' and is n when SIDE = 'R' or 'r'.
*> Before entry with UPLO = 'U' or 'u', the leading k by k
*> upper triangular part of the array A must contain the upper
@@ -134,7 +134,7 @@
*>
*> \param[in,out] B
*> \verbatim
-*> B is REAL array of DIMENSION ( LDB, n ).
+*> B is REAL array, dimension ( LDB, N )
*> Before entry, the leading m by n part of the array B must
*> contain the matrix B, and on exit is overwritten by the
*> transformed matrix.
diff --git a/BLAS/SRC/strmv.f b/BLAS/SRC/strmv.f
index ba3d7b6a..e9f681e8 100644
--- a/BLAS/SRC/strmv.f
+++ b/BLAS/SRC/strmv.f
@@ -80,7 +80,7 @@
*>
*> \param[in] A
*> \verbatim
-*> A is REAL array of DIMENSION ( LDA, n ).
+*> A is REAL array, dimension ( LDA, N )
*> Before entry with UPLO = 'U' or 'u', the leading n by n
*> upper triangular part of the array A must contain the upper
*> triangular matrix and the strictly lower triangular part of
@@ -103,7 +103,7 @@
*>
*> \param[in,out] X
*> \verbatim
-*> X is REAL array of dimension at least
+*> X is REAL array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCX ) ).
*> Before entry, the incremented array X must contain the n
*> element vector x. On exit, X is overwritten with the
diff --git a/BLAS/SRC/strsm.f b/BLAS/SRC/strsm.f
index f2927fe3..aa805f6b 100644
--- a/BLAS/SRC/strsm.f
+++ b/BLAS/SRC/strsm.f
@@ -111,7 +111,7 @@
*>
*> \param[in] A
*> \verbatim
-*> A is REAL array of DIMENSION ( LDA, k ),
+*> A is REAL array, dimension ( LDA, k ),
*> where k is m when SIDE = 'L' or 'l'
*> and k is n when SIDE = 'R' or 'r'.
*> Before entry with UPLO = 'U' or 'u', the leading k by k
@@ -137,7 +137,7 @@
*>
*> \param[in,out] B
*> \verbatim
-*> B is REAL array of DIMENSION ( LDB, n ).
+*> B is REAL array, dimension ( LDB, N )
*> Before entry, the leading m by n part of the array B must
*> contain the right-hand side matrix B, and on exit is
*> overwritten by the solution matrix X.
diff --git a/BLAS/SRC/strsv.f b/BLAS/SRC/strsv.f
index a31651b9..d9e41e76 100644
--- a/BLAS/SRC/strsv.f
+++ b/BLAS/SRC/strsv.f
@@ -83,7 +83,7 @@
*>
*> \param[in] A
*> \verbatim
-*> A is REAL array of DIMENSION ( LDA, n ).
+*> A is REAL array, dimension ( LDA, N )
*> Before entry with UPLO = 'U' or 'u', the leading n by n
*> upper triangular part of the array A must contain the upper
*> triangular matrix and the strictly lower triangular part of
@@ -106,7 +106,7 @@
*>
*> \param[in,out] X
*> \verbatim
-*> X is REAL array of dimension at least
+*> X is REAL array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCX ) ).
*> Before entry, the incremented array X must contain the n
*> element right-hand side vector b. On exit, X is overwritten
diff --git a/BLAS/SRC/zgbmv.f b/BLAS/SRC/zgbmv.f
index f49da221..7303df87 100644
--- a/BLAS/SRC/zgbmv.f
+++ b/BLAS/SRC/zgbmv.f
@@ -87,7 +87,7 @@
*>
*> \param[in] A
*> \verbatim
-*> A is COMPLEX*16 array of DIMENSION ( LDA, n ).
+*> A is COMPLEX*16 array, dimension ( LDA, N )
*> Before entry, the leading ( kl + ku + 1 ) by n part of the
*> array A must contain the matrix of coefficients, supplied
*> column by column, with the leading diagonal of the matrix in
@@ -118,7 +118,7 @@
*>
*> \param[in] X
*> \verbatim
-*> X is COMPLEX*16 array of DIMENSION at least
+*> X is COMPLEX*16 array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCX ) ) when TRANS = 'N' or 'n'
*> and at least
*> ( 1 + ( m - 1 )*abs( INCX ) ) otherwise.
@@ -142,7 +142,7 @@
*>
*> \param[in,out] Y
*> \verbatim
-*> Y is COMPLEX*16 array of DIMENSION at least
+*> Y is COMPLEX*16 array, dimension at least
*> ( 1 + ( m - 1 )*abs( INCY ) ) when TRANS = 'N' or 'n'
*> and at least
*> ( 1 + ( n - 1 )*abs( INCY ) ) otherwise.
diff --git a/BLAS/SRC/zgemm.f b/BLAS/SRC/zgemm.f
index a1726321..c3ac7551 100644
--- a/BLAS/SRC/zgemm.f
+++ b/BLAS/SRC/zgemm.f
@@ -97,7 +97,7 @@
*>
*> \param[in] A
*> \verbatim
-*> A is COMPLEX*16 array of DIMENSION ( LDA, ka ), where ka is
+*> A is COMPLEX*16 array, dimension ( LDA, ka ), where ka is
*> k when TRANSA = 'N' or 'n', and is m otherwise.
*> Before entry with TRANSA = 'N' or 'n', the leading m by k
*> part of the array A must contain the matrix A, otherwise
@@ -116,7 +116,7 @@
*>
*> \param[in] B
*> \verbatim
-*> B is COMPLEX*16 array of DIMENSION ( LDB, kb ), where kb is
+*> B is COMPLEX*16 array, dimension ( LDB, kb ), where kb is
*> n when TRANSB = 'N' or 'n', and is k otherwise.
*> Before entry with TRANSB = 'N' or 'n', the leading k by n
*> part of the array B must contain the matrix B, otherwise
@@ -142,7 +142,7 @@
*>
*> \param[in,out] C
*> \verbatim
-*> C is COMPLEX*16 array of DIMENSION ( LDC, n ).
+*> C is COMPLEX*16 array, dimension ( LDC, N )
*> Before entry, the leading m by n part of the array C must
*> contain the matrix C, except when beta is zero, in which
*> case C need not be set on entry.
diff --git a/BLAS/SRC/zgemv.f b/BLAS/SRC/zgemv.f
index 01e44d46..7088d383 100644
--- a/BLAS/SRC/zgemv.f
+++ b/BLAS/SRC/zgemv.f
@@ -73,7 +73,7 @@
*>
*> \param[in] A
*> \verbatim
-*> A is COMPLEX*16 array of DIMENSION ( LDA, n ).
+*> A is COMPLEX*16 array, dimension ( LDA, N )
*> Before entry, the leading m by n part of the array A must
*> contain the matrix of coefficients.
*> \endverbatim
@@ -88,7 +88,7 @@
*>
*> \param[in] X
*> \verbatim
-*> X is COMPLEX*16 array of DIMENSION at least
+*> X is COMPLEX*16 array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCX ) ) when TRANS = 'N' or 'n'
*> and at least
*> ( 1 + ( m - 1 )*abs( INCX ) ) otherwise.
@@ -112,7 +112,7 @@
*>
*> \param[in,out] Y
*> \verbatim
-*> Y is COMPLEX*16 array of DIMENSION at least
+*> Y is COMPLEX*16 array, dimension at least
*> ( 1 + ( m - 1 )*abs( INCY ) ) when TRANS = 'N' or 'n'
*> and at least
*> ( 1 + ( n - 1 )*abs( INCY ) ) otherwise.
diff --git a/BLAS/SRC/zgerc.f b/BLAS/SRC/zgerc.f
index cf8e17d3..058dccfc 100644
--- a/BLAS/SRC/zgerc.f
+++ b/BLAS/SRC/zgerc.f
@@ -57,7 +57,7 @@
*>
*> \param[in] X
*> \verbatim
-*> X is COMPLEX*16 array of dimension at least
+*> X is COMPLEX*16 array, dimension at least
*> ( 1 + ( m - 1 )*abs( INCX ) ).
*> Before entry, the incremented array X must contain the m
*> element vector x.
@@ -72,7 +72,7 @@
*>
*> \param[in] Y
*> \verbatim
-*> Y is COMPLEX*16 array of dimension at least
+*> Y is COMPLEX*16 array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCY ) ).
*> Before entry, the incremented array Y must contain the n
*> element vector y.
@@ -87,7 +87,7 @@
*>
*> \param[in,out] A
*> \verbatim
-*> A is COMPLEX*16 array of DIMENSION ( LDA, n ).
+*> A is COMPLEX*16 array, dimension ( LDA, N )
*> Before entry, the leading m by n part of the array A must
*> contain the matrix of coefficients. On exit, A is
*> overwritten by the updated matrix.
diff --git a/BLAS/SRC/zgeru.f b/BLAS/SRC/zgeru.f
index d191740c..683a778d 100644
--- a/BLAS/SRC/zgeru.f
+++ b/BLAS/SRC/zgeru.f
@@ -57,7 +57,7 @@
*>
*> \param[in] X
*> \verbatim
-*> X is COMPLEX*16 array of dimension at least
+*> X is COMPLEX*16 array, dimension at least
*> ( 1 + ( m - 1 )*abs( INCX ) ).
*> Before entry, the incremented array X must contain the m
*> element vector x.
@@ -72,7 +72,7 @@
*>
*> \param[in] Y
*> \verbatim
-*> Y is COMPLEX*16 array of dimension at least
+*> Y is COMPLEX*16 array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCY ) ).
*> Before entry, the incremented array Y must contain the n
*> element vector y.
@@ -87,7 +87,7 @@
*>
*> \param[in,out] A
*> \verbatim
-*> A is COMPLEX*16 array of DIMENSION ( LDA, n ).
+*> A is COMPLEX*16 array, dimension ( LDA, N )
*> Before entry, the leading m by n part of the array A must
*> contain the matrix of coefficients. On exit, A is
*> overwritten by the updated matrix.
diff --git a/BLAS/SRC/zhbmv.f b/BLAS/SRC/zhbmv.f
index 87422152..19d8f7d4 100644
--- a/BLAS/SRC/zhbmv.f
+++ b/BLAS/SRC/zhbmv.f
@@ -72,7 +72,7 @@
*>
*> \param[in] A
*> \verbatim
-*> A is COMPLEX*16 array of DIMENSION ( LDA, n ).
+*> A is COMPLEX*16 array, dimension ( LDA, N )
*> Before entry with UPLO = 'U' or 'u', the leading ( k + 1 )
*> by n part of the array A must contain the upper triangular
*> band part of the hermitian matrix, supplied column by
@@ -123,7 +123,7 @@
*>
*> \param[in] X
*> \verbatim
-*> X is COMPLEX*16 array of DIMENSION at least
+*> X is COMPLEX*16 array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCX ) ).
*> Before entry, the incremented array X must contain the
*> vector x.
@@ -144,7 +144,7 @@
*>
*> \param[in,out] Y
*> \verbatim
-*> Y is COMPLEX*16 array of DIMENSION at least
+*> Y is COMPLEX*16 array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCY ) ).
*> Before entry, the incremented array Y must contain the
*> vector y. On exit, Y is overwritten by the updated vector y.
diff --git a/BLAS/SRC/zhemm.f b/BLAS/SRC/zhemm.f
index 45a5eabd..d63778b7 100644
--- a/BLAS/SRC/zhemm.f
+++ b/BLAS/SRC/zhemm.f
@@ -87,7 +87,7 @@
*>
*> \param[in] A
*> \verbatim
-*> A is COMPLEX*16 array of DIMENSION ( LDA, ka ), where ka is
+*> A is COMPLEX*16 array, dimension ( LDA, ka ), where ka is
*> m when SIDE = 'L' or 'l' and is n otherwise.
*> Before entry with SIDE = 'L' or 'l', the m by m part of
*> the array A must contain the hermitian matrix, such that
@@ -124,7 +124,7 @@
*>
*> \param[in] B
*> \verbatim
-*> B is COMPLEX*16 array of DIMENSION ( LDB, n ).
+*> B is COMPLEX*16 array, dimension ( LDB, N )
*> Before entry, the leading m by n part of the array B must
*> contain the matrix B.
*> \endverbatim
@@ -146,7 +146,7 @@
*>
*> \param[in,out] C
*> \verbatim
-*> C is COMPLEX*16 array of DIMENSION ( LDC, n ).
+*> C is COMPLEX*16 array, dimension ( LDC, N )
*> Before entry, the leading m by n part of the array C must
*> contain the matrix C, except when beta is zero, in which
*> case C need not be set on entry.
diff --git a/BLAS/SRC/zhemv.f b/BLAS/SRC/zhemv.f
index 37917459..3ea0753f 100644
--- a/BLAS/SRC/zhemv.f
+++ b/BLAS/SRC/zhemv.f
@@ -65,7 +65,7 @@
*>
*> \param[in] A
*> \verbatim
-*> A is COMPLEX*16 array of DIMENSION ( LDA, n ).
+*> A is COMPLEX*16 array, dimension ( LDA, N )
*> Before entry with UPLO = 'U' or 'u', the leading n by n
*> upper triangular part of the array A must contain the upper
*> triangular part of the hermitian matrix and the strictly
@@ -88,7 +88,7 @@
*>
*> \param[in] X
*> \verbatim
-*> X is COMPLEX*16 array of dimension at least
+*> X is COMPLEX*16 array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCX ) ).
*> Before entry, the incremented array X must contain the n
*> element vector x.
@@ -110,7 +110,7 @@
*>
*> \param[in,out] Y
*> \verbatim
-*> Y is COMPLEX*16 array of dimension at least
+*> Y is COMPLEX*16 array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCY ) ).
*> Before entry, the incremented array Y must contain the n
*> element vector y. On exit, Y is overwritten by the updated
diff --git a/BLAS/SRC/zher.f b/BLAS/SRC/zher.f
index f7def760..5e0c8963 100644
--- a/BLAS/SRC/zher.f
+++ b/BLAS/SRC/zher.f
@@ -65,7 +65,7 @@
*>
*> \param[in] X
*> \verbatim
-*> X is COMPLEX*16 array of dimension at least
+*> X is COMPLEX*16 array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCX ) ).
*> Before entry, the incremented array X must contain the n
*> element vector x.
@@ -80,7 +80,7 @@
*>
*> \param[in,out] A
*> \verbatim
-*> A is COMPLEX*16 array of DIMENSION ( LDA, n ).
+*> A is COMPLEX*16 array, dimension ( LDA, N )
*> Before entry with UPLO = 'U' or 'u', the leading n by n
*> upper triangular part of the array A must contain the upper
*> triangular part of the hermitian matrix and the strictly
diff --git a/BLAS/SRC/zher2.f b/BLAS/SRC/zher2.f
index 94c132c4..e3a38318 100644
--- a/BLAS/SRC/zher2.f
+++ b/BLAS/SRC/zher2.f
@@ -65,7 +65,7 @@
*>
*> \param[in] X
*> \verbatim
-*> X is COMPLEX*16 array of dimension at least
+*> X is COMPLEX*16 array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCX ) ).
*> Before entry, the incremented array X must contain the n
*> element vector x.
@@ -80,7 +80,7 @@
*>
*> \param[in] Y
*> \verbatim
-*> Y is COMPLEX*16 array of dimension at least
+*> Y is COMPLEX*16 array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCY ) ).
*> Before entry, the incremented array Y must contain the n
*> element vector y.
@@ -95,7 +95,7 @@
*>
*> \param[in,out] A
*> \verbatim
-*> A is COMPLEX*16 array of DIMENSION ( LDA, n ).
+*> A is COMPLEX*16 array, dimension ( LDA, N )
*> Before entry with UPLO = 'U' or 'u', the leading n by n
*> upper triangular part of the array A must contain the upper
*> triangular part of the hermitian matrix and the strictly
diff --git a/BLAS/SRC/zher2k.f b/BLAS/SRC/zher2k.f
index 407e8db5..474c65e5 100644
--- a/BLAS/SRC/zher2k.f
+++ b/BLAS/SRC/zher2k.f
@@ -95,7 +95,7 @@
*>
*> \param[in] A
*> \verbatim
-*> A is COMPLEX*16 array of DIMENSION ( LDA, ka ), where ka is
+*> A is COMPLEX*16 array, dimension ( LDA, ka ), where ka is
*> k when TRANS = 'N' or 'n', and is n otherwise.
*> Before entry with TRANS = 'N' or 'n', the leading n by k
*> part of the array A must contain the matrix A, otherwise
@@ -114,7 +114,7 @@
*>
*> \param[in] B
*> \verbatim
-*> B is COMPLEX*16 array of DIMENSION ( LDB, kb ), where kb is
+*> B is COMPLEX*16 array, dimension ( LDB, kb ), where kb is
*> k when TRANS = 'N' or 'n', and is n otherwise.
*> Before entry with TRANS = 'N' or 'n', the leading n by k
*> part of the array B must contain the matrix B, otherwise
@@ -140,7 +140,7 @@
*>
*> \param[in,out] C
*> \verbatim
-*> C is COMPLEX*16 array of DIMENSION ( LDC, n ).
+*> C is COMPLEX*16 array, dimension ( LDC, N )
*> Before entry with UPLO = 'U' or 'u', the leading n by n
*> upper triangular part of the array C must contain the upper
*> triangular part of the hermitian matrix and the strictly
diff --git a/BLAS/SRC/zherk.f b/BLAS/SRC/zherk.f
index d181ca0a..0d11f227 100644
--- a/BLAS/SRC/zherk.f
+++ b/BLAS/SRC/zherk.f
@@ -90,7 +90,7 @@
*>
*> \param[in] A
*> \verbatim
-*> A is COMPLEX*16 array of DIMENSION ( LDA, ka ), where ka is
+*> A is COMPLEX*16 array, dimension ( LDA, ka ), where ka is
*> k when TRANS = 'N' or 'n', and is n otherwise.
*> Before entry with TRANS = 'N' or 'n', the leading n by k
*> part of the array A must contain the matrix A, otherwise
@@ -115,7 +115,7 @@
*>
*> \param[in,out] C
*> \verbatim
-*> C is COMPLEX*16 array of DIMENSION ( LDC, n ).
+*> C is COMPLEX*16 array, dimension ( LDC, N )
*> Before entry with UPLO = 'U' or 'u', the leading n by n
*> upper triangular part of the array C must contain the upper
*> triangular part of the hermitian matrix and the strictly
diff --git a/BLAS/SRC/zhpmv.f b/BLAS/SRC/zhpmv.f
index 0d5d325b..9bd3ea45 100644
--- a/BLAS/SRC/zhpmv.f
+++ b/BLAS/SRC/zhpmv.f
@@ -65,7 +65,7 @@
*>
*> \param[in] AP
*> \verbatim
-*> AP is COMPLEX*16 array of DIMENSION at least
+*> AP is COMPLEX*16 array, dimension at least
*> ( ( n*( n + 1 ) )/2 ).
*> Before entry with UPLO = 'U' or 'u', the array AP must
*> contain the upper triangular part of the hermitian matrix
@@ -83,7 +83,7 @@
*>
*> \param[in] X
*> \verbatim
-*> X is COMPLEX*16 array of dimension at least
+*> X is COMPLEX*16 array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCX ) ).
*> Before entry, the incremented array X must contain the n
*> element vector x.
@@ -105,7 +105,7 @@
*>
*> \param[in,out] Y
*> \verbatim
-*> Y is COMPLEX*16 array of dimension at least
+*> Y is COMPLEX*16 array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCY ) ).
*> Before entry, the incremented array Y must contain the n
*> element vector y. On exit, Y is overwritten by the updated
diff --git a/BLAS/SRC/zhpr.f b/BLAS/SRC/zhpr.f
index 70051c8a..af82dfbd 100644
--- a/BLAS/SRC/zhpr.f
+++ b/BLAS/SRC/zhpr.f
@@ -65,7 +65,7 @@
*>
*> \param[in] X
*> \verbatim
-*> X is COMPLEX*16 array of dimension at least
+*> X is COMPLEX*16 array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCX ) ).
*> Before entry, the incremented array X must contain the n
*> element vector x.
@@ -80,7 +80,7 @@
*>
*> \param[in,out] AP
*> \verbatim
-*> AP is COMPLEX*16 array of DIMENSION at least
+*> AP is COMPLEX*16 array, dimension at least
*> ( ( n*( n + 1 ) )/2 ).
*> Before entry with UPLO = 'U' or 'u', the array AP must
*> contain the upper triangular part of the hermitian matrix
diff --git a/BLAS/SRC/zhpr2.f b/BLAS/SRC/zhpr2.f
index c9fb7585..1b0fd3aa 100644
--- a/BLAS/SRC/zhpr2.f
+++ b/BLAS/SRC/zhpr2.f
@@ -65,7 +65,7 @@
*>
*> \param[in] X
*> \verbatim
-*> X is COMPLEX*16 array of dimension at least
+*> X is COMPLEX*16 array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCX ) ).
*> Before entry, the incremented array X must contain the n
*> element vector x.
@@ -80,7 +80,7 @@
*>
*> \param[in] Y
*> \verbatim
-*> Y is COMPLEX*16 array of dimension at least
+*> Y is COMPLEX*16 array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCY ) ).
*> Before entry, the incremented array Y must contain the n
*> element vector y.
@@ -95,7 +95,7 @@
*>
*> \param[in,out] AP
*> \verbatim
-*> AP is COMPLEX*16 array of DIMENSION at least
+*> AP is COMPLEX*16 array, dimension at least
*> ( ( n*( n + 1 ) )/2 ).
*> Before entry with UPLO = 'U' or 'u', the array AP must
*> contain the upper triangular part of the hermitian matrix
diff --git a/BLAS/SRC/zsymm.f b/BLAS/SRC/zsymm.f
index 1dc267a7..bd37934a 100644
--- a/BLAS/SRC/zsymm.f
+++ b/BLAS/SRC/zsymm.f
@@ -87,7 +87,7 @@
*>
*> \param[in] A
*> \verbatim
-*> A is COMPLEX*16 array of DIMENSION ( LDA, ka ), where ka is
+*> A is COMPLEX*16 array, dimension ( LDA, ka ), where ka is
*> m when SIDE = 'L' or 'l' and is n otherwise.
*> Before entry with SIDE = 'L' or 'l', the m by m part of
*> the array A must contain the symmetric matrix, such that
@@ -122,7 +122,7 @@
*>
*> \param[in] B
*> \verbatim
-*> B is COMPLEX*16 array of DIMENSION ( LDB, n ).
+*> B is COMPLEX*16 array, dimension ( LDB, N )
*> Before entry, the leading m by n part of the array B must
*> contain the matrix B.
*> \endverbatim
@@ -144,7 +144,7 @@
*>
*> \param[in,out] C
*> \verbatim
-*> C is COMPLEX*16 array of DIMENSION ( LDC, n ).
+*> C is COMPLEX*16 array, dimension ( LDC, N )
*> Before entry, the leading m by n part of the array C must
*> contain the matrix C, except when beta is zero, in which
*> case C need not be set on entry.
diff --git a/BLAS/SRC/zsyr2k.f b/BLAS/SRC/zsyr2k.f
index d358ed00..92bbfeeb 100644
--- a/BLAS/SRC/zsyr2k.f
+++ b/BLAS/SRC/zsyr2k.f
@@ -92,7 +92,7 @@
*>
*> \param[in] A
*> \verbatim
-*> A is COMPLEX*16 array of DIMENSION ( LDA, ka ), where ka is
+*> A is COMPLEX*16 array, dimension ( LDA, ka ), where ka is
*> k when TRANS = 'N' or 'n', and is n otherwise.
*> Before entry with TRANS = 'N' or 'n', the leading n by k
*> part of the array A must contain the matrix A, otherwise
@@ -111,7 +111,7 @@
*>
*> \param[in] B
*> \verbatim
-*> B is COMPLEX*16 array of DIMENSION ( LDB, kb ), where kb is
+*> B is COMPLEX*16 array, dimension ( LDB, kb ), where kb is
*> k when TRANS = 'N' or 'n', and is n otherwise.
*> Before entry with TRANS = 'N' or 'n', the leading n by k
*> part of the array B must contain the matrix B, otherwise
@@ -136,7 +136,7 @@
*>
*> \param[in,out] C
*> \verbatim
-*> C is COMPLEX*16 array of DIMENSION ( LDC, n ).
+*> C is COMPLEX*16 array, dimension ( LDC, N )
*> Before entry with UPLO = 'U' or 'u', the leading n by n
*> upper triangular part of the array C must contain the upper
*> triangular part of the symmetric matrix and the strictly
diff --git a/BLAS/SRC/zsyrk.f b/BLAS/SRC/zsyrk.f
index 79591b45..122539f5 100644
--- a/BLAS/SRC/zsyrk.f
+++ b/BLAS/SRC/zsyrk.f
@@ -90,7 +90,7 @@
*>
*> \param[in] A
*> \verbatim
-*> A is COMPLEX*16 array of DIMENSION ( LDA, ka ), where ka is
+*> A is COMPLEX*16 array, dimension ( LDA, ka ), where ka is
*> k when TRANS = 'N' or 'n', and is n otherwise.
*> Before entry with TRANS = 'N' or 'n', the leading n by k
*> part of the array A must contain the matrix A, otherwise
@@ -115,7 +115,7 @@
*>
*> \param[in,out] C
*> \verbatim
-*> C is COMPLEX*16 array of DIMENSION ( LDC, n ).
+*> C is COMPLEX*16 array, dimension ( LDC, N )
*> Before entry with UPLO = 'U' or 'u', the leading n by n
*> upper triangular part of the array C must contain the upper
*> triangular part of the symmetric matrix and the strictly
diff --git a/BLAS/SRC/ztbmv.f b/BLAS/SRC/ztbmv.f
index 1e03f2ba..a4d9c2ed 100644
--- a/BLAS/SRC/ztbmv.f
+++ b/BLAS/SRC/ztbmv.f
@@ -90,7 +90,7 @@
*>
*> \param[in] A
*> \verbatim
-*> A is COMPLEX*16 array of DIMENSION ( LDA, n ).
+*> A is COMPLEX*16 array, dimension ( LDA, N ).
*> Before entry with UPLO = 'U' or 'u', the leading ( k + 1 )
*> by n part of the array A must contain the upper triangular
*> band part of the matrix of coefficients, supplied column by
@@ -140,9 +140,9 @@
*> ( k + 1 ).
*> \endverbatim
*>
-*> \param[in] X
+*> \param[in,out] X
*> \verbatim
-*> X is (input/output) COMPLEX*16 array of dimension at least
+*> X is COMPLEX*16 array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCX ) ).
*> Before entry, the incremented array X must contain the n
*> element vector x. On exit, X is overwritten with the
diff --git a/BLAS/SRC/ztbsv.f b/BLAS/SRC/ztbsv.f
index 50c4bb42..eaf85004 100644
--- a/BLAS/SRC/ztbsv.f
+++ b/BLAS/SRC/ztbsv.f
@@ -94,7 +94,7 @@
*>
*> \param[in] A
*> \verbatim
-*> A is COMPLEX*16 array of DIMENSION ( LDA, n ).
+*> A is COMPLEX*16 array, dimension ( LDA, N )
*> Before entry with UPLO = 'U' or 'u', the leading ( k + 1 )
*> by n part of the array A must contain the upper triangular
*> band part of the matrix of coefficients, supplied column by
@@ -146,7 +146,7 @@
*>
*> \param[in,out] X
*> \verbatim
-*> X is COMPLEX*16 array of dimension at least
+*> X is COMPLEX*16 array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCX ) ).
*> Before entry, the incremented array X must contain the n
*> element right-hand side vector b. On exit, X is overwritten
diff --git a/BLAS/SRC/ztpmv.f b/BLAS/SRC/ztpmv.f
index d9aae425..65aa2a0a 100644
--- a/BLAS/SRC/ztpmv.f
+++ b/BLAS/SRC/ztpmv.f
@@ -80,7 +80,7 @@
*>
*> \param[in] AP
*> \verbatim
-*> AP is COMPLEX*16 array of DIMENSION at least
+*> AP is COMPLEX*16 array, dimension at least
*> ( ( n*( n + 1 ) )/2 ).
*> Before entry with UPLO = 'U' or 'u', the array AP must
*> contain the upper triangular matrix packed sequentially,
@@ -96,9 +96,9 @@
*> A are not referenced, but are assumed to be unity.
*> \endverbatim
*>
-*> \param[in] X
+*> \param[in,out] X
*> \verbatim
-*> X is (input/output) COMPLEX*16 array of dimension at least
+*> X is COMPLEX*16 array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCX ) ).
*> Before entry, the incremented array X must contain the n
*> element vector x. On exit, X is overwritten with the
diff --git a/BLAS/SRC/ztpsv.f b/BLAS/SRC/ztpsv.f
index 5874fdc4..53888842 100644
--- a/BLAS/SRC/ztpsv.f
+++ b/BLAS/SRC/ztpsv.f
@@ -83,7 +83,7 @@
*>
*> \param[in] AP
*> \verbatim
-*> AP is COMPLEX*16 array of DIMENSION at least
+*> AP is COMPLEX*16 array, dimension at least
*> ( ( n*( n + 1 ) )/2 ).
*> Before entry with UPLO = 'U' or 'u', the array AP must
*> contain the upper triangular matrix packed sequentially,
@@ -101,7 +101,7 @@
*>
*> \param[in,out] X
*> \verbatim
-*> X is COMPLEX*16 array of dimension at least
+*> X is COMPLEX*16 array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCX ) ).
*> Before entry, the incremented array X must contain the n
*> element right-hand side vector b. On exit, X is overwritten
diff --git a/BLAS/SRC/ztrmm.f b/BLAS/SRC/ztrmm.f
index 229f3322..0f445f52 100644
--- a/BLAS/SRC/ztrmm.f
+++ b/BLAS/SRC/ztrmm.f
@@ -109,7 +109,7 @@
*>
*> \param[in] A
*> \verbatim
-*> A is COMPLEX*16 array of DIMENSION ( LDA, k ), where k is m
+*> A is COMPLEX*16 array, dimension ( LDA, k ), where k is m
*> when SIDE = 'L' or 'l' and is n when SIDE = 'R' or 'r'.
*> Before entry with UPLO = 'U' or 'u', the leading k by k
*> upper triangular part of the array A must contain the upper
@@ -132,9 +132,9 @@
*> then LDA must be at least max( 1, n ).
*> \endverbatim
*>
-*> \param[in] B
+*> \param[in,out] B
*> \verbatim
-*> B is (input/output) COMPLEX*16 array of DIMENSION ( LDB, n ).
+*> B is COMPLEX*16 array, dimension ( LDB, N ).
*> Before entry, the leading m by n part of the array B must
*> contain the matrix B, and on exit is overwritten by the
*> transformed matrix.
diff --git a/BLAS/SRC/ztrmv.f b/BLAS/SRC/ztrmv.f
index ab9065cf..52d1ae67 100644
--- a/BLAS/SRC/ztrmv.f
+++ b/BLAS/SRC/ztrmv.f
@@ -80,7 +80,7 @@
*>
*> \param[in] A
*> \verbatim
-*> A is COMPLEX*16 array of DIMENSION ( LDA, n ).
+*> A is COMPLEX*16 array, dimension ( LDA, N ).
*> Before entry with UPLO = 'U' or 'u', the leading n by n
*> upper triangular part of the array A must contain the upper
*> triangular matrix and the strictly lower triangular part of
@@ -101,9 +101,9 @@
*> max( 1, n ).
*> \endverbatim
*>
-*> \param[in] X
+*> \param[in,out] X
*> \verbatim
-*> X is (input/output) COMPLEX*16 array of dimension at least
+*> X is COMPLEX*16 array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCX ) ).
*> Before entry, the incremented array X must contain the n
*> element vector x. On exit, X is overwritten with the
diff --git a/BLAS/SRC/ztrsm.f b/BLAS/SRC/ztrsm.f
index cc1af763..46a6afc7 100644
--- a/BLAS/SRC/ztrsm.f
+++ b/BLAS/SRC/ztrsm.f
@@ -111,7 +111,7 @@
*>
*> \param[in] A
*> \verbatim
-*> A is COMPLEX*16 array of DIMENSION ( LDA, k ),
+*> A is COMPLEX*16 array, dimension ( LDA, k ),
*> where k is m when SIDE = 'L' or 'l'
*> and k is n when SIDE = 'R' or 'r'.
*> Before entry with UPLO = 'U' or 'u', the leading k by k
@@ -137,7 +137,7 @@
*>
*> \param[in,out] B
*> \verbatim
-*> B is COMPLEX*16 array of DIMENSION ( LDB, n ).
+*> B is COMPLEX*16 array, dimension ( LDB, N )
*> Before entry, the leading m by n part of the array B must
*> contain the right-hand side matrix B, and on exit is
*> overwritten by the solution matrix X.
diff --git a/BLAS/SRC/ztrsv.f b/BLAS/SRC/ztrsv.f
index 577b5cae..ba7aa35c 100644
--- a/BLAS/SRC/ztrsv.f
+++ b/BLAS/SRC/ztrsv.f
@@ -83,7 +83,7 @@
*>
*> \param[in] A
*> \verbatim
-*> A is COMPLEX*16 array of DIMENSION ( LDA, n ).
+*> A is COMPLEX*16 array, dimension ( LDA, N )
*> Before entry with UPLO = 'U' or 'u', the leading n by n
*> upper triangular part of the array A must contain the upper
*> triangular matrix and the strictly lower triangular part of
@@ -106,7 +106,7 @@
*>
*> \param[in,out] X
*> \verbatim
-*> X is COMPLEX*16 array of dimension at least
+*> X is COMPLEX*16 array, dimension at least
*> ( 1 + ( n - 1 )*abs( INCX ) ).
*> Before entry, the incremented array X must contain the n
*> element right-hand side vector b. On exit, X is overwritten