From 483eb2f56657e8e7f419ab1a4fab8dce9ade8609 Mon Sep 17 00:00:00 2001 From: Daniel Baumann Date: Sat, 27 Apr 2024 20:24:20 +0200 Subject: Adding upstream version 14.2.21. Signed-off-by: Daniel Baumann --- src/boost/libs/compute/perf/perf_stl_saxpy.cpp | 52 ++++++++++++++++++++++++++ 1 file changed, 52 insertions(+) create mode 100644 src/boost/libs/compute/perf/perf_stl_saxpy.cpp (limited to 'src/boost/libs/compute/perf/perf_stl_saxpy.cpp') diff --git a/src/boost/libs/compute/perf/perf_stl_saxpy.cpp b/src/boost/libs/compute/perf/perf_stl_saxpy.cpp new file mode 100644 index 00000000..8ab33535 --- /dev/null +++ b/src/boost/libs/compute/perf/perf_stl_saxpy.cpp @@ -0,0 +1,52 @@ +//---------------------------------------------------------------------------// +// Copyright (c) 2013-2014 Kyle Lutz +// +// Distributed under the Boost Software License, Version 1.0 +// See accompanying file LICENSE_1_0.txt or copy at +// http://www.boost.org/LICENSE_1_0.txt +// +// See http://boostorg.github.com/compute for more information. +//---------------------------------------------------------------------------// + +#include +#include +#include + +#include "perf.hpp" + +float rand_float() +{ + return (float(rand()) / float(RAND_MAX)) * 1000.f; +} + +// y <- alpha * x + y +void serial_saxpy(size_t n, float alpha, const float *x, float *y) +{ + for(size_t i = 0; i < n; i++){ + y[i] = alpha * x[i] + y[i]; + } +} + +int main(int argc, char *argv[]) +{ + perf_parse_args(argc, argv); + + std::cout << "size: " << PERF_N << std::endl; + + float alpha = 2.5f; + + std::vector host_x(PERF_N); + std::vector host_y(PERF_N); + std::generate(host_x.begin(), host_x.end(), rand_float); + std::generate(host_y.begin(), host_y.end(), rand_float); + + perf_timer t; + for(size_t trial = 0; trial < PERF_TRIALS; trial++){ + t.start(); + serial_saxpy(PERF_N, alpha, &host_x[0], &host_y[0]); + t.stop(); + } + std::cout << "time: " << t.min_time() / 1e6 << " ms" << std::endl; + + return 0; +} -- cgit v1.2.3