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
