/******************************************************************************* * * TRIQS: a Toolbox for Research in Interacting Quantum Systems * * Copyright (C) 2012 by O. Parcollet * * TRIQS is free software: you can redistribute it and/or modify it under the * terms of the GNU General Public License as published by the Free Software * Foundation, either version 3 of the License, or (at your option) any later * version. * * TRIQS is distributed in the hope that it will be useful, but WITHOUT ANY * WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS * FOR A PARTICULAR PURPOSE. See the GNU General Public License for more * details. * * You should have received a copy of the GNU General Public License along with * TRIQS. If not, see <http://www.gnu.org/licenses/>. * ******************************************************************************/ #ifndef TRIQS_ARRAYS_IS_BLAS_LAPACK_TYPE_H #define TRIQS_ARRAYS_IS_BLAS_LAPACK_TYPE_H #include <type_traits> #include <triqs/utility/fortran_mangling.hpp> namespace triqs { namespace arrays { // a trait to detect all types for which blas/lapack bindings is defined // at the moment double and std::complex<double> // We don't need simple precision for the moment... To be added ? template<typename T> struct is_blas_lapack_type : std::false_type{}; template<> struct is_blas_lapack_type <double> : std::true_type{}; template<> struct is_blas_lapack_type <std::complex<double>> : std::true_type{}; template<typename T> struct is_blas_lapack_type< const T> : is_blas_lapack_type<T>{}; // true iif all T::value_type are the same template<typename ... T> struct have_same_value_type; template<typename T0> struct have_same_value_type<T0>: std::true_type{}; template<typename T0, typename T1, typename ... T> struct have_same_value_type<T0,T1,T...>: std::integral_constant<bool, std::is_same< typename std::remove_cv<typename T0::value_type>::type, typename std::remove_cv<typename T1::value_type>::type> ::value && have_same_value_type<T1,T...>::value> {}; namespace blas_lapack_tools { template <typename MatrixType> char get_trans(MatrixType const & A, bool transpose) { return (A.memory_layout_is_fortran() ? (transpose ? 'T' : 'N') : (transpose ? 'N' : 'T') ); } // returns the # of rows of the matrix *seen* as fortran matrix template <typename MatrixType> int get_n_rows (MatrixType const & A) { return (A.memory_layout_is_fortran() ? first_dim(A) : second_dim(A)); } // returns the # of cols of the matrix *seen* as fortran matrix template <typename MatrixType> int get_n_cols (MatrixType const & A) { return (A.memory_layout_is_fortran() ? second_dim(A) : first_dim(A)); } template <typename MatrixType> int get_ld (MatrixType const & A) { return A.indexmap().strides()[A.memory_layout_is_fortran() ? 1 : 0]; } } }}// namespace #endif