/usr/share/doc/libclblas-doc/html/example_ssyrk_8c-example.html is in libclblas-doc 2.10-2.
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 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 | <!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.11"/>
<title>clBLAS: example_ssyrk.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/javascript">
$(document).ready(function() { init_search(); });
</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.11 -->
<script type="text/javascript">
var searchBox = new SearchBox("searchBox", "search",false,'Search');
</script>
<div id="navrow1" class="tabs">
<ul class="tablist">
<li><a href="index.html"><span>Main Page</span></a></li>
<li><a href="modules.html"><span>Modules</span></a></li>
<li><a href="files.html"><span>Files</span></a></li>
<li><a href="examples.html"><span>Examples</span></a></li>
<li>
<div id="MSearchBox" class="MSearchBoxInactive">
<span class="left">
<img id="MSearchSelect" src="search/mag_sel.png"
onmouseover="return searchBox.OnSearchSelectShow()"
onmouseout="return searchBox.OnSearchSelectHide()"
alt=""/>
<input type="text" id="MSearchField" value="Search" accesskey="S"
onfocus="searchBox.OnSearchFieldFocus(true)"
onblur="searchBox.OnSearchFieldFocus(false)"
onkeyup="searchBox.OnSearchFieldChange(event)"/>
</span><span class="right">
<a id="MSearchClose" href="javascript:searchBox.CloseResultsWindow()"><img id="MSearchCloseImg" border="0" src="search/close.png" alt=""/></a>
</span>
</div>
</li>
</ul>
</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_ssyrk.c</div> </div>
</div><!--header-->
<div class="contents">
<p>This is an example of how to use the clblasSsyrkEx 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"></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"><span class="keyword">static</span> <span class="keyword">const</span> <a class="code" href="group__TYPES.html#gaa02dfe8aa057f00fd6014b6ac80cfdff">clblasUplo</a> uplo = <a name="a1"></a><a class="code" href="group__TYPES.html#ggac5c0222eae342844f95ad6efc9c49837a52ecf6a06c8d6b505fb27dfdd5ed3887">clblasUpper</a>;</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="a2"></a><a class="code" href="group__TYPES.html#ggade9d4e0da4833ba408148857e1175894a6051986b9fb71c322bef9734a8ab6ca8">clblasNoTrans</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> N = 5;</div><div class="line"><span class="keyword">static</span> <span class="keyword">const</span> <span class="keywordtype">size_t</span> K = 4;</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> cl_float A[] = {</div><div class="line"> 11, 12, 13, 14,</div><div class="line"> 21, 22, 23, 24,</div><div class="line"> 31, 32, 33, 34,</div><div class="line"> 41, 42, 43, 44,</div><div class="line"> 51, 52, 53, 54</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 = 4; <span class="comment">/* i.e. lda = K */</span></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 C[] = {</div><div class="line"> 11, 12, 13, 14, 15,</div><div class="line"> 12, 22, 23, 24, 25,</div><div class="line"> 13, 23, 33, 34, 35,</div><div class="line"> 14, 24, 34, 44, 45,</div><div class="line"> 15, 25, 35, 45, 55</div><div class="line">};</div><div class="line"><span class="keyword">static</span> <span class="keyword">const</span> <span class="keywordtype">size_t</span> ldc = 5; <span class="comment">/* i.e. ldc = N */</span></div><div class="line"></div><div class="line"><span class="keyword">static</span> cl_float result[5*5]; <span class="comment">/* ldc*N */</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 = 4 + 1; <span class="comment">/* K + off */</span></div><div class="line"><span class="keyword">static</span> <span class="keyword">const</span> <span class="keywordtype">size_t</span> offC = 5 + 1; <span class="comment">/* N + 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, j, nrows;</div><div class="line"></div><div class="line"> printf(<span class="stringliteral">"%s:\n"</span>, str);</div><div class="line"></div><div class="line"> nrows = (<span class="keyword">sizeof</span>(result) / <span class="keyword">sizeof</span>(cl_float)) / ldc;</div><div class="line"> <span class="keywordflow">for</span> (i = 0; i < nrows; i++) {</div><div class="line"> <span class="keywordflow">for</span> (j = 0; j < ldc; j++) {</div><div class="line"> printf(<span class="stringliteral">"%d "</span>, (<span class="keywordtype">int</span>)result[i * ldc + j]);</div><div class="line"> }</div><div class="line"> printf(<span class="stringliteral">"\n"</span>);</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, bufC;</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="a3"></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, N * K * <span class="keyword">sizeof</span>(*A),</div><div class="line"> NULL, &err);</div><div class="line"> bufC = clCreateBuffer(ctx, CL_MEM_READ_WRITE, N * N * <span class="keyword">sizeof</span>(*C),</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"> N * K * <span class="keyword">sizeof</span>(*A), A, 0, NULL, NULL);</div><div class="line"> err = clEnqueueWriteBuffer(queue, bufC, CL_TRUE, 0,</div><div class="line"> N * N * <span class="keyword">sizeof</span>(*C), C, 0, NULL, NULL);</div><div class="line"></div><div class="line"> <span class="comment">/* Call clblas extended function. Perform SYRK for the lower right sub-matrices */</span></div><div class="line"> err = <a name="a4"></a><a class="code" href="group__SYRK.html#ga855fe4caf5d558c384ecd8cdde90b82f">clblasSsyrk</a>(order, uplo, transA, N - off, K - off,</div><div class="line"> alpha, bufA, offA, lda, beta, bufC, offC, ldc,</div><div class="line"> 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">"clblasSsyrkEx() 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, bufC, CL_TRUE, 0,</div><div class="line"> N * N * <span class="keyword">sizeof</span>(*result),</div><div class="line"> result, 0, NULL, NULL);</div><div class="line"></div><div class="line"> <span class="comment">/* At this point you will get the result of SSYRK placed in 'result' array. */</span></div><div class="line"> puts(<span class="stringliteral">""</span>);</div><div class="line"> printResult(<span class="stringliteral">"clblasSsyrkEx 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(bufC);</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="a5"></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.11
</small></address>
</body>
</html>
|