Listing 2

static double c[200];

f2()
{
   int i;
   double a[200], b[200];
   double *p, *q, *r;

   p = a; q = b; r = c;

   for( i=0; i<200; ++i)
      *p++ = *q++ / *r++;

   p = a; q = a; r = c;

   for( i=0; i<200; ++i)
      *p++ = *q++ / *r++;

   p = a+1; q = a; r = b;

   for( i=1; i<200; ++i)
      *p++ = *q++ / *r++;
}
/* End of File */