[136] | 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
|
---|