( Let me know if I broke anything. I double checked. We should be fine but )

( please let me know if concerns/problems.                                 )

1) The comments in ICMAX1 (resp. IZMAX1) were not correct. The comments read:
"ICMAX1 finds the index of the element whose real part has maximum absolute
value." It should have read: "ICMAX1 finds the index of the first vector
element of maximum absolute value." This is corrected. The problem was reported
Eloy Romero Alcalde from the SLEPc team, Universitat Politècnica de València
and confirmed by Nick Higham, Sven Hammarling and Julien Langou.

2) The routine ICAMAX (resp. IZAMAX) from the BLAS evolved without ICMAX1
(resp. IZMAX1). Reconcialated both version. So essentially took the ICAMAX
currently in the BLAS and changed it appropriately for an ICMAX1.

3) Remove the use of statement function in ICMAX1 (resp. IZMAX1). Now obsolete
in FORTRAN.

4) Change comments in BLAS routines: SCABS1, DCABS1, ICAMAX, IZAMAX, SCASUM,
and DZASUM. Remove the use of "absolute value of a complex number" for the
quantity "| Re(.) | + | Im(.) |". For example:
before
   DCABS1 computes absolute value of a double complex number 
after
   DCABS1 computes |Re(.)| + |Im(.)| of a double complex number 

8 files changed, 9 insertions, 8 deletions

diff --git a/BLAS/SRC/dcabs1.f b/BLAS/SRC/dcabs1.f
index f6debb9a..f94a7c87 100644
--- a/BLAS/SRC/dcabs1.f
+++ b/BLAS/SRC/dcabs1.f
@@ -21,7 +21,7 @@
 *>
 *> \verbatim
 *>
-*> DCABS1 computes absolute value of a double complex number 
+*> DCABS1 computes |Re(.)| + |Im(.)| of a double complex number 
 *> \endverbatim
 *
 *  Authors:
diff --git a/BLAS/SRC/dzasum.f b/BLAS/SRC/dzasum.f
index cbeee993..afb3cf6e 100644
--- a/BLAS/SRC/dzasum.f
+++ b/BLAS/SRC/dzasum.f
@@ -23,7 +23,8 @@
 *>
 *> \verbatim
 *>
-*>    DZASUM takes the sum of the absolute values.
+*>    DZASUM takes the sum of the (|Re(.)| + |Im(.)|)'s of a complex vector and
+*>    returns a single precision result.
 *> \endverbatim
 *
 *  Authors:
diff --git a/BLAS/SRC/icamax.f b/BLAS/SRC/icamax.f
index 2120db98..299b2ce6 100644
--- a/BLAS/SRC/icamax.f
+++ b/BLAS/SRC/icamax.f
@@ -23,7 +23,7 @@
 *>
 *> \verbatim
 *>
-*>    ICAMAX finds the index of element having max. absolute value.
+*>    ICAMAX finds the index of the first element having maximum |Re(.)| + |Im(.)|
 *> \endverbatim
 *
 *  Authors:
diff --git a/BLAS/SRC/idamax.f b/BLAS/SRC/idamax.f
index 4233fcc2..079435ea 100644
--- a/BLAS/SRC/idamax.f
+++ b/BLAS/SRC/idamax.f
@@ -23,7 +23,7 @@
 *>
 *> \verbatim
 *>
-*>    IDAMAX finds the index of element having max. absolute value.
+*>    IDAMAX finds the index of the first element having maximum absolute value.
 *> \endverbatim
 *
 *  Authors:
diff --git a/BLAS/SRC/isamax.f b/BLAS/SRC/isamax.f
index af977c59..04b730a3 100644
--- a/BLAS/SRC/isamax.f
+++ b/BLAS/SRC/isamax.f
@@ -23,7 +23,7 @@
 *>
 *> \verbatim
 *>
-*>    ISAMAX finds the index of element having max. absolute value.
+*>    ISAMAX finds the index of the first element having maximum absolute value.
 *> \endverbatim
 *
 *  Authors:
diff --git a/BLAS/SRC/izamax.f b/BLAS/SRC/izamax.f
index d51cd582..8f49e61a 100644
--- a/BLAS/SRC/izamax.f
+++ b/BLAS/SRC/izamax.f
@@ -23,7 +23,7 @@
 *>
 *> \verbatim
 *>
-*>    IZAMAX finds the index of element having max. absolute value.
+*>    IZAMAX finds the index of the first element having maximum |Re(.)| + |Im(.)|
 *> \endverbatim
 *
 *  Authors:
diff --git a/BLAS/SRC/scabs1.f b/BLAS/SRC/scabs1.f
index cdb5c0b9..f936e347 100644
--- a/BLAS/SRC/scabs1.f
+++ b/BLAS/SRC/scabs1.f
@@ -20,7 +20,7 @@
 *>
 *> \verbatim
 *>
-*> SCABS1 computes absolute value of a complex number
+*> SCABS1 computes |Re(.)| + |Im(.)| of a complex number
 *> \endverbatim
 *
 *  Authors:
diff --git a/BLAS/SRC/scasum.f b/BLAS/SRC/scasum.f
index 03154eb5..733f23f8 100644
--- a/BLAS/SRC/scasum.f
+++ b/BLAS/SRC/scasum.f
@@ -23,7 +23,7 @@
 *>
 *> \verbatim
 *>
-*>    SCASUM takes the sum of the absolute values of a complex vector and
+*>    SCASUM takes the sum of the (|Re(.)| + |Im(.)|)'s of a complex vector and
 *>    returns a single precision result.
 *> \endverbatim
 *