PLASMA
Parallel Linear Algebra Software for Multicore Architectures
core_blas.h
1 
10 #ifndef ICL_CORE_BLAS_H
11 #define ICL_CORE_BLAS_H
12 
13 #include <stdio.h>
14 
15 #ifdef __cplusplus
16 extern "C" {
17 #endif
18 
19 static 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 /***************************************************************************/
95 static inline char lapack_const(int plasma_const) {
96  return lapack_constants[plasma_const][0];
97 }
98 
99 #define coreblas_error(msg) \
100  coreblas_error_func_line_file(__func__, __LINE__, __FILE__, msg)
101 
102 static inline void 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 "core_blas_s.h"
115 #include "core_blas_d.h"
116 #include "core_blas_ds.h"
117 #include "core_blas_c.h"
118 #include "core_blas_z.h"
119 #include "core_blas_zc.h"
120 
121 #endif // ICL_CORE_BLAS_H
lapack_const
static char lapack_const(int plasma_const)
Definition: core_blas.h:95