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