LAPACK  3.6.0
LAPACK: Linear Algebra PACKage
integer function icamax ( integer  N,
complex, dimension(*)  CX,
integer  INCX 
)

ICAMAX

Purpose:
    ICAMAX finds the index of the first element having maximum |Re(.)| + |Im(.)|
Author
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.
Date
November 2015
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(*)