1       COMPLEX FUNCTION CDOTC(N,CX,INCX,CY,INCY)
2       INTEGER INCX,INCY,N  local
7       CALL CDOTCW(N,CX,INCX,CY,INCY,RES)
12       COMPLEX FUNCTION CDOTU(N,CX,INCX,CY,INCY)
13       INTEGER INCX,INCY,N  local
18       CALL CDOTUW(N,CX,INCX,CY,INCY,RES)
23       DOUBLE COMPLEX FUNCTION ZDOTC(N,CX,INCX,CY,INCY)
24       INTEGER INCX,INCY,N  local
29       CALL ZDOTCW(N,CX,INCX,CY,INCY,RES)
34       DOUBLE COMPLEX FUNCTION ZDOTU(N,CX,INCX,CY,INCY)
35       INTEGER INCX,INCY,N  local
40       CALL ZDOTUW(N,CX,INCX,CY,INCY,RES)