35#ifndef _BLAZE_MATH_LAPACK_CLAPACK_SYTRS_H_
36#define _BLAZE_MATH_LAPACK_CLAPACK_SYTRS_H_
57#if !defined(INTEL_MKL_VERSION)
144#if defined(INTEL_MKL_VERSION)
148 ssytrs_( &uplo, &n, &nrhs,
const_cast<float*
>( A ), &lda,
149 const_cast<blas_int_t*
>( ipiv ), B, &ldb, info
150#
if !defined(INTEL_MKL_VERSION)
195#if defined(INTEL_MKL_VERSION)
199 dsytrs_( &uplo, &n, &nrhs,
const_cast<double*
>( A ), &lda,
200 const_cast<blas_int_t*
>( ipiv ), B, &ldb, info
201#
if !defined(INTEL_MKL_VERSION)
248#if defined(INTEL_MKL_VERSION)
251 using ET = MKL_Complex8;
256 csytrs_( &uplo, &n, &nrhs,
const_cast<ET*
>(
reinterpret_cast<const ET*
>( A ) ),
257 &lda,
const_cast<blas_int_t*
>( ipiv ),
reinterpret_cast<ET*
>( B ), &ldb, info
258#
if !defined(INTEL_MKL_VERSION)
305#if defined(INTEL_MKL_VERSION)
308 using ET = MKL_Complex16;
313 zsytrs_( &uplo, &n, &nrhs,
const_cast<ET*
>(
reinterpret_cast<const ET*
>( A ) ),
314 &lda,
const_cast<blas_int_t*
>( ipiv ),
reinterpret_cast<ET*
>( B ), &ldb, info
315#
if !defined(INTEL_MKL_VERSION)
Header file for the complex data type.
Complex data type of the Blaze library.
void sytrs(const DenseMatrix< MT1, SO1 > &A, DenseMatrix< MT2, SO2 > &B, char uplo, const blas_int_t *ipiv)
LAPACK kernel for the substitution step of solving a symmetric indefinite linear system of equations ...
Definition: sytrs.h:311
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.