1 INTEGER FUNCTION izmax1( N, CX, INCX )
49 DOUBLE PRECISION cabs1
54 cabs1( zdum ) = abs( dble( zdum ) )
70 smax = cabs1( cx( 1 ) )
73 IF( cabs1( cx( ix ) ).LE.smax )
76 smax = cabs1( cx( ix ) )
85 smax = cabs1( cx( 1 ) )
87 IF( cabs1( cx( i ) ).LE.smax )
90 smax = cabs1( cx( i ) )
integer function izmax1(N, CX, INCX)