/* 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 * getblock1(int n)
{
    return (double *) malloc(n * sizeof(double));
}

double * getblock2(int n)
{
    return block+n;
}
