Go to the source code of this file.
|
| subroutine | cdotcsub (n, x, incx, y, incy, dotc) |
◆ cdotcsub()
| subroutine cdotcsub |
( |
integer | n, |
|
|
complex, dimension(*) | x, |
|
|
integer | incx, |
|
|
complex, dimension(*) | y, |
|
|
integer | incy, |
|
|
complex | dotc ) |
Definition at line 6 of file cdotcsub.f.
7
8 external cdotc
9 complex cdotc,dotc
10 integer n,incx,incy
11 complex x(*),y(*)
12
13 dotc=
cdotc(n,x,incx,y,incy)
14 return
complex function cdotc(n, cx, incx, cy, incy)
CDOTC