1      SUBROUTINE CVVDOTU( N, DOT, X, INCX, Y, INCY )
2*
3*  -- PBLAS auxiliary routine (version 2.0) --
4*     University of Tennessee, Knoxville, Oak Ridge National Laboratory,
5*     and University of California, Berkeley.
6*     April 1, 1998
7*
8*     .. Scalar Arguments ..
9      INTEGER            INCX, INCY, N
10      COMPLEX            DOT
11*     ..
12*     .. Array Arguments ..
13      COMPLEX            X( * ), Y( * )
14*     ..
15*
16*  Purpose
17*  =======
18*
19*  CVVDOTU computes the following dot product:
20*
21*     dot = dot + x**T * y,
22*
23*  where x and y are n vectors.
24*
25*  Arguments
26*  =========
27*
28*  N       (input) INTEGER
29*          On entry, N  specifies the length of the  vectors x and y.  N
30*          must be at least zero.
31*
32*  DOT     (input/output) COMPLEX
33*          On exit, DOT is updated with the dot product of the vectors x
34*          and y.
35*
36*  X       (input) COMPLEX array of dimension at least
37*          ( 1 + ( n - 1 )*abs( INCX ) ). Before entry,  the incremented
38*          array X must contain the vector x.
39*
40*  INCX    (input) INTEGER
41*          On entry, INCX specifies the increment for the elements of X.
42*          INCX must not be zero.
43*
44*  Y       (input) COMPLEX array of dimension at least
45*          ( 1 + ( n - 1 )*abs( INCY ) ). Before entry,  the incremented
46*          array Y must contain the vector y.
47*
48*  INCY    (input) INTEGER
49*          On entry, INCY specifies the increment for the elements of Y.
50*          INCY must not be zero.
51*
52*  -- Written on April 1, 1998 by
53*     Antoine Petitet, University  of  Tennessee, Knoxville 37996, USA.
54*
55*  =====================================================================
56*
57*     .. External Functions ..
58      COMPLEX            CDOTU
59      EXTERNAL           CDOTU
60*     ..
61*     .. Executable Statements ..
62*
63      DOT = DOT + CDOTU( N, X, INCX, Y, INCY )
64*
65      RETURN
66*
67*     End of CVVDOTU
68*
69      END
70