mirror of
https://gitlab.com/libeigen/eigen.git
synced 2024-12-27 07:29:52 +08:00
44 lines
979 B
FortranFixed
44 lines
979 B
FortranFixed
|
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
|