ScaLAPACK 2.1  2.1
ScaLAPACK: Scalable Linear Algebra PACKage
dvvdot.f
Go to the documentation of this file.
1  SUBROUTINE dvvdot( 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  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 *
69  END
dvvdot
subroutine dvvdot(N, DOT, X, INCX, Y, INCY)
Definition: dvvdot.f:2