# include
# include
# include
# include
# include "annulus_rule.h"
/******************************************************************************/
double r8vec_dot_product ( int n, double a1[], double a2[] )
/******************************************************************************/
/*
Purpose:
R8VEC_DOT_PRODUCT computes the dot product of a pair of R8VEC's.
Licensing:
This code is distributed under the GNU LGPL license.
Modified:
26 July 2007
Author:
John Burkardt
Parameters:
Input, int N, the number of entries in the vectors.
Input, double A1[N], A2[N], the two vectors to be considered.
Output, double R8VEC_DOT_PRODUCT, the dot product of the vectors.
*/
{
int i;
double value;
value = 0.0;
for ( i = 0; i < n; i++ )
{
value = value + a1[i] * a2[i];
}
return value;
}