home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / C-SSP.ARJ / VEPROD.C < prev    next >
Encoding:
Text File  |  1984-06-13  |  256 b   |  16 lines
  1.       veprod(a,b,c,n)
  2.  
  3.       /*this function computes the inner product of two vectors.*/
  4.  
  5.       int n;
  6.       float a[],b[],*c;
  7.  
  8.     {
  9.       register int i;
  10.  
  11.       *c = 0.0;
  12.       for(i = 0; i <= n-1; i++)
  13.        *c +=  a[i] * b[i];
  14.     }
  15.  
  16.