|
- c icamaxsub.f
- c
- c The program is a fortran wrapper for idamax.
- c Witten by Keita Teranishi. 2/22/1998
- c
- subroutine idamaxsub(n,x,incx,iamax)
- c
- external idamax
- integer idamax,iamax
- integer n,incx
- double precision x(*)
- c
- iamax=idamax(n,x,incx)
- return
- end
|