35#ifndef _BLAZE_MATH_LAPACK_CLAPACK_GETRS_H_
36#define _BLAZE_MATH_LAPACK_CLAPACK_GETRS_H_
57#if !defined(INTEL_MKL_VERSION) && !defined(BLAS_H)
154#if defined(INTEL_MKL_VERSION)
158 sgetrs_( &
trans, &n, &nrhs,
const_cast<float*
>( A ), &lda,
159 const_cast<blas_int_t*
>( ipiv ), B, &ldb, info
160#
if !defined(INTEL_MKL_VERSION) && !defined(BLAS_H)
211#if defined(INTEL_MKL_VERSION)
215 dgetrs_( &
trans, &n, &nrhs,
const_cast<double*
>( A ), &lda,
216 const_cast<blas_int_t*
>( ipiv ), B, &ldb, info
217#
if !defined(INTEL_MKL_VERSION) && !defined(BLAS_H)
270#if defined(INTEL_MKL_VERSION)
273 using ET = MKL_Complex8;
278 cgetrs_( &
trans, &n, &nrhs,
const_cast<ET*
>(
reinterpret_cast<const ET*
>( A ) ),
279 &lda,
const_cast<blas_int_t*
>( ipiv ),
reinterpret_cast<ET*
>( B ), &ldb, info
280#
if !defined(INTEL_MKL_VERSION) && !defined(BLAS_H)
333#if defined(INTEL_MKL_VERSION)
336 using ET = MKL_Complex16;
341 zgetrs_( &
trans, &n, &nrhs,
const_cast<ET*
>(
reinterpret_cast<const ET*
>( A ) ),
342 &lda,
const_cast<blas_int_t*
>( ipiv ),
reinterpret_cast<ET*
>( B ), &ldb, info
343#
if !defined(INTEL_MKL_VERSION) && !defined(BLAS_H)
Header file for the complex data type.
Complex data type of the Blaze library.
decltype(auto) trans(const DenseMatrix< MT, SO > &dm)
Calculation of the transpose of the given dense matrix.
Definition: DMatTransExpr.h:766
void getrs(const DenseMatrix< MT1, SO1 > &A, DenseMatrix< MT2, SO2 > &B, char trans, const blas_int_t *ipiv)
LAPACK kernel for the substitution step of solving a general linear system of equations ( ).
Definition: getrs.h:310
int32_t blas_int_t
Signed integer type used in the BLAS/LAPACK wrapper functions.
Definition: Types.h:64
#define BLAZE_STATIC_ASSERT(expr)
Compile time assertion macro.
Definition: StaticAssert.h:112
size_t fortran_charlen_t
Type of the hidden arguments of character type within a Fortran forward declaration.
Definition: Types.h:186
Header file for basic BLAS type definitions.
Header file for basic type definitions.