home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Programming
/
powerprogramming1994.iso
/
progtool
/
borland
/
jnfb88.arc
/
CFLOAT.ARC
/
DOT.C
< prev
next >
Wrap
Text File
|
1987-06-23
|
188b
|
11 lines
/* Listing 4: */
double dot(int n, double *x, double *y)
{
int i;
double sum = 0.;
for (i = 0; i < n; ++i)
sum = sum + x[i] * y[i];
return sum;
}