82 INTEGER FUNCTION izmax1( N, CX, INCX )
100 DOUBLE PRECISION SMAX
107 DOUBLE PRECISION CABS1
112 cabs1( zdum ) = abs( zdum )
128 smax = cabs1( cx( 1 ) )
131 IF( cabs1( cx( ix ) ).LE.smax )
134 smax = cabs1( cx( ix ) )
143 smax = cabs1( cx( 1 ) )
145 IF( cabs1( cx( i ) ).LE.smax )
148 smax = cabs1( cx( i ) )
integer function izmax1(N, CX, INCX)
IZMAX1 finds the index of the vector element whose real part has maximum absolute value...