| Brian Silverman | 72890c2 | 2015-09-19 14:37:37 -0400 | [diff] [blame] | 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 |