summaryrefslogtreecommitdiff
path: root/BLAS/SRC/zswap.f
diff options
context:
space:
mode:
Diffstat (limited to 'BLAS/SRC/zswap.f')
-rw-r--r--BLAS/SRC/zswap.f7
1 files changed, 6 insertions, 1 deletions
diff --git a/BLAS/SRC/zswap.f b/BLAS/SRC/zswap.f
index 0b2dcd23..6ce8c09a 100644
--- a/BLAS/SRC/zswap.f
+++ b/BLAS/SRC/zswap.f
@@ -9,10 +9,15 @@
* Purpose
* =======
*
-* interchanges two vectors.
+* ZSWAP interchanges two vectors.
+*
+* Further Details
+* ===============
+*
* jack dongarra, 3/11/78.
* modified 12/3/93, array(1) declarations changed to array(*)
*
+* =====================================================================
*
* .. Local Scalars ..
DOUBLE COMPLEX ZTEMP