/* 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++;
}
