home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / BORLAND / JNFB88.ARC / CFLOAT.ARC / DOT.C < prev    next >
Encoding:
Text File  |  1987-06-23  |  188 b   |  11 lines
  1. /* Listing 4: */
  2.  
  3. double dot(int n, double *x, double *y)
  4. {
  5.      int i;
  6.      double sum = 0.;
  7.      for (i = 0; i < n; ++i)
  8.           sum = sum + x[i] * y[i];
  9.      return sum;
  10. }
  11.