# include <stdlib.h>
# include <stdio.h>
# include <omp.h>

double *random_vector ( int n );

int main ( int argc, char *argv[] )
{
  int i, n = 1000;
  double *x, *y, s;

  s = 123.456;
  x = random_vector ( n );
  y = random_vector ( n );

# pragma omp parallel \
  shared ( n, s, x, y ) \
  private ( i )
# pragma omp for
  for ( i = 0; i < n; i++ )
  {
    y[i] = y[i] + s * x[i];
  }
  return 0;
}