Listing 3

#include <stdlib.h>

double block[200];
double * getblock1(int);
double * getblock2(int);

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

   p = getblock1(200);
   q = getblock1(200);
   r = getblock1(200);

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

   p = getblock2(1);
   q = getblock2(0);
   r = getblock2(0);

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

double * getblockl(int n)
{
   return (double *)
      malloc(n * sizeof(double));
}

double * getblock2(int n)
{
   return block+n;
}
/* End of File */