Teuchos_Details_Lapack128.hpp

Go to the documentation of this file.

// @HEADER
// *****************************************************************************
//                    Teuchos: Common Tools Package
//
// Copyright 2004 NTESS and the Teuchos contributors.
// SPDX-License-Identifier: BSD-3-Clause
// *****************************************************************************
// @HEADER

#ifndef TEUCHOS_DETAILS_LAPACK128_HPP
#define TEUCHOS_DETAILS_LAPACK128_HPP


#include "Teuchos_ConfigDefs.hpp"


#ifdef HAVE_TEUCHOSCORE_QUADMATH
namespace Teuchos {
namespace Details {

class Lapack128 {
public:
  void
  GETRF (const int M, const int N, __float128 A[],
         const int LDA, int IPIV[], int* INFO) const;

  void
  LASWP (const int N, __float128 A[], const int LDA, const int K1,
         const int K2, const int IPIV[], const int INCX) const;

  void
  GETRS (const char TRANS, const int N, const int NRHS,
         const __float128 A[], const int LDA, const int IPIV[],
         __float128 B[], const int LDB, int* INFO) const;

  void
  GETRI (const int N, __float128 A[], const int LDA, int IPIV[],
         __float128 WORK[], const int LWORK, int* INFO) const;

  __float128
  LAPY2 (const __float128& x, const __float128& y) const;

  void
  LARFG (const int N, __float128* const ALPHA,
         __float128 X[], const int INCX, __float128* const TAU) const;

  void
  LARF (const char side,
        const int m,
        const int n,
        const __float128 v[],
        const int incv,
        const __float128 tau,
        __float128 C[],
        const int ldc,
        __float128 work[]) const;

  void
  ORM2R (const char side, const char trans,
         const int m, const int n, const int k,
         const __float128 A[], const int lda,
         const __float128* const tau,
         __float128 C[], const int ldc,
         __float128 work[], int* const info) const;

  void
  GEQR2 (const int M,
         const int N,
         __float128 A[],
         const int LDA,
         __float128 TAU[],
         __float128 WORK[],
         int* const INFO) const;

  void
  GEQRF (const int M,
         const int N,
         __float128 A[],
         const int LDA,
         __float128 TAU[],
         __float128 WORK[],
         const int LWORK,
         int* const INFO) const;

  void
  ORGQR (const int M,
         const int N,
         const int K,
         __float128 A[],
         const int LDA,
         const __float128 TAU[],
         __float128 WORK[],
         const int LWORK,
         int* const INFO) const;

  void
  UNGQR (const int M,
         const int N,
         const int K,
         __float128 A[],
         const int LDA,
         const __float128 TAU[],
         __float128 WORK[],
         const int LWORK,
         int* const INFO) const;

  void
  LASCL (const char TYPE,
         const int kl,
         const int ku,
         const __float128 cfrom,
         const __float128 cto,
         const int m,
         const int n,
         __float128* A,
         const int lda,
         int* info) const;

  void
  GBTRF (const int m,
         const int n,
         const int kl,
         const int ku,
         __float128* A,
         const int lda,
         int* IPIV,
         int* info) const;

  void
  GBTRS (const char TRANS,
         const int n,
         const int kl,
         const int ku,
         const int nrhs,
         const __float128* A,
         const int lda,
         const int* IPIV,
         __float128* B,
         const int ldb,
         int* info) const;
};

} // namespace Details
} // namespace Teuchos
#endif // HAVE_TEUCHOSCORE_QUADMATH

#endif // TEUCHOS_DETAILS_LAPACK128_HPP