1c icamaxsub.f 2c 3c The program is a fortran wrapper for icamax. 4c Witten by Keita Teranishi. 2/11/1998 5c 6 subroutine icamaxsub(n,x,incx,iamax) 7c 8 external icamax 9 integer icamax,iamax 10 integer n,incx 11 complex x(*) 12c 13 iamax=icamax(n,x,incx) 14 return 15 end 16