17 #ifndef dealii_blas_extension_templates_h 18 #define dealii_blas_extension_templates_h 20 #include <deal.II/base/config.h> 22 #include <deal.II/lac/lapack_support.h> 24 #ifdef DEAL_II_HAVE_FP_EXCEPTIONS 29 #ifdef DEAL_II_LAPACK_WITH_MKL 32 # define MKL_Complex8 std::complex<float> 33 # define MKL_Complex16 std::complex<double> 34 # include <mkl_trans.h> 38 DEAL_II_NAMESPACE_OPEN
41 template <
typename number1,
typename number2,
typename number3>
59 omatcopy(
char ordering,
69 #ifdef DEAL_II_LAPACK_WITH_MKL 70 mkl_somatcopy(ordering, trans, rows, cols, alpha, A, lda, B, ldb);
82 #endif // DEAL_II_LAPACK_WITH_MKL 88 omatcopy(
char ordering,
98 #ifdef DEAL_II_LAPACK_WITH_MKL 99 mkl_domatcopy(ordering, trans, rows, cols, alpha, A, lda, B, ldb);
111 #endif // DEAL_II_LAPACK_WITH_MKL 117 omatcopy(
char ordering,
121 const std::complex<float> alpha,
122 const std::complex<float> *A,
124 std::complex<float> * B,
127 #ifdef DEAL_II_LAPACK_WITH_MKL 128 mkl_comatcopy(ordering, trans, rows, cols, alpha, A, lda, B, ldb);
140 #endif // DEAL_II_LAPACK_WITH_MKL 146 omatcopy(
char ordering,
150 const std::complex<double> alpha,
151 const std::complex<double> *A,
153 std::complex<double> * B,
156 #ifdef DEAL_II_LAPACK_WITH_MKL 157 mkl_zomatcopy(ordering, trans, rows, cols, alpha, A, lda, B, ldb);
169 #endif // DEAL_II_LAPACK_WITH_MKL 172 DEAL_II_NAMESPACE_CLOSE
#define Assert(cond, exc)
static ::ExceptionBase & ExcMissing(std::string arg1)
static ::ExceptionBase & ExcNotImplemented()