Listing 1

short calculate_net(net, N, w, x)
   short *net, N, w[], x[];
{
   short i;
   *net = 0;
   for(i=0; i<N+1; i++){
      *net = *net + w[i]*x[i];
   }
}   /* ends calculate_net */
/*  End of File */