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

  size_t n;
  for(n=0; n<N; n++) {
    REAL(Y, incY, n) = REAL(X, incX, n);
    IMAG(Y, incY, n) = IMAG(X, incX, n);
  }