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
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 plasma_coreblas_error(msg) \
100
plasma_coreblas_error_func_line_file(__func__, __LINE__, __FILE__, msg)
101
102
static
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
lapack_const
static char lapack_const(int plasma_const)
Definition:
plasma_core_blas.h:95
include
plasma_core_blas.h
Generated by
1.8.17