tempest/resources/3rdparty/eigen/blas/complexdots.f

      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