1 /*********************************************************************/
2 /* Copyright 2009, 2010 The University of Texas at Austin. */
3 /* All rights reserved. */
5 /* Redistribution and use in source and binary forms, with or */
6 /* without modification, are permitted provided that the following */
7 /* conditions are met: */
9 /* 1. Redistributions of source code must retain the above */
10 /* copyright notice, this list of conditions and the following */
13 /* 2. Redistributions in binary form must reproduce the above */
14 /* copyright notice, this list of conditions and the following */
15 /* disclaimer in the documentation and/or other materials */
16 /* provided with the distribution. */
18 /* THIS SOFTWARE IS PROVIDED BY THE UNIVERSITY OF TEXAS AT */
19 /* AUSTIN ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, */
20 /* INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF */
21 /* MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE */
22 /* DISCLAIMED. IN NO EVENT SHALL THE UNIVERSITY OF TEXAS AT */
23 /* AUSTIN OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, */
24 /* INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES */
25 /* (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE */
26 /* GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR */
27 /* BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF */
28 /* LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT */
29 /* (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT */
30 /* OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE */
31 /* POSSIBILITY OF SUCH DAMAGE. */
33 /* The views and conclusions contained in the software and */
34 /* documentation are those of the authors and should not be */
35 /* interpreted as representing official policies, either expressed */
36 /* or implied, of The University of Texas at Austin. */
37 /*********************************************************************/
45 float sdot_k(BLASLONG, float *, BLASLONG, float *, BLASLONG);
46 double dsdot_k(BLASLONG, float *, BLASLONG, float *, BLASLONG);
47 double ddot_k(BLASLONG, double *, BLASLONG, double *, BLASLONG);
48 xdouble qdot_k(BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG);
50 openblas_complex_float cdotc_k (BLASLONG, float *, BLASLONG, float *, BLASLONG);
51 openblas_complex_float cdotu_k (BLASLONG, float *, BLASLONG, float *, BLASLONG);
52 openblas_complex_double zdotc_k (BLASLONG, double *, BLASLONG, double *, BLASLONG);
53 openblas_complex_double zdotu_k (BLASLONG, double *, BLASLONG, double *, BLASLONG);
54 openblas_complex_xdouble xdotc_k (BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG);
55 openblas_complex_xdouble xdotu_k (BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG);
57 int saxpy_k (BLASLONG, BLASLONG, BLASLONG, float,
58 float *, BLASLONG, float *, BLASLONG, float *, BLASLONG);
59 int daxpy_k (BLASLONG, BLASLONG, BLASLONG, double,
60 double *, BLASLONG, double *, BLASLONG, double *, BLASLONG);
61 int qaxpy_k (BLASLONG, BLASLONG, BLASLONG, xdouble,
62 xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG);
63 int caxpy_k (BLASLONG, BLASLONG, BLASLONG, float, float,
64 float *, BLASLONG, float *, BLASLONG, float *, BLASLONG);
65 int zaxpy_k (BLASLONG, BLASLONG, BLASLONG, double, double,
66 double *, BLASLONG, double *, BLASLONG, double *, BLASLONG);
67 int xaxpy_k (BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble,
68 xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG);
69 int caxpyc_k (BLASLONG, BLASLONG, BLASLONG, float, float,
70 float *, BLASLONG, float *, BLASLONG, float *, BLASLONG);
71 int zaxpyc_k (BLASLONG, BLASLONG, BLASLONG, double, double,
72 double *, BLASLONG, double *, BLASLONG, double *, BLASLONG);
73 int xaxpyc_k (BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble,
74 xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG);
76 int scopy_k(BLASLONG, float *, BLASLONG, float *, BLASLONG);
77 int dcopy_k(BLASLONG, double *, BLASLONG, double *, BLASLONG);
78 int qcopy_k(BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG);
79 int ccopy_k(BLASLONG, float *, BLASLONG, float *, BLASLONG);
80 int zcopy_k(BLASLONG, double *, BLASLONG, double *, BLASLONG);
81 int xcopy_k(BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG);
83 int sswap_k (BLASLONG, BLASLONG, BLASLONG, float,
84 float *, BLASLONG, float *, BLASLONG, float *, BLASLONG);
85 int dswap_k (BLASLONG, BLASLONG, BLASLONG, double,
86 double *, BLASLONG, double *, BLASLONG, double*, BLASLONG);
87 int qswap_k (BLASLONG, BLASLONG, BLASLONG, xdouble,
88 xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble*, BLASLONG);
89 int cswap_k (BLASLONG, BLASLONG, BLASLONG, float, float,
90 float *, BLASLONG, float *, BLASLONG, float *, BLASLONG);
91 int zswap_k (BLASLONG, BLASLONG, BLASLONG, double, double,
92 double *, BLASLONG, double *, BLASLONG, double*, BLASLONG);
93 int xswap_k (BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble,
94 xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble*, BLASLONG);
96 float sasum_k (BLASLONG, float *, BLASLONG);
97 double dasum_k (BLASLONG, double *, BLASLONG);
98 xdouble qasum_k (BLASLONG, xdouble *, BLASLONG);
99 float casum_k (BLASLONG, float *, BLASLONG);
100 double zasum_k (BLASLONG, double *, BLASLONG);
101 xdouble xasum_k (BLASLONG, xdouble *, BLASLONG);
103 float samax_k (BLASLONG, float *, BLASLONG);
104 double damax_k (BLASLONG, double *, BLASLONG);
105 xdouble qamax_k (BLASLONG, xdouble *, BLASLONG);
106 float camax_k (BLASLONG, float *, BLASLONG);
107 double zamax_k (BLASLONG, double *, BLASLONG);
108 xdouble xamax_k (BLASLONG, xdouble *, BLASLONG);
110 float samin_k (BLASLONG, float *, BLASLONG);
111 double damin_k (BLASLONG, double *, BLASLONG);
112 xdouble qamin_k (BLASLONG, xdouble *, BLASLONG);
113 float camin_k (BLASLONG, float *, BLASLONG);
114 double zamin_k (BLASLONG, double *, BLASLONG);
115 xdouble xamin_k (BLASLONG, xdouble *, BLASLONG);
117 BLASLONG isamax_k(BLASLONG, float *, BLASLONG);
118 BLASLONG idamax_k(BLASLONG, double *, BLASLONG);
119 BLASLONG iqamax_k(BLASLONG, xdouble *, BLASLONG);
120 BLASLONG icamax_k(BLASLONG, float *, BLASLONG);
121 BLASLONG izamax_k(BLASLONG, double *, BLASLONG);
122 BLASLONG ixamax_k(BLASLONG, xdouble *, BLASLONG);
124 BLASLONG isamin_k(BLASLONG, float *, BLASLONG);
125 BLASLONG idamin_k(BLASLONG, double *, BLASLONG);
126 BLASLONG iqamin_k(BLASLONG, xdouble *, BLASLONG);
127 BLASLONG icamin_k(BLASLONG, float *, BLASLONG);
128 BLASLONG izamin_k(BLASLONG, double *, BLASLONG);
129 BLASLONG ixamin_k(BLASLONG, xdouble *, BLASLONG);
131 float smax_k (BLASLONG, float *, BLASLONG);
132 double dmax_k (BLASLONG, double *, BLASLONG);
133 xdouble qmax_k (BLASLONG, xdouble *, BLASLONG);
134 float cmax_k (BLASLONG, float *, BLASLONG);
135 double zmax_k (BLASLONG, double *, BLASLONG);
136 xdouble xmax_k (BLASLONG, xdouble *, BLASLONG);
138 float smin_k (BLASLONG, float *, BLASLONG);
139 double dmin_k (BLASLONG, double *, BLASLONG);
140 xdouble qmin_k (BLASLONG, xdouble *, BLASLONG);
141 float cmin_k (BLASLONG, float *, BLASLONG);
142 double zmin_k (BLASLONG, double *, BLASLONG);
143 xdouble xmin_k (BLASLONG, xdouble *, BLASLONG);
145 BLASLONG ismax_k(BLASLONG, float *, BLASLONG);
146 BLASLONG idmax_k(BLASLONG, double *, BLASLONG);
147 BLASLONG iqmax_k(BLASLONG, xdouble *, BLASLONG);
148 BLASLONG icmax_k(BLASLONG, float *, BLASLONG);
149 BLASLONG izmax_k(BLASLONG, double *, BLASLONG);
150 BLASLONG ixmax_k(BLASLONG, xdouble *, BLASLONG);
152 BLASLONG ismin_k(BLASLONG, float *, BLASLONG);
153 BLASLONG idmin_k(BLASLONG, double *, BLASLONG);
154 BLASLONG iqmin_k(BLASLONG, xdouble *, BLASLONG);
155 BLASLONG icmin_k(BLASLONG, float *, BLASLONG);
156 BLASLONG izmin_k(BLASLONG, double *, BLASLONG);
157 BLASLONG ixmin_k(BLASLONG, xdouble *, BLASLONG);
159 int sscal_k(BLASLONG, BLASLONG, BLASLONG, float,
160 float *, BLASLONG, float *, BLASLONG, float *, BLASLONG);
161 int dscal_k(BLASLONG, BLASLONG, BLASLONG, double,
162 double *, BLASLONG, double *, BLASLONG, double *, BLASLONG);
163 int qscal_k(BLASLONG, BLASLONG, BLASLONG, xdouble,
164 xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG);
165 int cscal_k(BLASLONG, BLASLONG, BLASLONG, float, float,
166 float *, BLASLONG, float *, BLASLONG, float *, BLASLONG);
167 int zscal_k(BLASLONG, BLASLONG, BLASLONG, double, double,
168 double *, BLASLONG, double *, BLASLONG, double *, BLASLONG);
169 int xscal_k(BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble,
170 xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG);
171 int csscal_k(BLASLONG, BLASLONG, BLASLONG, float, float,
172 float *, BLASLONG, float *, BLASLONG, float *, BLASLONG);
173 int zdscal_k(BLASLONG, BLASLONG, BLASLONG, double, double,
174 double *, BLASLONG, double *, BLASLONG, double *, BLASLONG);
175 int xqscal_k(BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble,
176 xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG);
178 float snrm2_k(BLASLONG, float *, BLASLONG);
179 double dnrm2_k(BLASLONG, double *, BLASLONG);
180 xdouble qnrm2_k(BLASLONG, xdouble *, BLASLONG);
181 float cnrm2_k(BLASLONG, float *, BLASLONG);
182 double znrm2_k(BLASLONG, double *, BLASLONG);
183 xdouble xnrm2_k(BLASLONG, xdouble *, BLASLONG);
185 int srot_k (BLASLONG, float *, BLASLONG, float *, BLASLONG, float , float );
186 int drot_k (BLASLONG, double *, BLASLONG, double *, BLASLONG, double, double);
187 int qrot_k (BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble, xdouble);
188 int csrot_k(BLASLONG, float *, BLASLONG, float *, BLASLONG, float , float );
189 int zdrot_k(BLASLONG, double *, BLASLONG, double *, BLASLONG, double, double);
190 int xqrot_k(BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble, xdouble);
192 int srotg_k(float *, float *, float *, float *);
193 int drotg_k(double *, double *, double *, double *);
194 int qrotg_k(xdouble *, xdouble *, xdouble *, xdouble *);
195 int csrotg_k(float *, float *, float *, float *);
196 int zdrotg_k(double *, double *, double *, double *);
197 int xqrotg_k(xdouble *, xdouble *, xdouble *, xdouble *);
199 int srotmg_k(float *, float *, float *, float *, float *);
200 int drotmg_k(double *, double *, double *, double *, double *);
201 int qrotmg_k(xdouble *, xdouble *, xdouble *, xdouble *, xdouble *);
203 int srotm_k (BLASLONG, float, BLASLONG, float, BLASLONG, float);
204 int drotm_k (BLASLONG, double, BLASLONG, double, BLASLONG, double);
205 int qrotm_k (BLASLONG, xdouble, BLASLONG, xdouble, BLASLONG, xdouble);
208 int saxpby_k (BLASLONG, float, float *, BLASLONG, float, float *, BLASLONG);
209 int daxpby_k (BLASLONG, double, double *, BLASLONG, double, double *, BLASLONG);
210 int caxpby_k (BLASLONG, float, float, float *, BLASLONG, float, float, float *, BLASLONG);
211 int zaxpby_k (BLASLONG, double, double, double *, BLASLONG, double, double, double *, BLASLONG);