1 integer function ixamaxf(n,zx,incx)
3 c finds the index of element having max. absolute value.
4 c jack dongarra, 1/15/85.
5 c modified 3/93 to return if incx .le. 0.
6 c modified 12/3/93, array(1) declarations changed to array(*)
14 if( n.lt.1 .or. incx.le.0 )return
19 c code for increment not equal to 1
25 if(qcabs1(zx(ix)).le.smax) go to 5
32 c code for increment equal to 1
34 20 smax = qcabs1(zx(1))
36 if(qcabs1(zx(i)).le.smax) go to 30