sp
/
tempest
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
4955 Commits
1 Branch
0 Tags
187 MiB
Tree: 722e67fe64
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from '722e67fe64'
${ noResults }
tempest/resources/3rdparty/eigen-3.3-beta1/bench/btl/libs/BLAS/blas.h

675 lines
34 KiB
Raw Normal View History

upgrade to eigen 3.3 and made modifications for different value types via template specializations Former-commit-id: 8ea9d1e0c459a969b27d068ae999aced503fd12f
9 years ago
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
  1. #ifndef BLAS_H
  2. #define BLAS_H
  4. #define BLASFUNC(FUNC) FUNC##_
  6. #ifdef __WIN64__
  7. typedef long long BLASLONG;
  8. typedef unsigned long long BLASULONG;
  9. #else
  10. typedef long BLASLONG;
  11. typedef unsigned long BLASULONG;
  12. #endif
  14. int BLASFUNC(xerbla)(const char *, int *info, int);
  16. float BLASFUNC(sdot) (int *, float *, int *, float *, int *);
  17. float BLASFUNC(sdsdot)(int *, float *, float *, int *, float *, int *);
  19. double BLASFUNC(dsdot) (int *, float *, int *, float *, int *);
  20. double BLASFUNC(ddot) (int *, double *, int *, double *, int *);
  21. double BLASFUNC(qdot) (int *, double *, int *, double *, int *);
  23. #if defined(F_INTERFACE_GFORT) && !defined(__64BIT__)
  24. int BLASFUNC(cdotu) (int *, float * , int *, float *, int *);
  25. int BLASFUNC(cdotc) (int *, float *, int *, float *, int *);
  26. void BLASFUNC(zdotu) (double *, int *, double *, int *, double *, int *);
  27. void BLASFUNC(zdotc) (double *, int *, double *, int *, double *, int *);
  28. void BLASFUNC(xdotu) (double *, int *, double *, int *, double *, int *);
  29. void BLASFUNC(xdotc) (double *, int *, double *, int *, double *, int *);
  30. #elif defined(F_INTERFACE_F2C) || \
  31. defined(F_INTERFACE_PGI) || \
  32. defined(F_INTERFACE_GFORT) || \
  33. (defined(F_INTERFACE_PATHSCALE) && defined(__64BIT__))
  34. void BLASFUNC(cdotu) (float *, int *, float * , int *, float *, int *);
  35. void BLASFUNC(cdotc) (float *, int *, float *, int *, float *, int *);
  36. void BLASFUNC(zdotu) (double *, int *, double *, int *, double *, int *);
  37. void BLASFUNC(zdotc) (double *, int *, double *, int *, double *, int *);
  38. void BLASFUNC(xdotu) (double *, int *, double *, int *, double *, int *);
  39. void BLASFUNC(xdotc) (double *, int *, double *, int *, double *, int *);
  40. #else
  41. std::complex<float> BLASFUNC(cdotu) (int *, float *, int *, float *, int *);
  42. std::complex<float> BLASFUNC(cdotc) (int *, float *, int *, float *, int *);
  43. std::complex<double> BLASFUNC(zdotu) (int *, double *, int *, double *, int *);
  44. std::complex<double> BLASFUNC(zdotc) (int *, double *, int *, double *, int *);
  45. double BLASFUNC(xdotu) (int *, double *, int *, double *, int *);
  46. double BLASFUNC(xdotc) (int *, double *, int *, double *, int *);
  47. #endif
  49. int BLASFUNC(cdotuw) (int *, float *, int *, float *, int *, float*);
  50. int BLASFUNC(cdotcw) (int *, float *, int *, float *, int *, float*);
  51. int BLASFUNC(zdotuw) (int *, double *, int *, double *, int *, double*);
  52. int BLASFUNC(zdotcw) (int *, double *, int *, double *, int *, double*);
  54. int BLASFUNC(saxpy) (int *, float *, float *, int *, float *, int *);
  55. int BLASFUNC(daxpy) (int *, double *, double *, int *, double *, int *);
  56. int BLASFUNC(qaxpy) (int *, double *, double *, int *, double *, int *);
  57. int BLASFUNC(caxpy) (int *, float *, float *, int *, float *, int *);
  58. int BLASFUNC(zaxpy) (int *, double *, double *, int *, double *, int *);
  59. int BLASFUNC(xaxpy) (int *, double *, double *, int *, double *, int *);
  60. int BLASFUNC(caxpyc)(int *, float *, float *, int *, float *, int *);
  61. int BLASFUNC(zaxpyc)(int *, double *, double *, int *, double *, int *);
  62. int BLASFUNC(xaxpyc)(int *, double *, double *, int *, double *, int *);
  64. int BLASFUNC(scopy) (int *, float *, int *, float *, int *);
  65. int BLASFUNC(dcopy) (int *, double *, int *, double *, int *);
  66. int BLASFUNC(qcopy) (int *, double *, int *, double *, int *);
  67. int BLASFUNC(ccopy) (int *, float *, int *, float *, int *);
  68. int BLASFUNC(zcopy) (int *, double *, int *, double *, int *);
  69. int BLASFUNC(xcopy) (int *, double *, int *, double *, int *);
  71. int BLASFUNC(sswap) (int *, float *, int *, float *, int *);
  72. int BLASFUNC(dswap) (int *, double *, int *, double *, int *);
  73. int BLASFUNC(qswap) (int *, double *, int *, double *, int *);
  74. int BLASFUNC(cswap) (int *, float *, int *, float *, int *);
  75. int BLASFUNC(zswap) (int *, double *, int *, double *, int *);
  76. int BLASFUNC(xswap) (int *, double *, int *, double *, int *);
  78. float BLASFUNC(sasum) (int *, float *, int *);
  79. float BLASFUNC(scasum)(int *, float *, int *);
  80. double BLASFUNC(dasum) (int *, double *, int *);
  81. double BLASFUNC(qasum) (int *, double *, int *);
  82. double BLASFUNC(dzasum)(int *, double *, int *);
  83. double BLASFUNC(qxasum)(int *, double *, int *);
  85. int BLASFUNC(isamax)(int *, float *, int *);
  86. int BLASFUNC(idamax)(int *, double *, int *);
  87. int BLASFUNC(iqamax)(int *, double *, int *);
  88. int BLASFUNC(icamax)(int *, float *, int *);
  89. int BLASFUNC(izamax)(int *, double *, int *);
  90. int BLASFUNC(ixamax)(int *, double *, int *);
  92. int BLASFUNC(ismax) (int *, float *, int *);
  93. int BLASFUNC(idmax) (int *, double *, int *);
  94. int BLASFUNC(iqmax) (int *, double *, int *);
  95. int BLASFUNC(icmax) (int *, float *, int *);
  96. int BLASFUNC(izmax) (int *, double *, int *);
  97. int BLASFUNC(ixmax) (int *, double *, int *);
  99. int BLASFUNC(isamin)(int *, float *, int *);
  100. int BLASFUNC(idamin)(int *, double *, int *);
  101. int BLASFUNC(iqamin)(int *, double *, int *);
  102. int BLASFUNC(icamin)(int *, float *, int *);
  103. int BLASFUNC(izamin)(int *, double *, int *);
  104. int BLASFUNC(ixamin)(int *, double *, int *);
  106. int BLASFUNC(ismin)(int *, float *, int *);
  107. int BLASFUNC(idmin)(int *, double *, int *);
  108. int BLASFUNC(iqmin)(int *, double *, int *);
  109. int BLASFUNC(icmin)(int *, float *, int *);
  110. int BLASFUNC(izmin)(int *, double *, int *);
  111. int BLASFUNC(ixmin)(int *, double *, int *);
  113. float BLASFUNC(samax) (int *, float *, int *);
  114. double BLASFUNC(damax) (int *, double *, int *);
  115. double BLASFUNC(qamax) (int *, double *, int *);
  116. float BLASFUNC(scamax)(int *, float *, int *);
  117. double BLASFUNC(dzamax)(int *, double *, int *);
  118. double BLASFUNC(qxamax)(int *, double *, int *);
  120. float BLASFUNC(samin) (int *, float *, int *);
  121. double BLASFUNC(damin) (int *, double *, int *);
  122. double BLASFUNC(qamin) (int *, double *, int *);
  123. float BLASFUNC(scamin)(int *, float *, int *);
  124. double BLASFUNC(dzamin)(int *, double *, int *);
  125. double BLASFUNC(qxamin)(int *, double *, int *);
  127. float BLASFUNC(smax) (int *, float *, int *);
  128. double BLASFUNC(dmax) (int *, double *, int *);
  129. double BLASFUNC(qmax) (int *, double *, int *);
  130. float BLASFUNC(scmax) (int *, float *, int *);
  131. double BLASFUNC(dzmax) (int *, double *, int *);
  132. double BLASFUNC(qxmax) (int *, double *, int *);
  134. float BLASFUNC(smin) (int *, float *, int *);
  135. double BLASFUNC(dmin) (int *, double *, int *);
  136. double BLASFUNC(qmin) (int *, double *, int *);
  137. float BLASFUNC(scmin) (int *, float *, int *);
  138. double BLASFUNC(dzmin) (int *, double *, int *);
  139. double BLASFUNC(qxmin) (int *, double *, int *);
  141. int BLASFUNC(sscal) (int *, float *, float *, int *);
  142. int BLASFUNC(dscal) (int *, double *, double *, int *);
  143. int BLASFUNC(qscal) (int *, double *, double *, int *);
  144. int BLASFUNC(cscal) (int *, float *, float *, int *);
  145. int BLASFUNC(zscal) (int *, double *, double *, int *);
  146. int BLASFUNC(xscal) (int *, double *, double *, int *);
  147. int BLASFUNC(csscal)(int *, float *, float *, int *);
  148. int BLASFUNC(zdscal)(int *, double *, double *, int *);
  149. int BLASFUNC(xqscal)(int *, double *, double *, int *);
  151. float BLASFUNC(snrm2) (int *, float *, int *);
  152. float BLASFUNC(scnrm2)(int *, float *, int *);
  154. double BLASFUNC(dnrm2) (int *, double *, int *);
  155. double BLASFUNC(qnrm2) (int *, double *, int *);
  156. double BLASFUNC(dznrm2)(int *, double *, int *);
  157. double BLASFUNC(qxnrm2)(int *, double *, int *);
  159. int BLASFUNC(srot) (int *, float *, int *, float *, int *, float *, float *);
  160. int BLASFUNC(drot) (int *, double *, int *, double *, int *, double *, double *);
  161. int BLASFUNC(qrot) (int *, double *, int *, double *, int *, double *, double *);
  162. int BLASFUNC(csrot) (int *, float *, int *, float *, int *, float *, float *);
  163. int BLASFUNC(zdrot) (int *, double *, int *, double *, int *, double *, double *);
  164. int BLASFUNC(xqrot) (int *, double *, int *, double *, int *, double *, double *);
  166. int BLASFUNC(srotg) (float *, float *, float *, float *);
  167. int BLASFUNC(drotg) (double *, double *, double *, double *);
  168. int BLASFUNC(qrotg) (double *, double *, double *, double *);
  169. int BLASFUNC(crotg) (float *, float *, float *, float *);
  170. int BLASFUNC(zrotg) (double *, double *, double *, double *);
  171. int BLASFUNC(xrotg) (double *, double *, double *, double *);
  173. int BLASFUNC(srotmg)(float *, float *, float *, float *, float *);
  174. int BLASFUNC(drotmg)(double *, double *, double *, double *, double *);
  176. int BLASFUNC(srotm) (int *, float *, int *, float *, int *, float *);
  177. int BLASFUNC(drotm) (int *, double *, int *, double *, int *, double *);
  178. int BLASFUNC(qrotm) (int *, double *, int *, double *, int *, double *);
  180. /* Level 2 routines */
  182. int BLASFUNC(sger)(int *, int *, float *, float *, int *,
  183. float *, int *, float *, int *);
  184. int BLASFUNC(dger)(int *, int *, double *, double *, int *,
  185. double *, int *, double *, int *);
  186. int BLASFUNC(qger)(int *, int *, double *, double *, int *,
  187. double *, int *, double *, int *);
  188. int BLASFUNC(cgeru)(int *, int *, float *, float *, int *,
  189. float *, int *, float *, int *);
  190. int BLASFUNC(cgerc)(int *, int *, float *, float *, int *,
  191. float *, int *, float *, int *);
  192. int BLASFUNC(zgeru)(int *, int *, double *, double *, int *,
  193. double *, int *, double *, int *);
  194. int BLASFUNC(zgerc)(int *, int *, double *, double *, int *,
  195. double *, int *, double *, int *);
  196. int BLASFUNC(xgeru)(int *, int *, double *, double *, int *,
  197. double *, int *, double *, int *);
  198. int BLASFUNC(xgerc)(int *, int *, double *, double *, int *,
  199. double *, int *, double *, int *);
  201. int BLASFUNC(sgemv)(char *, int *, int *, float *, float *, int *,
  202. float *, int *, float *, float *, int *);
  203. int BLASFUNC(dgemv)(char *, int *, int *, double *, double *, int *,
  204. double *, int *, double *, double *, int *);
  205. int BLASFUNC(qgemv)(char *, int *, int *, double *, double *, int *,
  206. double *, int *, double *, double *, int *);
  207. int BLASFUNC(cgemv)(char *, int *, int *, float *, float *, int *,
  208. float *, int *, float *, float *, int *);
  209. int BLASFUNC(zgemv)(char *, int *, int *, double *, double *, int *,
  210. double *, int *, double *, double *, int *);
  211. int BLASFUNC(xgemv)(char *, int *, int *, double *, double *, int *,
  212. double *, int *, double *, double *, int *);
  214. int BLASFUNC(strsv) (char *, char *, char *, int *, float *, int *,
  215. float *, int *);
  216. int BLASFUNC(dtrsv) (char *, char *, char *, int *, double *, int *,
  217. double *, int *);
  218. int BLASFUNC(qtrsv) (char *, char *, char *, int *, double *, int *,
  219. double *, int *);
  220. int BLASFUNC(ctrsv) (char *, char *, char *, int *, float *, int *,
  221. float *, int *);
  222. int BLASFUNC(ztrsv) (char *, char *, char *, int *, double *, int *,
  223. double *, int *);
  224. int BLASFUNC(xtrsv) (char *, char *, char *, int *, double *, int *,
  225. double *, int *);
  227. int BLASFUNC(stpsv) (char *, char *, char *, int *, float *, float *, int *);
  228. int BLASFUNC(dtpsv) (char *, char *, char *, int *, double *, double *, int *);
  229. int BLASFUNC(qtpsv) (char *, char *, char *, int *, double *, double *, int *);
  230. int BLASFUNC(ctpsv) (char *, char *, char *, int *, float *, float *, int *);
  231. int BLASFUNC(ztpsv) (char *, char *, char *, int *, double *, double *, int *);
  232. int BLASFUNC(xtpsv) (char *, char *, char *, int *, double *, double *, int *);
  234. int BLASFUNC(strmv) (char *, char *, char *, int *, float *, int *,
  235. float *, int *);
  236. int BLASFUNC(dtrmv) (char *, char *, char *, int *, double *, int *,
  237. double *, int *);
  238. int BLASFUNC(qtrmv) (char *, char *, char *, int *, double *, int *,
  239. double *, int *);
  240. int BLASFUNC(ctrmv) (char *, char *, char *, int *, float *, int *,
  241. float *, int *);
  242. int BLASFUNC(ztrmv) (char *, char *, char *, int *, double *, int *,
  243. double *, int *);
  244. int BLASFUNC(xtrmv) (char *, char *, char *, int *, double *, int *,
  245. double *, int *);
  247. int BLASFUNC(stpmv) (char *, char *, char *, int *, float *, float *, int *);
  248. int BLASFUNC(dtpmv) (char *, char *, char *, int *, double *, double *, int *);
  249. int BLASFUNC(qtpmv) (char *, char *, char *, int *, double *, double *, int *);
  250. int BLASFUNC(ctpmv) (char *, char *, char *, int *, float *, float *, int *);
  251. int BLASFUNC(ztpmv) (char *, char *, char *, int *, double *, double *, int *);
  252. int BLASFUNC(xtpmv) (char *, char *, char *, int *, double *, double *, int *);
  254. int BLASFUNC(stbmv) (char *, char *, char *, int *, int *, float *, int *, float *, int *);
  255. int BLASFUNC(dtbmv) (char *, char *, char *, int *, int *, double *, int *, double *, int *);
  256. int BLASFUNC(qtbmv) (char *, char *, char *, int *, int *, double *, int *, double *, int *);
  257. int BLASFUNC(ctbmv) (char *, char *, char *, int *, int *, float *, int *, float *, int *);
  258. int BLASFUNC(ztbmv) (char *, char *, char *, int *, int *, double *, int *, double *, int *);
  259. int BLASFUNC(xtbmv) (char *, char *, char *, int *, int *, double *, int *, double *, int *);
  261. int BLASFUNC(stbsv) (char *, char *, char *, int *, int *, float *, int *, float *, int *);
  262. int BLASFUNC(dtbsv) (char *, char *, char *, int *, int *, double *, int *, double *, int *);
  263. int BLASFUNC(qtbsv) (char *, char *, char *, int *, int *, double *, int *, double *, int *);
  264. int BLASFUNC(ctbsv) (char *, char *, char *, int *, int *, float *, int *, float *, int *);
  265. int BLASFUNC(ztbsv) (char *, char *, char *, int *, int *, double *, int *, double *, int *);
  266. int BLASFUNC(xtbsv) (char *, char *, char *, int *, int *, double *, int *, double *, int *);
  268. int BLASFUNC(ssymv) (char *, int *, float *, float *, int *,
  269. float *, int *, float *, float *, int *);
  270. int BLASFUNC(dsymv) (char *, int *, double *, double *, int *,
  271. double *, int *, double *, double *, int *);
  272. int BLASFUNC(qsymv) (char *, int *, double *, double *, int *,
  273. double *, int *, double *, double *, int *);
  274. int BLASFUNC(csymv) (char *, int *, float *, float *, int *,
  275. float *, int *, float *, float *, int *);
  276. int BLASFUNC(zsymv) (char *, int *, double *, double *, int *,
  277. double *, int *, double *, double *, int *);
  278. int BLASFUNC(xsymv) (char *, int *, double *, double *, int *,
  279. double *, int *, double *, double *, int *);
  281. int BLASFUNC(sspmv) (char *, int *, float *, float *,
  282. float *, int *, float *, float *, int *);
  283. int BLASFUNC(dspmv) (char *, int *, double *, double *,
  284. double *, int *, double *, double *, int *);
  285. int BLASFUNC(qspmv) (char *, int *, double *, double *,
  286. double *, int *, double *, double *, int *);
  287. int BLASFUNC(cspmv) (char *, int *, float *, float *,
  288. float *, int *, float *, float *, int *);
  289. int BLASFUNC(zspmv) (char *, int *, double *, double *,
  290. double *, int *, double *, double *, int *);
  291. int BLASFUNC(xspmv) (char *, int *, double *, double *,
  292. double *, int *, double *, double *, int *);
  294. int BLASFUNC(ssyr) (char *, int *, float *, float *, int *,
  295. float *, int *);
  296. int BLASFUNC(dsyr) (char *, int *, double *, double *, int *,
  297. double *, int *);
  298. int BLASFUNC(qsyr) (char *, int *, double *, double *, int *,
  299. double *, int *);
  300. int BLASFUNC(csyr) (char *, int *, float *, float *, int *,
  301. float *, int *);
  302. int BLASFUNC(zsyr) (char *, int *, double *, double *, int *,
  303. double *, int *);
  304. int BLASFUNC(xsyr) (char *, int *, double *, double *, int *,
  305. double *, int *);
  307. int BLASFUNC(ssyr2) (char *, int *, float *,
  308. float *, int *, float *, int *, float *, int *);
  309. int BLASFUNC(dsyr2) (char *, int *, double *,
  310. double *, int *, double *, int *, double *, int *);
  311. int BLASFUNC(qsyr2) (char *, int *, double *,
  312. double *, int *, double *, int *, double *, int *);
  313. int BLASFUNC(csyr2) (char *, int *, float *,
  314. float *, int *, float *, int *, float *, int *);
  315. int BLASFUNC(zsyr2) (char *, int *, double *,
  316. double *, int *, double *, int *, double *, int *);
  317. int BLASFUNC(xsyr2) (char *, int *, double *,
  318. double *, int *, double *, int *, double *, int *);
  320. int BLASFUNC(sspr) (char *, int *, float *, float *, int *,
  321. float *);
  322. int BLASFUNC(dspr) (char *, int *, double *, double *, int *,
  323. double *);
  324. int BLASFUNC(qspr) (char *, int *, double *, double *, int *,
  325. double *);
  326. int BLASFUNC(cspr) (char *, int *, float *, float *, int *,
  327. float *);
  328. int BLASFUNC(zspr) (char *, int *, double *, double *, int *,
  329. double *);
  330. int BLASFUNC(xspr) (char *, int *, double *, double *, int *,
  331. double *);
  333. int BLASFUNC(sspr2) (char *, int *, float *,
  334. float *, int *, float *, int *, float *);
  335. int BLASFUNC(dspr2) (char *, int *, double *,
  336. double *, int *, double *, int *, double *);
  337. int BLASFUNC(qspr2) (char *, int *, double *,
  338. double *, int *, double *, int *, double *);
  339. int BLASFUNC(cspr2) (char *, int *, float *,
  340. float *, int *, float *, int *, float *);
  341. int BLASFUNC(zspr2) (char *, int *, double *,
  342. double *, int *, double *, int *, double *);
  343. int BLASFUNC(xspr2) (char *, int *, double *,
  344. double *, int *, double *, int *, double *);
  346. int BLASFUNC(cher) (char *, int *, float *, float *, int *,
  347. float *, int *);
  348. int BLASFUNC(zher) (char *, int *, double *, double *, int *,
  349. double *, int *);
  350. int BLASFUNC(xher) (char *, int *, double *, double *, int *,
  351. double *, int *);
  353. int BLASFUNC(chpr) (char *, int *, float *, float *, int *, float *);
  354. int BLASFUNC(zhpr) (char *, int *, double *, double *, int *, double *);
  355. int BLASFUNC(xhpr) (char *, int *, double *, double *, int *, double *);
  357. int BLASFUNC(cher2) (char *, int *, float *,
  358. float *, int *, float *, int *, float *, int *);
  359. int BLASFUNC(zher2) (char *, int *, double *,
  360. double *, int *, double *, int *, double *, int *);
  361. int BLASFUNC(xher2) (char *, int *, double *,
  362. double *, int *, double *, int *, double *, int *);
  364. int BLASFUNC(chpr2) (char *, int *, float *,
  365. float *, int *, float *, int *, float *);
  366. int BLASFUNC(zhpr2) (char *, int *, double *,
  367. double *, int *, double *, int *, double *);
  368. int BLASFUNC(xhpr2) (char *, int *, double *,
  369. double *, int *, double *, int *, double *);
  371. int BLASFUNC(chemv) (char *, int *, float *, float *, int *,
  372. float *, int *, float *, float *, int *);
  373. int BLASFUNC(zhemv) (char *, int *, double *, double *, int *,
  374. double *, int *, double *, double *, int *);
  375. int BLASFUNC(xhemv) (char *, int *, double *, double *, int *,
  376. double *, int *, double *, double *, int *);
  378. int BLASFUNC(chpmv) (char *, int *, float *, float *,
  379. float *, int *, float *, float *, int *);
  380. int BLASFUNC(zhpmv) (char *, int *, double *, double *,
  381. double *, int *, double *, double *, int *);
  382. int BLASFUNC(xhpmv) (char *, int *, double *, double *,
  383. double *, int *, double *, double *, int *);
  385. int BLASFUNC(snorm)(char *, int *, int *, float *, int *);
  386. int BLASFUNC(dnorm)(char *, int *, int *, double *, int *);
  387. int BLASFUNC(cnorm)(char *, int *, int *, float *, int *);
  388. int BLASFUNC(znorm)(char *, int *, int *, double *, int *);
  390. int BLASFUNC(sgbmv)(char *, int *, int *, int *, int *, float *, float *, int *,
  391. float *, int *, float *, float *, int *);
  392. int BLASFUNC(dgbmv)(char *, int *, int *, int *, int *, double *, double *, int *,
  393. double *, int *, double *, double *, int *);
  394. int BLASFUNC(qgbmv)(char *, int *, int *, int *, int *, double *, double *, int *,
  395. double *, int *, double *, double *, int *);
  396. int BLASFUNC(cgbmv)(char *, int *, int *, int *, int *, float *, float *, int *,
  397. float *, int *, float *, float *, int *);
  398. int BLASFUNC(zgbmv)(char *, int *, int *, int *, int *, double *, double *, int *,
  399. double *, int *, double *, double *, int *);
  400. int BLASFUNC(xgbmv)(char *, int *, int *, int *, int *, double *, double *, int *,
  401. double *, int *, double *, double *, int *);
  403. int BLASFUNC(ssbmv)(char *, int *, int *, float *, float *, int *,
  404. float *, int *, float *, float *, int *);
  405. int BLASFUNC(dsbmv)(char *, int *, int *, double *, double *, int *,
  406. double *, int *, double *, double *, int *);
  407. int BLASFUNC(qsbmv)(char *, int *, int *, double *, double *, int *,
  408. double *, int *, double *, double *, int *);
  409. int BLASFUNC(csbmv)(char *, int *, int *, float *, float *, int *,
  410. float *, int *, float *, float *, int *);
  411. int BLASFUNC(zsbmv)(char *, int *, int *, double *, double *, int *,
  412. double *, int *, double *, double *, int *);
  413. int BLASFUNC(xsbmv)(char *, int *, int *, double *, double *, int *,
  414. double *, int *, double *, double *, int *);
  416. int BLASFUNC(chbmv)(char *, int *, int *, float *, float *, int *,
  417. float *, int *, float *, float *, int *);
  418. int BLASFUNC(zhbmv)(char *, int *, int *, double *, double *, int *,
  419. double *, int *, double *, double *, int *);
  420. int BLASFUNC(xhbmv)(char *, int *, int *, double *, double *, int *,
  421. double *, int *, double *, double *, int *);
  423. /* Level 3 routines */
  425. int BLASFUNC(sgemm)(char *, char *, int *, int *, int *, float *,
  426. float *, int *, float *, int *, float *, float *, int *);
  427. int BLASFUNC(dgemm)(char *, char *, int *, int *, int *, double *,
  428. double *, int *, double *, int *, double *, double *, int *);
  429. int BLASFUNC(qgemm)(char *, char *, int *, int *, int *, double *,
  430. double *, int *, double *, int *, double *, double *, int *);
  431. int BLASFUNC(cgemm)(char *, char *, int *, int *, int *, float *,
  432. float *, int *, float *, int *, float *, float *, int *);
  433. int BLASFUNC(zgemm)(char *, char *, int *, int *, int *, double *,
  434. double *, int *, double *, int *, double *, double *, int *);
  435. int BLASFUNC(xgemm)(char *, char *, int *, int *, int *, double *,
  436. double *, int *, double *, int *, double *, double *, int *);
  438. int BLASFUNC(cgemm3m)(char *, char *, int *, int *, int *, float *,
  439. float *, int *, float *, int *, float *, float *, int *);
  440. int BLASFUNC(zgemm3m)(char *, char *, int *, int *, int *, double *,
  441. double *, int *, double *, int *, double *, double *, int *);
  442. int BLASFUNC(xgemm3m)(char *, char *, int *, int *, int *, double *,
  443. double *, int *, double *, int *, double *, double *, int *);
  445. int BLASFUNC(sge2mm)(char *, char *, char *, int *, int *,
  446. float *, float *, int *, float *, int *,
  447. float *, float *, int *);
  448. int BLASFUNC(dge2mm)(char *, char *, char *, int *, int *,
  449. double *, double *, int *, double *, int *,
  450. double *, double *, int *);
  451. int BLASFUNC(cge2mm)(char *, char *, char *, int *, int *,
  452. float *, float *, int *, float *, int *,
  453. float *, float *, int *);
  454. int BLASFUNC(zge2mm)(char *, char *, char *, int *, int *,
  455. double *, double *, int *, double *, int *,
  456. double *, double *, int *);
  458. int BLASFUNC(strsm)(char *, char *, char *, char *, int *, int *,
  459. float *, float *, int *, float *, int *);
  460. int BLASFUNC(dtrsm)(char *, char *, char *, char *, int *, int *,
  461. double *, double *, int *, double *, int *);
  462. int BLASFUNC(qtrsm)(char *, char *, char *, char *, int *, int *,
  463. double *, double *, int *, double *, int *);
  464. int BLASFUNC(ctrsm)(char *, char *, char *, char *, int *, int *,
  465. float *, float *, int *, float *, int *);
  466. int BLASFUNC(ztrsm)(char *, char *, char *, char *, int *, int *,
  467. double *, double *, int *, double *, int *);
  468. int BLASFUNC(xtrsm)(char *, char *, char *, char *, int *, int *,
  469. double *, double *, int *, double *, int *);
  471. int BLASFUNC(strmm)(char *, char *, char *, char *, int *, int *,
  472. float *, float *, int *, float *, int *);
  473. int BLASFUNC(dtrmm)(char *, char *, char *, char *, int *, int *,
  474. double *, double *, int *, double *, int *);
  475. int BLASFUNC(qtrmm)(char *, char *, char *, char *, int *, int *,
  476. double *, double *, int *, double *, int *);
  477. int BLASFUNC(ctrmm)(char *, char *, char *, char *, int *, int *,
  478. float *, float *, int *, float *, int *);
  479. int BLASFUNC(ztrmm)(char *, char *, char *, char *, int *, int *,
  480. double *, double *, int *, double *, int *);
  481. int BLASFUNC(xtrmm)(char *, char *, char *, char *, int *, int *,
  482. double *, double *, int *, double *, int *);
  484. int BLASFUNC(ssymm)(char *, char *, int *, int *, float *, float *, int *,
  485. float *, int *, float *, float *, int *);
  486. int BLASFUNC(dsymm)(char *, char *, int *, int *, double *, double *, int *,
  487. double *, int *, double *, double *, int *);
  488. int BLASFUNC(qsymm)(char *, char *, int *, int *, double *, double *, int *,
  489. double *, int *, double *, double *, int *);
  490. int BLASFUNC(csymm)(char *, char *, int *, int *, float *, float *, int *,
  491. float *, int *, float *, float *, int *);
  492. int BLASFUNC(zsymm)(char *, char *, int *, int *, double *, double *, int *,
  493. double *, int *, double *, double *, int *);
  494. int BLASFUNC(xsymm)(char *, char *, int *, int *, double *, double *, int *,
  495. double *, int *, double *, double *, int *);
  497. int BLASFUNC(csymm3m)(char *, char *, int *, int *, float *, float *, int *,
  498. float *, int *, float *, float *, int *);
  499. int BLASFUNC(zsymm3m)(char *, char *, int *, int *, double *, double *, int *,
  500. double *, int *, double *, double *, int *);
  501. int BLASFUNC(xsymm3m)(char *, char *, int *, int *, double *, double *, int *,
  502. double *, int *, double *, double *, int *);
  504. int BLASFUNC(ssyrk)(char *, char *, int *, int *, float *, float *, int *,
  505. float *, float *, int *);
  506. int BLASFUNC(dsyrk)(char *, char *, int *, int *, double *, double *, int *,
  507. double *, double *, int *);
  508. int BLASFUNC(qsyrk)(char *, char *, int *, int *, double *, double *, int *,
  509. double *, double *, int *);
  510. int BLASFUNC(csyrk)(char *, char *, int *, int *, float *, float *, int *,
  511. float *, float *, int *);
  512. int BLASFUNC(zsyrk)(char *, char *, int *, int *, double *, double *, int *,
  513. double *, double *, int *);
  514. int BLASFUNC(xsyrk)(char *, char *, int *, int *, double *, double *, int *,
  515. double *, double *, int *);
  517. int BLASFUNC(ssyr2k)(char *, char *, int *, int *, float *, float *, int *,
  518. float *, int *, float *, float *, int *);
  519. int BLASFUNC(dsyr2k)(char *, char *, int *, int *, double *, double *, int *,
  520. double*, int *, double *, double *, int *);
  521. int BLASFUNC(qsyr2k)(char *, char *, int *, int *, double *, double *, int *,
  522. double*, int *, double *, double *, int *);
  523. int BLASFUNC(csyr2k)(char *, char *, int *, int *, float *, float *, int *,
  524. float *, int *, float *, float *, int *);
  525. int BLASFUNC(zsyr2k)(char *, char *, int *, int *, double *, double *, int *,
  526. double*, int *, double *, double *, int *);
  527. int BLASFUNC(xsyr2k)(char *, char *, int *, int *, double *, double *, int *,
  528. double*, int *, double *, double *, int *);
  530. int BLASFUNC(chemm)(char *, char *, int *, int *, float *, float *, int *,
  531. float *, int *, float *, float *, int *);
  532. int BLASFUNC(zhemm)(char *, char *, int *, int *, double *, double *, int *,
  533. double *, int *, double *, double *, int *);
  534. int BLASFUNC(xhemm)(char *, char *, int *, int *, double *, double *, int *,
  535. double *, int *, double *, double *, int *);
  537. int BLASFUNC(chemm3m)(char *, char *, int *, int *, float *, float *, int *,
  538. float *, int *, float *, float *, int *);
  539. int BLASFUNC(zhemm3m)(char *, char *, int *, int *, double *, double *, int *,
  540. double *, int *, double *, double *, int *);
  541. int BLASFUNC(xhemm3m)(char *, char *, int *, int *, double *, double *, int *,
  542. double *, int *, double *, double *, int *);
  544. int BLASFUNC(cherk)(char *, char *, int *, int *, float *, float *, int *,
  545. float *, float *, int *);
  546. int BLASFUNC(zherk)(char *, char *, int *, int *, double *, double *, int *,
  547. double *, double *, int *);
  548. int BLASFUNC(xherk)(char *, char *, int *, int *, double *, double *, int *,
  549. double *, double *, int *);
  551. int BLASFUNC(cher2k)(char *, char *, int *, int *, float *, float *, int *,
  552. float *, int *, float *, float *, int *);
  553. int BLASFUNC(zher2k)(char *, char *, int *, int *, double *, double *, int *,
  554. double*, int *, double *, double *, int *);
  555. int BLASFUNC(xher2k)(char *, char *, int *, int *, double *, double *, int *,
  556. double*, int *, double *, double *, int *);
  557. int BLASFUNC(cher2m)(char *, char *, char *, int *, int *, float *, float *, int *,
  558. float *, int *, float *, float *, int *);
  559. int BLASFUNC(zher2m)(char *, char *, char *, int *, int *, double *, double *, int *,
  560. double*, int *, double *, double *, int *);
  561. int BLASFUNC(xher2m)(char *, char *, char *, int *, int *, double *, double *, int *,
  562. double*, int *, double *, double *, int *);
  564. int BLASFUNC(sgemt)(char *, int *, int *, float *, float *, int *,
  565. float *, int *);
  566. int BLASFUNC(dgemt)(char *, int *, int *, double *, double *, int *,
  567. double *, int *);
  568. int BLASFUNC(cgemt)(char *, int *, int *, float *, float *, int *,
  569. float *, int *);
  570. int BLASFUNC(zgemt)(char *, int *, int *, double *, double *, int *,
  571. double *, int *);
  573. int BLASFUNC(sgema)(char *, char *, int *, int *, float *,
  574. float *, int *, float *, float *, int *, float *, int *);
  575. int BLASFUNC(dgema)(char *, char *, int *, int *, double *,
  576. double *, int *, double*, double *, int *, double*, int *);
  577. int BLASFUNC(cgema)(char *, char *, int *, int *, float *,
  578. float *, int *, float *, float *, int *, float *, int *);
  579. int BLASFUNC(zgema)(char *, char *, int *, int *, double *,
  580. double *, int *, double*, double *, int *, double*, int *);
  582. int BLASFUNC(sgems)(char *, char *, int *, int *, float *,
  583. float *, int *, float *, float *, int *, float *, int *);
  584. int BLASFUNC(dgems)(char *, char *, int *, int *, double *,
  585. double *, int *, double*, double *, int *, double*, int *);
  586. int BLASFUNC(cgems)(char *, char *, int *, int *, float *,
  587. float *, int *, float *, float *, int *, float *, int *);
  588. int BLASFUNC(zgems)(char *, char *, int *, int *, double *,
  589. double *, int *, double*, double *, int *, double*, int *);
  591. int BLASFUNC(sgetf2)(int *, int *, float *, int *, int *, int *);
  592. int BLASFUNC(dgetf2)(int *, int *, double *, int *, int *, int *);
  593. int BLASFUNC(qgetf2)(int *, int *, double *, int *, int *, int *);
  594. int BLASFUNC(cgetf2)(int *, int *, float *, int *, int *, int *);
  595. int BLASFUNC(zgetf2)(int *, int *, double *, int *, int *, int *);
  596. int BLASFUNC(xgetf2)(int *, int *, double *, int *, int *, int *);
  598. int BLASFUNC(sgetrf)(int *, int *, float *, int *, int *, int *);
  599. int BLASFUNC(dgetrf)(int *, int *, double *, int *, int *, int *);
  600. int BLASFUNC(qgetrf)(int *, int *, double *, int *, int *, int *);
  601. int BLASFUNC(cgetrf)(int *, int *, float *, int *, int *, int *);
  602. int BLASFUNC(zgetrf)(int *, int *, double *, int *, int *, int *);
  603. int BLASFUNC(xgetrf)(int *, int *, double *, int *, int *, int *);
  605. int BLASFUNC(slaswp)(int *, float *, int *, int *, int *, int *, int *);
  606. int BLASFUNC(dlaswp)(int *, double *, int *, int *, int *, int *, int *);
  607. int BLASFUNC(qlaswp)(int *, double *, int *, int *, int *, int *, int *);
  608. int BLASFUNC(claswp)(int *, float *, int *, int *, int *, int *, int *);
  609. int BLASFUNC(zlaswp)(int *, double *, int *, int *, int *, int *, int *);
  610. int BLASFUNC(xlaswp)(int *, double *, int *, int *, int *, int *, int *);
  612. int BLASFUNC(sgetrs)(char *, int *, int *, float *, int *, int *, float *, int *, int *);
  613. int BLASFUNC(dgetrs)(char *, int *, int *, double *, int *, int *, double *, int *, int *);
  614. int BLASFUNC(qgetrs)(char *, int *, int *, double *, int *, int *, double *, int *, int *);
  615. int BLASFUNC(cgetrs)(char *, int *, int *, float *, int *, int *, float *, int *, int *);
  616. int BLASFUNC(zgetrs)(char *, int *, int *, double *, int *, int *, double *, int *, int *);
  617. int BLASFUNC(xgetrs)(char *, int *, int *, double *, int *, int *, double *, int *, int *);
  619. int BLASFUNC(sgesv)(int *, int *, float *, int *, int *, float *, int *, int *);
  620. int BLASFUNC(dgesv)(int *, int *, double *, int *, int *, double*, int *, int *);
  621. int BLASFUNC(qgesv)(int *, int *, double *, int *, int *, double*, int *, int *);
  622. int BLASFUNC(cgesv)(int *, int *, float *, int *, int *, float *, int *, int *);
  623. int BLASFUNC(zgesv)(int *, int *, double *, int *, int *, double*, int *, int *);
  624. int BLASFUNC(xgesv)(int *, int *, double *, int *, int *, double*, int *, int *);
  626. int BLASFUNC(spotf2)(char *, int *, float *, int *, int *);
  627. int BLASFUNC(dpotf2)(char *, int *, double *, int *, int *);
  628. int BLASFUNC(qpotf2)(char *, int *, double *, int *, int *);
  629. int BLASFUNC(cpotf2)(char *, int *, float *, int *, int *);
  630. int BLASFUNC(zpotf2)(char *, int *, double *, int *, int *);
  631. int BLASFUNC(xpotf2)(char *, int *, double *, int *, int *);
  633. int BLASFUNC(spotrf)(char *, int *, float *, int *, int *);
  634. int BLASFUNC(dpotrf)(char *, int *, double *, int *, int *);
  635. int BLASFUNC(qpotrf)(char *, int *, double *, int *, int *);
  636. int BLASFUNC(cpotrf)(char *, int *, float *, int *, int *);
  637. int BLASFUNC(zpotrf)(char *, int *, double *, int *, int *);
  638. int BLASFUNC(xpotrf)(char *, int *, double *, int *, int *);
  640. int BLASFUNC(slauu2)(char *, int *, float *, int *, int *);
  641. int BLASFUNC(dlauu2)(char *, int *, double *, int *, int *);
  642. int BLASFUNC(qlauu2)(char *, int *, double *, int *, int *);
  643. int BLASFUNC(clauu2)(char *, int *, float *, int *, int *);
  644. int BLASFUNC(zlauu2)(char *, int *, double *, int *, int *);
  645. int BLASFUNC(xlauu2)(char *, int *, double *, int *, int *);
  647. int BLASFUNC(slauum)(char *, int *, float *, int *, int *);
  648. int BLASFUNC(dlauum)(char *, int *, double *, int *, int *);
  649. int BLASFUNC(qlauum)(char *, int *, double *, int *, int *);
  650. int BLASFUNC(clauum)(char *, int *, float *, int *, int *);
  651. int BLASFUNC(zlauum)(char *, int *, double *, int *, int *);
  652. int BLASFUNC(xlauum)(char *, int *, double *, int *, int *);
  654. int BLASFUNC(strti2)(char *, char *, int *, float *, int *, int *);
  655. int BLASFUNC(dtrti2)(char *, char *, int *, double *, int *, int *);
  656. int BLASFUNC(qtrti2)(char *, char *, int *, double *, int *, int *);
  657. int BLASFUNC(ctrti2)(char *, char *, int *, float *, int *, int *);
  658. int BLASFUNC(ztrti2)(char *, char *, int *, double *, int *, int *);
  659. int BLASFUNC(xtrti2)(char *, char *, int *, double *, int *, int *);
  661. int BLASFUNC(strtri)(char *, char *, int *, float *, int *, int *);
  662. int BLASFUNC(dtrtri)(char *, char *, int *, double *, int *, int *);
  663. int BLASFUNC(qtrtri)(char *, char *, int *, double *, int *, int *);
  664. int BLASFUNC(ctrtri)(char *, char *, int *, float *, int *, int *);
  665. int BLASFUNC(ztrtri)(char *, char *, int *, double *, int *, int *);
  666. int BLASFUNC(xtrtri)(char *, char *, int *, double *, int *, int *);
  668. int BLASFUNC(spotri)(char *, int *, float *, int *, int *);
  669. int BLASFUNC(dpotri)(char *, int *, double *, int *, int *);
  670. int BLASFUNC(qpotri)(char *, int *, double *, int *, int *);
  671. int BLASFUNC(cpotri)(char *, int *, float *, int *, int *);
  672. int BLASFUNC(zpotri)(char *, int *, double *, int *, int *);
  673. int BLASFUNC(xpotri)(char *, int *, double *, int *, int *);
  675. #endif