1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
double complex function wzdotc(n, zx, incx, zy, incy)
double complex zx(*), zy(*), z
double complex zdotc
integer n, incx, incy
z = zdotc(n, zx, incx, zy, incy)
wzdotc = z
end
double complex function wzdotu(n, zx, incx, zy, incy)
double complex zx(*), zy(*), z, zdotu
integer n, incx, incy
z = zdotu(n, zx, incx, zy, incy)
wzdotu = z
return
end
complex function wcdotc(n, cx, incx, cy, incy)
complex cx(*), cy(*), c, cdotc
integer n, incx, incy
c = cdotc(n, cx, incx, cy, incy)
wcdotc = c
return
end
complex function wcdotu(n, cx, incx, cy, incy)
complex cx(*), cy(*), c, cdotu
integer n, incx, incy
c = cdotu(n, cx, incx, cy, incy)
wcdotu = c
return
end
complex function wcladiv(x, y)
complex x, y, z
complex cladiv
z = cladiv(x, y)
wcladiv = z
return
end
double complex function wzladiv(x, y)
double complex x, y, z
double complex zladiv
z = zladiv(x, y)
wzladiv = z
return
end
|
