Go to the documentation of this file.00001 subroutine xzdotu (n, zx, incx, zy, incy, retval)
00002 double complex zdotu, zx(*), zy(*), retval
00003 integer n, incx, incy
00004 external zdotu
00005 retval = zdotu (n, zx, incx, zy, incy)
00006 return
00007 end
1.7.1
