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