diff --git a/codes/gesummv/gesummv.c b/codes/gesummv/gesummv.c new file mode 100644 index 0000000000000000000000000000000000000000..c5e2cd6d2353f64f7f089302d4e1a5710840a457 --- /dev/null +++ b/codes/gesummv/gesummv.c @@ -0,0 +1,147 @@ +/** + * This version is stamped on May 10, 2016 + * + * Contact: + * Louis-Noel Pouchet <pouchet.ohio-state.edu> + * Tomofumi Yuki <tomofumi.yuki.fr> + * + * Web address: http://polybench.sourceforge.net + */ +/* gesummv.c: this file is part of PolyBench/C */ + +#include <stdio.h> +#include <unistd.h> +#include <string.h> +#include <math.h> + +/* Include polybench common header. */ +#include <polybench.h> + +/* Include benchmark-specific header. */ +#include "gesummv.h" + + +/* Array initialization. */ +static +void init_array(int n, + DATA_TYPE *alpha, + DATA_TYPE *beta, + DATA_TYPE POLYBENCH_2D(A,N,N,n,n), + DATA_TYPE POLYBENCH_2D(B,N,N,n,n), + DATA_TYPE POLYBENCH_1D(x,N,n)) +{ + int i, j; + + *alpha = 1.5; + *beta = 1.2; + for (i = 0; i < n; i++) + { + x[i] = (DATA_TYPE)( i % n) / n; + for (j = 0; j < n; j++) { + A[i][j] = (DATA_TYPE) ((i*j+1) % n) / n; + B[i][j] = (DATA_TYPE) ((i*j+2) % n) / n; + } + } +} + + +/* DCE code. Must scan the entire live-out data. + Can be used also to check the correctness of the output. */ +static +void print_array(int n, + DATA_TYPE POLYBENCH_1D(y,N,n)) + +{ + int i; + + POLYBENCH_DUMP_START; + POLYBENCH_DUMP_BEGIN("y"); + for (i = 0; i < n; i++) { + if (i % 20 == 0) fprintf (POLYBENCH_DUMP_TARGET, "\n"); + fprintf (POLYBENCH_DUMP_TARGET, DATA_PRINTF_MODIFIER, y[i]); + } + POLYBENCH_DUMP_END("y"); + POLYBENCH_DUMP_FINISH; +} + + +/* Main computational kernel. The whole function will be timed, + including the call and return. */ +static +void kernel_gesummv(int n, + DATA_TYPE alpha, + DATA_TYPE beta, + DATA_TYPE POLYBENCH_2D(A,N,N,n,n), + DATA_TYPE POLYBENCH_2D(B,N,N,n,n), + DATA_TYPE POLYBENCH_1D(tmp,N,n), + DATA_TYPE POLYBENCH_1D(x,N,n), + DATA_TYPE POLYBENCH_1D(y,N,n)) +{ + int i, j; + +#pragma scop + for (i = 0; i < _PB_N; i++) + { + tmp[i] = SCALAR_VAL(0.0); + y[i] = SCALAR_VAL(0.0); + for (j = 0; j < _PB_N; j++) + { + tmp[i] = A[i][j] * x[j] + tmp[i]; + y[i] = B[i][j] * x[j] + y[i]; + } + y[i] = alpha * tmp[i] + beta * y[i]; + } +#pragma endscop + +} + + +int main(int argc, char** argv) +{ + /* Retrieve problem size. */ + int n = N; + + /* Variable declaration/allocation. */ + DATA_TYPE alpha; + DATA_TYPE beta; + POLYBENCH_2D_ARRAY_DECL(A, DATA_TYPE, N, N, n, n); + POLYBENCH_2D_ARRAY_DECL(B, DATA_TYPE, N, N, n, n); + POLYBENCH_1D_ARRAY_DECL(tmp, DATA_TYPE, N, n); + POLYBENCH_1D_ARRAY_DECL(x, DATA_TYPE, N, n); + POLYBENCH_1D_ARRAY_DECL(y, DATA_TYPE, N, n); + + + /* Initialize array(s). */ + init_array (n, &alpha, &beta, + POLYBENCH_ARRAY(A), + POLYBENCH_ARRAY(B), + POLYBENCH_ARRAY(x)); + + /* Start timer. */ + polybench_start_instruments; + + /* Run kernel. */ + kernel_gesummv (n, alpha, beta, + POLYBENCH_ARRAY(A), + POLYBENCH_ARRAY(B), + POLYBENCH_ARRAY(tmp), + POLYBENCH_ARRAY(x), + POLYBENCH_ARRAY(y)); + + /* Stop and print timer. */ + polybench_stop_instruments; + polybench_print_instruments; + + /* Prevent dead-code elimination. All live-out data must be printed + by the function call in argument. */ + polybench_prevent_dce(print_array(n, POLYBENCH_ARRAY(y))); + + /* Be clean. */ + POLYBENCH_FREE_ARRAY(A); + POLYBENCH_FREE_ARRAY(B); + POLYBENCH_FREE_ARRAY(tmp); + POLYBENCH_FREE_ARRAY(x); + POLYBENCH_FREE_ARRAY(y); + + return 0; +} diff --git a/codes/gesummv/gesummv.h b/codes/gesummv/gesummv.h new file mode 100644 index 0000000000000000000000000000000000000000..64285d8307cc3c44cd5793c298f55b6ab27c2c4f --- /dev/null +++ b/codes/gesummv/gesummv.h @@ -0,0 +1,74 @@ +/** + * This version is stamped on May 10, 2016 + * + * Contact: + * Louis-Noel Pouchet <pouchet.ohio-state.edu> + * Tomofumi Yuki <tomofumi.yuki.fr> + * + * Web address: http://polybench.sourceforge.net + */ +#ifndef _GESUMMV_H +# define _GESUMMV_H + +/* Default to LARGE_DATASET. */ +# if !defined(MINI_DATASET) && !defined(SMALL_DATASET) && !defined(MEDIUM_DATASET) && !defined(LARGE_DATASET) && !defined(EXTRALARGE_DATASET) +# define LARGE_DATASET +# endif + +# if !defined(N) +/* Define sample dataset sizes. */ +# ifdef MINI_DATASET +# define N 30 +# endif + +# ifdef SMALL_DATASET +# define N 90 +# endif + +# ifdef MEDIUM_DATASET +# define N 250 +# endif + +# ifdef LARGE_DATASET +# define N 1300 +# endif + +# ifdef EXTRALARGE_DATASET +# define N 2800 +# endif + + +#endif /* !(N) */ + +# define _PB_N POLYBENCH_LOOP_BOUND(N,n) + + +/* Default data type */ +# if !defined(DATA_TYPE_IS_INT) && !defined(DATA_TYPE_IS_FLOAT) && !defined(DATA_TYPE_IS_DOUBLE) +# define DATA_TYPE_IS_DOUBLE +# endif + +#ifdef DATA_TYPE_IS_INT +# define DATA_TYPE int +# define DATA_PRINTF_MODIFIER "%d " +#endif + +#ifdef DATA_TYPE_IS_FLOAT +# define DATA_TYPE float +# define DATA_PRINTF_MODIFIER "%0.2f " +# define SCALAR_VAL(x) x##f +# define SQRT_FUN(x) sqrtf(x) +# define EXP_FUN(x) expf(x) +# define POW_FUN(x,y) powf(x,y) +# endif + +#ifdef DATA_TYPE_IS_DOUBLE +# define DATA_TYPE double +# define DATA_PRINTF_MODIFIER "%0.2lf " +# define SCALAR_VAL(x) x +# define SQRT_FUN(x) sqrt(x) +# define EXP_FUN(x) exp(x) +# define POW_FUN(x,y) pow(x,y) +# endif + +#endif /* !_GESUMMV_H */