home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / listings / v_10_06 / 1006088b < prev    next >
Text File  |  1991-09-09  |  384b  |  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.