You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
43 lines
979 B
43 lines
979 B
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
|