summaryrefslogtreecommitdiff
path: root/BLAS/SRC/isamax.f
diff options
context:
space:
mode:
Diffstat (limited to 'BLAS/SRC/isamax.f')
-rw-r--r--BLAS/SRC/isamax.f7
1 files changed, 6 insertions, 1 deletions
diff --git a/BLAS/SRC/isamax.f b/BLAS/SRC/isamax.f
index f6fd3121..88741e7e 100644
--- a/BLAS/SRC/isamax.f
+++ b/BLAS/SRC/isamax.f
@@ -9,11 +9,16 @@
* Purpose
* =======
*
-* finds the index of element having max. absolute value.
+* ISAMAX finds the index of element having max. absolute value.
+*
+* Further Details
+* ===============
+*
* jack dongarra, linpack, 3/11/78.
* modified 3/93 to return if incx .le. 0.
* modified 12/3/93, array(1) declarations changed to array(*)
*
+* =====================================================================
*
* .. Local Scalars ..
REAL SMAX