Cyclops Tensor Framework
parallel arithmetic on multidimensional arrays
mkl_symbs.h
Go to the documentation of this file.
1 #ifndef __MKL_SYMBS__
2 #define __MKL_SYMBS__
3 
4 #include <complex>
5 #if FTN_UNDERSCORE
6 #define MKL_SCOOMM mkl_scoomm_
7 #define MKL_DCOOMM mkl_dcoomm_
8 #define MKL_CCOOMM mkl_ccoomm_
9 #define MKL_ZCOOMM mkl_zcoomm_
10 #define MKL_SCSRCOO mkl_scsrcoo_
11 #define MKL_DCSRCOO mkl_dcsrcoo_
12 #define MKL_CCSRCOO mkl_ccsrcoo_
13 #define MKL_ZCSRCOO mkl_zcsrcoo_
14 #define MKL_SCSRMM mkl_scsrmm_
15 #define MKL_DCSRMM mkl_dcsrmm_
16 #define MKL_CCSRMM mkl_ccsrmm_
17 #define MKL_ZCSRMM mkl_zcsrmm_
18 #define MKL_SCSRADD mkl_scsradd_
19 #define MKL_DCSRADD mkl_dcsradd_
20 #define MKL_CCSRADD mkl_ccsradd_
21 #define MKL_ZCSRADD mkl_zcsradd_
22 #define MKL_SCSRMULTD mkl_scsrmultd_
23 #define MKL_DCSRMULTD mkl_dcsrmultd_
24 #define MKL_CCSRMULTD mkl_ccsrmultd_
25 #define MKL_ZCSRMULTD mkl_zcsrmultd_
26 #define MKL_SCSRMULTCSR mkl_scsrmultcsr_
27 #define MKL_DCSRMULTCSR mkl_dcsrmultcsr_
28 #define MKL_CCSRMULTCSR mkl_ccsrmultcsr_
29 #define MKL_ZCSRMULTCSR mkl_zcsrmultcsr_
30 #else
31 #define MKL_SCOOMM mkl_scoomm
32 #define MKL_DCOOMM mkl_dcoomm
33 #define MKL_CCOOMM mkl_ccoomm
34 #define MKL_ZCOOMM mkl_zcoomm
35 #define MKL_SCSRCOO mkl_scsrcoo
36 #define MKL_DCSRCOO mkl_dcsrcoo
37 #define MKL_CCSRCOO mkl_ccsrcoo
38 #define MKL_ZCSRCOO mkl_zcsrcoo
39 #define MKL_SCSRMM mkl_scsrmm
40 #define MKL_DCSRMM mkl_dcsrmm
41 #define MKL_CCSRMM mkl_ccsrmm
42 #define MKL_ZCSRMM mkl_zcsrmm
43 #define MKL_SCSRADD mkl_scsradd
44 #define MKL_DCSRADD mkl_dcsradd
45 #define MKL_CCSRADD mkl_ccsradd
46 #define MKL_ZCSRADD mkl_zcsradd
47 #define MKL_SCSRMULTD mkl_scsrmultd
48 #define MKL_DCSRMULTD mkl_dcsrmultd
49 #define MKL_CCSRMULTD mkl_ccsrmultd
50 #define MKL_ZCSRMULTD mkl_zcsrmultd
51 #define MKL_SCSRMULTCSR mkl_scsrmultcsr
52 #define MKL_DCSRMULTCSR mkl_dcsrmultcsr
53 #define MKL_CCSRMULTCSR mkl_ccsrmultcsr
54 #define MKL_ZCSRMULTCSR mkl_zcsrmultcsr
55 #endif
56 namespace CTF_BLAS {
57 
58 
59  extern "C"
60  void MKL_SCOOMM(char * transa,
61  int * m,
62  int * n,
63  int * k,
64  float * alpha,
65  char * matdescra,
66  float const * val,
67  int const * rowind,
68  int const * colind,
69  int * nnz,
70  float const * b,
71  int * ldb,
72  float * beta,
73  float * c,
74  int * ldc);
75 
76 
77  extern "C"
78  void MKL_DCOOMM(char * transa,
79  int * m,
80  int * n,
81  int * k,
82  double * alpha,
83  char * matdescra,
84  double const * val,
85  int const * rowind,
86  int const * colind,
87  int * nnz,
88  double const * b,
89  int * ldb,
90  double * beta,
91  double * c,
92  int * ldc);
93 
94  extern "C"
95  void MKL_CCOOMM(char * transa,
96  int * m,
97  int * n,
98  int * k,
99  std::complex<float> * alpha,
100  char * matdescra,
101  std::complex<float> const * val,
102  int const * rowind,
103  int const * colind,
104  int * nnz,
105  std::complex<float> const * b,
106  int * ldb,
107  std::complex<float> * beta,
108  std::complex<float> * c,
109  int * ldc);
110 
111 
112  extern "C"
113  void MKL_ZCOOMM(char * transa,
114  int * m,
115  int * n,
116  int * k,
117  std::complex<double> * alpha,
118  char * matdescra,
119  std::complex<double> const * val,
120  int const * rowind,
121  int const * colind,
122  int * nnz,
123  std::complex<double> const * b,
124  int * ldb,
125  std::complex<double> * beta,
126  std::complex<double> * c,
127  int * ldc);
128 
129  extern "C"
130  void MKL_SCSRCOO(int const * job,
131  int * n,
132  float * acsr,
133  int const * ja,
134  int const * ia,
135  int * nnz,
136  float * acoo,
137  int const * rowind,
138  int const * colind,
139  int * info);
140 
141  extern "C"
142  void MKL_DCSRCOO(int const * job,
143  int * n,
144  double * acsr,
145  int const * ja,
146  int const * ia,
147  int * nnz,
148  double * acoo,
149  int const * rowind,
150  int const * colind,
151  int * info);
152 
153  extern "C"
154  void MKL_CCSRCOO(int const * job,
155  int * n,
156  std::complex<float> * acsr,
157  int const * ja,
158  int const * ia,
159  int * nnz,
160  std::complex<float> * acoo,
161  int const * rowind,
162  int const * colind,
163  int * info);
164 
165  extern "C"
166  void MKL_ZCSRCOO(int const * job,
167  int * n,
168  std::complex<double> * acsr,
169  int const * ja,
170  int const * ia,
171  int * nnz,
172  std::complex<double> * acoo,
173  int const * rowind,
174  int const * colind,
175  int * info);
176 
177 
178  extern "C"
179  void MKL_SCSRMM(const char *transa , const int *m , const int *n , const int *k , const float *alpha , const char *matdescra , const float *val , const int *indx , const int *pntrb , const int *pntre , const float *b , const int *ldb , const float *beta , float *c , const int *ldc );
180 
181  extern "C"
182  void MKL_DCSRMM(const char *transa , const int *m , const int *n , const int *k , const double *alpha , const char *matdescra , const double *val , const int *indx , const int *pntrb , const int *pntre , const double *b , const int *ldb , const double *beta , double *c , const int *ldc );
183 
184 
185  extern "C"
186  void MKL_CCSRMM(const char *transa , const int *m , const int *n , const int *k , const std::complex<float> *alpha , const char *matdescra , const std::complex<float> *val , const int *indx , const int *pntrb , const int *pntre , const std::complex<float> *b , const int *ldb , const std::complex<float> *beta , std::complex<float> *c , const int *ldc );
187 
188  extern "C"
189  void MKL_ZCSRMM(const char *transa , const int *m , const int *n , const int *k , const std::complex<double> *alpha , const char *matdescra , const std::complex<double> *val , const int *indx , const int *pntrb , const int *pntre , const std::complex<double> *b , const int *ldb , const std::complex<double> *beta , std::complex<double> *c , const int *ldc );
190 
191  extern "C"
192  void MKL_SCSRMULTD(const char *transa , const int *m , const int *n , const int *k, const float *a , const int *ja , const int *ia , const float *b , const int *jb , const int *ib , float *c , const int *ldc );
193 
194  extern "C"
195  void MKL_DCSRMULTD(const char *transa , const int *m , const int *n , const int *k, const double *a , const int *ja , const int *ia , const double *b , const int *jb , const int *ib , double *c , const int *ldc );
196 
197 
198  extern "C"
199  void MKL_CCSRMULTD(const char *transa , const int *m , const int *n , const int *k, const std::complex<float> *a , const int *ja , const int *ia , const std::complex<float> *b , const int *jb , const int *ib , std::complex<float> *c , const int *ldc );
200 
201  extern "C"
202  void MKL_ZCSRMULTD(const char *transa , const int *m , const int *n , const int *k, const std::complex<double> *a , const int *ja , const int *ia , const std::complex<double> *b , const int *jb , const int *ib , std::complex<double> *c , const int *ldc );
203 
204  extern "C"
205  void MKL_SCSRMULTCSR(const char *transa , const int *req, const int *sort, const int *m, const int *n , const int *k, const float *a , const int *ja , const int *ia , const float *b , const int *jb , const int *ib , float *c , int *jc, int *ic, int *nnz_max, int *info);
206 
207  extern "C"
208  void MKL_DCSRMULTCSR(const char *transa , const int* req, const int *sort, const int *m , const int *n , const int *k, const double *a , const int *ja , const int *ia , const double *b , const int *jb , const int *ib , double *c , int *jc, int *ic, int *nnz_max, int *info);
209 
210  extern "C"
211  void MKL_CCSRMULTCSR(const char *transa , const int *req, const int *sort, const int *m, const int *n , const int *k, const std::complex<float> *a , const int *ja , const int *ia , const std::complex<float> *b , const int *jb , const int *ib , std::complex<float> *c , int *jc, int *ic, int *nnz_max, int *info);
212 
213  extern "C"
214  void MKL_ZCSRMULTCSR(const char *transa , const int* req, const int *sort, const int *m , const int *n , const int *k, const std::complex<double> *a , const int *ja , const int *ia , const std::complex<double> *b , const int *jb , const int *ib , std::complex<double> *c , int *jc, int *ic, int *nnz_max, int *info);
215 
216 
217  extern "C"
218  void MKL_SCSRADD(char const * transa, int const *req, int const * job, int const * sort, int const * n, int const * k, float const * a, int const * ja, int const * ia, float const * beta, float const * b, int const * jb, int const * ib, float * c, int * jc, int * ic, int const * nnzmax, int const * ierr);
219 
220  extern "C"
221  void MKL_DCSRADD(char const * transa, int const * job, int const * sort, int const * n, int const * k, double const * a, int const * ja, int const * ia, double const * beta, double const * b, int const * jb, int const * ib, double * c, int * jc, int * ic, int const * nnzmax, int const * ierr);
222 
223  extern "C"
224  void MKL_CCSRADD(char const * transa, int const * job, int const * sort, int const * n, int const * k, std::complex<float> const * a, int const * ja, int const * ia, std::complex<float> const * beta, std::complex<float> const * b, int const * jb, int const * ib, std::complex<float> * c, int * jc, int * ic, int const * nnzmax, int const * ierr);
225 
226  extern "C"
227  void MKL_ZCSRADD(char const * transa, int const * job, int const * sort, int const * n, int const * k, std::complex<double> const * a, int const * ja, int const * ia, std::complex<double> const * beta, std::complex<double> const * b, int const * jb, int const * ib, std::complex<double> * c, int * jc, int * ic, int const * nnzmax, int const * ierr);
228 
229 }
230 
231 #endif
CTF_BLAS::MKL_ZCOOMM
void MKL_ZCOOMM(char *transa, int *m, int *n, int *k, std::complex< double > *alpha, char *matdescra, std::complex< double > const *val, int const *rowind, int const *colind, int *nnz, std::complex< double > const *b, int *ldb, std::complex< double > *beta, std::complex< double > *c, int *ldc)
CTF_BLAS
Definition: blas_symbs.cxx:3
CTF_BLAS::MKL_SCSRCOO
void MKL_SCSRCOO(int const *job, int *n, float *acsr, int const *ja, int const *ia, int *nnz, float *acoo, int const *rowind, int const *colind, int *info)
CTF_BLAS::MKL_CCSRADD
void MKL_CCSRADD(char const *transa, int const *job, int const *sort, int const *n, int const *k, std::complex< float > const *a, int const *ja, int const *ia, std::complex< float > const *beta, std::complex< float > const *b, int const *jb, int const *ib, std::complex< float > *c, int *jc, int *ic, int const *nnzmax, int const *ierr)
CTF_BLAS::MKL_DCOOMM
void MKL_DCOOMM(char *transa, int *m, int *n, int *k, double *alpha, char *matdescra, double const *val, int const *rowind, int const *colind, int *nnz, double const *b, int *ldb, double *beta, double *c, int *ldc)
CTF_BLAS::MKL_SCSRMULTD
void MKL_SCSRMULTD(const char *transa, const int *m, const int *n, const int *k, const float *a, const int *ja, const int *ia, const float *b, const int *jb, const int *ib, float *c, const int *ldc)
CTF_BLAS::MKL_ZCSRCOO
void MKL_ZCSRCOO(int const *job, int *n, std::complex< double > *acsr, int const *ja, int const *ia, int *nnz, std::complex< double > *acoo, int const *rowind, int const *colind, int *info)
CTF_BLAS::MKL_DCSRMULTD
void MKL_DCSRMULTD(const char *transa, const int *m, const int *n, const int *k, const double *a, const int *ja, const int *ia, const double *b, const int *jb, const int *ib, double *c, const int *ldc)
CTF_BLAS::MKL_SCSRADD
void MKL_SCSRADD(char const *transa, int const *req, int const *job, int const *sort, int const *n, int const *k, float const *a, int const *ja, int const *ia, float const *beta, float const *b, int const *jb, int const *ib, float *c, int *jc, int *ic, int const *nnzmax, int const *ierr)
CTF_BLAS::MKL_DCSRMM
void MKL_DCSRMM(const char *transa, const int *m, const int *n, const int *k, const double *alpha, const char *matdescra, const double *val, const int *indx, const int *pntrb, const int *pntre, const double *b, const int *ldb, const double *beta, double *c, const int *ldc)
CTF_BLAS::MKL_ZCSRADD
void MKL_ZCSRADD(char const *transa, int const *job, int const *sort, int const *n, int const *k, std::complex< double > const *a, int const *ja, int const *ia, std::complex< double > const *beta, std::complex< double > const *b, int const *jb, int const *ib, std::complex< double > *c, int *jc, int *ic, int const *nnzmax, int const *ierr)
CTF_BLAS::MKL_DCSRCOO
void MKL_DCSRCOO(int const *job, int *n, double *acsr, int const *ja, int const *ia, int *nnz, double *acoo, int const *rowind, int const *colind, int *info)
CTF_BLAS::MKL_SCOOMM
void MKL_SCOOMM(char *transa, int *m, int *n, int *k, float *alpha, char *matdescra, float const *val, int const *rowind, int const *colind, int *nnz, float const *b, int *ldb, float *beta, float *c, int *ldc)
CTF_BLAS::MKL_CCSRMULTD
void MKL_CCSRMULTD(const char *transa, const int *m, const int *n, const int *k, const std::complex< float > *a, const int *ja, const int *ia, const std::complex< float > *b, const int *jb, const int *ib, std::complex< float > *c, const int *ldc)
CTF_BLAS::MKL_ZCSRMULTCSR
void MKL_ZCSRMULTCSR(const char *transa, const int *req, const int *sort, const int *m, const int *n, const int *k, const std::complex< double > *a, const int *ja, const int *ia, const std::complex< double > *b, const int *jb, const int *ib, std::complex< double > *c, int *jc, int *ic, int *nnz_max, int *info)
CTF_BLAS::MKL_CCSRMULTCSR
void MKL_CCSRMULTCSR(const char *transa, const int *req, const int *sort, const int *m, const int *n, const int *k, const std::complex< float > *a, const int *ja, const int *ia, const std::complex< float > *b, const int *jb, const int *ib, std::complex< float > *c, int *jc, int *ic, int *nnz_max, int *info)
CTF_BLAS::MKL_ZCSRMM
void MKL_ZCSRMM(const char *transa, const int *m, const int *n, const int *k, const std::complex< double > *alpha, const char *matdescra, const std::complex< double > *val, const int *indx, const int *pntrb, const int *pntre, const std::complex< double > *b, const int *ldb, const std::complex< double > *beta, std::complex< double > *c, const int *ldc)
CTF_BLAS::MKL_CCSRCOO
void MKL_CCSRCOO(int const *job, int *n, std::complex< float > *acsr, int const *ja, int const *ia, int *nnz, std::complex< float > *acoo, int const *rowind, int const *colind, int *info)
CTF_BLAS::MKL_DCSRMULTCSR
void MKL_DCSRMULTCSR(const char *transa, const int *req, const int *sort, const int *m, const int *n, const int *k, const double *a, const int *ja, const int *ia, const double *b, const int *jb, const int *ib, double *c, int *jc, int *ic, int *nnz_max, int *info)
CTF_BLAS::MKL_ZCSRMULTD
void MKL_ZCSRMULTD(const char *transa, const int *m, const int *n, const int *k, const std::complex< double > *a, const int *ja, const int *ia, const std::complex< double > *b, const int *jb, const int *ib, std::complex< double > *c, const int *ldc)
CTF_BLAS::MKL_SCSRMULTCSR
void MKL_SCSRMULTCSR(const char *transa, const int *req, const int *sort, const int *m, const int *n, const int *k, const float *a, const int *ja, const int *ia, const float *b, const int *jb, const int *ib, float *c, int *jc, int *ic, int *nnz_max, int *info)
CTF_BLAS::MKL_CCOOMM
void MKL_CCOOMM(char *transa, int *m, int *n, int *k, std::complex< float > *alpha, char *matdescra, std::complex< float > const *val, int const *rowind, int const *colind, int *nnz, std::complex< float > const *b, int *ldb, std::complex< float > *beta, std::complex< float > *c, int *ldc)
CTF_BLAS::MKL_CCSRMM
void MKL_CCSRMM(const char *transa, const int *m, const int *n, const int *k, const std::complex< float > *alpha, const char *matdescra, const std::complex< float > *val, const int *indx, const int *pntrb, const int *pntre, const std::complex< float > *b, const int *ldb, const std::complex< float > *beta, std::complex< float > *c, const int *ldc)
CTF_BLAS::MKL_SCSRMM
void MKL_SCSRMM(const char *transa, const int *m, const int *n, const int *k, const float *alpha, const char *matdescra, const float *val, const int *indx, const int *pntrb, const int *pntre, const float *b, const int *ldb, const float *beta, float *c, const int *ldc)
CTF_BLAS::MKL_DCSRADD
void MKL_DCSRADD(char const *transa, int const *job, int const *sort, int const *n, int const *k, double const *a, int const *ja, int const *ia, double const *beta, double const *b, int const *jb, int const *ib, double *c, int *jc, int *ic, int const *nnzmax, int const *ierr)