SCALAPACK 2.2.2
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches

◆ dvvdot()

subroutine dvvdot ( integer  n,
double precision  dot,
double precision, dimension( * )  x,
integer  incx,
double precision, dimension( * )  y,
integer  incy 
)

Definition at line 1 of file dvvdot.f.

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 DOUBLE PRECISION DOT
11* ..
12* .. Array Arguments ..
13 DOUBLE PRECISION X( * ), Y( * )
14* ..
15*
16* Purpose
17* =======
18*
19* DVVDOT 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) DOUBLE PRECISION
33* On exit, DOT is updated with the dot product of the vectors x
34* and y.
35*
36* X (input) DOUBLE PRECISION 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) DOUBLE PRECISION 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 DOUBLE PRECISION DDOT
59 EXTERNAL ddot
60* ..
61* .. Executable Statements ..
62*
63 dot = dot + ddot( n, x, incx, y, incy )
64*
65 RETURN
66*
67* End of DVVDOT
68*