Giorgio Arena | cf3935f | 2017-10-26 17:14:13 +0100 | [diff] [blame] | 1 | /* |
Gian Marco | 85e6f51 | 2018-02-01 16:57:48 +0000 | [diff] [blame] | 2 | * Copyright (c) 2017-2018 ARM Limited. |
Giorgio Arena | cf3935f | 2017-10-26 17:14:13 +0100 | [diff] [blame] | 3 | * |
| 4 | * SPDX-License-Identifier: MIT |
| 5 | * |
| 6 | * Permission is hereby granted, free of charge, to any person obtaining a copy |
| 7 | * of this software and associated documentation files (the "Software"), to |
| 8 | * deal in the Software without restriction, including without limitation the |
| 9 | * rights to use, copy, modify, merge, publish, distribute, sublicense, and/or |
| 10 | * sell copies of the Software, and to permit persons to whom the Software is |
| 11 | * furnished to do so, subject to the following conditions: |
| 12 | * |
| 13 | * The above copyright notice and this permission notice shall be included in all |
| 14 | * copies or substantial portions of the Software. |
| 15 | * |
| 16 | * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR |
| 17 | * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, |
| 18 | * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE |
| 19 | * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER |
| 20 | * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, |
| 21 | * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE |
| 22 | * SOFTWARE. |
| 23 | */ |
| 24 | #ifndef ARM_COMPUTE_CL /* Needed by Utils.cpp to handle OpenCL exceptions properly */ |
| 25 | #error "This example needs to be built with -DARM_COMPUTE_CL" |
| 26 | #endif /* ARM_COMPUTE_CL */ |
| 27 | |
| 28 | #include "arm_compute/core/Types.h" |
| 29 | #include "arm_compute/runtime/CL/CLFunctions.h" |
| 30 | #include "arm_compute/runtime/CL/CLScheduler.h" |
| 31 | #include "arm_compute/runtime/CL/CLTuner.h" |
| 32 | #include "utils/Utils.h" |
| 33 | |
Gian Marco | 0bc5a25 | 2017-12-04 13:55:08 +0000 | [diff] [blame] | 34 | #include <cstdlib> |
| 35 | |
Giorgio Arena | cf3935f | 2017-10-26 17:14:13 +0100 | [diff] [blame] | 36 | using namespace arm_compute; |
| 37 | using namespace utils; |
| 38 | |
Michalis Spyrou | 2b5f0f2 | 2018-01-10 14:08:50 +0000 | [diff] [blame] | 39 | class CLSGEMMExample : public Example |
Giorgio Arena | cf3935f | 2017-10-26 17:14:13 +0100 | [diff] [blame] | 40 | { |
Michalis Spyrou | 2b5f0f2 | 2018-01-10 14:08:50 +0000 | [diff] [blame] | 41 | public: |
Georgios Pinitas | 12be7ab | 2018-07-03 12:06:23 +0100 | [diff] [blame] | 42 | bool do_setup(int argc, char **argv) override |
Giorgio Arena | cf3935f | 2017-10-26 17:14:13 +0100 | [diff] [blame] | 43 | { |
Michalis Spyrou | 2b5f0f2 | 2018-01-10 14:08:50 +0000 | [diff] [blame] | 44 | NPYLoader npy0, npy1, npy2; |
| 45 | alpha = 1.0f; |
| 46 | beta = 0.0f; |
Giorgio Arena | cf3935f | 2017-10-26 17:14:13 +0100 | [diff] [blame] | 47 | |
Michalis Spyrou | 2b5f0f2 | 2018-01-10 14:08:50 +0000 | [diff] [blame] | 48 | CLScheduler::get().default_init(&tuner); |
Giorgio Arena | cf3935f | 2017-10-26 17:14:13 +0100 | [diff] [blame] | 49 | |
Michalis Spyrou | 2b5f0f2 | 2018-01-10 14:08:50 +0000 | [diff] [blame] | 50 | std::ifstream stream; |
| 51 | if(argc > 1) |
Giorgio Arena | cf3935f | 2017-10-26 17:14:13 +0100 | [diff] [blame] | 52 | { |
Michalis Spyrou | 2b5f0f2 | 2018-01-10 14:08:50 +0000 | [diff] [blame] | 53 | stream.open(argv[1], std::fstream::in); |
| 54 | } |
Giorgio Arena | cf3935f | 2017-10-26 17:14:13 +0100 | [diff] [blame] | 55 | |
Michalis Spyrou | 2b5f0f2 | 2018-01-10 14:08:50 +0000 | [diff] [blame] | 56 | if(argc < 3 || (argc < 4 && stream.bad())) |
| 57 | { |
| 58 | // Print help |
| 59 | std::cout << "Usage: 1) ./build/cl_sgemm input_matrix_1.npy input_matrix_2.npy [input_matrix_3.npy] [alpha = 1] [beta = 0]\n"; |
| 60 | std::cout << " 2) ./build/cl_sgemm M N K [alpha = 1.0f] [beta = 0.0f]\n\n"; |
| 61 | std::cout << "Too few or no input_matrices provided. Using M=7, N=3, K=5, alpha=1.0f and beta=0.0f\n\n"; |
| 62 | |
| 63 | src0.allocator()->init(TensorInfo(TensorShape(5U, 7U), 1, DataType::F32)); |
| 64 | src1.allocator()->init(TensorInfo(TensorShape(3U, 5U), 1, DataType::F32)); |
| 65 | src2.allocator()->init(TensorInfo(TensorShape(3U, 7U), 1, DataType::F32)); |
| 66 | } |
| 67 | else |
| 68 | { |
| 69 | if(stream.good()) /* case file1.npy file2.npy [file3.npy] [alpha = 1.0f] [beta = 0.0f] */ |
Giorgio Arena | cf3935f | 2017-10-26 17:14:13 +0100 | [diff] [blame] | 70 | { |
Michalis Spyrou | 2b5f0f2 | 2018-01-10 14:08:50 +0000 | [diff] [blame] | 71 | npy0.open(argv[1]); |
| 72 | npy0.init_tensor(src0, DataType::F32); |
| 73 | npy1.open(argv[2]); |
| 74 | npy1.init_tensor(src1, DataType::F32); |
| 75 | |
| 76 | if(argc > 3) |
Giorgio Arena | cf3935f | 2017-10-26 17:14:13 +0100 | [diff] [blame] | 77 | { |
Michalis Spyrou | 2b5f0f2 | 2018-01-10 14:08:50 +0000 | [diff] [blame] | 78 | stream.close(); |
| 79 | stream.clear(); |
| 80 | stream.open(argv[3], std::fstream::in); |
| 81 | if(stream.good()) /* case with third file */ |
Giorgio Arena | cf3935f | 2017-10-26 17:14:13 +0100 | [diff] [blame] | 82 | { |
Michalis Spyrou | 2b5f0f2 | 2018-01-10 14:08:50 +0000 | [diff] [blame] | 83 | npy2.open(argv[3]); |
| 84 | npy2.init_tensor(src2, DataType::F32); |
Giorgio Arena | cf3935f | 2017-10-26 17:14:13 +0100 | [diff] [blame] | 85 | |
Michalis Spyrou | 2b5f0f2 | 2018-01-10 14:08:50 +0000 | [diff] [blame] | 86 | if(argc > 4) |
Giorgio Arena | cf3935f | 2017-10-26 17:14:13 +0100 | [diff] [blame] | 87 | { |
Gian Marco | 0bc5a25 | 2017-12-04 13:55:08 +0000 | [diff] [blame] | 88 | // Convert string to float |
Michalis Spyrou | 2b5f0f2 | 2018-01-10 14:08:50 +0000 | [diff] [blame] | 89 | alpha = strtof(argv[4], nullptr); |
| 90 | |
| 91 | if(argc > 5) |
| 92 | { |
| 93 | // Convert string to float |
| 94 | beta = strtof(argv[5], nullptr); |
| 95 | } |
| 96 | } |
| 97 | } |
| 98 | else /* case without third file */ |
| 99 | { |
| 100 | alpha = strtof(argv[3], nullptr); |
| 101 | |
| 102 | if(argc > 4) |
| 103 | { |
| 104 | beta = strtof(argv[4], nullptr); |
Giorgio Arena | cf3935f | 2017-10-26 17:14:13 +0100 | [diff] [blame] | 105 | } |
| 106 | } |
| 107 | } |
Michalis Spyrou | 2b5f0f2 | 2018-01-10 14:08:50 +0000 | [diff] [blame] | 108 | } |
| 109 | else /* case M N K [alpha = 1.0f] [beta = 0.0f] */ |
| 110 | { |
| 111 | size_t M = strtol(argv[1], nullptr, 10); |
| 112 | size_t N = strtol(argv[2], nullptr, 10); |
| 113 | size_t K = strtol(argv[3], nullptr, 10); |
Giorgio Arena | cf3935f | 2017-10-26 17:14:13 +0100 | [diff] [blame] | 114 | |
Michalis Spyrou | 2b5f0f2 | 2018-01-10 14:08:50 +0000 | [diff] [blame] | 115 | src0.allocator()->init(TensorInfo(TensorShape(K, M), 1, DataType::F32)); |
| 116 | src1.allocator()->init(TensorInfo(TensorShape(N, K), 1, DataType::F32)); |
| 117 | src2.allocator()->init(TensorInfo(TensorShape(N, M), 1, DataType::F32)); |
| 118 | |
| 119 | if(argc > 4) |
| 120 | { |
| 121 | alpha = strtof(argv[4], nullptr); |
| 122 | |
| 123 | if(argc > 5) |
Giorgio Arena | cf3935f | 2017-10-26 17:14:13 +0100 | [diff] [blame] | 124 | { |
Michalis Spyrou | 2b5f0f2 | 2018-01-10 14:08:50 +0000 | [diff] [blame] | 125 | beta = strtof(argv[5], nullptr); |
Giorgio Arena | cf3935f | 2017-10-26 17:14:13 +0100 | [diff] [blame] | 126 | } |
| 127 | } |
| 128 | } |
| 129 | } |
Michalis Spyrou | 2b5f0f2 | 2018-01-10 14:08:50 +0000 | [diff] [blame] | 130 | |
| 131 | init_sgemm_output(dst, src0, src1, DataType::F32); |
| 132 | |
| 133 | // Configure function |
| 134 | sgemm.configure(&src0, &src1, (src2.info()->total_size() > 0) ? &src2 : nullptr, &dst, alpha, beta); |
| 135 | |
| 136 | // Allocate all the images |
| 137 | src0.allocator()->allocate(); |
| 138 | src1.allocator()->allocate(); |
| 139 | dst.allocator()->allocate(); |
| 140 | |
| 141 | // Fill the input images with either the data provided or random data |
| 142 | if(npy0.is_open()) |
Giorgio Arena | cf3935f | 2017-10-26 17:14:13 +0100 | [diff] [blame] | 143 | { |
Michalis Spyrou | 2b5f0f2 | 2018-01-10 14:08:50 +0000 | [diff] [blame] | 144 | npy0.fill_tensor(src0); |
| 145 | npy1.fill_tensor(src1); |
Giorgio Arena | cf3935f | 2017-10-26 17:14:13 +0100 | [diff] [blame] | 146 | |
Michalis Spyrou | 2b5f0f2 | 2018-01-10 14:08:50 +0000 | [diff] [blame] | 147 | output_filename = "sgemm_out.npy"; |
| 148 | is_fortran = npy0.is_fortran(); |
Giorgio Arena | cf3935f | 2017-10-26 17:14:13 +0100 | [diff] [blame] | 149 | |
Michalis Spyrou | 2b5f0f2 | 2018-01-10 14:08:50 +0000 | [diff] [blame] | 150 | if(npy2.is_open()) |
Giorgio Arena | cf3935f | 2017-10-26 17:14:13 +0100 | [diff] [blame] | 151 | { |
Michalis Spyrou | 2b5f0f2 | 2018-01-10 14:08:50 +0000 | [diff] [blame] | 152 | src2.allocator()->allocate(); |
| 153 | npy2.fill_tensor(src2); |
Giorgio Arena | cf3935f | 2017-10-26 17:14:13 +0100 | [diff] [blame] | 154 | } |
| 155 | } |
Michalis Spyrou | 2b5f0f2 | 2018-01-10 14:08:50 +0000 | [diff] [blame] | 156 | else |
Giorgio Arena | cf3935f | 2017-10-26 17:14:13 +0100 | [diff] [blame] | 157 | { |
| 158 | src2.allocator()->allocate(); |
Michalis Spyrou | 2b5f0f2 | 2018-01-10 14:08:50 +0000 | [diff] [blame] | 159 | |
| 160 | fill_random_tensor(src0, -1.f, 1.f); |
| 161 | fill_random_tensor(src1, -1.f, 1.f); |
| 162 | fill_random_tensor(src2, -1.f, 1.f); |
| 163 | } |
| 164 | |
| 165 | // Dummy run for CLTuner |
| 166 | sgemm.run(); |
Georgios Pinitas | 12be7ab | 2018-07-03 12:06:23 +0100 | [diff] [blame] | 167 | |
| 168 | return true; |
Michalis Spyrou | 2b5f0f2 | 2018-01-10 14:08:50 +0000 | [diff] [blame] | 169 | } |
| 170 | void do_run() override |
| 171 | { |
| 172 | // Execute the function |
| 173 | sgemm.run(); |
| 174 | |
| 175 | // Make sure all the OpenCL jobs are done executing: |
| 176 | CLScheduler::get().sync(); |
| 177 | } |
| 178 | void do_teardown() override |
| 179 | { |
Gian Marco | 85e6f51 | 2018-02-01 16:57:48 +0000 | [diff] [blame] | 180 | if(!output_filename.empty()) /* Save to .npy file */ |
Michalis Spyrou | 2b5f0f2 | 2018-01-10 14:08:50 +0000 | [diff] [blame] | 181 | { |
| 182 | save_to_npy(dst, output_filename, is_fortran); |
Giorgio Arena | cf3935f | 2017-10-26 17:14:13 +0100 | [diff] [blame] | 183 | } |
| 184 | } |
Giorgio Arena | cf3935f | 2017-10-26 17:14:13 +0100 | [diff] [blame] | 185 | |
Michalis Spyrou | 2b5f0f2 | 2018-01-10 14:08:50 +0000 | [diff] [blame] | 186 | private: |
| 187 | CLTensor src0{}, src1{}, src2{}, dst{}; |
| 188 | CLGEMM sgemm{}; |
| 189 | CLTuner tuner{}; |
| 190 | float alpha{}, beta{}; |
| 191 | bool is_fortran{}; |
| 192 | std::string output_filename{}; |
| 193 | }; |
Giorgio Arena | cf3935f | 2017-10-26 17:14:13 +0100 | [diff] [blame] | 194 | |
| 195 | /** Main program for sgemm test |
| 196 | * |
| 197 | * @param[in] argc Number of arguments |
| 198 | * @param[in] argv Arguments ( [optional] Matrix A, [optional] Matrix B, [optional] Matrix C, [optional] alpha, [optional] beta ) |
| 199 | */ |
Anthony Barbier | 6db0ff5 | 2018-01-05 10:59:12 +0000 | [diff] [blame] | 200 | int main(int argc, char **argv) |
Giorgio Arena | cf3935f | 2017-10-26 17:14:13 +0100 | [diff] [blame] | 201 | { |
Michalis Spyrou | 2b5f0f2 | 2018-01-10 14:08:50 +0000 | [diff] [blame] | 202 | return utils::run_example<CLSGEMMExample>(argc, argv); |
Gian Marco | ae2af74 | 2018-02-15 12:35:44 +0000 | [diff] [blame] | 203 | } |