/usr/share/doc/libclblas-doc/html/example_sgemv_8c-example.html is in libclblas-doc 2.12-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
<meta http-equiv="X-UA-Compatible" content="IE=9"/>
<meta name="generator" content="Doxygen 1.8.13"/>
<meta name="viewport" content="width=device-width, initial-scale=1"/>
<title>clBLAS: example_sgemv.c</title>
<link href="tabs.css" rel="stylesheet" type="text/css"/>
<script type="text/javascript" src="jquery.js"></script>
<script type="text/javascript" src="dynsections.js"></script>
<link href="search/search.css" rel="stylesheet" type="text/css"/>
<script type="text/javascript" src="search/searchdata.js"></script>
<script type="text/javascript" src="search/search.js"></script>
<script type="text/x-mathjax-config">
MathJax.Hub.Config({
extensions: ["tex2jax.js"],
jax: ["input/TeX","output/HTML-CSS"],
});
</script><script type="text/javascript" src="/usr/share/javascript/mathjax/MathJax.js"></script>
<link href="doxygen.css" rel="stylesheet" type="text/css" />
</head>
<body>
<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
<div id="titlearea">
<table cellspacing="0" cellpadding="0">
<tbody>
<tr style="height: 56px;">
<td id="projectalign" style="padding-left: 0.5em;">
<div id="projectname">clBLAS
 <span id="projectnumber">2.0</span>
