mirror of
https://gitlab.com/libeigen/eigen.git
synced 2024-12-21 07:19:46 +08:00
80cae358b0
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.
44 lines
979 B
Fortran
44 lines
979 B
Fortran
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
|