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/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/complexdots.f')
-rw-r--r-- | blas/complexdots.f | 43 |
1 files changed, 0 insertions, 43 deletions
diff --git a/blas/complexdots.f b/blas/complexdots.f deleted file mode 100644 index a7da51d16..000000000 --- a/blas/complexdots.f +++ /dev/null @@ -1,43 +0,0 @@ - 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 |