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 /*********************************************************************/
43 /* Assume C declarations for C++ */
44 #endif /* __cplusplus */
46 int BLASFUNC(xerbla)(char *, blasint *info, blasint);
48 void openblas_set_num_threads_(int *);
50 FLOATRET BLASFUNC(sdot) (blasint *, float *, blasint *, float *, blasint *);
51 FLOATRET BLASFUNC(sdsdot)(blasint *, float *, float *, blasint *, float *, blasint *);
53 double BLASFUNC(dsdot) (blasint *, float *, blasint *, float *, blasint *);
54 double BLASFUNC(ddot) (blasint *, double *, blasint *, double *, blasint *);
55 xdouble BLASFUNC(qdot) (blasint *, xdouble *, blasint *, xdouble *, blasint *);
58 #ifdef RETURN_BY_STRUCT
71 myccomplex_t BLASFUNC(cdotu) (blasint *, float *, blasint *, float *, blasint *);
72 myccomplex_t BLASFUNC(cdotc) (blasint *, float *, blasint *, float *, blasint *);
73 myzcomplex_t BLASFUNC(zdotu) (blasint *, double *, blasint *, double *, blasint *);
74 myzcomplex_t BLASFUNC(zdotc) (blasint *, double *, blasint *, double *, blasint *);
75 myxcomplex_t BLASFUNC(xdotu) (blasint *, xdouble *, blasint *, xdouble *, blasint *);
76 myxcomplex_t BLASFUNC(xdotc) (blasint *, xdouble *, blasint *, xdouble *, blasint *);
78 #elif defined RETURN_BY_STACK
79 void BLASFUNC(cdotu) (openblas_complex_float *, blasint *, float * , blasint *, float *, blasint *);
80 void BLASFUNC(cdotc) (openblas_complex_float *, blasint *, float *, blasint *, float *, blasint *);
81 void BLASFUNC(zdotu) (openblas_complex_double *, blasint *, double *, blasint *, double *, blasint *);
82 void BLASFUNC(zdotc) (openblas_complex_double *, blasint *, double *, blasint *, double *, blasint *);
83 void BLASFUNC(xdotu) (openblas_complex_xdouble *, blasint *, xdouble *, blasint *, xdouble *, blasint *);
84 void BLASFUNC(xdotc) (openblas_complex_xdouble *, blasint *, xdouble *, blasint *, xdouble *, blasint *);
86 openblas_complex_float BLASFUNC(cdotu) (blasint *, float *, blasint *, float *, blasint *);
87 openblas_complex_float BLASFUNC(cdotc) (blasint *, float *, blasint *, float *, blasint *);
88 openblas_complex_double BLASFUNC(zdotu) (blasint *, double *, blasint *, double *, blasint *);
89 openblas_complex_double BLASFUNC(zdotc) (blasint *, double *, blasint *, double *, blasint *);
90 openblas_complex_xdouble BLASFUNC(xdotu) (blasint *, xdouble *, blasint *, xdouble *, blasint *);
91 openblas_complex_xdouble BLASFUNC(xdotc) (blasint *, xdouble *, blasint *, xdouble *, blasint *);
94 void BLASFUNC(saxpy) (blasint *, float *, float *, blasint *, float *, blasint *);
95 void BLASFUNC(daxpy) (blasint *, double *, double *, blasint *, double *, blasint *);
96 void BLASFUNC(qaxpy) (blasint *, xdouble *, xdouble *, blasint *, xdouble *, blasint *);
97 void BLASFUNC(caxpy) (blasint *, float *, float *, blasint *, float *, blasint *);
98 void BLASFUNC(zaxpy) (blasint *, double *, double *, blasint *, double *, blasint *);
99 void BLASFUNC(xaxpy) (blasint *, xdouble *, xdouble *, blasint *, xdouble *, blasint *);
100 void BLASFUNC(caxpyc)(blasint *, float *, float *, blasint *, float *, blasint *);
101 void BLASFUNC(zaxpyc)(blasint *, double *, double *, blasint *, double *, blasint *);
102 void BLASFUNC(xaxpyc)(blasint *, xdouble *, xdouble *, blasint *, xdouble *, blasint *);
104 void BLASFUNC(scopy) (blasint *, float *, blasint *, float *, blasint *);
105 void BLASFUNC(dcopy) (blasint *, double *, blasint *, double *, blasint *);
106 void BLASFUNC(qcopy) (blasint *, xdouble *, blasint *, xdouble *, blasint *);
107 void BLASFUNC(ccopy) (blasint *, float *, blasint *, float *, blasint *);
108 void BLASFUNC(zcopy) (blasint *, double *, blasint *, double *, blasint *);
109 void BLASFUNC(xcopy) (blasint *, xdouble *, blasint *, xdouble *, blasint *);
111 void BLASFUNC(sswap) (blasint *, float *, blasint *, float *, blasint *);
112 void BLASFUNC(dswap) (blasint *, double *, blasint *, double *, blasint *);
113 void BLASFUNC(qswap) (blasint *, xdouble *, blasint *, xdouble *, blasint *);
114 void BLASFUNC(cswap) (blasint *, float *, blasint *, float *, blasint *);
115 void BLASFUNC(zswap) (blasint *, double *, blasint *, double *, blasint *);
116 void BLASFUNC(xswap) (blasint *, xdouble *, blasint *, xdouble *, blasint *);
118 FLOATRET BLASFUNC(sasum) (blasint *, float *, blasint *);
119 FLOATRET BLASFUNC(scasum)(blasint *, float *, blasint *);
120 double BLASFUNC(dasum) (blasint *, double *, blasint *);
121 xdouble BLASFUNC(qasum) (blasint *, xdouble *, blasint *);
122 double BLASFUNC(dzasum)(blasint *, double *, blasint *);
123 xdouble BLASFUNC(qxasum)(blasint *, xdouble *, blasint *);
125 FLOATRET BLASFUNC(ssum) (blasint *, float *, blasint *);
126 FLOATRET BLASFUNC(scsum)(blasint *, float *, blasint *);
127 double BLASFUNC(dsum) (blasint *, double *, blasint *);
128 xdouble BLASFUNC(qsum) (blasint *, xdouble *, blasint *);
129 double BLASFUNC(dzsum)(blasint *, double *, blasint *);
130 xdouble BLASFUNC(qxsum)(blasint *, xdouble *, blasint *);
132 blasint BLASFUNC(isamax)(blasint *, float *, blasint *);
133 blasint BLASFUNC(idamax)(blasint *, double *, blasint *);
134 blasint BLASFUNC(iqamax)(blasint *, xdouble *, blasint *);
135 blasint BLASFUNC(icamax)(blasint *, float *, blasint *);
136 blasint BLASFUNC(izamax)(blasint *, double *, blasint *);
137 blasint BLASFUNC(ixamax)(blasint *, xdouble *, blasint *);
139 blasint BLASFUNC(ismax) (blasint *, float *, blasint *);
140 blasint BLASFUNC(idmax) (blasint *, double *, blasint *);
141 blasint BLASFUNC(iqmax) (blasint *, xdouble *, blasint *);
142 blasint BLASFUNC(icmax) (blasint *, float *, blasint *);
143 blasint BLASFUNC(izmax) (blasint *, double *, blasint *);
144 blasint BLASFUNC(ixmax) (blasint *, xdouble *, blasint *);
146 blasint BLASFUNC(isamin)(blasint *, float *, blasint *);
147 blasint BLASFUNC(idamin)(blasint *, double *, blasint *);
148 blasint BLASFUNC(iqamin)(blasint *, xdouble *, blasint *);
149 blasint BLASFUNC(icamin)(blasint *, float *, blasint *);
150 blasint BLASFUNC(izamin)(blasint *, double *, blasint *);
151 blasint BLASFUNC(ixamin)(blasint *, xdouble *, blasint *);
153 blasint BLASFUNC(ismin)(blasint *, float *, blasint *);
154 blasint BLASFUNC(idmin)(blasint *, double *, blasint *);
155 blasint BLASFUNC(iqmin)(blasint *, xdouble *, blasint *);
156 blasint BLASFUNC(icmin)(blasint *, float *, blasint *);
157 blasint BLASFUNC(izmin)(blasint *, double *, blasint *);
158 blasint BLASFUNC(ixmin)(blasint *, xdouble *, blasint *);
160 FLOATRET BLASFUNC(samax) (blasint *, float *, blasint *);
161 double BLASFUNC(damax) (blasint *, double *, blasint *);
162 xdouble BLASFUNC(qamax) (blasint *, xdouble *, blasint *);
163 FLOATRET BLASFUNC(scamax)(blasint *, float *, blasint *);
164 double BLASFUNC(dzamax)(blasint *, double *, blasint *);
165 xdouble BLASFUNC(qxamax)(blasint *, xdouble *, blasint *);
167 FLOATRET BLASFUNC(samin) (blasint *, float *, blasint *);
168 double BLASFUNC(damin) (blasint *, double *, blasint *);
169 xdouble BLASFUNC(qamin) (blasint *, xdouble *, blasint *);
170 FLOATRET BLASFUNC(scamin)(blasint *, float *, blasint *);
171 double BLASFUNC(dzamin)(blasint *, double *, blasint *);
172 xdouble BLASFUNC(qxamin)(blasint *, xdouble *, blasint *);
174 FLOATRET BLASFUNC(smax) (blasint *, float *, blasint *);
175 double BLASFUNC(dmax) (blasint *, double *, blasint *);
176 xdouble BLASFUNC(qmax) (blasint *, xdouble *, blasint *);
177 FLOATRET BLASFUNC(scmax) (blasint *, float *, blasint *);
178 double BLASFUNC(dzmax) (blasint *, double *, blasint *);
179 xdouble BLASFUNC(qxmax) (blasint *, xdouble *, blasint *);
181 FLOATRET BLASFUNC(smin) (blasint *, float *, blasint *);
182 double BLASFUNC(dmin) (blasint *, double *, blasint *);
183 xdouble BLASFUNC(qmin) (blasint *, xdouble *, blasint *);
184 FLOATRET BLASFUNC(scmin) (blasint *, float *, blasint *);
185 double BLASFUNC(dzmin) (blasint *, double *, blasint *);
186 xdouble BLASFUNC(qxmin) (blasint *, xdouble *, blasint *);
188 void BLASFUNC(sscal) (blasint *, float *, float *, blasint *);
189 void BLASFUNC(dscal) (blasint *, double *, double *, blasint *);
190 void BLASFUNC(qscal) (blasint *, xdouble *, xdouble *, blasint *);
191 void BLASFUNC(cscal) (blasint *, float *, float *, blasint *);
192 void BLASFUNC(zscal) (blasint *, double *, double *, blasint *);
193 void BLASFUNC(xscal) (blasint *, xdouble *, xdouble *, blasint *);
194 void BLASFUNC(csscal)(blasint *, float *, float *, blasint *);
195 void BLASFUNC(zdscal)(blasint *, double *, double *, blasint *);
196 void BLASFUNC(xqscal)(blasint *, xdouble *, xdouble *, blasint *);
198 FLOATRET BLASFUNC(snrm2) (blasint *, float *, blasint *);
199 FLOATRET BLASFUNC(scnrm2)(blasint *, float *, blasint *);
201 double BLASFUNC(dnrm2) (blasint *, double *, blasint *);
202 xdouble BLASFUNC(qnrm2) (blasint *, xdouble *, blasint *);
203 double BLASFUNC(dznrm2)(blasint *, double *, blasint *);
204 xdouble BLASFUNC(qxnrm2)(blasint *, xdouble *, blasint *);
206 void BLASFUNC(srot) (blasint *, float *, blasint *, float *, blasint *, float *, float *);
207 void BLASFUNC(drot) (blasint *, double *, blasint *, double *, blasint *, double *, double *);
208 void BLASFUNC(qrot) (blasint *, xdouble *, blasint *, xdouble *, blasint *, xdouble *, xdouble *);
209 void BLASFUNC(csrot) (blasint *, float *, blasint *, float *, blasint *, float *, float *);
210 void BLASFUNC(zdrot) (blasint *, double *, blasint *, double *, blasint *, double *, double *);
211 void BLASFUNC(xqrot) (blasint *, xdouble *, blasint *, xdouble *, blasint *, xdouble *, xdouble *);
213 void BLASFUNC(srotg) (float *, float *, float *, float *);
214 void BLASFUNC(drotg) (double *, double *, double *, double *);
215 void BLASFUNC(qrotg) (xdouble *, xdouble *, xdouble *, xdouble *);
216 void BLASFUNC(crotg) (float *, float *, float *, float *);
217 void BLASFUNC(zrotg) (double *, double *, double *, double *);
218 void BLASFUNC(xrotg) (xdouble *, xdouble *, xdouble *, xdouble *);
220 void BLASFUNC(srotmg)(float *, float *, float *, float *, float *);
221 void BLASFUNC(drotmg)(double *, double *, double *, double *, double *);
223 void BLASFUNC(srotm) (blasint *, float *, blasint *, float *, blasint *, float *);
224 void BLASFUNC(drotm) (blasint *, double *, blasint *, double *, blasint *, double *);
225 void BLASFUNC(qrotm) (blasint *, xdouble *, blasint *, xdouble *, blasint *, xdouble *);
227 /* Level 2 routines */
229 void BLASFUNC(sger)(blasint *, blasint *, float *, float *, blasint *,
230 float *, blasint *, float *, blasint *);
231 void BLASFUNC(dger)(blasint *, blasint *, double *, double *, blasint *,
232 double *, blasint *, double *, blasint *);
233 void BLASFUNC(qger)(blasint *, blasint *, xdouble *, xdouble *, blasint *,
234 xdouble *, blasint *, xdouble *, blasint *);
235 void BLASFUNC(cgeru)(blasint *, blasint *, float *, float *, blasint *,
236 float *, blasint *, float *, blasint *);
237 void BLASFUNC(cgerc)(blasint *, blasint *, float *, float *, blasint *,
238 float *, blasint *, float *, blasint *);
239 void BLASFUNC(zgeru)(blasint *, blasint *, double *, double *, blasint *,
240 double *, blasint *, double *, blasint *);
241 void BLASFUNC(zgerc)(blasint *, blasint *, double *, double *, blasint *,
242 double *, blasint *, double *, blasint *);
243 void BLASFUNC(xgeru)(blasint *, blasint *, xdouble *, xdouble *, blasint *,
244 xdouble *, blasint *, xdouble *, blasint *);
245 void BLASFUNC(xgerc)(blasint *, blasint *, xdouble *, xdouble *, blasint *,
246 xdouble *, blasint *, xdouble *, blasint *);
248 void BLASFUNC(sgemv)(char *, blasint *, blasint *, float *, float *, blasint *,
249 float *, blasint *, float *, float *, blasint *);
250 void BLASFUNC(dgemv)(char *, blasint *, blasint *, double *, double *, blasint *,
251 double *, blasint *, double *, double *, blasint *);
252 void BLASFUNC(qgemv)(char *, blasint *, blasint *, xdouble *, xdouble *, blasint *,
253 xdouble *, blasint *, xdouble *, xdouble *, blasint *);
254 void BLASFUNC(cgemv)(char *, blasint *, blasint *, float *, float *, blasint *,
255 float *, blasint *, float *, float *, blasint *);
256 void BLASFUNC(zgemv)(char *, blasint *, blasint *, double *, double *, blasint *,
257 double *, blasint *, double *, double *, blasint *);
258 void BLASFUNC(xgemv)(char *, blasint *, blasint *, xdouble *, xdouble *, blasint *,
259 xdouble *, blasint *, xdouble *, xdouble *, blasint *);
261 void BLASFUNC(strsv) (char *, char *, char *, blasint *, float *, blasint *,
263 void BLASFUNC(dtrsv) (char *, char *, char *, blasint *, double *, blasint *,
264 double *, blasint *);
265 void BLASFUNC(qtrsv) (char *, char *, char *, blasint *, xdouble *, blasint *,
266 xdouble *, blasint *);
267 void BLASFUNC(ctrsv) (char *, char *, char *, blasint *, float *, blasint *,
269 void BLASFUNC(ztrsv) (char *, char *, char *, blasint *, double *, blasint *,
270 double *, blasint *);
271 void BLASFUNC(xtrsv) (char *, char *, char *, blasint *, xdouble *, blasint *,
272 xdouble *, blasint *);
274 void BLASFUNC(strmv) (char *, char *, char *, blasint *, float *, blasint *,
276 void BLASFUNC(dtrmv) (char *, char *, char *, blasint *, double *, blasint *,
277 double *, blasint *);
278 void BLASFUNC(qtrmv) (char *, char *, char *, blasint *, xdouble *, blasint *,
279 xdouble *, blasint *);
280 void BLASFUNC(ctrmv) (char *, char *, char *, blasint *, float *, blasint *,
282 void BLASFUNC(ztrmv) (char *, char *, char *, blasint *, double *, blasint *,
283 double *, blasint *);
284 void BLASFUNC(xtrmv) (char *, char *, char *, blasint *, xdouble *, blasint *,
285 xdouble *, blasint *);
287 void BLASFUNC(stpsv) (char *, char *, char *, blasint *, float *, float *, blasint *);
288 void BLASFUNC(dtpsv) (char *, char *, char *, blasint *, double *, double *, blasint *);
289 void BLASFUNC(qtpsv) (char *, char *, char *, blasint *, xdouble *, xdouble *, blasint *);
290 void BLASFUNC(ctpsv) (char *, char *, char *, blasint *, float *, float *, blasint *);
291 void BLASFUNC(ztpsv) (char *, char *, char *, blasint *, double *, double *, blasint *);
292 void BLASFUNC(xtpsv) (char *, char *, char *, blasint *, xdouble *, xdouble *, blasint *);
294 void BLASFUNC(stpmv) (char *, char *, char *, blasint *, float *, float *, blasint *);
295 void BLASFUNC(dtpmv) (char *, char *, char *, blasint *, double *, double *, blasint *);
296 void BLASFUNC(qtpmv) (char *, char *, char *, blasint *, xdouble *, xdouble *, blasint *);
297 void BLASFUNC(ctpmv) (char *, char *, char *, blasint *, float *, float *, blasint *);
298 void BLASFUNC(ztpmv) (char *, char *, char *, blasint *, double *, double *, blasint *);
299 void BLASFUNC(xtpmv) (char *, char *, char *, blasint *, xdouble *, xdouble *, blasint *);
301 void BLASFUNC(stbmv) (char *, char *, char *, blasint *, blasint *, float *, blasint *, float *, blasint *);
302 void BLASFUNC(dtbmv) (char *, char *, char *, blasint *, blasint *, double *, blasint *, double *, blasint *);
303 void BLASFUNC(qtbmv) (char *, char *, char *, blasint *, blasint *, xdouble *, blasint *, xdouble *, blasint *);
304 void BLASFUNC(ctbmv) (char *, char *, char *, blasint *, blasint *, float *, blasint *, float *, blasint *);
305 void BLASFUNC(ztbmv) (char *, char *, char *, blasint *, blasint *, double *, blasint *, double *, blasint *);
306 void BLASFUNC(xtbmv) (char *, char *, char *, blasint *, blasint *, xdouble *, blasint *, xdouble *, blasint *);
308 void BLASFUNC(stbsv) (char *, char *, char *, blasint *, blasint *, float *, blasint *, float *, blasint *);
309 void BLASFUNC(dtbsv) (char *, char *, char *, blasint *, blasint *, double *, blasint *, double *, blasint *);
310 void BLASFUNC(qtbsv) (char *, char *, char *, blasint *, blasint *, xdouble *, blasint *, xdouble *, blasint *);
311 void BLASFUNC(ctbsv) (char *, char *, char *, blasint *, blasint *, float *, blasint *, float *, blasint *);
312 void BLASFUNC(ztbsv) (char *, char *, char *, blasint *, blasint *, double *, blasint *, double *, blasint *);
313 void BLASFUNC(xtbsv) (char *, char *, char *, blasint *, blasint *, xdouble *, blasint *, xdouble *, blasint *);
315 void BLASFUNC(ssymv) (char *, blasint *, float *, float *, blasint *,
316 float *, blasint *, float *, float *, blasint *);
317 void BLASFUNC(dsymv) (char *, blasint *, double *, double *, blasint *,
318 double *, blasint *, double *, double *, blasint *);
319 void BLASFUNC(qsymv) (char *, blasint *, xdouble *, xdouble *, blasint *,
320 xdouble *, blasint *, xdouble *, xdouble *, blasint *);
321 void BLASFUNC(csymv) (char *, blasint *, float *, float *, blasint *,
322 float *, blasint *, float *, float *, blasint *);
323 void BLASFUNC(zsymv) (char *, blasint *, double *, double *, blasint *,
324 double *, blasint *, double *, double *, blasint *);
325 void BLASFUNC(xsymv) (char *, blasint *, xdouble *, xdouble *, blasint *,
326 xdouble *, blasint *, xdouble *, xdouble *, blasint *);
328 void BLASFUNC(sspmv) (char *, blasint *, float *, float *,
329 float *, blasint *, float *, float *, blasint *);
330 void BLASFUNC(dspmv) (char *, blasint *, double *, double *,
331 double *, blasint *, double *, double *, blasint *);
332 void BLASFUNC(qspmv) (char *, blasint *, xdouble *, xdouble *,
333 xdouble *, blasint *, xdouble *, xdouble *, blasint *);
334 void BLASFUNC(cspmv) (char *, blasint *, float *, float *,
335 float *, blasint *, float *, float *, blasint *);
336 void BLASFUNC(zspmv) (char *, blasint *, double *, double *,
337 double *, blasint *, double *, double *, blasint *);
338 void BLASFUNC(xspmv) (char *, blasint *, xdouble *, xdouble *,
339 xdouble *, blasint *, xdouble *, xdouble *, blasint *);
341 void BLASFUNC(ssyr) (char *, blasint *, float *, float *, blasint *,
343 void BLASFUNC(dsyr) (char *, blasint *, double *, double *, blasint *,
344 double *, blasint *);
345 void BLASFUNC(qsyr) (char *, blasint *, xdouble *, xdouble *, blasint *,
346 xdouble *, blasint *);
347 void BLASFUNC(csyr) (char *, blasint *, float *, float *, blasint *,
349 void BLASFUNC(zsyr) (char *, blasint *, double *, double *, blasint *,
350 double *, blasint *);
351 void BLASFUNC(xsyr) (char *, blasint *, xdouble *, xdouble *, blasint *,
352 xdouble *, blasint *);
354 void BLASFUNC(ssyr2) (char *, blasint *, float *,
355 float *, blasint *, float *, blasint *, float *, blasint *);
356 void BLASFUNC(dsyr2) (char *, blasint *, double *,
357 double *, blasint *, double *, blasint *, double *, blasint *);
358 void BLASFUNC(qsyr2) (char *, blasint *, xdouble *,
359 xdouble *, blasint *, xdouble *, blasint *, xdouble *, blasint *);
360 void BLASFUNC(csyr2) (char *, blasint *, float *,
361 float *, blasint *, float *, blasint *, float *, blasint *);
362 void BLASFUNC(zsyr2) (char *, blasint *, double *,
363 double *, blasint *, double *, blasint *, double *, blasint *);
364 void BLASFUNC(xsyr2) (char *, blasint *, xdouble *,
365 xdouble *, blasint *, xdouble *, blasint *, xdouble *, blasint *);
367 void BLASFUNC(sspr) (char *, blasint *, float *, float *, blasint *,
369 void BLASFUNC(dspr) (char *, blasint *, double *, double *, blasint *,
371 void BLASFUNC(qspr) (char *, blasint *, xdouble *, xdouble *, blasint *,
373 void BLASFUNC(cspr) (char *, blasint *, float *, float *, blasint *,
375 void BLASFUNC(zspr) (char *, blasint *, double *, double *, blasint *,
377 void BLASFUNC(xspr) (char *, blasint *, xdouble *, xdouble *, blasint *,
380 void BLASFUNC(sspr2) (char *, blasint *, float *,
381 float *, blasint *, float *, blasint *, float *);
382 void BLASFUNC(dspr2) (char *, blasint *, double *,
383 double *, blasint *, double *, blasint *, double *);
384 void BLASFUNC(qspr2) (char *, blasint *, xdouble *,
385 xdouble *, blasint *, xdouble *, blasint *, xdouble *);
386 void BLASFUNC(cspr2) (char *, blasint *, float *,
387 float *, blasint *, float *, blasint *, float *);
388 void BLASFUNC(zspr2) (char *, blasint *, double *,
389 double *, blasint *, double *, blasint *, double *);
390 void BLASFUNC(xspr2) (char *, blasint *, xdouble *,
391 xdouble *, blasint *, xdouble *, blasint *, xdouble *);
393 void BLASFUNC(cher) (char *, blasint *, float *, float *, blasint *,
395 void BLASFUNC(zher) (char *, blasint *, double *, double *, blasint *,
396 double *, blasint *);
397 void BLASFUNC(xher) (char *, blasint *, xdouble *, xdouble *, blasint *,
398 xdouble *, blasint *);
400 void BLASFUNC(chpr) (char *, blasint *, float *, float *, blasint *, float *);
401 void BLASFUNC(zhpr) (char *, blasint *, double *, double *, blasint *, double *);
402 void BLASFUNC(xhpr) (char *, blasint *, xdouble *, xdouble *, blasint *, xdouble *);
404 void BLASFUNC(cher2) (char *, blasint *, float *,
405 float *, blasint *, float *, blasint *, float *, blasint *);
406 void BLASFUNC(zher2) (char *, blasint *, double *,
407 double *, blasint *, double *, blasint *, double *, blasint *);
408 void BLASFUNC(xher2) (char *, blasint *, xdouble *,
409 xdouble *, blasint *, xdouble *, blasint *, xdouble *, blasint *);
411 void BLASFUNC(chpr2) (char *, blasint *, float *,
412 float *, blasint *, float *, blasint *, float *);
413 void BLASFUNC(zhpr2) (char *, blasint *, double *,
414 double *, blasint *, double *, blasint *, double *);
415 void BLASFUNC(xhpr2) (char *, blasint *, xdouble *,
416 xdouble *, blasint *, xdouble *, blasint *, xdouble *);
418 void BLASFUNC(chemv) (char *, blasint *, float *, float *, blasint *,
419 float *, blasint *, float *, float *, blasint *);
420 void BLASFUNC(zhemv) (char *, blasint *, double *, double *, blasint *,
421 double *, blasint *, double *, double *, blasint *);
422 void BLASFUNC(xhemv) (char *, blasint *, xdouble *, xdouble *, blasint *,
423 xdouble *, blasint *, xdouble *, xdouble *, blasint *);
425 void BLASFUNC(chpmv) (char *, blasint *, float *, float *,
426 float *, blasint *, float *, float *, blasint *);
427 void BLASFUNC(zhpmv) (char *, blasint *, double *, double *,
428 double *, blasint *, double *, double *, blasint *);
429 void BLASFUNC(xhpmv) (char *, blasint *, xdouble *, xdouble *,
430 xdouble *, blasint *, xdouble *, xdouble *, blasint *);
432 int BLASFUNC(snorm)(char *, blasint *, blasint *, float *, blasint *);
433 int BLASFUNC(dnorm)(char *, blasint *, blasint *, double *, blasint *);
434 int BLASFUNC(cnorm)(char *, blasint *, blasint *, float *, blasint *);
435 int BLASFUNC(znorm)(char *, blasint *, blasint *, double *, blasint *);
437 void BLASFUNC(sgbmv)(char *, blasint *, blasint *, blasint *, blasint *, float *, float *, blasint *,
438 float *, blasint *, float *, float *, blasint *);
439 void BLASFUNC(dgbmv)(char *, blasint *, blasint *, blasint *, blasint *, double *, double *, blasint *,
440 double *, blasint *, double *, double *, blasint *);
441 void BLASFUNC(qgbmv)(char *, blasint *, blasint *, blasint *, blasint *, xdouble *, xdouble *, blasint *,
442 xdouble *, blasint *, xdouble *, xdouble *, blasint *);
443 void BLASFUNC(cgbmv)(char *, blasint *, blasint *, blasint *, blasint *, float *, float *, blasint *,
444 float *, blasint *, float *, float *, blasint *);
445 void BLASFUNC(zgbmv)(char *, blasint *, blasint *, blasint *, blasint *, double *, double *, blasint *,
446 double *, blasint *, double *, double *, blasint *);
447 void BLASFUNC(xgbmv)(char *, blasint *, blasint *, blasint *, blasint *, xdouble *, xdouble *, blasint *,
448 xdouble *, blasint *, xdouble *, xdouble *, blasint *);
450 void BLASFUNC(ssbmv)(char *, blasint *, blasint *, float *, float *, blasint *,
451 float *, blasint *, float *, float *, blasint *);
452 void BLASFUNC(dsbmv)(char *, blasint *, blasint *, double *, double *, blasint *,
453 double *, blasint *, double *, double *, blasint *);
454 void BLASFUNC(qsbmv)(char *, blasint *, blasint *, xdouble *, xdouble *, blasint *,
455 xdouble *, blasint *, xdouble *, xdouble *, blasint *);
456 void BLASFUNC(csbmv)(char *, blasint *, blasint *, float *, float *, blasint *,
457 float *, blasint *, float *, float *, blasint *);
458 void BLASFUNC(zsbmv)(char *, blasint *, blasint *, double *, double *, blasint *,
459 double *, blasint *, double *, double *, blasint *);
460 void BLASFUNC(xsbmv)(char *, blasint *, blasint *, xdouble *, xdouble *, blasint *,
461 xdouble *, blasint *, xdouble *, xdouble *, blasint *);
463 void BLASFUNC(chbmv)(char *, blasint *, blasint *, float *, float *, blasint *,
464 float *, blasint *, float *, float *, blasint *);
465 void BLASFUNC(zhbmv)(char *, blasint *, blasint *, double *, double *, blasint *,
466 double *, blasint *, double *, double *, blasint *);
467 void BLASFUNC(xhbmv)(char *, blasint *, blasint *, xdouble *, xdouble *, blasint *,
468 xdouble *, blasint *, xdouble *, xdouble *, blasint *);
470 /* Level 3 routines */
472 void BLASFUNC(sgemm)(char *, char *, blasint *, blasint *, blasint *, float *,
473 float *, blasint *, float *, blasint *, float *, float *, blasint *);
474 void BLASFUNC(dgemm)(char *, char *, blasint *, blasint *, blasint *, double *,
475 double *, blasint *, double *, blasint *, double *, double *, blasint *);
476 void BLASFUNC(qgemm)(char *, char *, blasint *, blasint *, blasint *, xdouble *,
477 xdouble *, blasint *, xdouble *, blasint *, xdouble *, xdouble *, blasint *);
478 void BLASFUNC(cgemm)(char *, char *, blasint *, blasint *, blasint *, float *,
479 float *, blasint *, float *, blasint *, float *, float *, blasint *);
480 void BLASFUNC(zgemm)(char *, char *, blasint *, blasint *, blasint *, double *,
481 double *, blasint *, double *, blasint *, double *, double *, blasint *);
482 void BLASFUNC(xgemm)(char *, char *, blasint *, blasint *, blasint *, xdouble *,
483 xdouble *, blasint *, xdouble *, blasint *, xdouble *, xdouble *, blasint *);
485 void BLASFUNC(cgemm3m)(char *, char *, blasint *, blasint *, blasint *, float *,
486 float *, blasint *, float *, blasint *, float *, float *, blasint *);
487 void BLASFUNC(zgemm3m)(char *, char *, blasint *, blasint *, blasint *, double *,
488 double *, blasint *, double *, blasint *, double *, double *, blasint *);
489 void BLASFUNC(xgemm3m)(char *, char *, blasint *, blasint *, blasint *, xdouble *,
490 xdouble *, blasint *, xdouble *, blasint *, xdouble *, xdouble *, blasint *);
492 int BLASFUNC(sge2mm)(char *, char *, char *, blasint *, blasint *,
493 float *, float *, blasint *, float *, blasint *,
494 float *, float *, blasint *);
495 int BLASFUNC(dge2mm)(char *, char *, char *, blasint *, blasint *,
496 double *, double *, blasint *, double *, blasint *,
497 double *, double *, blasint *);
498 int BLASFUNC(cge2mm)(char *, char *, char *, blasint *, blasint *,
499 float *, float *, blasint *, float *, blasint *,
500 float *, float *, blasint *);
501 int BLASFUNC(zge2mm)(char *, char *, char *, blasint *, blasint *,
502 double *, double *, blasint *, double *, blasint *,
503 double *, double *, blasint *);
505 void BLASFUNC(strsm)(char *, char *, char *, char *, blasint *, blasint *,
506 float *, float *, blasint *, float *, blasint *);
507 void BLASFUNC(dtrsm)(char *, char *, char *, char *, blasint *, blasint *,
508 double *, double *, blasint *, double *, blasint *);
509 void BLASFUNC(qtrsm)(char *, char *, char *, char *, blasint *, blasint *,
510 xdouble *, xdouble *, blasint *, xdouble *, blasint *);
511 void BLASFUNC(ctrsm)(char *, char *, char *, char *, blasint *, blasint *,
512 float *, float *, blasint *, float *, blasint *);
513 void BLASFUNC(ztrsm)(char *, char *, char *, char *, blasint *, blasint *,
514 double *, double *, blasint *, double *, blasint *);
515 void BLASFUNC(xtrsm)(char *, char *, char *, char *, blasint *, blasint *,
516 xdouble *, xdouble *, blasint *, xdouble *, blasint *);
518 void BLASFUNC(strmm)(char *, char *, char *, char *, blasint *, blasint *,
519 float *, float *, blasint *, float *, blasint *);
520 void BLASFUNC(dtrmm)(char *, char *, char *, char *, blasint *, blasint *,
521 double *, double *, blasint *, double *, blasint *);
522 void BLASFUNC(qtrmm)(char *, char *, char *, char *, blasint *, blasint *,
523 xdouble *, xdouble *, blasint *, xdouble *, blasint *);
524 void BLASFUNC(ctrmm)(char *, char *, char *, char *, blasint *, blasint *,
525 float *, float *, blasint *, float *, blasint *);
526 void BLASFUNC(ztrmm)(char *, char *, char *, char *, blasint *, blasint *,
527 double *, double *, blasint *, double *, blasint *);
528 void BLASFUNC(xtrmm)(char *, char *, char *, char *, blasint *, blasint *,
529 xdouble *, xdouble *, blasint *, xdouble *, blasint *);
531 void BLASFUNC(ssymm)(char *, char *, blasint *, blasint *, float *, float *, blasint *,
532 float *, blasint *, float *, float *, blasint *);
533 void BLASFUNC(dsymm)(char *, char *, blasint *, blasint *, double *, double *, blasint *,
534 double *, blasint *, double *, double *, blasint *);
535 void BLASFUNC(qsymm)(char *, char *, blasint *, blasint *, xdouble *, xdouble *, blasint *,
536 xdouble *, blasint *, xdouble *, xdouble *, blasint *);
537 void BLASFUNC(csymm)(char *, char *, blasint *, blasint *, float *, float *, blasint *,
538 float *, blasint *, float *, float *, blasint *);
539 void BLASFUNC(zsymm)(char *, char *, blasint *, blasint *, double *, double *, blasint *,
540 double *, blasint *, double *, double *, blasint *);
541 void BLASFUNC(xsymm)(char *, char *, blasint *, blasint *, xdouble *, xdouble *, blasint *,
542 xdouble *, blasint *, xdouble *, xdouble *, blasint *);
544 void BLASFUNC(csymm3m)(char *, char *, blasint *, blasint *, float *, float *, blasint *,
545 float *, blasint *, float *, float *, blasint *);
546 void BLASFUNC(zsymm3m)(char *, char *, blasint *, blasint *, double *, double *, blasint *,
547 double *, blasint *, double *, double *, blasint *);
548 void BLASFUNC(xsymm3m)(char *, char *, blasint *, blasint *, xdouble *, xdouble *, blasint *,
549 xdouble *, blasint *, xdouble *, xdouble *, blasint *);
551 void BLASFUNC(ssyrk)(char *, char *, blasint *, blasint *, float *, float *, blasint *,
552 float *, float *, blasint *);
553 void BLASFUNC(dsyrk)(char *, char *, blasint *, blasint *, double *, double *, blasint *,
554 double *, double *, blasint *);
555 void BLASFUNC(qsyrk)(char *, char *, blasint *, blasint *, xdouble *, xdouble *, blasint *,
556 xdouble *, xdouble *, blasint *);
557 void BLASFUNC(csyrk)(char *, char *, blasint *, blasint *, float *, float *, blasint *,
558 float *, float *, blasint *);
559 void BLASFUNC(zsyrk)(char *, char *, blasint *, blasint *, double *, double *, blasint *,
560 double *, double *, blasint *);
561 void BLASFUNC(xsyrk)(char *, char *, blasint *, blasint *, xdouble *, xdouble *, blasint *,
562 xdouble *, xdouble *, blasint *);
564 void BLASFUNC(ssyr2k)(char *, char *, blasint *, blasint *, float *, float *, blasint *,
565 float *, blasint *, float *, float *, blasint *);
566 void BLASFUNC(dsyr2k)(char *, char *, blasint *, blasint *, double *, double *, blasint *,
567 double*, blasint *, double *, double *, blasint *);
568 void BLASFUNC(qsyr2k)(char *, char *, blasint *, blasint *, xdouble *, xdouble *, blasint *,
569 xdouble*, blasint *, xdouble *, xdouble *, blasint *);
570 void BLASFUNC(csyr2k)(char *, char *, blasint *, blasint *, float *, float *, blasint *,
571 float *, blasint *, float *, float *, blasint *);
572 void BLASFUNC(zsyr2k)(char *, char *, blasint *, blasint *, double *, double *, blasint *,
573 double*, blasint *, double *, double *, blasint *);
574 void BLASFUNC(xsyr2k)(char *, char *, blasint *, blasint *, xdouble *, xdouble *, blasint *,
575 xdouble*, blasint *, xdouble *, xdouble *, blasint *);
577 void BLASFUNC(chemm)(char *, char *, blasint *, blasint *, float *, float *, blasint *,
578 float *, blasint *, float *, float *, blasint *);
579 void BLASFUNC(zhemm)(char *, char *, blasint *, blasint *, double *, double *, blasint *,
580 double *, blasint *, double *, double *, blasint *);
581 void BLASFUNC(xhemm)(char *, char *, blasint *, blasint *, xdouble *, xdouble *, blasint *,
582 xdouble *, blasint *, xdouble *, xdouble *, blasint *);
584 void BLASFUNC(chemm3m)(char *, char *, blasint *, blasint *, float *, float *, blasint *,
585 float *, blasint *, float *, float *, blasint *);
586 void BLASFUNC(zhemm3m)(char *, char *, blasint *, blasint *, double *, double *, blasint *,
587 double *, blasint *, double *, double *, blasint *);
588 void BLASFUNC(xhemm3m)(char *, char *, blasint *, blasint *, xdouble *, xdouble *, blasint *,
589 xdouble *, blasint *, xdouble *, xdouble *, blasint *);
591 void BLASFUNC(cherk)(char *, char *, blasint *, blasint *, float *, float *, blasint *,
592 float *, float *, blasint *);
593 void BLASFUNC(zherk)(char *, char *, blasint *, blasint *, double *, double *, blasint *,
594 double *, double *, blasint *);
595 void BLASFUNC(xherk)(char *, char *, blasint *, blasint *, xdouble *, xdouble *, blasint *,
596 xdouble *, xdouble *, blasint *);
598 void BLASFUNC(cher2k)(char *, char *, blasint *, blasint *, float *, float *, blasint *,
599 float *, blasint *, float *, float *, blasint *);
600 void BLASFUNC(zher2k)(char *, char *, blasint *, blasint *, double *, double *, blasint *,
601 double*, blasint *, double *, double *, blasint *);
602 void BLASFUNC(xher2k)(char *, char *, blasint *, blasint *, xdouble *, xdouble *, blasint *,
603 xdouble*, blasint *, xdouble *, xdouble *, blasint *);
605 int BLASFUNC(cher2m)(char *, char *, char *, blasint *, blasint *, float *, float *, blasint *,
606 float *, blasint *, float *, float *, blasint *);
607 int BLASFUNC(zher2m)(char *, char *, char *, blasint *, blasint *, double *, double *, blasint *,
608 double*, blasint *, double *, double *, blasint *);
609 int BLASFUNC(xher2m)(char *, char *, char *, blasint *, blasint *, xdouble *, xdouble *, blasint *,
610 xdouble*, blasint *, xdouble *, xdouble *, blasint *);
612 int BLASFUNC(sgemt)(char *, blasint *, blasint *, float *, float *, blasint *,
614 int BLASFUNC(dgemt)(char *, blasint *, blasint *, double *, double *, blasint *,
615 double *, blasint *);
616 int BLASFUNC(cgemt)(char *, blasint *, blasint *, float *, float *, blasint *,
618 int BLASFUNC(zgemt)(char *, blasint *, blasint *, double *, double *, blasint *,
619 double *, blasint *);
621 int BLASFUNC(sgema)(char *, char *, blasint *, blasint *, float *,
622 float *, blasint *, float *, float *, blasint *, float *, blasint *);
623 int BLASFUNC(dgema)(char *, char *, blasint *, blasint *, double *,
624 double *, blasint *, double*, double *, blasint *, double*, blasint *);
625 int BLASFUNC(cgema)(char *, char *, blasint *, blasint *, float *,
626 float *, blasint *, float *, float *, blasint *, float *, blasint *);
627 int BLASFUNC(zgema)(char *, char *, blasint *, blasint *, double *,
628 double *, blasint *, double*, double *, blasint *, double*, blasint *);
630 int BLASFUNC(sgems)(char *, char *, blasint *, blasint *, float *,
631 float *, blasint *, float *, float *, blasint *, float *, blasint *);
632 int BLASFUNC(dgems)(char *, char *, blasint *, blasint *, double *,
633 double *, blasint *, double*, double *, blasint *, double*, blasint *);
634 int BLASFUNC(cgems)(char *, char *, blasint *, blasint *, float *,
635 float *, blasint *, float *, float *, blasint *, float *, blasint *);
636 int BLASFUNC(zgems)(char *, char *, blasint *, blasint *, double *,
637 double *, blasint *, double*, double *, blasint *, double*, blasint *);
639 int BLASFUNC(sgemc)(char *, char *, blasint *, blasint *, blasint *, float *,
640 float *, blasint *, float *, blasint *, float *, blasint *, float *, float *, blasint *);
641 int BLASFUNC(dgemc)(char *, char *, blasint *, blasint *, blasint *, double *,
642 double *, blasint *, double *, blasint *, double *, blasint *, double *, double *, blasint *);
643 int BLASFUNC(qgemc)(char *, char *, blasint *, blasint *, blasint *, xdouble *,
644 xdouble *, blasint *, xdouble *, blasint *, xdouble *, blasint *, xdouble *, xdouble *, blasint *);
645 int BLASFUNC(cgemc)(char *, char *, blasint *, blasint *, blasint *, float *,
646 float *, blasint *, float *, blasint *, float *, blasint *, float *, float *, blasint *);
647 int BLASFUNC(zgemc)(char *, char *, blasint *, blasint *, blasint *, double *,
648 double *, blasint *, double *, blasint *, double *, blasint *, double *, double *, blasint *);
649 int BLASFUNC(xgemc)(char *, char *, blasint *, blasint *, blasint *, xdouble *,
650 xdouble *, blasint *, xdouble *, blasint *, xdouble *, blasint *, xdouble *, xdouble *, blasint *);
652 /* Lapack routines */
654 int BLASFUNC(sgetf2)(blasint *, blasint *, float *, blasint *, blasint *, blasint *);
655 int BLASFUNC(dgetf2)(blasint *, blasint *, double *, blasint *, blasint *, blasint *);
656 int BLASFUNC(qgetf2)(blasint *, blasint *, xdouble *, blasint *, blasint *, blasint *);
657 int BLASFUNC(cgetf2)(blasint *, blasint *, float *, blasint *, blasint *, blasint *);
658 int BLASFUNC(zgetf2)(blasint *, blasint *, double *, blasint *, blasint *, blasint *);
659 int BLASFUNC(xgetf2)(blasint *, blasint *, xdouble *, blasint *, blasint *, blasint *);
661 int BLASFUNC(sgetrf)(blasint *, blasint *, float *, blasint *, blasint *, blasint *);
662 int BLASFUNC(dgetrf)(blasint *, blasint *, double *, blasint *, blasint *, blasint *);
663 int BLASFUNC(qgetrf)(blasint *, blasint *, xdouble *, blasint *, blasint *, blasint *);
664 int BLASFUNC(cgetrf)(blasint *, blasint *, float *, blasint *, blasint *, blasint *);
665 int BLASFUNC(zgetrf)(blasint *, blasint *, double *, blasint *, blasint *, blasint *);
666 int BLASFUNC(xgetrf)(blasint *, blasint *, xdouble *, blasint *, blasint *, blasint *);
668 int BLASFUNC(slaswp)(blasint *, float *, blasint *, blasint *, blasint *, blasint *, blasint *);
669 int BLASFUNC(dlaswp)(blasint *, double *, blasint *, blasint *, blasint *, blasint *, blasint *);
670 int BLASFUNC(qlaswp)(blasint *, xdouble *, blasint *, blasint *, blasint *, blasint *, blasint *);
671 int BLASFUNC(claswp)(blasint *, float *, blasint *, blasint *, blasint *, blasint *, blasint *);
672 int BLASFUNC(zlaswp)(blasint *, double *, blasint *, blasint *, blasint *, blasint *, blasint *);
673 int BLASFUNC(xlaswp)(blasint *, xdouble *, blasint *, blasint *, blasint *, blasint *, blasint *);
675 int BLASFUNC(sgetrs)(char *, blasint *, blasint *, float *, blasint *, blasint *, float *, blasint *, blasint *);
676 int BLASFUNC(dgetrs)(char *, blasint *, blasint *, double *, blasint *, blasint *, double *, blasint *, blasint *);
677 int BLASFUNC(qgetrs)(char *, blasint *, blasint *, xdouble *, blasint *, blasint *, xdouble *, blasint *, blasint *);
678 int BLASFUNC(cgetrs)(char *, blasint *, blasint *, float *, blasint *, blasint *, float *, blasint *, blasint *);
679 int BLASFUNC(zgetrs)(char *, blasint *, blasint *, double *, blasint *, blasint *, double *, blasint *, blasint *);
680 int BLASFUNC(xgetrs)(char *, blasint *, blasint *, xdouble *, blasint *, blasint *, xdouble *, blasint *, blasint *);
682 int BLASFUNC(sgesv)(blasint *, blasint *, float *, blasint *, blasint *, float *, blasint *, blasint *);
683 int BLASFUNC(dgesv)(blasint *, blasint *, double *, blasint *, blasint *, double*, blasint *, blasint *);
684 int BLASFUNC(qgesv)(blasint *, blasint *, xdouble *, blasint *, blasint *, xdouble*, blasint *, blasint *);
685 int BLASFUNC(cgesv)(blasint *, blasint *, float *, blasint *, blasint *, float *, blasint *, blasint *);
686 int BLASFUNC(zgesv)(blasint *, blasint *, double *, blasint *, blasint *, double*, blasint *, blasint *);
687 int BLASFUNC(xgesv)(blasint *, blasint *, xdouble *, blasint *, blasint *, xdouble*, blasint *, blasint *);
689 int BLASFUNC(spotf2)(char *, blasint *, float *, blasint *, blasint *);
690 int BLASFUNC(dpotf2)(char *, blasint *, double *, blasint *, blasint *);
691 int BLASFUNC(qpotf2)(char *, blasint *, xdouble *, blasint *, blasint *);
692 int BLASFUNC(cpotf2)(char *, blasint *, float *, blasint *, blasint *);
693 int BLASFUNC(zpotf2)(char *, blasint *, double *, blasint *, blasint *);
694 int BLASFUNC(xpotf2)(char *, blasint *, xdouble *, blasint *, blasint *);
696 int BLASFUNC(spotrf)(char *, blasint *, float *, blasint *, blasint *);
697 int BLASFUNC(dpotrf)(char *, blasint *, double *, blasint *, blasint *);
698 int BLASFUNC(qpotrf)(char *, blasint *, xdouble *, blasint *, blasint *);
699 int BLASFUNC(cpotrf)(char *, blasint *, float *, blasint *, blasint *);
700 int BLASFUNC(zpotrf)(char *, blasint *, double *, blasint *, blasint *);
701 int BLASFUNC(xpotrf)(char *, blasint *, xdouble *, blasint *, blasint *);
703 int BLASFUNC(spotrs)(char *, blasint *, blasint *, float *, blasint *, float *, blasint *, blasint *);
704 int BLASFUNC(dpotrs)(char *, blasint *, blasint *, double *, blasint *, double *, blasint *, blasint *);
705 int BLASFUNC(qpotrs)(char *, blasint *, blasint *, xdouble *, blasint *, xdouble *, blasint *, blasint *);
706 int BLASFUNC(cpotrs)(char *, blasint *, blasint *, float *, blasint *, float *, blasint *, blasint *);
707 int BLASFUNC(zpotrs)(char *, blasint *, blasint *, double *, blasint *, double *, blasint *, blasint *);
708 int BLASFUNC(xpotrs)(char *, blasint *, blasint *, xdouble *, blasint *, xdouble *, blasint *, blasint *);
710 int BLASFUNC(slauu2)(char *, blasint *, float *, blasint *, blasint *);
711 int BLASFUNC(dlauu2)(char *, blasint *, double *, blasint *, blasint *);
712 int BLASFUNC(qlauu2)(char *, blasint *, xdouble *, blasint *, blasint *);
713 int BLASFUNC(clauu2)(char *, blasint *, float *, blasint *, blasint *);
714 int BLASFUNC(zlauu2)(char *, blasint *, double *, blasint *, blasint *);
715 int BLASFUNC(xlauu2)(char *, blasint *, xdouble *, blasint *, blasint *);
717 int BLASFUNC(slauum)(char *, blasint *, float *, blasint *, blasint *);
718 int BLASFUNC(dlauum)(char *, blasint *, double *, blasint *, blasint *);
719 int BLASFUNC(qlauum)(char *, blasint *, xdouble *, blasint *, blasint *);
720 int BLASFUNC(clauum)(char *, blasint *, float *, blasint *, blasint *);
721 int BLASFUNC(zlauum)(char *, blasint *, double *, blasint *, blasint *);
722 int BLASFUNC(xlauum)(char *, blasint *, xdouble *, blasint *, blasint *);
724 int BLASFUNC(strti2)(char *, char *, blasint *, float *, blasint *, blasint *);
725 int BLASFUNC(dtrti2)(char *, char *, blasint *, double *, blasint *, blasint *);
726 int BLASFUNC(qtrti2)(char *, char *, blasint *, xdouble *, blasint *, blasint *);
727 int BLASFUNC(ctrti2)(char *, char *, blasint *, float *, blasint *, blasint *);
728 int BLASFUNC(ztrti2)(char *, char *, blasint *, double *, blasint *, blasint *);
729 int BLASFUNC(xtrti2)(char *, char *, blasint *, xdouble *, blasint *, blasint *);
731 int BLASFUNC(strtri)(char *, char *, blasint *, float *, blasint *, blasint *);
732 int BLASFUNC(dtrtri)(char *, char *, blasint *, double *, blasint *, blasint *);
733 int BLASFUNC(qtrtri)(char *, char *, blasint *, xdouble *, blasint *, blasint *);
734 int BLASFUNC(ctrtri)(char *, char *, blasint *, float *, blasint *, blasint *);
735 int BLASFUNC(ztrtri)(char *, char *, blasint *, double *, blasint *, blasint *);
736 int BLASFUNC(xtrtri)(char *, char *, blasint *, xdouble *, blasint *, blasint *);
739 FLOATRET BLASFUNC(slamch)(char *);
740 double BLASFUNC(dlamch)(char *);
741 xdouble BLASFUNC(qlamch)(char *);
743 FLOATRET BLASFUNC(slamc3)(float *, float *);
744 double BLASFUNC(dlamc3)(double *, double *);
745 xdouble BLASFUNC(qlamc3)(xdouble *, xdouble *);
747 /* BLAS extensions */
749 void BLASFUNC(saxpby) (blasint *, float *, float *, blasint *, float *, float *, blasint *);
750 void BLASFUNC(daxpby) (blasint *, double *, double *, blasint *, double *, double *, blasint *);
751 void BLASFUNC(caxpby) (blasint *, float *, float *, blasint *, float *, float *, blasint *);
752 void BLASFUNC(zaxpby) (blasint *, double *, double *, blasint *, double *, double *, blasint *);
754 void BLASFUNC(somatcopy) (char *, char *, blasint *, blasint *, float *, float *, blasint *, float *, blasint *);
755 void BLASFUNC(domatcopy) (char *, char *, blasint *, blasint *, double *, double *, blasint *, double *, blasint *);
756 void BLASFUNC(comatcopy) (char *, char *, blasint *, blasint *, float *, float *, blasint *, float *, blasint *);
757 void BLASFUNC(zomatcopy) (char *, char *, blasint *, blasint *, double *, double *, blasint *, double *, blasint *);
759 void BLASFUNC(simatcopy) (char *, char *, blasint *, blasint *, float *, float *, blasint *, blasint *);
760 void BLASFUNC(dimatcopy) (char *, char *, blasint *, blasint *, double *, double *, blasint *, blasint *);
761 void BLASFUNC(cimatcopy) (char *, char *, blasint *, blasint *, float *, float *, blasint *, blasint *);
762 void BLASFUNC(zimatcopy) (char *, char *, blasint *, blasint *, double *, double *, blasint *, blasint *);
764 void BLASFUNC(sgeadd) (blasint *, blasint *, float *, float *, blasint *, float *, float *, blasint*);
765 void BLASFUNC(dgeadd) (blasint *, blasint *, double *, double *, blasint *, double *, double *, blasint*);
766 void BLASFUNC(cgeadd) (blasint *, blasint *, float *, float *, blasint *, float *, float *, blasint*);
767 void BLASFUNC(zgeadd) (blasint *, blasint *, double *, double *, blasint *, double *, double *, blasint*);
773 #endif /* __cplusplus */