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

  size_t n;
  size_t i = 0;
  size_t j = 0;
  for(n=0; n<N; n++) {
    const BASE_TYPE tmp = X[i];
    X[i] = Y[j];
    Y[j] = tmp;
    i += incX;
    j += incY;
  }