/*
 * Author:  G. Jungman
 * RCS:     $Id: source_dot_r.h,v 1.2 1999/10/18 00:45:12 jungman Exp $
 */

  ACC_TYPE r = INIT_VAL;
  size_t n;
  size_t i = 0;
  size_t j = 0;
  for(n=0; n<N; n++) {
    r += X[i]*Y[j];
    i += incX;
    j += incY;
  }
  return r;