Listing 4

#include <stdlib.h>
static double c[200];

f4()
{
   double a[200];
   double *b;

   b = (double *)malloc(200 * sizeof(double));

   f4sub1(c,b,a,200);
   f4sub2(c+1,c,a,200);
}

f4sub1(double *p, double *q, double *r, int n)
{
   int i;

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

f4sub2(double *p, double *q, double *r, int n)
{
   int i;

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