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