/* This is a sample C program used to sum numbers */

long far isum(a, n) /* sum a long integer vector */
long far *a;
long n;
{
    long z = 0;
    while (--n >= 0) z += *a++;
    return(z);
}

double far fsum(a, n) /* sum a float vector */
double far *a;
long n;
{
    double z = 0;
    while (--n >= 0) z += *a++;
    return(z);
}