home *** CD-ROM | disk | FTP | other *** search
/ Resource for Source: C/C++ / Resource for Source - C-C++.iso / codelib8 / v_10_06 / 1006088b < prev    next >
Encoding:
Text File  |  1995-11-01  |  384 b   |  26 lines
  1. /* LISTING 2 */
  2.  
  3. static double c[200];
  4.  
  5. f2() 
  6. {
  7.     int i;
  8.     double a[200], b[200];
  9.     double *p, *q, *r;
  10.  
  11.     p = a; q = b; r = c;
  12.  
  13.     for( i=0; i<200; ++i )
  14.         *p++ = *q++ / *r++;
  15.  
  16.     p = a; q = a; r = c;
  17.  
  18.     for( i=0; i<200; ++i )
  19.         *p++ = *q++ / *r++;
  20.  
  21.     p = a+1; q = a; r = b;
  22.  
  23.     for( i=1; i<200; ++i )
  24.         *p++ = *q++ / *r++;
  25. }
  26.