diff options
| author |  Benoit Steiner <benoit.steiner.goog@gmail.com> | 2015-02-06 05:25:03 -0800 |
|---|---|---|
| committer | Benoit Steiner <benoit.steiner.goog@gmail.com> | 2015-02-06 05:25:03 -0800 |
| commit | c739102ef9a52fcb194dcc77f785aa55879987e4 (patch) | |
| tree | 22d19d1df4cb20baea532fa1ce13208329ff53e3 /blas/fortran/complexdots.f | |
| parent | 2559fa9b0f20ea138cfb019d441ad1757221568d (diff) | |
| parent | a8f2c6eec788c5cccc6beb9b5837544ea98a7154 (diff) | |
Pulled the latest changes from the trunk
Diffstat (limited to 'blas/fortran/complexdots.f')
| -rw-r--r-- | blas/fortran/complexdots.f | 43 |
1 files changed, 43 insertions, 0 deletions
diff --git a/blas/fortran/complexdots.f b/blas/fortran/complexdots.f new file mode 100644 index 000000000..a7da51d16 --- /dev/null +++ b/blas/fortran/complexdots.f @@ -0,0 +1,43 @@ + COMPLEX FUNCTION CDOTC(N,CX,INCX,CY,INCY) + INTEGER INCX,INCY,N + COMPLEX CX(*),CY(*) + COMPLEX RES + EXTERNAL CDOTCW + + CALL CDOTCW(N,CX,INCX,CY,INCY,RES) + CDOTC = RES + RETURN + END + + COMPLEX FUNCTION CDOTU(N,CX,INCX,CY,INCY) + INTEGER INCX,INCY,N + COMPLEX CX(*),CY(*) + COMPLEX RES + EXTERNAL CDOTUW + + CALL CDOTUW(N,CX,INCX,CY,INCY,RES) + CDOTU = RES + RETURN + END + + DOUBLE COMPLEX FUNCTION ZDOTC(N,CX,INCX,CY,INCY) + INTEGER INCX,INCY,N + DOUBLE COMPLEX CX(*),CY(*) + DOUBLE COMPLEX RES + EXTERNAL ZDOTCW + + CALL ZDOTCW(N,CX,INCX,CY,INCY,RES) + ZDOTC = RES + RETURN + END + + DOUBLE COMPLEX FUNCTION ZDOTU(N,CX,INCX,CY,INCY) + INTEGER INCX,INCY,N + DOUBLE COMPLEX CX(*),CY(*) + DOUBLE COMPLEX RES + EXTERNAL ZDOTUW + + CALL ZDOTUW(N,CX,INCX,CY,INCY,RES) + ZDOTU = RES + RETURN + END |