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