1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
|
// =================================================================================================
// This file is part of the CLBlast project. The project is licensed under Apache Version 2.0. This
// project loosely follows the Google C++ styleguide and uses a tab-size of two spaces and a max-
// width of 100 characters per line.
//
// Author(s):
// Cedric Nugteren <www.cedricnugteren.nl>
//
// This file contains 'clinfo' like diagnostics specific for CLBlast (debugging)
//
// =================================================================================================
#include <cstdio>
#include <chrono>
#include <algorithm>
#include "utilities/timing.hpp"
#include "utilities/utilities.hpp"
namespace clblast {
// =================================================================================================
void OpenCLDiagnostics(int argc, char *argv[]) {
auto arguments = RetrieveCommandLineArguments(argc, argv);
// Retrieves the arguments
auto help = std::string{"Options given/available:\n"};
const auto platform_id = GetArgument(arguments, help, kArgPlatform, ConvertArgument(std::getenv("CLBLAST_PLATFORM"), size_t{0}));
const auto device_id = GetArgument(arguments, help, kArgDevice, ConvertArgument(std::getenv("CLBLAST_DEVICE"), size_t{0}));
fprintf(stdout, "\n* %s\n", help.c_str());
// Initializes OpenCL
const auto platform = Platform(platform_id);
const auto device = Device(platform, device_id);
const auto context = Context(device);
auto queue = Queue(context, device);
// Finds device information
const auto device_type = GetDeviceType(device);
const auto device_vendor = GetDeviceVendor(device);
const auto device_architecture = GetDeviceArchitecture(device);
const auto device_name = GetDeviceName(device);
printf("\n --- OpenCL device naming:\n");
printf("* Device type %s\n", device.Type().c_str());
printf("* Device name %s\n", device.Name().c_str());
printf("* Platform vendor %s\n", platform.Vendor().c_str());
printf("* Platform version %s\n", platform.Version().c_str());
// Prints the CLBlast specific device names
printf("\n --- CLBlast device naming:\n");
printf("* Device type %s\n", device_type.c_str());
printf("* Device name %s\n", device_name.c_str());
printf("* Device vendor %s\n", device_vendor.c_str());
printf("* Device architecture %s\n", device_architecture.c_str());
// Selected OpenCL properties
printf("\n --- OpenCL device properties:\n");
printf("* Max work group size %zu\n", device.MaxWorkGroupSize());
printf("* Max work item dimensions %zu\n", device.MaxWorkItemDimensions());
const auto max_work_item_sizes = device.MaxWorkItemSizes();
for (auto i = size_t{0}; i < max_work_item_sizes.size(); ++i) {
printf("* - Max work item size #%zu %zu\n", i, max_work_item_sizes[i]);
}
printf("* Local memory size %zuKB\n", device.LocalMemSize());
printf("* Extensions:\n%s\n", device.Capabilities().c_str());
// Simple OpenCL benchmarking
constexpr auto kNumRuns = 20;
printf("\n --- Some OpenCL library benchmarks (functions from clpp11.h):\n");
printf("* queue.GetContext() %.4lf ms\n", TimeFunction(kNumRuns, [&](){queue.GetContext();} ));
printf("* queue.GetDevice() %.4lf ms\n", TimeFunction(kNumRuns, [&](){queue.GetDevice();} ));
printf("* device.Name() %.4lf ms\n", TimeFunction(kNumRuns, [&](){device.Name();} ));
printf("* device.Vendor() %.4lf ms\n", TimeFunction(kNumRuns, [&](){device.Vendor();} ));
printf("* device.Version() %.4lf ms\n", TimeFunction(kNumRuns, [&](){device.Version();} ));
printf("* device.Platform() %.4lf ms\n", TimeFunction(kNumRuns, [&](){ device.PlatformID();} ));
printf("* Buffer<float>(context, 1024) %.4lf ms\n", TimeFunction(kNumRuns, [&](){Buffer<float>(context, 1024);} ));
printf("\n");
}
// =================================================================================================
} // namespace clblast
// Main function (not within the clblast namespace)
int main(int argc, char *argv[]) {
clblast::OpenCLDiagnostics(argc, argv);
return 0;
}
// =================================================================================================
|
