| 1 | <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> |
|---|
| 2 | <html><head><meta http-equiv="Content-Type" content="text/html;charset=UTF-8"> |
|---|
| 3 | <title>mixpp: copy_vector.h Source File</title> |
|---|
| 4 | <link href="tabs.css" rel="stylesheet" type="text/css"> |
|---|
| 5 | <link href="doxygen.css" rel="stylesheet" type="text/css"> |
|---|
| 6 | </head><body> |
|---|
| 7 | <!-- Generated by Doxygen 1.5.8 --> |
|---|
| 8 | <script type="text/javascript"> |
|---|
| 9 | <!-- |
|---|
| 10 | function changeDisplayState (e){ |
|---|
| 11 | var num=this.id.replace(/[^[0-9]/g,''); |
|---|
| 12 | var button=this.firstChild; |
|---|
| 13 | var sectionDiv=document.getElementById('dynsection'+num); |
|---|
| 14 | if (sectionDiv.style.display=='none'||sectionDiv.style.display==''){ |
|---|
| 15 | sectionDiv.style.display='block'; |
|---|
| 16 | button.src='open.gif'; |
|---|
| 17 | }else{ |
|---|
| 18 | sectionDiv.style.display='none'; |
|---|
| 19 | button.src='closed.gif'; |
|---|
| 20 | } |
|---|
| 21 | } |
|---|
| 22 | function initDynSections(){ |
|---|
| 23 | var divs=document.getElementsByTagName('div'); |
|---|
| 24 | var sectionCounter=1; |
|---|
| 25 | for(var i=0;i<divs.length-1;i++){ |
|---|
| 26 | if(divs[i].className=='dynheader'&&divs[i+1].className=='dynsection'){ |
|---|
| 27 | var header=divs[i]; |
|---|
| 28 | var section=divs[i+1]; |
|---|
| 29 | var button=header.firstChild; |
|---|
| 30 | if (button!='IMG'){ |
|---|
| 31 | divs[i].insertBefore(document.createTextNode(' '),divs[i].firstChild); |
|---|
| 32 | button=document.createElement('img'); |
|---|
| 33 | divs[i].insertBefore(button,divs[i].firstChild); |
|---|
| 34 | } |
|---|
| 35 | header.style.cursor='pointer'; |
|---|
| 36 | header.onclick=changeDisplayState; |
|---|
| 37 | header.id='dynheader'+sectionCounter; |
|---|
| 38 | button.src='closed.gif'; |
|---|
| 39 | section.id='dynsection'+sectionCounter; |
|---|
| 40 | section.style.display='none'; |
|---|
| 41 | section.style.marginLeft='14px'; |
|---|
| 42 | sectionCounter++; |
|---|
| 43 | } |
|---|
| 44 | } |
|---|
| 45 | } |
|---|
| 46 | window.onload = initDynSections; |
|---|
| 47 | --> |
|---|
| 48 | </script> |
|---|
| 49 | <div class="navigation" id="top"> |
|---|
| 50 | <div class="tabs"> |
|---|
| 51 | <ul> |
|---|
| 52 | <li><a href="main.html"><span>Main Page</span></a></li> |
|---|
| 53 | <li><a href="pages.html"><span>Related Pages</span></a></li> |
|---|
| 54 | <li><a href="modules.html"><span>Modules</span></a></li> |
|---|
| 55 | <li><a href="annotated.html"><span>Classes</span></a></li> |
|---|
| 56 | <li class="current"><a href="files.html"><span>Files</span></a></li> |
|---|
| 57 | </ul> |
|---|
| 58 | </div> |
|---|
| 59 | <div class="tabs"> |
|---|
| 60 | <ul> |
|---|
| 61 | <li><a href="files.html"><span>File List</span></a></li> |
|---|
| 62 | <li><a href="globals.html"><span>File Members</span></a></li> |
|---|
| 63 | </ul> |
|---|
| 64 | </div> |
|---|
| 65 | <h1>copy_vector.h</h1><a href="copy__vector_8h.html">Go to the documentation of this file.</a><div class="fragment"><pre class="fragment"><a name="l00001"></a>00001 |
|---|
| 66 | <a name="l00029"></a>00029 <span class="preprocessor">#ifndef COPY_VECTOR_H</span> |
|---|
| 67 | <a name="l00030"></a>00030 <span class="preprocessor"></span><span class="preprocessor">#define COPY_VECTOR_H</span> |
|---|
| 68 | <a name="l00031"></a>00031 <span class="preprocessor"></span> |
|---|
| 69 | <a name="l00032"></a>00032 <span class="preprocessor">#ifndef _MSC_VER</span> |
|---|
| 70 | <a name="l00033"></a>00033 <span class="preprocessor"></span><span class="preprocessor"># include <itpp/config.h></span> |
|---|
| 71 | <a name="l00034"></a>00034 <span class="preprocessor">#else</span> |
|---|
| 72 | <a name="l00035"></a>00035 <span class="preprocessor"></span><span class="preprocessor"># include <itpp/config_msvc.h></span> |
|---|
| 73 | <a name="l00036"></a>00036 <span class="preprocessor">#endif</span> |
|---|
| 74 | <a name="l00037"></a>00037 <span class="preprocessor"></span> |
|---|
| 75 | <a name="l00038"></a>00038 <span class="preprocessor">#if defined (HAVE_BLAS)</span> |
|---|
| 76 | <a name="l00039"></a>00039 <span class="preprocessor"></span><span class="preprocessor"># include <<a class="code" href="blas_8h.html" title="BLAS header functions. For internal use only.">itpp/base/blas.h</a>></span> |
|---|
| 77 | <a name="l00040"></a>00040 <span class="preprocessor">#endif</span> |
|---|
| 78 | <a name="l00041"></a>00041 <span class="preprocessor"></span> |
|---|
| 79 | <a name="l00042"></a>00042 <span class="preprocessor">#include <<a class="code" href="binary_8h.html" title="Binary class definition.">itpp/base/binary.h</a>></span> |
|---|
| 80 | <a name="l00043"></a>00043 <span class="preprocessor">#include <cstring></span> |
|---|
| 81 | <a name="l00044"></a>00044 |
|---|
| 82 | <a name="l00045"></a>00045 |
|---|
| 83 | <a name="l00047"></a>00047 |
|---|
| 84 | <a name="l00048"></a>00048 <span class="keyword">namespace </span>itpp |
|---|
| 85 | <a name="l00049"></a>00049 { |
|---|
| 86 | <a name="l00050"></a>00050 |
|---|
| 87 | <a name="l00051"></a>00051 |
|---|
| 88 | <a name="l00052"></a>00052 <span class="comment">/*</span> |
|---|
| 89 | <a name="l00053"></a>00053 <span class="comment"> Copy vector x to vector y. Both vectors are of size n</span> |
|---|
| 90 | <a name="l00054"></a>00054 <span class="comment">*/</span> |
|---|
| 91 | <a name="l00055"></a>00055 <span class="keyword">inline</span> <span class="keywordtype">void</span> copy_vector(<span class="keyword">const</span> <span class="keywordtype">int</span> n, <span class="keyword">const</span> <span class="keywordtype">int</span> *x, <span class="keywordtype">int</span> *y) { memcpy(y, x, (<span class="keywordtype">unsigned</span> <span class="keywordtype">int</span>)n*<span class="keyword">sizeof</span>(<span class="keywordtype">int</span>)); } |
|---|
| 92 | <a name="l00056"></a>00056 <span class="keyword">inline</span> <span class="keywordtype">void</span> copy_vector(<span class="keyword">const</span> <span class="keywordtype">int</span> n, <span class="keyword">const</span> <span class="keywordtype">short</span> *x, <span class="keywordtype">short</span> *y) { memcpy(y, x, (<span class="keywordtype">unsigned</span> <span class="keywordtype">int</span>)n*<span class="keyword">sizeof</span>(<span class="keywordtype">short</span>)); } |
|---|
| 93 | <a name="l00057"></a>00057 <span class="keyword">inline</span> <span class="keywordtype">void</span> copy_vector(<span class="keyword">const</span> <span class="keywordtype">int</span> n, <span class="keyword">const</span> bin *x, bin *y) { memcpy(y, x, (<span class="keywordtype">unsigned</span> <span class="keywordtype">int</span>)n*<span class="keyword">sizeof</span>(bin)); } |
|---|
| 94 | <a name="l00058"></a>00058 <span class="keyword">inline</span> <span class="keywordtype">void</span> copy_vector(<span class="keyword">const</span> <span class="keywordtype">int</span> n, <span class="keyword">const</span> <span class="keywordtype">float</span> *x, <span class="keywordtype">float</span> *y) { memcpy(y, x, (<span class="keywordtype">unsigned</span> <span class="keywordtype">int</span>)n*<span class="keyword">sizeof</span>(<span class="keywordtype">float</span>)); } |
|---|
| 95 | <a name="l00059"></a>00059 <span class="keyword">inline</span> <span class="keywordtype">void</span> copy_vector(<span class="keyword">const</span> <span class="keywordtype">int</span> n, <span class="keyword">const</span> std::complex<float> *x, std::complex<float> *y) { memcpy(y, x, (<span class="keywordtype">unsigned</span> <span class="keywordtype">int</span>)n*<span class="keyword">sizeof</span>(std::complex<float>)); } |
|---|
| 96 | <a name="l00060"></a>00060 |
|---|
| 97 | <a name="l00061"></a>00061 <span class="preprocessor">#if defined (HAVE_BLAS)</span> |
|---|
| 98 | <a name="l00062"></a>00062 <span class="preprocessor"></span><span class="keyword">inline</span> <span class="keywordtype">void</span> copy_vector(<span class="keyword">const</span> <span class="keywordtype">int</span> n, <span class="keyword">const</span> <span class="keywordtype">double</span> *x, <span class="keywordtype">double</span> *y) |
|---|
| 99 | <a name="l00063"></a>00063 { |
|---|
| 100 | <a name="l00064"></a>00064 <span class="keywordtype">int</span> incr = 1; |
|---|
| 101 | <a name="l00065"></a>00065 blas::dcopy_(&n, x, &incr, y, &incr); |
|---|
| 102 | <a name="l00066"></a>00066 } |
|---|
| 103 | <a name="l00067"></a>00067 <span class="keyword">inline</span> <span class="keywordtype">void</span> copy_vector(<span class="keyword">const</span> <span class="keywordtype">int</span> n, <span class="keyword">const</span> std::complex<double> *x, |
|---|
| 104 | <a name="l00068"></a>00068 std::complex<double> *y) |
|---|
| 105 | <a name="l00069"></a>00069 { |
|---|
| 106 | <a name="l00070"></a>00070 <span class="keywordtype">int</span> incr = 1; |
|---|
| 107 | <a name="l00071"></a>00071 blas::zcopy_(&n, x, &incr, y, &incr); |
|---|
| 108 | <a name="l00072"></a>00072 } |
|---|
| 109 | <a name="l00073"></a>00073 <span class="preprocessor">#else</span> |
|---|
| 110 | <a name="l00074"></a>00074 <span class="preprocessor"></span><span class="keyword">inline</span> <span class="keywordtype">void</span> copy_vector(<span class="keyword">const</span> <span class="keywordtype">int</span> n, <span class="keyword">const</span> <span class="keywordtype">double</span> *x, <span class="keywordtype">double</span> *y) { memcpy(y, x, (<span class="keywordtype">unsigned</span> <span class="keywordtype">int</span>)n*<span class="keyword">sizeof</span>(<span class="keywordtype">double</span>)); } |
|---|
| 111 | <a name="l00075"></a>00075 <span class="keyword">inline</span> <span class="keywordtype">void</span> copy_vector(<span class="keyword">const</span> <span class="keywordtype">int</span> n, <span class="keyword">const</span> std::complex<double> *x, std::complex<double> *y) { memcpy(y, x, (<span class="keywordtype">unsigned</span> <span class="keywordtype">int</span>)n*<span class="keyword">sizeof</span>(std::complex<double>)); } |
|---|
| 112 | <a name="l00076"></a>00076 <span class="preprocessor">#endif</span> |
|---|
| 113 | <a name="l00077"></a>00077 <span class="preprocessor"></span> |
|---|
| 114 | <a name="l00078"></a>00078 <span class="keyword">template</span><<span class="keyword">class</span> T> <span class="keyword">inline</span> |
|---|
| 115 | <a name="l00079"></a>00079 <span class="keywordtype">void</span> copy_vector(<span class="keyword">const</span> <span class="keywordtype">int</span> n, <span class="keyword">const</span> T *x, T *y) |
|---|
| 116 | <a name="l00080"></a>00080 { |
|---|
| 117 | <a name="l00081"></a>00081 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> i = 0; i < n; i++) |
|---|
| 118 | <a name="l00082"></a>00082 y[i] = x[i]; |
|---|
| 119 | <a name="l00083"></a>00083 } |
|---|
| 120 | <a name="l00084"></a>00084 |
|---|
| 121 | <a name="l00085"></a>00085 |
|---|
| 122 | <a name="l00086"></a>00086 |
|---|
| 123 | <a name="l00087"></a>00087 |
|---|
| 124 | <a name="l00088"></a>00088 <span class="comment">/*</span> |
|---|
| 125 | <a name="l00089"></a>00089 <span class="comment"> Copy vector x to vector y. Both vectors are of size n</span> |
|---|
| 126 | <a name="l00090"></a>00090 <span class="comment"> vector x elements are stored linearly with element increament incx</span> |
|---|
| 127 | <a name="l00091"></a>00091 <span class="comment"> vector y elements are stored linearly with element increament incx</span> |
|---|
| 128 | <a name="l00092"></a>00092 <span class="comment">*/</span> |
|---|
| 129 | <a name="l00093"></a>00093 <span class="preprocessor">#if defined (HAVE_BLAS)</span> |
|---|
| 130 | <a name="l00094"></a>00094 <span class="preprocessor"></span><span class="keyword">inline</span> <span class="keywordtype">void</span> copy_vector(<span class="keyword">const</span> <span class="keywordtype">int</span> n, <span class="keyword">const</span> <span class="keywordtype">double</span> *x, <span class="keyword">const</span> <span class="keywordtype">int</span> incx, |
|---|
| 131 | <a name="l00095"></a>00095 <span class="keywordtype">double</span> *y, <span class="keyword">const</span> <span class="keywordtype">int</span> incy) |
|---|
| 132 | <a name="l00096"></a>00096 { |
|---|
| 133 | <a name="l00097"></a>00097 blas::dcopy_(&n, x, &incx, y, &incy); |
|---|
| 134 | <a name="l00098"></a>00098 } |
|---|
| 135 | <a name="l00099"></a>00099 <span class="keyword">inline</span> <span class="keywordtype">void</span> copy_vector(<span class="keyword">const</span> <span class="keywordtype">int</span> n, <span class="keyword">const</span> std::complex<double> *x, |
|---|
| 136 | <a name="l00100"></a>00100 <span class="keyword">const</span> <span class="keywordtype">int</span> incx, std::complex<double> *y, |
|---|
| 137 | <a name="l00101"></a>00101 <span class="keyword">const</span> <span class="keywordtype">int</span> incy) |
|---|
| 138 | <a name="l00102"></a>00102 { |
|---|
| 139 | <a name="l00103"></a>00103 blas::zcopy_(&n, x, &incx, y, &incy); |
|---|
| 140 | <a name="l00104"></a>00104 } |
|---|
| 141 | <a name="l00105"></a>00105 <span class="preprocessor">#endif</span> |
|---|
| 142 | <a name="l00106"></a>00106 <span class="preprocessor"></span> |
|---|
| 143 | <a name="l00107"></a>00107 <span class="keyword">template</span><<span class="keyword">class</span> T> <span class="keyword">inline</span> |
|---|
| 144 | <a name="l00108"></a>00108 <span class="keywordtype">void</span> copy_vector(<span class="keyword">const</span> <span class="keywordtype">int</span> n, <span class="keyword">const</span> T *x, <span class="keyword">const</span> <span class="keywordtype">int</span> incx, T *y, <span class="keyword">const</span> <span class="keywordtype">int</span> incy) |
|---|
| 145 | <a name="l00109"></a>00109 { |
|---|
| 146 | <a name="l00110"></a>00110 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> i = 0;i < n; i++) |
|---|
| 147 | <a name="l00111"></a>00111 y[i*incy] = x[i*incx]; |
|---|
| 148 | <a name="l00112"></a>00112 } |
|---|
| 149 | <a name="l00113"></a>00113 |
|---|
| 150 | <a name="l00114"></a>00114 |
|---|
| 151 | <a name="l00115"></a>00115 <span class="comment">/*</span> |
|---|
| 152 | <a name="l00116"></a>00116 <span class="comment"> Swap vector x and vector y. Both vectors are of size n</span> |
|---|
| 153 | <a name="l00117"></a>00117 <span class="comment">*/</span> |
|---|
| 154 | <a name="l00118"></a>00118 <span class="keyword">inline</span> <span class="keywordtype">void</span> swap_vector(<span class="keyword">const</span> <span class="keywordtype">int</span> n, <span class="keywordtype">int</span> *x, <span class="keywordtype">int</span> *y) { <span class="keywordflow">for</span> (<span class="keywordtype">int</span> i = 0; i < n; i++) std::swap(x[i], y[i]); } |
|---|
| 155 | <a name="l00119"></a>00119 <span class="keyword">inline</span> <span class="keywordtype">void</span> swap_vector(<span class="keyword">const</span> <span class="keywordtype">int</span> n, <span class="keywordtype">short</span> *x, <span class="keywordtype">short</span> *y) { <span class="keywordflow">for</span> (<span class="keywordtype">int</span> i = 0; i < n; i++) std::swap(x[i], y[i]); } |
|---|
| 156 | <a name="l00120"></a>00120 <span class="keyword">inline</span> <span class="keywordtype">void</span> swap_vector(<span class="keyword">const</span> <span class="keywordtype">int</span> n, bin *x, bin *y) { <span class="keywordflow">for</span> (<span class="keywordtype">int</span> i = 0; i < n; i++) std::swap(x[i], y[i]); } |
|---|
| 157 | <a name="l00121"></a>00121 <span class="keyword">inline</span> <span class="keywordtype">void</span> swap_vector(<span class="keyword">const</span> <span class="keywordtype">int</span> n, <span class="keywordtype">float</span> *x, <span class="keywordtype">float</span> *y) { <span class="keywordflow">for</span> (<span class="keywordtype">int</span> i = 0; i < n; i++) std::swap(x[i], y[i]); } |
|---|
| 158 | <a name="l00122"></a>00122 <span class="keyword">inline</span> <span class="keywordtype">void</span> swap_vector(<span class="keyword">const</span> <span class="keywordtype">int</span> n, std::complex<float> *x, std::complex<float> *y) { <span class="keywordflow">for</span> (<span class="keywordtype">int</span> i = 0; i < n; i++) std::swap(x[i], y[i]); } |
|---|
| 159 | <a name="l00123"></a>00123 |
|---|
| 160 | <a name="l00124"></a>00124 <span class="preprocessor">#if defined (HAVE_BLAS)</span> |
|---|
| 161 | <a name="l00125"></a>00125 <span class="preprocessor"></span><span class="keyword">inline</span> <span class="keywordtype">void</span> swap_vector(<span class="keyword">const</span> <span class="keywordtype">int</span> n, <span class="keywordtype">double</span> *x, <span class="keywordtype">double</span> *y) |
|---|
| 162 | <a name="l00126"></a>00126 { |
|---|
| 163 | <a name="l00127"></a>00127 <span class="keywordtype">int</span> incr = 1; |
|---|
| 164 | <a name="l00128"></a>00128 blas::dswap_(&n, x, &incr, y, &incr); |
|---|
| 165 | <a name="l00129"></a>00129 } |
|---|
| 166 | <a name="l00130"></a>00130 <span class="keyword">inline</span> <span class="keywordtype">void</span> swap_vector(<span class="keyword">const</span> <span class="keywordtype">int</span> n, std::complex<double> *x, |
|---|
| 167 | <a name="l00131"></a>00131 std::complex<double> *y) |
|---|
| 168 | <a name="l00132"></a>00132 { |
|---|
| 169 | <a name="l00133"></a>00133 <span class="keywordtype">int</span> incr = 1; |
|---|
| 170 | <a name="l00134"></a>00134 blas::zswap_(&n, x, &incr, y, &incr); |
|---|
| 171 | <a name="l00135"></a>00135 } |
|---|
| 172 | <a name="l00136"></a>00136 <span class="preprocessor">#else</span> |
|---|
| 173 | <a name="l00137"></a>00137 <span class="preprocessor"></span><span class="keyword">inline</span> <span class="keywordtype">void</span> swap_vector(<span class="keyword">const</span> <span class="keywordtype">int</span> n, <span class="keywordtype">double</span> *x, <span class="keywordtype">double</span> *y) { <span class="keywordflow">for</span> (<span class="keywordtype">int</span> i = 0; i < n; i++) std::swap(x[i], y[i]); } |
|---|
| 174 | <a name="l00138"></a>00138 <span class="keyword">inline</span> <span class="keywordtype">void</span> swap_vector(<span class="keyword">const</span> <span class="keywordtype">int</span> n, std::complex<double> *x, std::complex<double> *y) { <span class="keywordflow">for</span> (<span class="keywordtype">int</span> i = 0; i < n; i++) std::swap(x[i], y[i]); } |
|---|
| 175 | <a name="l00139"></a>00139 <span class="preprocessor">#endif</span> |
|---|
| 176 | <a name="l00140"></a>00140 <span class="preprocessor"></span> |
|---|
| 177 | <a name="l00141"></a>00141 <span class="keyword">template</span><<span class="keyword">class</span> T> <span class="keyword">inline</span> |
|---|
| 178 | <a name="l00142"></a>00142 <span class="keywordtype">void</span> swap_vector(<span class="keyword">const</span> <span class="keywordtype">int</span> n, T *x, T *y) |
|---|
| 179 | <a name="l00143"></a>00143 { |
|---|
| 180 | <a name="l00144"></a>00144 T tmp; |
|---|
| 181 | <a name="l00145"></a>00145 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> i = 0; i < n; i++) { |
|---|
| 182 | <a name="l00146"></a>00146 tmp = y[i]; |
|---|
| 183 | <a name="l00147"></a>00147 y[i] = x[i]; |
|---|
| 184 | <a name="l00148"></a>00148 x[i] = tmp; |
|---|
| 185 | <a name="l00149"></a>00149 } |
|---|
| 186 | <a name="l00150"></a>00150 } |
|---|
| 187 | <a name="l00151"></a>00151 |
|---|
| 188 | <a name="l00152"></a>00152 |
|---|
| 189 | <a name="l00153"></a>00153 <span class="comment">/*</span> |
|---|
| 190 | <a name="l00154"></a>00154 <span class="comment"> Swap vector x and vector y. Both vectors are of size n</span> |
|---|
| 191 | <a name="l00155"></a>00155 <span class="comment"> vector x elements are stored linearly with element increament incx</span> |
|---|
| 192 | <a name="l00156"></a>00156 <span class="comment"> vector y elements are stored linearly with element increament incx</span> |
|---|
| 193 | <a name="l00157"></a>00157 <span class="comment">*/</span> |
|---|
| 194 | <a name="l00158"></a>00158 <span class="keyword">inline</span> <span class="keywordtype">void</span> swap_vector(<span class="keyword">const</span> <span class="keywordtype">int</span> n, <span class="keywordtype">int</span> *x, <span class="keyword">const</span> <span class="keywordtype">int</span> incx, <span class="keywordtype">int</span> *y, <span class="keyword">const</span> <span class="keywordtype">int</span> incy) { <span class="keywordflow">for</span> (<span class="keywordtype">int</span> i = 0; i < n; i++) std::swap(x[i*incx], y[i*incy]); } |
|---|
| 195 | <a name="l00159"></a>00159 <span class="keyword">inline</span> <span class="keywordtype">void</span> swap_vector(<span class="keyword">const</span> <span class="keywordtype">int</span> n, <span class="keywordtype">short</span> *x, <span class="keyword">const</span> <span class="keywordtype">int</span> incx, <span class="keywordtype">short</span> *y, <span class="keyword">const</span> <span class="keywordtype">int</span> incy) { <span class="keywordflow">for</span> (<span class="keywordtype">int</span> i = 0; i < n; i++) std::swap(x[i*incx], y[i*incy]); } |
|---|
| 196 | <a name="l00160"></a>00160 <span class="keyword">inline</span> <span class="keywordtype">void</span> swap_vector(<span class="keyword">const</span> <span class="keywordtype">int</span> n, bin *x, <span class="keyword">const</span> <span class="keywordtype">int</span> incx, bin *y, <span class="keyword">const</span> <span class="keywordtype">int</span> incy) { <span class="keywordflow">for</span> (<span class="keywordtype">int</span> i = 0; i < n; i++) std::swap(x[i*incx], y[i*incy]); } |
|---|
| 197 | <a name="l00161"></a>00161 <span class="keyword">inline</span> <span class="keywordtype">void</span> swap_vector(<span class="keyword">const</span> <span class="keywordtype">int</span> n, <span class="keywordtype">float</span> *x, <span class="keyword">const</span> <span class="keywordtype">int</span> incx, <span class="keywordtype">float</span> *y, <span class="keyword">const</span> <span class="keywordtype">int</span> incy) { <span class="keywordflow">for</span> (<span class="keywordtype">int</span> i = 0; i < n; i++) std::swap(x[i*incx], y[i*incy]); } |
|---|
| 198 | <a name="l00162"></a>00162 <span class="keyword">inline</span> <span class="keywordtype">void</span> swap_vector(<span class="keyword">const</span> <span class="keywordtype">int</span> n, std::complex<float> *x, <span class="keyword">const</span> <span class="keywordtype">int</span> incx, std::complex<float> *y, <span class="keyword">const</span> <span class="keywordtype">int</span> incy) { <span class="keywordflow">for</span> (<span class="keywordtype">int</span> i = 0; i < n; i++) std::swap(x[i*incx], y[i*incy]); } |
|---|
| 199 | <a name="l00163"></a>00163 |
|---|
| 200 | <a name="l00164"></a>00164 <span class="preprocessor">#if defined (HAVE_BLAS)</span> |
|---|
| 201 | <a name="l00165"></a>00165 <span class="preprocessor"></span><span class="keyword">inline</span> <span class="keywordtype">void</span> swap_vector(<span class="keyword">const</span> <span class="keywordtype">int</span> n, <span class="keywordtype">double</span> *x, <span class="keyword">const</span> <span class="keywordtype">int</span> incx, <span class="keywordtype">double</span> *y, |
|---|
| 202 | <a name="l00166"></a>00166 <span class="keyword">const</span> <span class="keywordtype">int</span> incy) |
|---|
| 203 | <a name="l00167"></a>00167 { |
|---|
| 204 | <a name="l00168"></a>00168 blas::dswap_(&n, x, &incx, y, &incy); |
|---|
| 205 | <a name="l00169"></a>00169 } |
|---|
| 206 | <a name="l00170"></a>00170 <span class="keyword">inline</span> <span class="keywordtype">void</span> swap_vector(<span class="keyword">const</span> <span class="keywordtype">int</span> n, std::complex<double> *x, <span class="keyword">const</span> <span class="keywordtype">int</span> incx, |
|---|
| 207 | <a name="l00171"></a>00171 std::complex<double> *y, <span class="keyword">const</span> <span class="keywordtype">int</span> incy) |
|---|
| 208 | <a name="l00172"></a>00172 { |
|---|
| 209 | <a name="l00173"></a>00173 blas::zswap_(&n, x, &incx, y, &incy); |
|---|
| 210 | <a name="l00174"></a>00174 } |
|---|
| 211 | <a name="l00175"></a>00175 <span class="preprocessor">#else</span> |
|---|
| 212 | <a name="l00176"></a>00176 <span class="preprocessor"></span><span class="keyword">inline</span> <span class="keywordtype">void</span> swap_vector(<span class="keyword">const</span> <span class="keywordtype">int</span> n, <span class="keywordtype">double</span> *x, <span class="keyword">const</span> <span class="keywordtype">int</span> incx, <span class="keywordtype">double</span> *y, <span class="keyword">const</span> <span class="keywordtype">int</span> incy) { <span class="keywordflow">for</span> (<span class="keywordtype">int</span> i = 0; i < n; i++) std::swap(x[i*incx], y[i*incy]); } |
|---|
| 213 | <a name="l00177"></a>00177 <span class="keyword">inline</span> <span class="keywordtype">void</span> swap_vector(<span class="keyword">const</span> <span class="keywordtype">int</span> n, std::complex<double> *x, <span class="keyword">const</span> <span class="keywordtype">int</span> incx, std::complex<double> *y, <span class="keyword">const</span> <span class="keywordtype">int</span> incy) { <span class="keywordflow">for</span> (<span class="keywordtype">int</span> i = 0; i < n; i++) std::swap(x[i*incx], y[i*incy]); } |
|---|
| 214 | <a name="l00178"></a>00178 <span class="preprocessor">#endif</span> |
|---|
| 215 | <a name="l00179"></a>00179 <span class="preprocessor"></span> |
|---|
| 216 | <a name="l00180"></a>00180 <span class="keyword">template</span><<span class="keyword">class</span> T> <span class="keyword">inline</span> |
|---|
| 217 | <a name="l00181"></a>00181 <span class="keywordtype">void</span> swap_vector(<span class="keyword">const</span> <span class="keywordtype">int</span> n, T *x, <span class="keyword">const</span> <span class="keywordtype">int</span> incx, T *y, <span class="keyword">const</span> <span class="keywordtype">int</span> incy) |
|---|
| 218 | <a name="l00182"></a>00182 { |
|---|
| 219 | <a name="l00183"></a>00183 T tmp; |
|---|
| 220 | <a name="l00184"></a>00184 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> i = 0; i < n; i++) { |
|---|
| 221 | <a name="l00185"></a>00185 tmp = y[i*incy]; |
|---|
| 222 | <a name="l00186"></a>00186 y[i*incy] = x[i*incx]; |
|---|
| 223 | <a name="l00187"></a>00187 x[i*incx] = tmp; |
|---|
| 224 | <a name="l00188"></a>00188 } |
|---|
| 225 | <a name="l00189"></a>00189 } |
|---|
| 226 | <a name="l00190"></a>00190 |
|---|
| 227 | <a name="l00191"></a>00191 |
|---|
| 228 | <a name="l00192"></a>00192 <span class="comment">/*</span> |
|---|
| 229 | <a name="l00193"></a>00193 <span class="comment"> * Realise scaling operation: x = alpha*x</span> |
|---|
| 230 | <a name="l00194"></a>00194 <span class="comment"> */</span> |
|---|
| 231 | <a name="l00195"></a>00195 <span class="preprocessor">#if defined(HAVE_BLAS)</span> |
|---|
| 232 | <a name="l00196"></a>00196 <span class="preprocessor"></span><span class="keyword">inline</span> <span class="keywordtype">void</span> scal_vector(<span class="keywordtype">int</span> n, <span class="keywordtype">double</span> alpha, <span class="keywordtype">double</span> *x) |
|---|
| 233 | <a name="l00197"></a>00197 { |
|---|
| 234 | <a name="l00198"></a>00198 <span class="keywordtype">int</span> incr = 1; |
|---|
| 235 | <a name="l00199"></a>00199 blas::dscal_(&n, &alpha, x, &incr); |
|---|
| 236 | <a name="l00200"></a>00200 } |
|---|
| 237 | <a name="l00201"></a>00201 <span class="keyword">inline</span> <span class="keywordtype">void</span> scal_vector(<span class="keywordtype">int</span> n, std::complex<double> alpha, |
|---|
| 238 | <a name="l00202"></a>00202 std::complex<double> *x) |
|---|
| 239 | <a name="l00203"></a>00203 { |
|---|
| 240 | <a name="l00204"></a>00204 <span class="keywordtype">int</span> incr = 1; |
|---|
| 241 | <a name="l00205"></a>00205 blas::zscal_(&n, &alpha, x, &incr); |
|---|
| 242 | <a name="l00206"></a>00206 } |
|---|
| 243 | <a name="l00207"></a>00207 <span class="preprocessor">#endif</span> |
|---|
| 244 | <a name="l00208"></a>00208 <span class="preprocessor"></span> |
|---|
| 245 | <a name="l00209"></a>00209 <span class="keyword">template</span><<span class="keyword">typename</span> T> <span class="keyword">inline</span> |
|---|
| 246 | <a name="l00210"></a>00210 <span class="keywordtype">void</span> scal_vector(<span class="keywordtype">int</span> n, T alpha, T *x) |
|---|
| 247 | <a name="l00211"></a>00211 { |
|---|
| 248 | <a name="l00212"></a>00212 <span class="keywordflow">if</span> (alpha != T(1)) { |
|---|
| 249 | <a name="l00213"></a>00213 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> i = 0; i < n; ++i) { |
|---|
| 250 | <a name="l00214"></a>00214 x[i] *= alpha; |
|---|
| 251 | <a name="l00215"></a>00215 } |
|---|
| 252 | <a name="l00216"></a>00216 } |
|---|
| 253 | <a name="l00217"></a>00217 } |
|---|
| 254 | <a name="l00218"></a>00218 |
|---|
| 255 | <a name="l00219"></a>00219 |
|---|
| 256 | <a name="l00220"></a>00220 <span class="comment">/*</span> |
|---|
| 257 | <a name="l00221"></a>00221 <span class="comment"> * Realise scaling operation: x = alpha*x</span> |
|---|
| 258 | <a name="l00222"></a>00222 <span class="comment"> * Elements of x are stored linearly with increament incx</span> |
|---|
| 259 | <a name="l00223"></a>00223 <span class="comment"> */</span> |
|---|
| 260 | <a name="l00224"></a>00224 <span class="preprocessor">#if defined(HAVE_BLAS)</span> |
|---|
| 261 | <a name="l00225"></a>00225 <span class="preprocessor"></span><span class="keyword">inline</span> <span class="keywordtype">void</span> scal_vector(<span class="keywordtype">int</span> n, <span class="keywordtype">double</span> alpha, <span class="keywordtype">double</span> *x, <span class="keywordtype">int</span> incx) |
|---|
| 262 | <a name="l00226"></a>00226 { |
|---|
| 263 | <a name="l00227"></a>00227 blas::dscal_(&n, &alpha, x, &incx); |
|---|
| 264 | <a name="l00228"></a>00228 } |
|---|
| 265 | <a name="l00229"></a>00229 <span class="keyword">inline</span> <span class="keywordtype">void</span> scal_vector(<span class="keywordtype">int</span> n, std::complex<double> alpha, |
|---|
| 266 | <a name="l00230"></a>00230 std::complex<double> *x, <span class="keywordtype">int</span> incx) |
|---|
| 267 | <a name="l00231"></a>00231 { |
|---|
| 268 | <a name="l00232"></a>00232 blas::zscal_(&n, &alpha, x, &incx); |
|---|
| 269 | <a name="l00233"></a>00233 } |
|---|
| 270 | <a name="l00234"></a>00234 <span class="preprocessor">#endif</span> |
|---|
| 271 | <a name="l00235"></a>00235 <span class="preprocessor"></span> |
|---|
| 272 | <a name="l00236"></a>00236 <span class="keyword">template</span><<span class="keyword">typename</span> T> <span class="keyword">inline</span> |
|---|
| 273 | <a name="l00237"></a>00237 <span class="keywordtype">void</span> scal_vector(<span class="keywordtype">int</span> n, T alpha, T *x, <span class="keywordtype">int</span> incx) |
|---|
| 274 | <a name="l00238"></a>00238 { |
|---|
| 275 | <a name="l00239"></a>00239 <span class="keywordflow">if</span> (alpha != T(1)) { |
|---|
| 276 | <a name="l00240"></a>00240 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> i = 0; i < n; ++i) { |
|---|
| 277 | <a name="l00241"></a>00241 x[i*incx] *= alpha; |
|---|
| 278 | <a name="l00242"></a>00242 } |
|---|
| 279 | <a name="l00243"></a>00243 } |
|---|
| 280 | <a name="l00244"></a>00244 } |
|---|
| 281 | <a name="l00245"></a>00245 |
|---|
| 282 | <a name="l00246"></a>00246 |
|---|
| 283 | <a name="l00247"></a>00247 <span class="comment">/*</span> |
|---|
| 284 | <a name="l00248"></a>00248 <span class="comment"> * Realise the following equation on vectors: y = alpha*x + y</span> |
|---|
| 285 | <a name="l00249"></a>00249 <span class="comment"> */</span> |
|---|
| 286 | <a name="l00250"></a>00250 <span class="preprocessor">#if defined(HAVE_BLAS)</span> |
|---|
| 287 | <a name="l00251"></a>00251 <span class="preprocessor"></span><span class="keyword">inline</span> <span class="keywordtype">void</span> axpy_vector(<span class="keywordtype">int</span> n, <span class="keywordtype">double</span> alpha, <span class="keyword">const</span> <span class="keywordtype">double</span> *x, <span class="keywordtype">double</span> *y) |
|---|
| 288 | <a name="l00252"></a>00252 { |
|---|
| 289 | <a name="l00253"></a>00253 <span class="keywordtype">int</span> incr = 1; |
|---|
| 290 | <a name="l00254"></a>00254 blas::daxpy_(&n, &alpha, x, &incr, y, &incr); |
|---|
| 291 | <a name="l00255"></a>00255 } |
|---|
| 292 | <a name="l00256"></a>00256 <span class="keyword">inline</span> <span class="keywordtype">void</span> axpy_vector(<span class="keywordtype">int</span> n, std::complex<double> alpha, |
|---|
| 293 | <a name="l00257"></a>00257 <span class="keyword">const</span> std::complex<double> *x, |
|---|
| 294 | <a name="l00258"></a>00258 std::complex<double> *y) |
|---|
| 295 | <a name="l00259"></a>00259 { |
|---|
| 296 | <a name="l00260"></a>00260 <span class="keywordtype">int</span> incr = 1; |
|---|
| 297 | <a name="l00261"></a>00261 blas::zaxpy_(&n, &alpha, x, &incr, y, &incr); |
|---|
| 298 | <a name="l00262"></a>00262 } |
|---|
| 299 | <a name="l00263"></a>00263 <span class="preprocessor">#endif</span> |
|---|
| 300 | <a name="l00264"></a>00264 <span class="preprocessor"></span> |
|---|
| 301 | <a name="l00265"></a>00265 <span class="keyword">template</span><<span class="keyword">typename</span> T> <span class="keyword">inline</span> |
|---|
| 302 | <a name="l00266"></a>00266 <span class="keywordtype">void</span> axpy_vector(<span class="keywordtype">int</span> n, T alpha, <span class="keyword">const</span> T *x, T *y) |
|---|
| 303 | <a name="l00267"></a>00267 { |
|---|
| 304 | <a name="l00268"></a>00268 <span class="keywordflow">if</span> (alpha != T(1)) { |
|---|
| 305 | <a name="l00269"></a>00269 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> i = 0; i < n; ++i) { |
|---|
| 306 | <a name="l00270"></a>00270 y[i] += alpha * x[i]; |
|---|
| 307 | <a name="l00271"></a>00271 } |
|---|
| 308 | <a name="l00272"></a>00272 } |
|---|
| 309 | <a name="l00273"></a>00273 <span class="keywordflow">else</span> { |
|---|
| 310 | <a name="l00274"></a>00274 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> i = 0; i < n; ++i) { |
|---|
| 311 | <a name="l00275"></a>00275 y[i] += x[i]; |
|---|
| 312 | <a name="l00276"></a>00276 } |
|---|
| 313 | <a name="l00277"></a>00277 } |
|---|
| 314 | <a name="l00278"></a>00278 } |
|---|
| 315 | <a name="l00279"></a>00279 |
|---|
| 316 | <a name="l00280"></a>00280 |
|---|
| 317 | <a name="l00281"></a>00281 <span class="comment">/*</span> |
|---|
| 318 | <a name="l00282"></a>00282 <span class="comment"> * Realise the following equation on vectors: y = alpha*x + y</span> |
|---|
| 319 | <a name="l00283"></a>00283 <span class="comment"> * Elements of x are stored linearly with increment incx</span> |
|---|
| 320 | <a name="l00284"></a>00284 <span class="comment"> * and elements of y are stored linearly with increment incx</span> |
|---|
| 321 | <a name="l00285"></a>00285 <span class="comment"> */</span> |
|---|
| 322 | <a name="l00286"></a>00286 <span class="preprocessor">#if defined(HAVE_BLAS)</span> |
|---|
| 323 | <a name="l00287"></a>00287 <span class="preprocessor"></span><span class="keyword">inline</span> <span class="keywordtype">void</span> axpy_vector(<span class="keywordtype">int</span> n, <span class="keywordtype">double</span> alpha, <span class="keyword">const</span> <span class="keywordtype">double</span> *x, <span class="keywordtype">int</span> incx, |
|---|
| 324 | <a name="l00288"></a>00288 <span class="keywordtype">double</span> *y, <span class="keywordtype">int</span> incy) |
|---|
| 325 | <a name="l00289"></a>00289 { |
|---|
| 326 | <a name="l00290"></a>00290 blas::daxpy_(&n, &alpha, x, &incx, y, &incy); |
|---|
| 327 | <a name="l00291"></a>00291 } |
|---|
| 328 | <a name="l00292"></a>00292 <span class="keyword">inline</span> <span class="keywordtype">void</span> axpy_vector(<span class="keywordtype">int</span> n, std::complex<double> alpha, |
|---|
| 329 | <a name="l00293"></a>00293 <span class="keyword">const</span> std::complex<double> *x, <span class="keywordtype">int</span> incx, |
|---|
| 330 | <a name="l00294"></a>00294 std::complex<double> *y, <span class="keywordtype">int</span> incy) |
|---|
| 331 | <a name="l00295"></a>00295 { |
|---|
| 332 | <a name="l00296"></a>00296 blas::zaxpy_(&n, &alpha, x, &incx, y, &incy); |
|---|
| 333 | <a name="l00297"></a>00297 } |
|---|
| 334 | <a name="l00298"></a>00298 <span class="preprocessor">#endif</span> |
|---|
| 335 | <a name="l00299"></a>00299 <span class="preprocessor"></span> |
|---|
| 336 | <a name="l00300"></a>00300 <span class="keyword">template</span><<span class="keyword">typename</span> T> <span class="keyword">inline</span> |
|---|
| 337 | <a name="l00301"></a>00301 <span class="keywordtype">void</span> axpy_vector(<span class="keywordtype">int</span> n, T alpha, <span class="keyword">const</span> T *x, <span class="keywordtype">int</span> incx, T *y, <span class="keywordtype">int</span> incy) |
|---|
| 338 | <a name="l00302"></a>00302 { |
|---|
| 339 | <a name="l00303"></a>00303 <span class="keywordflow">if</span> (alpha != T(1)) { |
|---|
| 340 | <a name="l00304"></a>00304 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> i = 0; i < n; ++i) { |
|---|
| 341 | <a name="l00305"></a>00305 y[i*incy] += alpha * x[i*incx]; |
|---|
| 342 | <a name="l00306"></a>00306 } |
|---|
| 343 | <a name="l00307"></a>00307 } |
|---|
| 344 | <a name="l00308"></a>00308 <span class="keywordflow">else</span> { |
|---|
| 345 | <a name="l00309"></a>00309 <span class="keywordflow">for</span> (<span class="keywordtype">int</span> i = 0; i < n; ++i) { |
|---|
| 346 | <a name="l00310"></a>00310 y[i*incy] += x[i*incx]; |
|---|
| 347 | <a name="l00311"></a>00311 } |
|---|
| 348 | <a name="l00312"></a>00312 } |
|---|
| 349 | <a name="l00313"></a>00313 } |
|---|
| 350 | <a name="l00314"></a>00314 |
|---|
| 351 | <a name="l00315"></a>00315 |
|---|
| 352 | <a name="l00316"></a>00316 } <span class="comment">// namespace itpp</span> |
|---|
| 353 | <a name="l00317"></a>00317 |
|---|
| 354 | <a name="l00319"></a>00319 |
|---|
| 355 | <a name="l00320"></a>00320 <span class="preprocessor">#endif // #ifndef COPY_VECTOR_H</span> |
|---|
| 356 | </pre></div></div> |
|---|
| 357 | <hr size="1"><address style="text-align: right;"><small>Generated on Tue Jun 2 10:02:11 2009 for mixpp by |
|---|
| 358 | <a href="http://www.doxygen.org/index.html"> |
|---|
| 359 | <img src="doxygen.png" alt="doxygen" align="middle" border="0"></a> 1.5.8 </small></address> |
|---|
| 360 | </body> |
|---|
| 361 | </html> |
|---|
