-
Notifications
You must be signed in to change notification settings - Fork 0
/
mkl_pardiso_shim.h
233 lines (163 loc) · 13.8 KB
/
mkl_pardiso_shim.h
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
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
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
#include "mkl_dss.h"
// C routines
void mkl_pardiso( _MKL_DSS_HANDLE_t pt, const MKL_INT *maxfct, const MKL_INT *mnum,
const MKL_INT *mtype, const MKL_INT *phase, const MKL_INT *n,
const void *a, const MKL_INT *ia, const MKL_INT *ja,
MKL_INT *perm, const MKL_INT *nrhs, MKL_INT *iparm,
const MKL_INT *msglvl, void *b, void *x, MKL_INT *error );
void MKL_PARDISO( _MKL_DSS_HANDLE_t pt, const MKL_INT *maxfct, const MKL_INT *mnum,
const MKL_INT *mtype, const MKL_INT *phase, const MKL_INT *n,
const void *a, const MKL_INT *ia, const MKL_INT *ja,
MKL_INT *perm, const MKL_INT *nrhs, MKL_INT *iparm,
const MKL_INT *msglvl, void *b, void *x, MKL_INT *error );
void mkl_pardisoinit( _MKL_DSS_HANDLE_t pt, const MKL_INT *mtype, MKL_INT *iparm );
void MKL_PARDISOINIT( _MKL_DSS_HANDLE_t pt, const MKL_INT *mtype, MKL_INT *iparm );
void mkl_pardiso_handle_store( _MKL_DSS_HANDLE_t pt, const char *dirname,
MKL_INT *error );
void MKL_PARDISO_HANDLE_STORE( _MKL_DSS_HANDLE_t pt, const char *dirname,
MKL_INT *error );
void mkl_pardiso_handle_restore( _MKL_DSS_HANDLE_t pt, const char *dirname,
MKL_INT *error );
void MKL_PARDISO_HANDLE_RESTORE( _MKL_DSS_HANDLE_t pt, const char *dirname,
MKL_INT *error );
void mkl_pardiso_handle_delete( const char *dirname, MKL_INT *error );
void MKL_PARDISO_HANDLE_DELETE( const char *dirname, MKL_INT *error );
void mkl_pardiso_64( _MKL_DSS_HANDLE_t pt, const long long int *maxfct,
const long long int *mnum, const long long int *mtype,
const long long int *phase, const long long int *n,
const void *a, const long long int *ia,
const long long int *ja, long long int *perm,
const long long int *nrhs, long long int *iparm,
const long long int *msglvl, void *b, void *x,
long long int *error );
void MKL_PARDISO_64( _MKL_DSS_HANDLE_t pt, const long long int *maxfct,
const long long int *mnum, const long long int *mtype,
const long long int *phase, const long long int *n,
const void *a, const long long int *ia,
const long long int *ja, long long int *perm,
const long long int *nrhs, long long int *iparm,
const long long int *msglvl, void *b, void *x,
long long int *error );
void mkl_pardiso_handle_store_64( _MKL_DSS_HANDLE_t pt, const char *dirname,
MKL_INT *error );
void MKL_PARDISO_HANDLE_STORE_64( _MKL_DSS_HANDLE_t pt, const char *dirname,
MKL_INT *error );
void mkl_pardiso_handle_restore_64( _MKL_DSS_HANDLE_t pt, const char *dirname,
MKL_INT *error );
void MKL_PARDISO_HANDLE_RESTORE_64( _MKL_DSS_HANDLE_t pt, const char *dirname,
MKL_INT *error );
void mkl_pardiso_handle_delete_64( const char *dirname, MKL_INT *error );
void MKL_PARDISO_HANDLE_DELETE_64( const char *dirname, MKL_INT *error );
int MKL_MKL_PARDISO_PIVOT ( const double* aii, double* bii, const double* eps );
int MKL_MKL_PARDISO_PIVOT_( const double* aii, double* bii, const double* eps );
int mkl_mkl_pardiso_pivot ( const double* aii, double* bii, const double* eps );
int mkl_mkl_pardiso_pivot_( const double* aii, double* bii, const double* eps );
void mkl_pardiso_getdiag( const _MKL_DSS_HANDLE_t pt, void *df, void *da,
const MKL_INT *mnum, MKL_INT *error );
void MKL_PARDISO_GETDIAG( const _MKL_DSS_HANDLE_t pt, void *df, void *da,
const MKL_INT *mnum, MKL_INT *error );
void mkl_pardiso_export( void *pt, void* values, MKL_INT* ia, MKL_INT *ja,
const MKL_INT *step, const MKL_INT *iparm, MKL_INT *error );
void MKL_PARDISO_EXPORT( void *pt, void* values, MKL_INT* ia, MKL_INT *ja,
const MKL_INT *step, const MKL_INT *iparm, MKL_INT *error );
// Fortran routines
void MKL_PARDISO_S_(void *pt[], int maxfct, int mnum, int mtype, int phase,
int n, float *a, int *ia, int *ja, int *perm,
int nrhs, int *iparm, int msglvl, float *b, float *x, int *error);
void MKL_PARDISO_D_(void *pt[], int maxfct, int mnum, int mtype, int phase,
int n, double *a, int *ia, int *ja, int *perm,
int nrhs, int *iparm, int msglvl, double *b, double *x, int *error);
void MKL_PARDISO_SC_(void *pt[], int maxfct, int mnum, int mtype, int phase,
int n, void *a, int *ia, int *ja, int *perm,
int nrhs, int *iparm, int msglvl, void *b, void *x, int *error);
void MKL_PARDISO_DC_(void *pt[], int maxfct, int mnum, int mtype, int phase,
int n, void *a, int *ia, int *ja, int *perm,
int nrhs, int *iparm, int msglvl, void *b, void *x, int *error);
void MKL_PARDISO_S_2D_(void *pt[], int maxfct, int mnum, int mtype, int phase, int n, float *a, int *ia,
int *ja, int *perm, int nrhs, int *iparm, int msglvl, float *b, float *x, int *error);
void MKL_PARDISO_D_2D_(void *pt[], int maxfct, int mnum, int mtype, int phase, int n, double *a, int *ia,
int *ja, int *perm, int nrhs, int *iparm, int msglvl, double *b, double *x, int *error);
void MKL_PARDISO_SC_2D_(void *pt[], int maxfct, int mnum, int mtype, int phase, int n, void *a, int *ia,
int *ja, int *perm, int nrhs, int *iparm, int msglvl, void *b, void *x, int *error);
void MKL_PARDISO_DC_2D_(void *pt[], int maxfct, int mnum, int mtype, int phase, int n, void *a, int *ia,
int *ja, int *perm, int nrhs, int *iparm, int msglvl, void *b, void *x, int *error);
void MKL_PARDISO_S_64_(void *pt[], long long maxfct, long long mnum, long long mtype, long long phase,
long long n, float *a, long long *ia, long long *ja, long long *perm,
long long nrhs, long long *iparm, long long msglvl, float *b, float *x, long long *error);
void MKL_PARDISO_D_64_(void *pt[], long long maxfct, long long mnum, long long mtype, long long phase,
long long n, double *a, long long *ia, long long *ja, long long *perm,
long long nrhs, long long *iparm, long long msglvl, double *b, double *x, long long *error);
void MKL_PARDISO_SC_64_(void *pt[], long long maxfct, long long mnum, long long mtype, long long phase,
long long n, void *a, long long *ia, long long *ja, long long *perm,
long long nrhs, long long *iparm, long long msglvl, void *b, void *x, long long *error);
void MKL_PARDISO_DC_64_(void *pt[], long long maxfct, long long mnum, long long mtype, long long phase,
long long n, void *a, long long *ia, long long *ja, long long *perm,
long long nrhs, long long *iparm, long long msglvl, void *b, void *x, long long *error);
void MKL_PARDISO_S_64_2D_(void *pt[], long long maxfct, long long mnum, long long mtype, long long phase,
long long n, float *a, long long *ia, long long *ja, long long *perm, long long nrhs,
long long *iparm, long long msglvl, float *b, float *x, long long *error);
void MKL_PARDISO_D_64_2D_(void *pt[], long long maxfct, long long mnum, long long mtype, long long phase,
long long n, double *a, long long *ia, long long *ja, long long *perm, long long nrhs,
long long *iparm, long long msglvl, double *b, double *x, long long *error);
void MKL_PARDISO_SC_64_2D_(void *pt[], long long maxfct, long long mnum, long long mtype, long long phase,
long long n, void *a, long long *ia, long long *ja, long long *perm, long long nrhs,
long long *iparm, long long msglvl, void *b, void *x, long long *error);
void MKL_PARDISO_DC_64_2D_(void *pt[], long long maxfct, long long mnum, long long mtype, long long phase,
long long n, void *a, long long *ia, long long *ja, long long *perm, long long nrhs,
long long *iparm, long long msglvl, void *b, void *x, long long *error);
void MKL_PARDISO_EXPORT_S_(void *pt[], float *values, int *ia, int *ja, int step, int *iparm, int *error);
void MKL_PARDISO_EXPORT_D_(void *pt[], double *values, int *ia, int *ja, int step, int *iparm, int *error);
void MKL_PARDISO_EXPORT_C_(void *pt[], void *values, int *ia, int *ja, int step, int *iparm, int *error);
void MKL_PARDISO_EXPORT_Z_(void *pt[], void *values, int *ia, int *ja, int step, int *iparm, int *error);
void MKL_PARDISO_GETDIAG_D_(void *pt[], double *diag_fact, double *diag_a, int mnum, int *error);
void MKL_PARDISO_GETDIAG_Z_(void *pt[], void *diag_fact, void *diag_a, int mnum, int *error);
void mkl_pardiso_s_(void *pt[], int maxfct, int mnum, int mtype, int phase,
int n, float *a, int *ia, int *ja, int *perm,
int nrhs, int *iparm, int msglvl, float *b, float *x, int *error);
void mkl_pardiso_d_(void *pt[], int maxfct, int mnum, int mtype, int phase,
int n, double *a, int *ia, int *ja, int *perm,
int nrhs, int *iparm, int msglvl, double *b, double *x, int *error);
void mkl_pardiso_sc_(void *pt[], int maxfct, int mnum, int mtype, int phase,
int n, void *a, int *ia, int *ja, int *perm,
int nrhs, int *iparm, int msglvl, void *b, void *x, int *error);
void mkl_pardiso_dc_(void *pt[], int maxfct, int mnum, int mtype, int phase,
int n, void *a, int *ia, int *ja, int *perm,
int nrhs, int *iparm, int msglvl, void *b, void *x, int *error);
void mkl_pardiso_s_2d_(void *pt[], int maxfct, int mnum, int mtype, int phase, int n, float *a, int *ia,
int *ja, int *perm, int nrhs, int *iparm, int msglvl, float *b, float *x, int *error);
void mkl_pardiso_d_2d_(void *pt[], int maxfct, int mnum, int mtype, int phase, int n, double *a, int *ia,
int *ja, int *perm, int nrhs, int *iparm, int msglvl, double *b, double *x, int *error);
void mkl_pardiso_sc_2d_(void *pt[], int maxfct, int mnum, int mtype, int phase, int n, void *a, int *ia,
int *ja, int *perm, int nrhs, int *iparm, int msglvl, void *b, void *x, int *error);
void mkl_pardiso_dc_2d_(void *pt[], int maxfct, int mnum, int mtype, int phase, int n, void *a, int *ia,
int *ja, int *perm, int nrhs, int *iparm, int msglvl, void *b, void *x, int *error);
void mkl_pardiso_s_64_(void *pt[], long long maxfct, long long mnum, long long mtype, long long phase,
long long n, float *a, long long *ia, long long *ja, long long *perm,
long long nrhs, long long *iparm, long long msglvl, float *b, float *x, long long *error);
void mkl_pardiso_d_64_(void *pt[], long long maxfct, long long mnum, long long mtype, long long phase,
long long n, double *a, long long *ia, long long *ja, long long *perm,
long long nrhs, long long *iparm, long long msglvl, double *b, double *x, long long *error);
void mkl_pardiso_sc_64_(void *pt[], long long maxfct, long long mnum, long long mtype, long long phase,
long long n, void *a, long long *ia, long long *ja, long long *perm,
long long nrhs, long long *iparm, long long msglvl, void *b, void *x, long long *error);
void mkl_pardiso_dc_64_(void *pt[], long long maxfct, long long mnum, long long mtype, long long phase,
long long n, void *a, long long *ia, long long *ja, long long *perm,
long long nrhs, long long *iparm, long long msglvl, void *b, void *x, long long *error);
void mkl_pardiso_s_64_2d_(void *pt[], long long maxfct, long long mnum, long long mtype, long long phase,
long long n, float *a, long long *ia, long long *ja, long long *perm, long long nrhs,
long long *iparm, long long msglvl, float *b, float *x, long long *error);
void mkl_pardiso_d_64_2d_(void *pt[], long long maxfct, long long mnum, long long mtype, long long phase,
long long n, double *a, long long *ia, long long *ja, long long *perm, long long nrhs,
long long *iparm, long long msglvl, double *b, double *x, long long *error);
void mkl_pardiso_sc_64_2d_(void *pt[], long long maxfct, long long mnum, long long mtype, long long phase,
long long n, void *a, long long *ia, long long *ja, long long *perm, long long nrhs,
long long *iparm, long long msglvl, void *b, void *x, long long *error);
void mkl_pardiso_dc_64_2d_(void *pt[], long long maxfct, long long mnum, long long mtype, long long phase,
long long n, void *a, long long *ia, long long *ja, long long *perm, long long nrhs,
long long *iparm, long long msglvl, void *b, void *x, long long *error);
void mkl_pardiso_export_s_(void *pt[], float *values, int *ia, int *ja, int step, int *iparm, int *error);
void mkl_pardiso_export_d_(void *pt[], double *values, int *ia, int *ja, int step, int *iparm, int *error);
void mkl_pardiso_export_c_(void *pt[], void *values, int *ia, int *ja, int step, int *iparm, int *error);
void mkl_pardiso_export_z_(void *pt[], void *values, int *ia, int *ja, int step, int *iparm, int *error);
void mkl_pardiso_getdiag_d_(void *pt[], double *diag_fact, double *diag_a, int mnum, int *error);
void mkl_pardiso_getdiag_z_(void *pt[], void *diag_fact, void *diag_a, int mnum, int *error);