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

  size_t n;
  size_t ix = 0;
  for(n=0; n<N; n++) {
    X[ix] *= alpha;
    ix += incX;
  }