| 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
|
|---|
