diff options
author | Tim Murray <timmurray@google.com> | 2014-11-24 10:56:30 -0800 |
---|---|---|
committer | Tim Murray <timmurray@google.com> | 2014-11-24 10:56:30 -0800 |
commit | 80cae358b000c87bba77414cdb36ddf55eced896 (patch) | |
tree | dc6d5050a9e5934d93b1e9ef41f02fc0630616cf /blas/fortran/complexdots.f | |
parent | 0efaff9b3b261daaa91baf8935ec7c4f5156a647 (diff) |
Adds a modified f2c-generated C implmentation for BLAS.
This adds an optional implementation for the BLAS library that does
not require the use of a FORTRAN compiler. It can be enabled with
EIGEN_USE_F2C_BLAS.
The C implementation uses the standard gfortran calling convention
and does not require the use of -ff2c when compiled with gfortran.
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 |