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