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