summaryrefslogtreecommitdiff
path: root/BLAS/SRC/sswap.f
diff options
context:
space:
mode:
Diffstat (limited to 'BLAS/SRC/sswap.f')
-rw-r--r--BLAS/SRC/sswap.f33
1 files changed, 32 insertions, 1 deletions
diff --git a/BLAS/SRC/sswap.f b/BLAS/SRC/sswap.f
index f821a1e7..fb88cb27 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:
* ========
*