1      COMPLEX FUNCTION CDOTC(N,CX,INCX,CY,INCY)
2      INTEGER INCX,INCY,N
3      COMPLEX CX(*),CY(*)
4      COMPLEX RES
5      EXTERNAL CDOTCW
6
7      CALL CDOTCW(N,CX,INCX,CY,INCY,RES)
8      CDOTC = RES
9      RETURN
10      END
11
12      COMPLEX FUNCTION CDOTU(N,CX,INCX,CY,INCY)
13      INTEGER INCX,INCY,N
14      COMPLEX CX(*),CY(*)
15      COMPLEX RES
16      EXTERNAL CDOTUW
17
18      CALL CDOTUW(N,CX,INCX,CY,INCY,RES)
19      CDOTU = RES
20      RETURN
21      END
22
23      DOUBLE COMPLEX FUNCTION ZDOTC(N,CX,INCX,CY,INCY)
24      INTEGER INCX,INCY,N
25      DOUBLE COMPLEX CX(*),CY(*)
26      DOUBLE COMPLEX RES
27      EXTERNAL ZDOTCW
28
29      CALL ZDOTCW(N,CX,INCX,CY,INCY,RES)
30      ZDOTC = RES
31      RETURN
32      END
33
34      DOUBLE COMPLEX FUNCTION ZDOTU(N,CX,INCX,CY,INCY)
35      INTEGER INCX,INCY,N
36      DOUBLE COMPLEX CX(*),CY(*)
37      DOUBLE COMPLEX RES
38      EXTERNAL ZDOTUW
39
40      CALL ZDOTUW(N,CX,INCX,CY,INCY,RES)
41      ZDOTU = RES
42      RETURN
43      END
44