From 98fd66325bd6900becd886df52293158d14096a3 Mon Sep 17 00:00:00 2001 From: Henning Thielemann Date: Fri, 9 Jun 2017 14:22:41 +0200 Subject: [PATCH 1/7] BLAS doxygen array parameter comments: use the same format as LAPACK i.e. "A is TYPE array, dimension ( LDx, N )" --- BLAS/SRC/cgbmv.f | 6 +++--- BLAS/SRC/cgemm.f | 6 +++--- BLAS/SRC/cgemv.f | 6 +++--- BLAS/SRC/cgerc.f | 6 +++--- BLAS/SRC/cgeru.f | 6 +++--- BLAS/SRC/chbmv.f | 6 +++--- BLAS/SRC/chemm.f | 6 +++--- BLAS/SRC/chemv.f | 6 +++--- BLAS/SRC/cher.f | 4 ++-- BLAS/SRC/cher2.f | 6 +++--- BLAS/SRC/cher2k.f | 6 +++--- BLAS/SRC/cherk.f | 4 ++-- BLAS/SRC/chpmv.f | 6 +++--- BLAS/SRC/chpr.f | 4 ++-- BLAS/SRC/chpr2.f | 6 +++--- BLAS/SRC/csymm.f | 6 +++--- BLAS/SRC/csyr2k.f | 6 +++--- BLAS/SRC/csyrk.f | 4 ++-- BLAS/SRC/ctbmv.f | 4 ++-- BLAS/SRC/ctbsv.f | 4 ++-- BLAS/SRC/ctpmv.f | 4 ++-- BLAS/SRC/ctpsv.f | 4 ++-- BLAS/SRC/ctrmm.f | 4 ++-- BLAS/SRC/ctrmv.f | 4 ++-- BLAS/SRC/ctrsm.f | 4 ++-- BLAS/SRC/ctrsv.f | 4 ++-- BLAS/SRC/dgbmv.f | 6 +++--- BLAS/SRC/dgemm.f | 6 +++--- BLAS/SRC/dgemv.f | 6 +++--- BLAS/SRC/dger.f | 6 +++--- BLAS/SRC/dsbmv.f | 6 +++--- BLAS/SRC/dspmv.f | 6 +++--- BLAS/SRC/dspr.f | 4 ++-- BLAS/SRC/dspr2.f | 6 +++--- BLAS/SRC/dsymm.f | 6 +++--- BLAS/SRC/dsymv.f | 6 +++--- BLAS/SRC/dsyr.f | 4 ++-- BLAS/SRC/dsyr2.f | 6 +++--- BLAS/SRC/dsyr2k.f | 6 +++--- BLAS/SRC/dsyrk.f | 4 ++-- BLAS/SRC/dtbmv.f | 4 ++-- BLAS/SRC/dtbsv.f | 4 ++-- BLAS/SRC/dtpmv.f | 4 ++-- BLAS/SRC/dtpsv.f | 4 ++-- BLAS/SRC/dtrmm.f | 4 ++-- BLAS/SRC/dtrmv.f | 4 ++-- BLAS/SRC/dtrsm.f | 4 ++-- BLAS/SRC/dtrsv.f | 4 ++-- BLAS/SRC/sgbmv.f | 6 +++--- BLAS/SRC/sgemm.f | 6 +++--- BLAS/SRC/sgemv.f | 6 +++--- BLAS/SRC/sger.f | 6 +++--- BLAS/SRC/ssbmv.f | 6 +++--- BLAS/SRC/sspmv.f | 6 +++--- BLAS/SRC/sspr.f | 4 ++-- BLAS/SRC/sspr2.f | 6 +++--- BLAS/SRC/ssymm.f | 6 +++--- BLAS/SRC/ssymv.f | 6 +++--- BLAS/SRC/ssyr.f | 4 ++-- BLAS/SRC/ssyr2.f | 6 +++--- BLAS/SRC/ssyr2k.f | 6 +++--- BLAS/SRC/ssyrk.f | 4 ++-- BLAS/SRC/stbmv.f | 4 ++-- BLAS/SRC/stbsv.f | 4 ++-- BLAS/SRC/stpmv.f | 4 ++-- BLAS/SRC/stpsv.f | 4 ++-- BLAS/SRC/strmm.f | 4 ++-- BLAS/SRC/strmv.f | 4 ++-- BLAS/SRC/strsm.f | 4 ++-- BLAS/SRC/strsv.f | 4 ++-- BLAS/SRC/zgbmv.f | 6 +++--- BLAS/SRC/zgemm.f | 6 +++--- BLAS/SRC/zgemv.f | 6 +++--- BLAS/SRC/zgerc.f | 6 +++--- BLAS/SRC/zgeru.f | 6 +++--- BLAS/SRC/zhbmv.f | 6 +++--- BLAS/SRC/zhemm.f | 6 +++--- BLAS/SRC/zhemv.f | 6 +++--- BLAS/SRC/zher.f | 4 ++-- BLAS/SRC/zher2.f | 6 +++--- BLAS/SRC/zher2k.f | 6 +++--- BLAS/SRC/zherk.f | 4 ++-- BLAS/SRC/zhpmv.f | 6 +++--- BLAS/SRC/zhpr.f | 4 ++-- BLAS/SRC/zhpr2.f | 6 +++--- BLAS/SRC/zsymm.f | 6 +++--- BLAS/SRC/zsyr2k.f | 6 +++--- BLAS/SRC/zsyrk.f | 4 ++-- BLAS/SRC/ztbmv.f | 6 +++--- BLAS/SRC/ztbsv.f | 4 ++-- BLAS/SRC/ztpmv.f | 6 +++--- BLAS/SRC/ztpsv.f | 4 ++-- BLAS/SRC/ztrmm.f | 6 +++--- BLAS/SRC/ztrmv.f | 6 +++--- BLAS/SRC/ztrsm.f | 4 ++-- BLAS/SRC/ztrsv.f | 4 ++-- 96 files changed, 246 insertions(+), 246 deletions(-) diff --git a/BLAS/SRC/cgbmv.f b/BLAS/SRC/cgbmv.f index de12852a8c..3cf351969d 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 018ffad628..ba1d714457 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 aeb94090c7..99bcdcd1ab 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 e730edfde2..f3f96a6a49 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 bc7540faad..f8342b5bc2 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 435c8dd2e6..e25e6e2a72 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 834b209a30..8cf94fa2b2 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 215092979d..be0f405c14 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 78a4e0b7f8..fde0c85511 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 fd65f97076..ca12834fc5 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 ace3c5d24d..fb9925d5dc 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 1c47e57bbf..79f40783c7 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 b182bfb915..bc0026ae65 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 6212c04380..25df894974 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 3ca388a486..66ef2f290b 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 906a57201b..8f05264101 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 1fdeadc0fb..b321d092df 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 c4494c5a8b..c25384ac5f 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 1513c1a343..205ab9c4e2 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 f4cc3306f1..16050f1677 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 4582acc9fc..e699791528 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 2fcd19bac0..2335ef502e 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 a23fb27c66..6f79d066da 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 8795e8702d..1eec65be1a 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 7ee5c9470a..2c2aff020c 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 7981a21d18..81c08240f4 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 3769e18b0e..29fb54343b 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 5c5a2ac2b0..3a60ca4e73 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 dd14c3509f..08e395b1cd 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 289141e8e8..bdc8ef4349 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 aea1213451..0f7c694068 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 72a28fedeb..6e26c0f4f8 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 e89f87d4e8..f9d709e2d9 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 4cd416f574..175d8e84c5 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 77c797ea6a..622d2469f1 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 af2dfd2a2b..4bf973f10a 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 c998ee8218..7fe256fa56 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 8bfa5fe0f5..8970c4dcfd 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 6dd7ca2957..f3a5940c7f 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 bd70dfba0c..4be4d8d3c4 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 20dd83eac2..e27d50f2c2 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 ad468288de..d8c6f144ce 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 3b0e620945..bad91f32e2 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 a5d9faa482..abcd0770c9 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 e315d5960f..0241c4d146 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 83959d064a..11c12ac724 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 bc440f068f..5a92bcafd0 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 cab3fd9895..331f1d4311 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 92896324ea..df13b588f7 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 d7bdb9c4dd..ca2fb175d3 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 0dfb1fc084..a76913860f 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 c2a9958f95..7dbff21d32 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 b711d8b06f..f0e2100523 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 bc8af3d448..39fe2776ac 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 52cb731705..79df3c28bf 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 b4c81187c9..da33c6cdca 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 d3a193f764..6263c17565 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 a1fa54f10e..d3c4c38ca8 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 9d73f86867..bdc39449ed 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 a2a083adc3..d2dcf8d72e 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 4a705f79c1..b271fdcd77 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 ecb1e4f17b..abaddf99d1 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 4323864ecb..a714f2059d 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 00aaeba67a..721b80494f 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 765e7f9183..833f808bdf 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 5a29776da8..fe1f40780c 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 dd20872188..e11330ae3d 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 ba3d7b6a8d..e9f681e89d 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 f2927fe3b7..aa805f6b6c 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 a31651b9af..d9e41e7633 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 f49da22186..7303df879e 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 a172632102..c3ac7551d1 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 01e44d467a..7088d383f4 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 cf8e17d357..058dccfc1c 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 d191740cce..683a778d50 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 87422152c2..19d8f7d458 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 45a5eabd74..d63778b75e 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 37917459ab..3ea0753f40 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 f7def76088..5e0c89634e 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 94c132c4fd..e3a383189d 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 407e8db536..474c65e575 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 d181ca0a8c..0d11f227bf 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 0d5d325bf1..9bd3ea45a8 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 70051c8a56..af82dfbd8c 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 c9fb758531..1b0fd3aac6 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 1dc267a7ac..bd37934aee 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 d358ed00fd..92bbfeeb5c 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 79591b45ef..122539f58e 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 1e03f2bad9..a4d9c2ed1b 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 50c4bb42e6..eaf8500468 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 d9aae42597..65aa2a0abc 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 5874fdc435..538888424a 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 229f3322ba..0f445f52a7 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 ab9065cf1c..52d1ae6799 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 cc1af763d0..46a6afc77d 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 577b5cae30..ba7aa35c31 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 From ff6637d893261a2248e939db741ed9422f421c72 Mon Sep 17 00:00:00 2001 From: Henning Thielemann Date: Mon, 12 Jun 2017 11:39:47 +0200 Subject: [PATCH 2/7] BLAS/xROTM; parameter comments for xX and xY: correct array dimension --- BLAS/SRC/drotm.f | 6 ++---- BLAS/SRC/srotm.f | 6 ++---- 2 files changed, 4 insertions(+), 8 deletions(-) diff --git a/BLAS/SRC/drotm.f b/BLAS/SRC/drotm.f index b006dbd50a..f75b88b3d4 100644 --- a/BLAS/SRC/drotm.f +++ b/BLAS/SRC/drotm.f @@ -51,8 +51,7 @@ *> *> \param[in,out] DX *> \verbatim -*> DX is DOUBLE PRECISION array, dimension N -*> double precision vector with N elements +*> DX is DOUBLE PRECISION array, dimension ( 1 + ( N - 1 )*abs( INCX ) ) *> \endverbatim *> *> \param[in] INCX @@ -63,8 +62,7 @@ *> *> \param[in,out] DY *> \verbatim -*> DY is DOUBLE PRECISION array, dimension N -*> double precision vector with N elements +*> DY is DOUBLE PRECISION array, dimension ( 1 + ( N - 1 )*abs( INCY ) ) *> \endverbatim *> *> \param[in] INCY diff --git a/BLAS/SRC/srotm.f b/BLAS/SRC/srotm.f index c71f7f0129..a0d00f28a5 100644 --- a/BLAS/SRC/srotm.f +++ b/BLAS/SRC/srotm.f @@ -52,8 +52,7 @@ *> *> \param[in,out] SX *> \verbatim -*> SX is REAL array, dimension N -*> double precision vector with N elements +*> SX is REAL array, dimension ( 1 + ( N - 1 )*abs( INCX ) ) *> \endverbatim *> *> \param[in] INCX @@ -64,8 +63,7 @@ *> *> \param[in,out] SY *> \verbatim -*> SY is REAL array, dimension N -*> double precision vector with N elements +*> SY is REAL array, dimension ( 1 + ( N - 1 )*abs( INCY ) ) *> \endverbatim *> *> \param[in] INCY From bfe60f45713ec225ee565dd9a28bca0c99378511 Mon Sep 17 00:00:00 2001 From: Henning Thielemann Date: Mon, 12 Jun 2017 11:41:38 +0200 Subject: [PATCH 3/7] BLAS/SDSDOT: convert parameter comments to Doxygen format --- BLAS/SRC/sdsdot.f | 118 ++++++++++++++++++++++++++++------------------ 1 file changed, 71 insertions(+), 47 deletions(-) diff --git a/BLAS/SRC/sdsdot.f b/BLAS/SRC/sdsdot.f index 7ee6ad6bf8..f110386308 100644 --- a/BLAS/SRC/sdsdot.f +++ b/BLAS/SRC/sdsdot.f @@ -18,9 +18,11 @@ * REAL SX(*),SY(*) * .. * -* PURPOSE -* ======= -* +*> \par Purpose: +* ============= +*> +*> \verbatim +*> * Compute the inner product of two vectors with extended * precision accumulation. * @@ -28,56 +30,78 @@ * SDSDOT = SB + sum for I = 0 to N-1 of SX(LX+I*INCX)*SY(LY+I*INCY), * where LX = 1 if INCX .GE. 0, else LX = 1+(1-N)*INCX, and LY is * defined in a similar way using INCY. +*> \endverbatim * -* AUTHOR -* ====== -* Lawson, C. L., (JPL), Hanson, R. J., (SNLA), -* Kincaid, D. R., (U. of Texas), Krogh, F. T., (JPL) -* -* ARGUMENTS -* ========= -* -* N (input) INTEGER -* number of elements in input vector(s) -* -* SB (input) REAL -* single precision scalar to be added to inner product -* -* SX (input) REAL array, dimension (N) -* single precision vector with N elements -* -* INCX (input) INTEGER -* storage spacing between elements of SX -* -* SY (input) REAL array, dimension (N) -* single precision vector with N elements -* -* INCY (input) INTEGER -* storage spacing between elements of SY -* -* SDSDOT (output) REAL -* single precision dot product (SB if N .LE. 0) +* Arguments: +* ========== * -* Further Details -* =============== +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> number of elements in input vector(s) +*> \endverbatim +*> +*> \param[in] SB +*> \verbatim +*> SB is REAL +*> single precision scalar to be added to inner product +*> \endverbatim +*> +*> \param[in] SX +*> \verbatim +*> SX is REAL array, dimension ( 1 + ( N - 1 )*abs( INCX ) ) +*> single precision vector with N elements +*> \endverbatim +*> +*> \param[in] INCX +*> \verbatim +*> INCX is INTEGER +*> storage spacing between elements of SX +*> \endverbatim +*> +*> \param[in] SY +*> \verbatim +*> SY is REAL array, dimension ( 1 + ( N - 1 )*abs( INCX ) ) +*> single precision vector with N elements +*> \endverbatim +*> +*> \param[in] INCY +*> \verbatim +*> INCY is INTEGER +*> storage spacing between elements of SY +*> \endverbatim * -* REFERENCES +* Authors: +* ======== * -* C. L. Lawson, R. J. Hanson, D. R. Kincaid and F. T. -* Krogh, Basic linear algebra subprograms for Fortran -* usage, Algorithm No. 539, Transactions on Mathematical -* Software 5, 3 (September 1979), pp. 308-323. +*> \author Lawson, C. L., (JPL), Hanson, R. J., (SNLA), +*> \author Kincaid, D. R., (U. of Texas), Krogh, F. T., (JPL) * -* REVISION HISTORY (YYMMDD) +*> \ingroup complex_blas_level1 * -* 791001 DATE WRITTEN -* 890531 Changed all specific intrinsics to generic. (WRB) -* 890831 Modified array declarations. (WRB) -* 890831 REVISION DATE from Version 3.2 -* 891214 Prologue converted to Version 4.0 format. (BAB) -* 920310 Corrected definition of LX in DESCRIPTION. (WRB) -* 920501 Reformatted the REFERENCES section. (WRB) -* 070118 Reformat to LAPACK coding style +*> \par Further Details: +* ===================== +*> +*> \verbatim +*> +*> REFERENCES +*> +*> C. L. Lawson, R. J. Hanson, D. R. Kincaid and F. T. +*> Krogh, Basic linear algebra subprograms for Fortran +*> usage, Algorithm No. 539, Transactions on Mathematical +*> Software 5, 3 (September 1979), pp. 308-323. +*> +*> REVISION HISTORY (YYMMDD) +*> +*> 791001 DATE WRITTEN +*> 890531 Changed all specific intrinsics to generic. (WRB) +*> 890831 Modified array declarations. (WRB) +*> 890831 REVISION DATE from Version 3.2 +*> 891214 Prologue converted to Version 4.0 format. (BAB) +*> 920310 Corrected definition of LX in DESCRIPTION. (WRB) +*> 920501 Reformatted the REFERENCES section. (WRB) +*> 070118 Reformat to LAPACK coding style +*> \endverbatim * * ===================================================================== * From 866ee11795433109f97d3c4c1712d2b301929885 Mon Sep 17 00:00:00 2001 From: Henning Thielemann Date: Mon, 12 Jun 2017 11:48:13 +0200 Subject: [PATCH 4/7] BLAS: add Doxygen comments for parameters where missing --- BLAS/SRC/caxpy.f | 37 +++++++++++++++++++++++++++++++++++++ BLAS/SRC/ccopy.f | 31 +++++++++++++++++++++++++++++++ BLAS/SRC/cdotc.f | 31 +++++++++++++++++++++++++++++++ BLAS/SRC/cdotu.f | 31 +++++++++++++++++++++++++++++++ BLAS/SRC/crotg.f | 23 +++++++++++++++++++++++ BLAS/SRC/cscal.f | 26 ++++++++++++++++++++++++++ BLAS/SRC/csscal.f | 26 ++++++++++++++++++++++++++ BLAS/SRC/cswap.f | 31 +++++++++++++++++++++++++++++++ BLAS/SRC/dasum.f | 20 ++++++++++++++++++++ BLAS/SRC/daxpy.f | 37 +++++++++++++++++++++++++++++++++++++ BLAS/SRC/dcabs1.f | 8 ++++++++ BLAS/SRC/dcopy.f | 33 ++++++++++++++++++++++++++++++++- BLAS/SRC/ddot.f | 31 +++++++++++++++++++++++++++++++ BLAS/SRC/dnrm2.f | 20 ++++++++++++++++++++ BLAS/SRC/drot.f | 41 +++++++++++++++++++++++++++++++++++++++++ BLAS/SRC/drotg.f | 23 +++++++++++++++++++++++ BLAS/SRC/dscal.f | 28 +++++++++++++++++++++++++++- BLAS/SRC/dswap.f | 35 +++++++++++++++++++++++++++++++++-- BLAS/SRC/dzasum.f | 20 ++++++++++++++++++++ BLAS/SRC/dznrm2.f | 21 +++++++++++++++++++++ BLAS/SRC/icamax.f | 20 ++++++++++++++++++++ BLAS/SRC/idamax.f | 20 ++++++++++++++++++++ BLAS/SRC/isamax.f | 20 ++++++++++++++++++++ BLAS/SRC/izamax.f | 20 ++++++++++++++++++++ BLAS/SRC/sasum.f | 20 ++++++++++++++++++++ BLAS/SRC/saxpy.f | 37 +++++++++++++++++++++++++++++++++++++ BLAS/SRC/scabs1.f | 8 ++++++++ BLAS/SRC/scasum.f | 20 ++++++++++++++++++++ BLAS/SRC/scnrm2.f | 21 +++++++++++++++++++++ BLAS/SRC/scopy.f | 31 +++++++++++++++++++++++++++++++ BLAS/SRC/sdot.f | 31 +++++++++++++++++++++++++++++++ BLAS/SRC/snrm2.f | 20 ++++++++++++++++++++ BLAS/SRC/srot.f | 41 +++++++++++++++++++++++++++++++++++++++++ BLAS/SRC/srotg.f | 23 +++++++++++++++++++++++ BLAS/SRC/sscal.f | 28 +++++++++++++++++++++++++++- BLAS/SRC/sswap.f | 33 ++++++++++++++++++++++++++++++++- BLAS/SRC/zaxpy.f | 37 +++++++++++++++++++++++++++++++++++++ BLAS/SRC/zcopy.f | 31 +++++++++++++++++++++++++++++++ BLAS/SRC/zdotc.f | 31 +++++++++++++++++++++++++++++++ BLAS/SRC/zdotu.f | 31 +++++++++++++++++++++++++++++++ BLAS/SRC/zdscal.f | 26 ++++++++++++++++++++++++++ BLAS/SRC/zrotg.f | 23 +++++++++++++++++++++++ BLAS/SRC/zscal.f | 26 ++++++++++++++++++++++++++ BLAS/SRC/zswap.f | 31 +++++++++++++++++++++++++++++++ 44 files changed, 1176 insertions(+), 6 deletions(-) diff --git a/BLAS/SRC/caxpy.f b/BLAS/SRC/caxpy.f index 7ee77747c0..3655523b0f 100644 --- a/BLAS/SRC/caxpy.f +++ b/BLAS/SRC/caxpy.f @@ -27,6 +27,43 @@ *> CAXPY constant times a vector plus a vector. *> \endverbatim * +* Arguments: +* ========== +* +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> number of elements in input vector(s) +*> \endverbatim +*> +*> \param[in] CA +*> \verbatim +*> CA is COMPLEX +*> On entry, CA specifies the scalar alpha. +*> \endverbatim +*> +*> \param[in] CX +*> \verbatim +*> CX is COMPLEX array, dimension ( 1 + ( N - 1 )*abs( INCX ) ) +*> \endverbatim +*> +*> \param[in] INCX +*> \verbatim +*> INCX is INTEGER +*> storage spacing between elements of CX +*> \endverbatim +*> +*> \param[in,out] CY +*> \verbatim +*> CY is COMPLEX array, dimension ( 1 + ( N - 1 )*abs( INCY ) ) +*> \endverbatim +*> +*> \param[in] INCY +*> \verbatim +*> INCY is INTEGER +*> storage spacing between elements of CY +*> \endverbatim +* * Authors: * ======== * diff --git a/BLAS/SRC/ccopy.f b/BLAS/SRC/ccopy.f index eeb5f299ad..4f3d9f01c6 100644 --- a/BLAS/SRC/ccopy.f +++ b/BLAS/SRC/ccopy.f @@ -26,6 +26,37 @@ *> CCOPY copies a vector x to a vector y. *> \endverbatim * +* Arguments: +* ========== +* +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> number of elements in input vector(s) +*> \endverbatim +*> +*> \param[in] CX +*> \verbatim +*> CX is COMPLEX array, dimension ( 1 + ( N - 1 )*abs( INCX ) ) +*> \endverbatim +*> +*> \param[in] INCX +*> \verbatim +*> INCX is INTEGER +*> storage spacing between elements of CX +*> \endverbatim +*> +*> \param[out] CY +*> \verbatim +*> CY is COMPLEX array, dimension ( 1 + ( N - 1 )*abs( INCY ) ) +*> \endverbatim +*> +*> \param[in] INCY +*> \verbatim +*> INCY is INTEGER +*> storage spacing between elements of CY +*> \endverbatim +* * Authors: * ======== * diff --git a/BLAS/SRC/cdotc.f b/BLAS/SRC/cdotc.f index cd3416980a..743d9065af 100644 --- a/BLAS/SRC/cdotc.f +++ b/BLAS/SRC/cdotc.f @@ -28,6 +28,37 @@ *> *> \endverbatim * +* Arguments: +* ========== +* +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> number of elements in input vector(s) +*> \endverbatim +*> +*> \param[in] CX +*> \verbatim +*> CX is REAL array, dimension ( 1 + ( N - 1 )*abs( INCX ) ) +*> \endverbatim +*> +*> \param[in] INCX +*> \verbatim +*> INCX is INTEGER +*> storage spacing between elements of CX +*> \endverbatim +*> +*> \param[in] CY +*> \verbatim +*> CY is REAL array, dimension ( 1 + ( N - 1 )*abs( INCY ) ) +*> \endverbatim +*> +*> \param[in] INCY +*> \verbatim +*> INCY is INTEGER +*> storage spacing between elements of CY +*> \endverbatim +* * Authors: * ======== * diff --git a/BLAS/SRC/cdotu.f b/BLAS/SRC/cdotu.f index 1e127bc0e6..e1494ed01f 100644 --- a/BLAS/SRC/cdotu.f +++ b/BLAS/SRC/cdotu.f @@ -28,6 +28,37 @@ *> *> \endverbatim * +* Arguments: +* ========== +* +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> number of elements in input vector(s) +*> \endverbatim +*> +*> \param[in] CX +*> \verbatim +*> CX is REAL array, dimension ( 1 + ( N - 1 )*abs( INCX ) ) +*> \endverbatim +*> +*> \param[in] INCX +*> \verbatim +*> INCX is INTEGER +*> storage spacing between elements of CX +*> \endverbatim +*> +*> \param[in] CY +*> \verbatim +*> CY is REAL array, dimension ( 1 + ( N - 1 )*abs( INCY ) ) +*> \endverbatim +*> +*> \param[in] INCY +*> \verbatim +*> INCY is INTEGER +*> storage spacing between elements of CY +*> \endverbatim +* * Authors: * ======== * diff --git a/BLAS/SRC/crotg.f b/BLAS/SRC/crotg.f index 1cdb662ee7..43159682fe 100644 --- a/BLAS/SRC/crotg.f +++ b/BLAS/SRC/crotg.f @@ -24,6 +24,29 @@ *> CROTG determines a complex Givens rotation. *> \endverbatim * +* Arguments: +* ========== +* +*> \param[in] CA +*> \verbatim +*> CA is COMPLEX +*> \endverbatim +*> +*> \param[in] CB +*> \verbatim +*> CB is COMPLEX +*> \endverbatim +*> +*> \param[out] C +*> \verbatim +*> C is REAL +*> \endverbatim +*> +*> \param[out] S +*> \verbatim +*> S is COMPLEX +*> \endverbatim +* * Authors: * ======== * diff --git a/BLAS/SRC/cscal.f b/BLAS/SRC/cscal.f index 1405a977de..2d9d5c4e14 100644 --- a/BLAS/SRC/cscal.f +++ b/BLAS/SRC/cscal.f @@ -27,6 +27,32 @@ *> CSCAL scales a vector by a constant. *> \endverbatim * +* Arguments: +* ========== +* +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> number of elements in input vector(s) +*> \endverbatim +*> +*> \param[in] CA +*> \verbatim +*> CA is COMPLEX +*> On entry, CA specifies the scalar alpha. +*> \endverbatim +*> +*> \param[in,out] CX +*> \verbatim +*> CX is COMPLEX array, dimension ( 1 + ( N - 1 )*abs( INCX ) ) +*> \endverbatim +*> +*> \param[in] INCX +*> \verbatim +*> INCX is INTEGER +*> storage spacing between elements of CX +*> \endverbatim +* * Authors: * ======== * diff --git a/BLAS/SRC/csscal.f b/BLAS/SRC/csscal.f index dc02654f1c..07c5ba10e2 100644 --- a/BLAS/SRC/csscal.f +++ b/BLAS/SRC/csscal.f @@ -27,6 +27,32 @@ *> CSSCAL scales a complex vector by a real constant. *> \endverbatim * +* Arguments: +* ========== +* +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> number of elements in input vector(s) +*> \endverbatim +*> +*> \param[in] SA +*> \verbatim +*> SA is REAL +*> On entry, SA specifies the scalar alpha. +*> \endverbatim +*> +*> \param[in,out] CX +*> \verbatim +*> CX is COMPLEX array, dimension ( 1 + ( N - 1 )*abs( INCX ) ) +*> \endverbatim +*> +*> \param[in] INCX +*> \verbatim +*> INCX is INTEGER +*> storage spacing between elements of CX +*> \endverbatim +* * Authors: * ======== * diff --git a/BLAS/SRC/cswap.f b/BLAS/SRC/cswap.f index 369a294ea9..3adbaf7eb4 100644 --- a/BLAS/SRC/cswap.f +++ b/BLAS/SRC/cswap.f @@ -26,6 +26,37 @@ *> CSWAP interchanges two vectors. *> \endverbatim * +* Arguments: +* ========== +* +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> number of elements in input vector(s) +*> \endverbatim +*> +*> \param[in,out] CX +*> \verbatim +*> CX is COMPLEX array, dimension ( 1 + ( N - 1 )*abs( INCX ) ) +*> \endverbatim +*> +*> \param[in] INCX +*> \verbatim +*> INCX is INTEGER +*> storage spacing between elements of CX +*> \endverbatim +*> +*> \param[in,out] CY +*> \verbatim +*> CY is COMPLEX array, dimension ( 1 + ( N - 1 )*abs( INCY ) ) +*> \endverbatim +*> +*> \param[in] INCY +*> \verbatim +*> INCY is INTEGER +*> storage spacing between elements of CY +*> \endverbatim +* * Authors: * ======== * diff --git a/BLAS/SRC/dasum.f b/BLAS/SRC/dasum.f index fd3d910446..cc5977f770 100644 --- a/BLAS/SRC/dasum.f +++ b/BLAS/SRC/dasum.f @@ -26,6 +26,26 @@ *> DASUM takes the sum of the absolute values. *> \endverbatim * +* Arguments: +* ========== +* +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> number of elements in input vector(s) +*> \endverbatim +*> +*> \param[in] DX +*> \verbatim +*> DX is DOUBLE PRECISION array, dimension ( 1 + ( N - 1 )*abs( INCX ) ) +*> \endverbatim +*> +*> \param[in] INCX +*> \verbatim +*> INCX is INTEGER +*> storage spacing between elements of DX +*> \endverbatim +* * Authors: * ======== * diff --git a/BLAS/SRC/daxpy.f b/BLAS/SRC/daxpy.f index 5203e50cfb..cb94fc1e0a 100644 --- a/BLAS/SRC/daxpy.f +++ b/BLAS/SRC/daxpy.f @@ -28,6 +28,43 @@ *> uses unrolled loops for increments equal to one. *> \endverbatim * +* Arguments: +* ========== +* +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> number of elements in input vector(s) +*> \endverbatim +*> +*> \param[in] DA +*> \verbatim +*> DA is DOUBLE PRECISION +*> On entry, DA specifies the scalar alpha. +*> \endverbatim +*> +*> \param[in] DX +*> \verbatim +*> DX is DOUBLE PRECISION array, dimension ( 1 + ( N - 1 )*abs( INCX ) ) +*> \endverbatim +*> +*> \param[in] INCX +*> \verbatim +*> INCX is INTEGER +*> storage spacing between elements of DX +*> \endverbatim +*> +*> \param[in,out] DY +*> \verbatim +*> DY is DOUBLE PRECISION array, dimension ( 1 + ( N - 1 )*abs( INCY ) ) +*> \endverbatim +*> +*> \param[in] INCY +*> \verbatim +*> INCY is INTEGER +*> storage spacing between elements of DY +*> \endverbatim +* * Authors: * ======== * diff --git a/BLAS/SRC/dcabs1.f b/BLAS/SRC/dcabs1.f index d71fe7af62..d6d850ed0f 100644 --- a/BLAS/SRC/dcabs1.f +++ b/BLAS/SRC/dcabs1.f @@ -24,6 +24,14 @@ *> DCABS1 computes |Re(.)| + |Im(.)| of a double complex number *> \endverbatim * +* Arguments: +* ========== +* +*> \param[in] Z +*> \verbatim +*> Z is COMPLEX*16 +*> \endverbatim +* * Authors: * ======== * diff --git a/BLAS/SRC/dcopy.f b/BLAS/SRC/dcopy.f index bbc38a75c6..27bc08582b 100644 --- a/BLAS/SRC/dcopy.f +++ b/BLAS/SRC/dcopy.f @@ -24,7 +24,38 @@ *> \verbatim *> *> DCOPY copies a vector, x, to a vector, y. -*> uses unrolled loops for increments equal to one. +*> uses unrolled loops for increments equal to 1. +*> \endverbatim +* +* Arguments: +* ========== +* +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> number of elements in input vector(s) +*> \endverbatim +*> +*> \param[in] DX +*> \verbatim +*> DX is DOUBLE PRECISION array, dimension ( 1 + ( N - 1 )*abs( INCX ) ) +*> \endverbatim +*> +*> \param[in] INCX +*> \verbatim +*> INCX is INTEGER +*> storage spacing between elements of DX +*> \endverbatim +*> +*> \param[out] DY +*> \verbatim +*> DY is DOUBLE PRECISION array, dimension ( 1 + ( N - 1 )*abs( INCY ) ) +*> \endverbatim +*> +*> \param[in] INCY +*> \verbatim +*> INCY is INTEGER +*> storage spacing between elements of DY *> \endverbatim * * Authors: diff --git a/BLAS/SRC/ddot.f b/BLAS/SRC/ddot.f index 1aea8240bb..3d18695aab 100644 --- a/BLAS/SRC/ddot.f +++ b/BLAS/SRC/ddot.f @@ -27,6 +27,37 @@ *> uses unrolled loops for increments equal to one. *> \endverbatim * +* Arguments: +* ========== +* +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> number of elements in input vector(s) +*> \endverbatim +*> +*> \param[in] DX +*> \verbatim +*> DX is DOUBLE PRECISION array, dimension ( 1 + ( N - 1 )*abs( INCX ) ) +*> \endverbatim +*> +*> \param[in] INCX +*> \verbatim +*> INCX is INTEGER +*> storage spacing between elements of DX +*> \endverbatim +*> +*> \param[in] DY +*> \verbatim +*> DY is DOUBLE PRECISION array, dimension ( 1 + ( N - 1 )*abs( INCY ) ) +*> \endverbatim +*> +*> \param[in] INCY +*> \verbatim +*> INCY is INTEGER +*> storage spacing between elements of DY +*> \endverbatim +* * Authors: * ======== * diff --git a/BLAS/SRC/dnrm2.f b/BLAS/SRC/dnrm2.f index 0d7062fdc0..30552e1d1d 100644 --- a/BLAS/SRC/dnrm2.f +++ b/BLAS/SRC/dnrm2.f @@ -29,6 +29,26 @@ *> DNRM2 := sqrt( x'*x ) *> \endverbatim * +* Arguments: +* ========== +* +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> number of elements in input vector(s) +*> \endverbatim +*> +*> \param[in] X +*> \verbatim +*> X is DOUBLE PRECISION array, dimension ( 1 + ( N - 1 )*abs( INCX ) ) +*> \endverbatim +*> +*> \param[in] INCX +*> \verbatim +*> INCX is INTEGER +*> storage spacing between elements of DX +*> \endverbatim +* * Authors: * ======== * diff --git a/BLAS/SRC/drot.f b/BLAS/SRC/drot.f index baaae5c9fc..0d33ea76c8 100644 --- a/BLAS/SRC/drot.f +++ b/BLAS/SRC/drot.f @@ -27,6 +27,47 @@ *> DROT applies a plane rotation. *> \endverbatim * +* Arguments: +* ========== +* +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> number of elements in input vector(s) +*> \endverbatim +*> +*> \param[in,out] DX +*> \verbatim +*> DX is DOUBLE PRECISION array, dimension ( 1 + ( N - 1 )*abs( INCX ) ) +*> \endverbatim +*> +*> \param[in] INCX +*> \verbatim +*> INCX is INTEGER +*> storage spacing between elements of DX +*> \endverbatim +*> +*> \param[in,out] DY +*> \verbatim +*> DY is DOUBLE PRECISION array, dimension ( 1 + ( N - 1 )*abs( INCY ) ) +*> \endverbatim +*> +*> \param[in] INCY +*> \verbatim +*> INCY is INTEGER +*> storage spacing between elements of DY +*> \endverbatim +*> +*> \param[in] C +*> \verbatim +*> C is DOUBLE PRECISION +*> \endverbatim +*> +*> \param[in] S +*> \verbatim +*> S is DOUBLE PRECISION +*> \endverbatim +* * Authors: * ======== * diff --git a/BLAS/SRC/drotg.f b/BLAS/SRC/drotg.f index 85d04cd8f4..f0ff85e543 100644 --- a/BLAS/SRC/drotg.f +++ b/BLAS/SRC/drotg.f @@ -23,6 +23,29 @@ *> DROTG construct givens plane rotation. *> \endverbatim * +* Arguments: +* ========== +* +*> \param[in] DA +*> \verbatim +*> DA is DOUBLE PRECISION +*> \endverbatim +*> +*> \param[in] DB +*> \verbatim +*> DB is DOUBLE PRECISION +*> \endverbatim +*> +*> \param[out] C +*> \verbatim +*> C is DOUBLE PRECISION +*> \endverbatim +*> +*> \param[out] S +*> \verbatim +*> S is DOUBLE PRECISION +*> \endverbatim +* * Authors: * ======== * diff --git a/BLAS/SRC/dscal.f b/BLAS/SRC/dscal.f index 8bbfec6f3f..e0a92de6ba 100644 --- a/BLAS/SRC/dscal.f +++ b/BLAS/SRC/dscal.f @@ -25,7 +25,33 @@ *> \verbatim *> *> DSCAL scales a vector by a constant. -*> uses unrolled loops for increment equal to one. +*> uses unrolled loops for increment equal to 1. +*> \endverbatim +* +* Arguments: +* ========== +* +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> number of elements in input vector(s) +*> \endverbatim +*> +*> \param[in] DA +*> \verbatim +*> DA is DOUBLE PRECISION +*> On entry, DA specifies the scalar alpha. +*> \endverbatim +*> +*> \param[in,out] DX +*> \verbatim +*> DX is DOUBLE PRECISION array, dimension ( 1 + ( N - 1 )*abs( INCX ) ) +*> \endverbatim +*> +*> \param[in] INCX +*> \verbatim +*> INCX is INTEGER +*> storage spacing between elements of DX *> \endverbatim * * Authors: diff --git a/BLAS/SRC/dswap.f b/BLAS/SRC/dswap.f index 5bd8f7d29f..94dfea3bb9 100644 --- a/BLAS/SRC/dswap.f +++ b/BLAS/SRC/dswap.f @@ -23,8 +23,39 @@ *> *> \verbatim *> -*> interchanges two vectors. -*> uses unrolled loops for increments equal one. +*> DSWAP interchanges two vectors. +*> uses unrolled loops for increments equal to 1. +*> \endverbatim +* +* Arguments: +* ========== +* +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> number of elements in input vector(s) +*> \endverbatim +*> +*> \param[in,out] DX +*> \verbatim +*> DX is DOUBLE PRECISION array, dimension ( 1 + ( N - 1 )*abs( INCX ) ) +*> \endverbatim +*> +*> \param[in] INCX +*> \verbatim +*> INCX is INTEGER +*> storage spacing between elements of DX +*> \endverbatim +*> +*> \param[in,out] DY +*> \verbatim +*> DY is DOUBLE PRECISION array, dimension ( 1 + ( N - 1 )*abs( INCY ) ) +*> \endverbatim +*> +*> \param[in] INCY +*> \verbatim +*> INCY is INTEGER +*> storage spacing between elements of DY *> \endverbatim * * Authors: diff --git a/BLAS/SRC/dzasum.f b/BLAS/SRC/dzasum.f index 9f0d3fd08b..5c80382f72 100644 --- a/BLAS/SRC/dzasum.f +++ b/BLAS/SRC/dzasum.f @@ -27,6 +27,26 @@ *> returns a single precision result. *> \endverbatim * +* Arguments: +* ========== +* +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> number of elements in input vector(s) +*> \endverbatim +*> +*> \param[in,out] ZX +*> \verbatim +*> ZX is COMPLEX*16 array, dimension ( 1 + ( N - 1 )*abs( INCX ) ) +*> \endverbatim +*> +*> \param[in] INCX +*> \verbatim +*> INCX is INTEGER +*> storage spacing between elements of ZX +*> \endverbatim +* * Authors: * ======== * diff --git a/BLAS/SRC/dznrm2.f b/BLAS/SRC/dznrm2.f index 3b6bf61328..e5a71d98f6 100644 --- a/BLAS/SRC/dznrm2.f +++ b/BLAS/SRC/dznrm2.f @@ -29,6 +29,27 @@ *> DZNRM2 := sqrt( x**H*x ) *> \endverbatim * +* Arguments: +* ========== +* +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> number of elements in input vector(s) +*> \endverbatim +*> +*> \param[in] X +*> \verbatim +*> X is COMPLEX*16 array, dimension (N) +*> complex vector with N elements +*> \endverbatim +*> +*> \param[in] INCX +*> \verbatim +*> INCX is INTEGER +*> storage spacing between elements of X +*> \endverbatim +* * Authors: * ======== * diff --git a/BLAS/SRC/icamax.f b/BLAS/SRC/icamax.f index 37035c7afe..763172f685 100644 --- a/BLAS/SRC/icamax.f +++ b/BLAS/SRC/icamax.f @@ -26,6 +26,26 @@ *> ICAMAX finds the index of the first element having maximum |Re(.)| + |Im(.)| *> \endverbatim * +* Arguments: +* ========== +* +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> number of elements in input vector(s) +*> \endverbatim +*> +*> \param[in] CX +*> \verbatim +*> CX is COMPLEX array, dimension ( 1 + ( N - 1 )*abs( INCX ) ) +*> \endverbatim +*> +*> \param[in] INCX +*> \verbatim +*> INCX is INTEGER +*> storage spacing between elements of SX +*> \endverbatim +* * Authors: * ======== * diff --git a/BLAS/SRC/idamax.f b/BLAS/SRC/idamax.f index 9585660289..17041680a4 100644 --- a/BLAS/SRC/idamax.f +++ b/BLAS/SRC/idamax.f @@ -26,6 +26,26 @@ *> IDAMAX finds the index of the first element having maximum absolute value. *> \endverbatim * +* Arguments: +* ========== +* +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> number of elements in input vector(s) +*> \endverbatim +*> +*> \param[in] DX +*> \verbatim +*> DX is DOUBLE PRECISION array, dimension ( 1 + ( N - 1 )*abs( INCX ) ) +*> \endverbatim +*> +*> \param[in] INCX +*> \verbatim +*> INCX is INTEGER +*> storage spacing between elements of SX +*> \endverbatim +* * Authors: * ======== * diff --git a/BLAS/SRC/isamax.f b/BLAS/SRC/isamax.f index e73122353f..f68763ceda 100644 --- a/BLAS/SRC/isamax.f +++ b/BLAS/SRC/isamax.f @@ -26,6 +26,26 @@ *> ISAMAX finds the index of the first element having maximum absolute value. *> \endverbatim * +* Arguments: +* ========== +* +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> number of elements in input vector(s) +*> \endverbatim +*> +*> \param[in] SX +*> \verbatim +*> SX is REAL array, dimension ( 1 + ( N - 1 )*abs( INCX ) ) +*> \endverbatim +*> +*> \param[in] INCX +*> \verbatim +*> INCX is INTEGER +*> storage spacing between elements of SX +*> \endverbatim +* * Authors: * ======== * diff --git a/BLAS/SRC/izamax.f b/BLAS/SRC/izamax.f index 2ee9b66435..291a128ea0 100644 --- a/BLAS/SRC/izamax.f +++ b/BLAS/SRC/izamax.f @@ -26,6 +26,26 @@ *> IZAMAX finds the index of the first element having maximum |Re(.)| + |Im(.)| *> \endverbatim * +* Arguments: +* ========== +* +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> number of elements in input vector(s) +*> \endverbatim +*> +*> \param[in] ZX +*> \verbatim +*> ZX is COMPLEX*16 array, dimension ( 1 + ( N - 1 )*abs( INCX ) ) +*> \endverbatim +*> +*> \param[in] INCX +*> \verbatim +*> INCX is INTEGER +*> storage spacing between elements of SX +*> \endverbatim +* * Authors: * ======== * diff --git a/BLAS/SRC/sasum.f b/BLAS/SRC/sasum.f index a453ff7087..0afe77c621 100644 --- a/BLAS/SRC/sasum.f +++ b/BLAS/SRC/sasum.f @@ -27,6 +27,26 @@ *> uses unrolled loops for increment equal to one. *> \endverbatim * +* Arguments: +* ========== +* +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> number of elements in input vector(s) +*> \endverbatim +*> +*> \param[in] SX +*> \verbatim +*> SX is REAL array, dimension ( 1 + ( N - 1 )*abs( INCX ) ) +*> \endverbatim +*> +*> \param[in] INCX +*> \verbatim +*> INCX is INTEGER +*> storage spacing between elements of SX +*> \endverbatim +* * Authors: * ======== * diff --git a/BLAS/SRC/saxpy.f b/BLAS/SRC/saxpy.f index 610dfe795a..c7e599d83f 100644 --- a/BLAS/SRC/saxpy.f +++ b/BLAS/SRC/saxpy.f @@ -28,6 +28,43 @@ *> uses unrolled loops for increments equal to one. *> \endverbatim * +* Arguments: +* ========== +* +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> number of elements in input vector(s) +*> \endverbatim +*> +*> \param[in] SA +*> \verbatim +*> SA is REAL +*> On entry, SA specifies the scalar alpha. +*> \endverbatim +*> +*> \param[in] SX +*> \verbatim +*> SX is REAL array, dimension ( 1 + ( N - 1 )*abs( INCX ) ) +*> \endverbatim +*> +*> \param[in] INCX +*> \verbatim +*> INCX is INTEGER +*> storage spacing between elements of SX +*> \endverbatim +*> +*> \param[in,out] SY +*> \verbatim +*> SY is REAL array, dimension ( 1 + ( N - 1 )*abs( INCY ) ) +*> \endverbatim +*> +*> \param[in] INCY +*> \verbatim +*> INCY is INTEGER +*> storage spacing between elements of SY +*> \endverbatim +* * Authors: * ======== * diff --git a/BLAS/SRC/scabs1.f b/BLAS/SRC/scabs1.f index b68f76f2f9..81fc0aab17 100644 --- a/BLAS/SRC/scabs1.f +++ b/BLAS/SRC/scabs1.f @@ -23,6 +23,14 @@ *> SCABS1 computes |Re(.)| + |Im(.)| of a complex number *> \endverbatim * +* Arguments: +* ========== +* +*> \param[in] Z +*> \verbatim +*> Z is COMPLEX +*> \endverbatim +* * Authors: * ======== * diff --git a/BLAS/SRC/scasum.f b/BLAS/SRC/scasum.f index 5fc1a56a5a..0e9c137d2b 100644 --- a/BLAS/SRC/scasum.f +++ b/BLAS/SRC/scasum.f @@ -27,6 +27,26 @@ *> returns a single precision result. *> \endverbatim * +* Arguments: +* ========== +* +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> number of elements in input vector(s) +*> \endverbatim +*> +*> \param[in,out] CX +*> \verbatim +*> CX is COMPLEX array, dimension ( 1 + ( N - 1 )*abs( INCX ) ) +*> \endverbatim +*> +*> \param[in] INCX +*> \verbatim +*> INCX is INTEGER +*> storage spacing between elements of SX +*> \endverbatim +* * Authors: * ======== * diff --git a/BLAS/SRC/scnrm2.f b/BLAS/SRC/scnrm2.f index 4f1f03a5f6..d2e6faed40 100644 --- a/BLAS/SRC/scnrm2.f +++ b/BLAS/SRC/scnrm2.f @@ -29,6 +29,27 @@ *> SCNRM2 := sqrt( x**H*x ) *> \endverbatim * +* Arguments: +* ========== +* +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> number of elements in input vector(s) +*> \endverbatim +*> +*> \param[in] X +*> \verbatim +*> X is COMPLEX array, dimension (N) +*> complex vector with N elements +*> \endverbatim +*> +*> \param[in] INCX +*> \verbatim +*> INCX is INTEGER +*> storage spacing between elements of X +*> \endverbatim +* * Authors: * ======== * diff --git a/BLAS/SRC/scopy.f b/BLAS/SRC/scopy.f index 4755797175..6bb6d3b56a 100644 --- a/BLAS/SRC/scopy.f +++ b/BLAS/SRC/scopy.f @@ -27,6 +27,37 @@ *> uses unrolled loops for increments equal to 1. *> \endverbatim * +* Arguments: +* ========== +* +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> number of elements in input vector(s) +*> \endverbatim +*> +*> \param[in] SX +*> \verbatim +*> SX is REAL array, dimension ( 1 + ( N - 1 )*abs( INCX ) ) +*> \endverbatim +*> +*> \param[in] INCX +*> \verbatim +*> INCX is INTEGER +*> storage spacing between elements of SX +*> \endverbatim +*> +*> \param[out] SY +*> \verbatim +*> SY is REAL array, dimension ( 1 + ( N - 1 )*abs( INCY ) ) +*> \endverbatim +*> +*> \param[in] INCY +*> \verbatim +*> INCY is INTEGER +*> storage spacing between elements of SY +*> \endverbatim +* * Authors: * ======== * diff --git a/BLAS/SRC/sdot.f b/BLAS/SRC/sdot.f index 5a54ee2490..dc67ed64cc 100644 --- a/BLAS/SRC/sdot.f +++ b/BLAS/SRC/sdot.f @@ -27,6 +27,37 @@ *> uses unrolled loops for increments equal to one. *> \endverbatim * +* Arguments: +* ========== +* +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> number of elements in input vector(s) +*> \endverbatim +*> +*> \param[in] SX +*> \verbatim +*> SX is REAL array, dimension ( 1 + ( N - 1 )*abs( INCX ) ) +*> \endverbatim +*> +*> \param[in] INCX +*> \verbatim +*> INCX is INTEGER +*> storage spacing between elements of SX +*> \endverbatim +*> +*> \param[in] SY +*> \verbatim +*> SY is REAL array, dimension ( 1 + ( N - 1 )*abs( INCY ) ) +*> \endverbatim +*> +*> \param[in] INCY +*> \verbatim +*> INCY is INTEGER +*> storage spacing between elements of SY +*> \endverbatim +* * Authors: * ======== * diff --git a/BLAS/SRC/snrm2.f b/BLAS/SRC/snrm2.f index 7de03d222f..17027a754c 100644 --- a/BLAS/SRC/snrm2.f +++ b/BLAS/SRC/snrm2.f @@ -29,6 +29,26 @@ *> SNRM2 := sqrt( x'*x ). *> \endverbatim * +* Arguments: +* ========== +* +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> number of elements in input vector(s) +*> \endverbatim +*> +*> \param[in] X +*> \verbatim +*> X is REAL array, dimension ( 1 + ( N - 1 )*abs( INCX ) ) +*> \endverbatim +*> +*> \param[in] INCX +*> \verbatim +*> INCX is INTEGER +*> storage spacing between elements of SX +*> \endverbatim +* * Authors: * ======== * diff --git a/BLAS/SRC/srot.f b/BLAS/SRC/srot.f index fa8e2958ff..71235cd9d6 100644 --- a/BLAS/SRC/srot.f +++ b/BLAS/SRC/srot.f @@ -27,6 +27,47 @@ *> applies a plane rotation. *> \endverbatim * +* Arguments: +* ========== +* +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> number of elements in input vector(s) +*> \endverbatim +*> +*> \param[in,out] SX +*> \verbatim +*> SX is REAL array, dimension ( 1 + ( N - 1 )*abs( INCX ) ) +*> \endverbatim +*> +*> \param[in] INCX +*> \verbatim +*> INCX is INTEGER +*> storage spacing between elements of SX +*> \endverbatim +*> +*> \param[in,out] SY +*> \verbatim +*> SY is REAL array, dimension ( 1 + ( N - 1 )*abs( INCY ) ) +*> \endverbatim +*> +*> \param[in] INCY +*> \verbatim +*> INCY is INTEGER +*> storage spacing between elements of SY +*> \endverbatim +*> +*> \param[in] C +*> \verbatim +*> C is REAL +*> \endverbatim +*> +*> \param[in] S +*> \verbatim +*> S is REAL +*> \endverbatim +* * Authors: * ======== * diff --git a/BLAS/SRC/srotg.f b/BLAS/SRC/srotg.f index b4484fb343..471fc54d91 100644 --- a/BLAS/SRC/srotg.f +++ b/BLAS/SRC/srotg.f @@ -23,6 +23,29 @@ *> SROTG construct givens plane rotation. *> \endverbatim * +* Arguments: +* ========== +* +*> \param[in] SA +*> \verbatim +*> SA is REAL +*> \endverbatim +*> +*> \param[in] SB +*> \verbatim +*> SB is REAL +*> \endverbatim +*> +*> \param[out] C +*> \verbatim +*> C is REAL +*> \endverbatim +*> +*> \param[out] S +*> \verbatim +*> S is REAL +*> \endverbatim +* * Authors: * ======== * diff --git a/BLAS/SRC/sscal.f b/BLAS/SRC/sscal.f index 2ffc1a254f..1a81109e1c 100644 --- a/BLAS/SRC/sscal.f +++ b/BLAS/SRC/sscal.f @@ -24,10 +24,36 @@ *> *> \verbatim *> -*> scales a vector by a constant. +*> SSCAL scales a vector by a constant. *> uses unrolled loops for increment equal to 1. *> \endverbatim * +* Arguments: +* ========== +* +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> number of elements in input vector(s) +*> \endverbatim +*> +*> \param[in] SA +*> \verbatim +*> SA is REAL +*> On entry, SA specifies the scalar alpha. +*> \endverbatim +*> +*> \param[in,out] SX +*> \verbatim +*> SX is REAL array, dimension ( 1 + ( N - 1 )*abs( INCX ) ) +*> \endverbatim +*> +*> \param[in] INCX +*> \verbatim +*> INCX is INTEGER +*> storage spacing between elements of SX +*> \endverbatim +* * Authors: * ======== * diff --git a/BLAS/SRC/sswap.f b/BLAS/SRC/sswap.f index f821a1e70f..fb88cb27b7 100644 --- a/BLAS/SRC/sswap.f +++ b/BLAS/SRC/sswap.f @@ -23,10 +23,41 @@ *> *> \verbatim *> -*> interchanges two vectors. +*> SSWAP interchanges two vectors. *> uses unrolled loops for increments equal to 1. *> \endverbatim * +* Arguments: +* ========== +* +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> number of elements in input vector(s) +*> \endverbatim +*> +*> \param[in,out] SX +*> \verbatim +*> SX is REAL array, dimension ( 1 + ( N - 1 )*abs( INCX ) ) +*> \endverbatim +*> +*> \param[in] INCX +*> \verbatim +*> INCX is INTEGER +*> storage spacing between elements of SX +*> \endverbatim +*> +*> \param[in,out] SY +*> \verbatim +*> SY is REAL array, dimension ( 1 + ( N - 1 )*abs( INCY ) ) +*> \endverbatim +*> +*> \param[in] INCY +*> \verbatim +*> INCY is INTEGER +*> storage spacing between elements of SY +*> \endverbatim +* * Authors: * ======== * diff --git a/BLAS/SRC/zaxpy.f b/BLAS/SRC/zaxpy.f index bca78fb76e..b7b9ee69e4 100644 --- a/BLAS/SRC/zaxpy.f +++ b/BLAS/SRC/zaxpy.f @@ -27,6 +27,43 @@ *> ZAXPY constant times a vector plus a vector. *> \endverbatim * +* Arguments: +* ========== +* +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> number of elements in input vector(s) +*> \endverbatim +*> +*> \param[in] ZA +*> \verbatim +*> ZA is COMPLEX*16 +*> On entry, ZA specifies the scalar alpha. +*> \endverbatim +*> +*> \param[in] ZX +*> \verbatim +*> ZX is COMPLEX*16 array, dimension ( 1 + ( N - 1 )*abs( INCX ) ) +*> \endverbatim +*> +*> \param[in] INCX +*> \verbatim +*> INCX is INTEGER +*> storage spacing between elements of ZX +*> \endverbatim +*> +*> \param[in,out] ZY +*> \verbatim +*> ZY is COMPLEX*16 array, dimension ( 1 + ( N - 1 )*abs( INCY ) ) +*> \endverbatim +*> +*> \param[in] INCY +*> \verbatim +*> INCY is INTEGER +*> storage spacing between elements of ZY +*> \endverbatim +* * Authors: * ======== * diff --git a/BLAS/SRC/zcopy.f b/BLAS/SRC/zcopy.f index 830548ab6a..3777079730 100644 --- a/BLAS/SRC/zcopy.f +++ b/BLAS/SRC/zcopy.f @@ -26,6 +26,37 @@ *> ZCOPY copies a vector, x, to a vector, y. *> \endverbatim * +* Arguments: +* ========== +* +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> number of elements in input vector(s) +*> \endverbatim +*> +*> \param[in] ZX +*> \verbatim +*> ZX is COMPLEX*16 array, dimension ( 1 + ( N - 1 )*abs( INCX ) ) +*> \endverbatim +*> +*> \param[in] INCX +*> \verbatim +*> INCX is INTEGER +*> storage spacing between elements of ZX +*> \endverbatim +*> +*> \param[out] ZY +*> \verbatim +*> ZY is COMPLEX*16 array, dimension ( 1 + ( N - 1 )*abs( INCY ) ) +*> \endverbatim +*> +*> \param[in] INCY +*> \verbatim +*> INCY is INTEGER +*> storage spacing between elements of ZY +*> \endverbatim +* * Authors: * ======== * diff --git a/BLAS/SRC/zdotc.f b/BLAS/SRC/zdotc.f index 70119ec58f..e6cd11b21d 100644 --- a/BLAS/SRC/zdotc.f +++ b/BLAS/SRC/zdotc.f @@ -28,6 +28,37 @@ *> *> \endverbatim * +* Arguments: +* ========== +* +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> number of elements in input vector(s) +*> \endverbatim +*> +*> \param[in] ZX +*> \verbatim +*> ZX is REAL array, dimension ( 1 + ( N - 1 )*abs( INCX ) ) +*> \endverbatim +*> +*> \param[in] INCX +*> \verbatim +*> INCX is INTEGER +*> storage spacing between elements of ZX +*> \endverbatim +*> +*> \param[in] ZY +*> \verbatim +*> ZY is REAL array, dimension ( 1 + ( N - 1 )*abs( INCY ) ) +*> \endverbatim +*> +*> \param[in] INCY +*> \verbatim +*> INCY is INTEGER +*> storage spacing between elements of ZY +*> \endverbatim +* * Authors: * ======== * diff --git a/BLAS/SRC/zdotu.f b/BLAS/SRC/zdotu.f index 318fae24e0..1ac013f01a 100644 --- a/BLAS/SRC/zdotu.f +++ b/BLAS/SRC/zdotu.f @@ -28,6 +28,37 @@ *> *> \endverbatim * +* Arguments: +* ========== +* +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> number of elements in input vector(s) +*> \endverbatim +*> +*> \param[in] ZX +*> \verbatim +*> ZX is REAL array, dimension ( 1 + ( N - 1 )*abs( INCX ) ) +*> \endverbatim +*> +*> \param[in] INCX +*> \verbatim +*> INCX is INTEGER +*> storage spacing between elements of ZX +*> \endverbatim +*> +*> \param[in] ZY +*> \verbatim +*> ZY is REAL array, dimension ( 1 + ( N - 1 )*abs( INCY ) ) +*> \endverbatim +*> +*> \param[in] INCY +*> \verbatim +*> INCY is INTEGER +*> storage spacing between elements of ZY +*> \endverbatim +* * Authors: * ======== * diff --git a/BLAS/SRC/zdscal.f b/BLAS/SRC/zdscal.f index def90785a8..71d4da55be 100644 --- a/BLAS/SRC/zdscal.f +++ b/BLAS/SRC/zdscal.f @@ -27,6 +27,32 @@ *> ZDSCAL scales a vector by a constant. *> \endverbatim * +* Arguments: +* ========== +* +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> number of elements in input vector(s) +*> \endverbatim +*> +*> \param[in] DA +*> \verbatim +*> DA is DOUBLE PRECISION +*> On entry, DA specifies the scalar alpha. +*> \endverbatim +*> +*> \param[in,out] ZX +*> \verbatim +*> ZX is COMPLEX*16 array, dimension ( 1 + ( N - 1 )*abs( INCX ) ) +*> \endverbatim +*> +*> \param[in] INCX +*> \verbatim +*> INCX is INTEGER +*> storage spacing between elements of ZX +*> \endverbatim +* * Authors: * ======== * diff --git a/BLAS/SRC/zrotg.f b/BLAS/SRC/zrotg.f index e5c406dbac..8fcf0851a7 100644 --- a/BLAS/SRC/zrotg.f +++ b/BLAS/SRC/zrotg.f @@ -24,6 +24,29 @@ *> ZROTG determines a double complex Givens rotation. *> \endverbatim * +* Arguments: +* ========== +* +*> \param[in] CA +*> \verbatim +*> CA is COMPLEX*16 +*> \endverbatim +*> +*> \param[in] CB +*> \verbatim +*> CB is COMPLEX*16 +*> \endverbatim +*> +*> \param[out] C +*> \verbatim +*> C is DOUBLE PRECISION +*> \endverbatim +*> +*> \param[out] S +*> \verbatim +*> S is COMPLEX*16 +*> \endverbatim +* * Authors: * ======== * diff --git a/BLAS/SRC/zscal.f b/BLAS/SRC/zscal.f index ca038aacbe..9f6d4b1d39 100644 --- a/BLAS/SRC/zscal.f +++ b/BLAS/SRC/zscal.f @@ -27,6 +27,32 @@ *> ZSCAL scales a vector by a constant. *> \endverbatim * +* Arguments: +* ========== +* +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> number of elements in input vector(s) +*> \endverbatim +*> +*> \param[in] ZA +*> \verbatim +*> ZA is COMPLEX*16 +*> On entry, ZA specifies the scalar alpha. +*> \endverbatim +*> +*> \param[in,out] ZX +*> \verbatim +*> ZX is COMPLEX*16 array, dimension ( 1 + ( N - 1 )*abs( INCX ) ) +*> \endverbatim +*> +*> \param[in] INCX +*> \verbatim +*> INCX is INTEGER +*> storage spacing between elements of ZX +*> \endverbatim +* * Authors: * ======== * diff --git a/BLAS/SRC/zswap.f b/BLAS/SRC/zswap.f index 02a5b97e81..6768d5e6e0 100644 --- a/BLAS/SRC/zswap.f +++ b/BLAS/SRC/zswap.f @@ -26,6 +26,37 @@ *> ZSWAP interchanges two vectors. *> \endverbatim * +* Arguments: +* ========== +* +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> number of elements in input vector(s) +*> \endverbatim +*> +*> \param[in,out] ZX +*> \verbatim +*> ZX is COMPLEX*16 array, dimension ( 1 + ( N - 1 )*abs( INCX ) ) +*> \endverbatim +*> +*> \param[in] INCX +*> \verbatim +*> INCX is INTEGER +*> storage spacing between elements of ZX +*> \endverbatim +*> +*> \param[in,out] ZY +*> \verbatim +*> ZY is COMPLEX*16 array, dimension ( 1 + ( N - 1 )*abs( INCY ) ) +*> \endverbatim +*> +*> \param[in] INCY +*> \verbatim +*> INCY is INTEGER +*> storage spacing between elements of ZY +*> \endverbatim +* * Authors: * ======== * From 2eab06a6d81a591909b5cd4e5859deb85a512e09 Mon Sep 17 00:00:00 2001 From: Henning Thielemann Date: Mon, 12 Jun 2017 11:49:28 +0200 Subject: [PATCH 5/7] 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 f75b88b3d4..a3ce166773 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 1fb025faab..570525b376 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 a0d00f28a5..eed3273654 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 a5077c0691..b942e028f7 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 From 8f7528fbac5cc76bb45c07305c5308ccdb55e3c1 Mon Sep 17 00:00:00 2001 From: Henning Thielemann Date: Mon, 12 Jun 2017 11:50:21 +0200 Subject: [PATCH 6/7] BLAS/xROTM; comment on xPARAM: turn to input direction --- BLAS/SRC/drotm.f | 2 +- BLAS/SRC/srotm.f | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/BLAS/SRC/drotm.f b/BLAS/SRC/drotm.f index a3ce166773..b1190f5c91 100644 --- a/BLAS/SRC/drotm.f +++ b/BLAS/SRC/drotm.f @@ -71,7 +71,7 @@ *> storage spacing between elements of DY *> \endverbatim *> -*> \param[in,out] DPARAM +*> \param[in] DPARAM *> \verbatim *> DPARAM is DOUBLE PRECISION array, dimension (5) *> DPARAM(1)=DFLAG diff --git a/BLAS/SRC/srotm.f b/BLAS/SRC/srotm.f index eed3273654..6074ec6fab 100644 --- a/BLAS/SRC/srotm.f +++ b/BLAS/SRC/srotm.f @@ -72,7 +72,7 @@ *> storage spacing between elements of SY *> \endverbatim *> -*> \param[in,out] SPARAM +*> \param[in] SPARAM *> \verbatim *> SPARAM is REAL array, dimension (5) *> SPARAM(1)=SFLAG From c4ef454bc2cd586727a3ce55c578ffe62bfd856d Mon Sep 17 00:00:00 2001 From: Henning Thielemann Date: Mon, 12 Jun 2017 11:51:05 +0200 Subject: [PATCH 7/7] BLAS/xROTMG; comment on xPARAM: turn to output direction --- BLAS/SRC/drotmg.f | 2 +- BLAS/SRC/srotmg.f | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/BLAS/SRC/drotmg.f b/BLAS/SRC/drotmg.f index 570525b376..4510fa7838 100644 --- a/BLAS/SRC/drotmg.f +++ b/BLAS/SRC/drotmg.f @@ -65,7 +65,7 @@ *> DY1 is DOUBLE PRECISION *> \endverbatim *> -*> \param[in,out] DPARAM +*> \param[out] DPARAM *> \verbatim *> DPARAM is DOUBLE PRECISION array, dimension (5) *> DPARAM(1)=DFLAG diff --git a/BLAS/SRC/srotmg.f b/BLAS/SRC/srotmg.f index b942e028f7..f167241b29 100644 --- a/BLAS/SRC/srotmg.f +++ b/BLAS/SRC/srotmg.f @@ -65,7 +65,7 @@ *> SY1 is REAL *> \endverbatim *> -*> \param[in,out] SPARAM +*> \param[out] SPARAM *> \verbatim *> SPARAM is REAL array, dimension (5) *> SPARAM(1)=SFLAG