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