PLASMA
Parallel Linear Algebra Software for Multicore Architectures
plasma_core_blas.h
1
10#ifndef PLASMA_CORE_BLAS_H
11#define PLASMA_CORE_BLAS_H
12
13#include <stdio.h>
14
15#ifdef __cplusplus
16extern "C" {
17#endif
18
19static const char *lapack_constants[] = {
20 "", "", "", "", "", "", "", "", "", "",
21 "", "", "", "", "", "", "", "", "", "",
22 "", "", "", "", "", "", "", "", "", "",
23 "", "", "", "", "", "", "", "", "", "",
24 "", "", "", "", "", "", "", "", "", "",
25 "", "", "", "", "", "", "", "", "", "",
26 "", "", "", "", "", "", "", "", "", "",
27 "", "", "", "", "", "", "", "", "", "",
28 "", "", "", "", "", "", "", "", "", "",
29 "", "", "", "", "", "", "", "", "", "",
30
31 "", "", "", "", "", "", "", "", "", "",
32 "",
33 "NoTrans",
34 "Trans",
35 "ConjTrans",
36
37 "", "", "", "", "", "", "",
38 "Upper",
39 "Lower",
40 "General",
41
42 "", "", "", "", "", "", "",
43 "NonUnit",
44 "Unit",
45
46 "", "", "", "", "", "", "", "",
47 "Left",
48 "Right",
49
50 "", "", "", "", "", "", "", "", "", "",
51 "", "", "", "", "", "", "", "", "", "",
52 "", "", "", "", "", "", "", "",
53 "One",
54 "",
55 "Two",
56 "Frobenius",
57 "Infinity",
58 "",
59 "Maximum",
60 "",
61
62 "", "", "", "",
63 "", "", "", "", "", "", "", "", "", "",
64 "", "", "", "", "", "", "", "", "", "",
65 "", "", "", "", "", "", "", "", "", "",
66 "", "", "", "", "", "", "", "", "", "",
67 "", "", "", "", "", "", "", "", "", "",
68 "", "", "", "", "", "", "", "", "", "",
69 "", "", "", "", "", "", "", "", "", "",
70 "", "", "", "", "", "", "", "", "", "",
71 "", "", "", "", "", "", "", "", "", "",
72 "", "", "", "", "", "", "", "", "", "",
73 "", "", "", "", "", "", "", "", "", "",
74 "", "", "", "", "", "", "", "", "", "",
75 "", "", "", "", "", "", "", "", "", "",
76 "", "", "", "", "", "", "", "", "", "",
77 "", "", "", "", "", "", "", "", "", "",
78 "", "", "", "", "", "", "", "", "", "",
79 "", "", "", "", "", "", "", "", "", "",
80 "", "", "", "", "", "", "", "", "", "",
81 "", "", "", "", "", "", "", "", "", "",
82 "", "", "", "", "", "", "", "", "", "",
83 "", "", "", "", "", "", "", "",
84 "Forward",
85 "Backward",
86 "", "", "", "", "", "", "", "",
87 "Columnwise",
88 "Rowwise"
89};
90
91/***************************************************************************/
95static inline char lapack_const(int plasma_const) {
96 return lapack_constants[plasma_const][0];
97}
98
99#define plasma_coreblas_error(msg) \
100 plasma_coreblas_error_func_line_file(__func__, __LINE__, __FILE__, msg)
101
102static inline void plasma_coreblas_error_func_line_file(
103 char const *func, int line, const char *file, const char *msg)
104{
105 fprintf(stderr,
106 "COREBLAS ERROR at %d of %s() in %s: %s\n",
107 line, func, file, msg);
108}
109
110#ifdef __cplusplus
111} // extern "C"
112#endif
113
114#include "plasma_core_blas_s.h"
115#include "plasma_core_blas_d.h"
116#include "plasma_core_blas_ds.h"
117#include "plasma_core_blas_c.h"
118#include "plasma_core_blas_z.h"
119#include "plasma_core_blas_zc.h"
120
121#endif // PLASMA_CORE_BLAS_H
static char lapack_const(int plasma_const)
Definition: plasma_core_blas.h:95