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