</div>
</td>
</tr>
</tbody>
</table>
</div>
<!-- end header part -->
<!-- Generated by Doxygen 1.8.13 -->
<script type="text/javascript">
var searchBox = new SearchBox("searchBox", "search",false,'Search');
</script>
<script type="text/javascript" src="menudata.js"></script>
<script type="text/javascript" src="menu.js"></script>
<script type="text/javascript">
$(function() {
initMenu('',true,false,'search.php','Search');
$(document).ready(function() { init_search(); });
});
</script>
<div id="main-nav"></div>
</div><!-- top -->
<!-- window showing the filter options -->
<div id="MSearchSelectWindow"
onmouseover="return searchBox.OnSearchSelectShow()"
onmouseout="return searchBox.OnSearchSelectHide()"
onkeydown="return searchBox.OnSearchSelectKey(event)">
</div>
<!-- iframe showing the search results (closed by default) -->
<div id="MSearchResultsWindow">
<iframe src="javascript:void(0)" frameborder="0"
name="MSearchResults" id="MSearchResults">
</iframe>
</div>
<div class="header">
<div class="headertitle">
<div class="title">example_sgemv.c</div> </div>
</div><!--header-->
<div class="contents">
<p>This is an example of how to use the clblasSgemvEx function.</p>
<div class="fragment"><div class="line"><span class="comment">/* ************************************************************************</span></div><div class="line"><span class="comment"> * Copyright 2013 Advanced Micro Devices, Inc.</span></div><div class="line"><span class="comment"> *</span></div><div class="line"><span class="comment"> * Licensed under the Apache License, Version 2.0 (the "License");</span></div><div class="line"><span class="comment"> * you may not use this file except in compliance with the License.</span></div><div class="line"><span class="comment"> * You may obtain a copy of the License at</span></div><div class="line"><span class="comment"> *</span></div><div class="line"><span class="comment"> * http://www.apache.org/licenses/LICENSE-2.0</span></div><div class="line"><span class="comment"> *</span></div><div class="line"><span class="comment"> * Unless required by applicable law or agreed to in writing, software</span></div><div class="line"><span class="comment"> * distributed under the License is distributed on an "AS IS" BASIS,</span></div><div class="line"><span class="comment"> * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.</span></div><div class="line"><span class="comment"> * See the License for the specific language governing permissions and</span></div><div class="line"><span class="comment"> * limitations under the License.</span></div><div class="line"><span class="comment"> * ************************************************************************/</span></div><div class="line"></div><div class="line"><span class="preprocessor">#include <sys/types.h></span></div><div class="line"><span class="preprocessor">#include <stdio.h></span></div><div class="line"><span class="preprocessor">#include <string.h></span></div><div class="line"></div><div class="line"><span class="comment">/* Include CLBLAS header. It automatically includes needed OpenCL header,</span></div><div class="line"><span class="comment"> * so we can drop out explicit inclusion of cl.h header.</span></div><div class="line"><span class="comment"> */</span></div><div class="line"><span class="preprocessor">#include <clBLAS.h></span></div><div class="line"></div><div class="line"><span class="comment">/* This example uses predefined matrices and their characteristics for</span></div><div class="line"><span class="comment"> * simplicity purpose.</span></div><div class="line"><span class="comment"> */</span></div><div class="line"><span class="keyword">static</span> <span class="keyword">const</span> <a class="code" href="group__TYPES.html#ga1dbfdbd0c5cdb78aa8de5c98b3a9a3a6">clblasOrder</a> order = <a name="a0"></a><a class="code" href="group__TYPES.html#gga328154140ca4c90e84db33436448ee57aaf3d27934570f7ea906670a8958e6c46">clblasRowMajor</a>;</div><div class="line"></div><div class="line"><span class="keyword">static</span> <span class="keyword">const</span> <span class="keywordtype">size_t</span> M = 4;</div><div class="line"><span class="keyword">static</span> <span class="keyword">const</span> <span class="keywordtype">size_t</span> N = 5;</div><div class="line"></div><div class="line"><span class="keyword">static</span> <span class="keyword">const</span> cl_float alpha = 10;</div><div class="line"></div><div class="line"><span class="keyword">static</span> <span class="keyword">const</span> <a class="code" href="group__TYPES.html#ga379bd75645fdca4fd98d79cb1d0fd155">clblasTranspose</a> transA = <a name="a1"></a><a class="code" href="group__TYPES.html#ggade9d4e0da4833ba408148857e1175894a6051986b9fb71c322bef9734a8ab6ca8">clblasNoTrans</a>;</div><div class="line"><span class="keyword">static</span> <span class="keyword">const</span> cl_float A[] = {</div><div class="line"> 11, 12, 13, 14, 15,</div><div class="line"> 21, 22, 23, 24, 25,</div><div class="line"> 31, 32, 33, 34, 35,</div><div class="line"> 41, 42, 43, 44, 45</div><div class="line">};</div><div class="line"><span class="keyword">static</span> <span class="keyword">const</span> <span class="keywordtype">size_t</span> lda = 5; <span class="comment">/* i.e. lda = N */</span></div><div class="line"></div><div class="line"><span class="keyword">static</span> <span class="keyword">const</span> cl_float X[] = {</div><div class="line"> 11,</div><div class="line"> 21,</div><div class="line"> 31,</div><div class="line"> 41,</div><div class="line"> 51,</div><div class="line">};</div><div class="line"><span class="keyword">static</span> <span class="keyword">const</span> <span class="keywordtype">int</span> incx = 1;</div><div class="line"></div><div class="line"><span class="keyword">static</span> <span class="keyword">const</span> cl_float beta = 20;</div><div class="line"></div><div class="line"><span class="keyword">static</span> cl_float Y[] = {</div><div class="line"> 11,</div><div class="line"> 21,</div><div class="line"> 31,</div><div class="line"> 41,</div><div class="line">};</div><div class="line"><span class="keyword">static</span> <span class="keyword">const</span> <span class="keywordtype">int</span> incy = 1;</div><div class="line"></div><div class="line"><span class="keyword">static</span> cl_float result[4]; <span class="comment">/* M */</span></div><div class="line"></div><div class="line"><span class="keyword">static</span> <span class="keyword">const</span> <span class="keywordtype">size_t</span> off = 1;</div><div class="line"><span class="keyword">static</span> <span class="keyword">const</span> <span class="keywordtype">size_t</span> offA = 5 + 1; <span class="comment">/* M + off */</span></div><div class="line"><span class="keyword">static</span> <span class="keyword">const</span> <span class="keywordtype">size_t</span> offX = 1; <span class="comment">/* off */</span></div><div class="line"><span class="keyword">static</span> <span class="keyword">const</span> <span class="keywordtype">size_t</span> offY = 1; <span class="comment">/* off */</span></div><div class="line"></div><div class="line"><span class="keyword">static</span> <span class="keywordtype">void</span></div><div class="line">printResult(<span class="keyword">const</span> <span class="keywordtype">char</span>* str)</div><div class="line">{</div><div class="line"> <span class="keywordtype">size_t</span> i, nElements;</div><div class="line"></div><div class="line"> printf(<span class="stringliteral">"%s:\n"</span>, str);</div><div class="line"></div><div class="line"> nElements = (<span class="keyword">sizeof</span>(result) / <span class="keyword">sizeof</span>(cl_float)) / incy;</div><div class="line"> <span class="keywordflow">for</span> (i = 0; i < nElements; i++) {</div><div class="line"> printf(<span class="stringliteral">"%d\n"</span>, (<span class="keywordtype">int</span>)result[i * incy]);</div><div class="line"> }</div><div class="line">}</div><div class="line"></div><div class="line"><span class="keywordtype">int</span></div><div class="line">main(<span class="keywordtype">void</span>)</div><div class="line">{</div><div class="line"> cl_int err;</div><div class="line"> cl_platform_id platform = 0;</div><div class="line"> cl_device_id device = 0;</div><div class="line"> cl_context_properties props[3] = { CL_CONTEXT_PLATFORM, 0, 0 };</div><div class="line"> cl_context ctx = 0;</div><div class="line"> cl_command_queue queue = 0;</div><div class="line"> cl_mem bufA, bufX, bufY;</div><div class="line"> cl_event <span class="keyword">event</span> = NULL;</div><div class="line"> <span class="keywordtype">int</span> ret = 0;</div><div class="line"></div><div class="line"> <span class="comment">/* Setup OpenCL environment. */</span></div><div class="line"> err = clGetPlatformIDs(1, &platform, NULL);</div><div class="line"> <span class="keywordflow">if</span> (err != CL_SUCCESS) {</div><div class="line"> printf( <span class="stringliteral">"clGetPlatformIDs() failed with %d\n"</span>, err );</div><div class="line"> <span class="keywordflow">return</span> 1;</div><div class="line"> }</div><div class="line"></div><div class="line"> err = clGetDeviceIDs(platform, CL_DEVICE_TYPE_GPU, 1, &device, NULL);</div><div class="line"> <span class="keywordflow">if</span> (err != CL_SUCCESS) {</div><div class="line"> printf( <span class="stringliteral">"clGetDeviceIDs() failed with %d\n"</span>, err );</div><div class="line"> <span class="keywordflow">return</span> 1;</div><div class="line"> }</div><div class="line"></div><div class="line"> props[1] = (cl_context_properties)platform;</div><div class="line"> ctx = clCreateContext(props, 1, &device, NULL, NULL, &err);</div><div class="line"> <span class="keywordflow">if</span> (err != CL_SUCCESS) {</div><div class="line"> printf( <span class="stringliteral">"clCreateContext() failed with %d\n"</span>, err );</div><div class="line"> <span class="keywordflow">return</span> 1;</div><div class="line"> }</div><div class="line"></div><div class="line"> queue = clCreateCommandQueue(ctx, device, 0, &err);</div><div class="line"> <span class="keywordflow">if</span> (err != CL_SUCCESS) {</div><div class="line"> printf( <span class="stringliteral">"clCreateCommandQueue() failed with %d\n"</span>, err );</div><div class="line"> clReleaseContext(ctx);</div><div class="line"> <span class="keywordflow">return</span> 1;</div><div class="line"> }</div><div class="line"></div><div class="line"> <span class="comment">/* Setup clblas. */</span></div><div class="line"> err = <a name="a2"></a><a class="code" href="group__INIT.html#gab0c597e62144c27ea6f9c100ee40bb6d">clblasSetup</a>();</div><div class="line"> <span class="keywordflow">if</span> (err != CL_SUCCESS) {</div><div class="line"> printf(<span class="stringliteral">"clblasSetup() failed with %d\n"</span>, err);</div><div class="line"> clReleaseCommandQueue(queue);</div><div class="line"> clReleaseContext(ctx);</div><div class="line"> <span class="keywordflow">return</span> 1;</div><div class="line"> }</div><div class="line"></div><div class="line"> <span class="comment">/* Prepare OpenCL memory objects and place matrices inside them. */</span></div><div class="line"> bufA = clCreateBuffer(ctx, CL_MEM_READ_ONLY, M * N * <span class="keyword">sizeof</span>(*A),</div><div class="line"> NULL, &err);</div><div class="line"> bufX = clCreateBuffer(ctx, CL_MEM_READ_ONLY, N * <span class="keyword">sizeof</span>(*X),</div><div class="line"> NULL, &err);</div><div class="line"> bufY = clCreateBuffer(ctx, CL_MEM_READ_WRITE, M * <span class="keyword">sizeof</span>(*Y),</div><div class="line"> NULL, &err);</div><div class="line"></div><div class="line"> err = clEnqueueWriteBuffer(queue, bufA, CL_TRUE, 0,</div><div class="line"> M * N * <span class="keyword">sizeof</span>(*A), A, 0, NULL, NULL);</div><div class="line"> err = clEnqueueWriteBuffer(queue, bufX, CL_TRUE, 0,</div><div class="line"> N * <span class="keyword">sizeof</span>(*X), X, 0, NULL, NULL);</div><div class="line"> err = clEnqueueWriteBuffer(queue, bufY, CL_TRUE, 0,</div><div class="line"> M * <span class="keyword">sizeof</span>(*Y), Y, 0, NULL, NULL);</div><div class="line"></div><div class="line"> <span class="comment">/* Call clblas extended function. */</span></div><div class="line"> err = <a name="a3"></a><a class="code" href="group__GEMV.html#gabc2cb7a71197b255ed2a3174fc2e8580">clblasSgemv</a>(order, transA, M - off, N - off, alpha,</div><div class="line"> bufA, offA, lda, bufX, offX, incx, beta,</div><div class="line"> bufY, offY, incy, 1, &queue, 0, NULL, &event);</div><div class="line"> <span class="keywordflow">if</span> (err != CL_SUCCESS) {</div><div class="line"> printf(<span class="stringliteral">"clblasSgemvEx() failed with %d\n"</span>, err);</div><div class="line"> ret = 1;</div><div class="line"> }</div><div class="line"> <span class="keywordflow">else</span> {</div><div class="line"> <span class="comment">/* Wait for calculations to be finished. */</span></div><div class="line"> err = clWaitForEvents(1, &event);</div><div class="line"></div><div class="line"> <span class="comment">/* Fetch results of calculations from GPU memory. */</span></div><div class="line"> err = clEnqueueReadBuffer(queue, bufY, CL_TRUE, 0, M * <span class="keyword">sizeof</span>(*result),</div><div class="line"> result, 0, NULL, NULL);</div><div class="line"> <span class="comment">/* At this point you will get the result of SGEMV placed in 'result' array. */</span></div><div class="line"> puts(<span class="stringliteral">""</span>);</div><div class="line"> printResult(<span class="stringliteral">"clblasSgemvEx result"</span>);</div><div class="line"> }</div><div class="line"></div><div class="line"> <span class="comment">/* Release OpenCL events. */</span></div><div class="line"> clReleaseEvent(event);</div><div class="line"></div><div class="line"> <span class="comment">/* Release OpenCL memory objects. */</span></div><div class="line"> clReleaseMemObject(bufY);</div><div class="line"> clReleaseMemObject(bufX);</div><div class="line"> clReleaseMemObject(bufA);</div><div class="line"></div><div class="line"> <span class="comment">/* Finalize work with clblas. */</span></div><div class="line"> <a name="a4"></a><a class="code" href="group__INIT.html#ga737647d266623bb1aa27043fdaa9298f">clblasTeardown</a>();</div><div class="line"></div><div class="line"> <span class="comment">/* Release OpenCL working objects. */</span></div><div class="line"> clReleaseCommandQueue(queue);</div><div class="line"> clReleaseContext(ctx);</div><div class="line"></div><div class="line"> <span class="keywordflow">return</span> ret;</div><div class="line">}</div></div><!-- fragment --> </div><!-- contents -->
<!-- start footer part -->
<hr class="footer"/><address class="footer"><small>
Generated by  <a href="http://www.doxygen.org/index.html">
<img class="footer" src="doxygen.png" alt="doxygen"/>
</a> 1.8.13
</small></address>
</body>
</html>
|