Teuchos_Details_LapackLongDouble.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_LAPACKLONGDOUBLE_HPP
#define TEUCHOS_DETAILS_LAPACKLONGDOUBLE_HPP


#include "Teuchos_ConfigDefs.hpp"


#ifdef HAVE_TEUCHOS_LONG_DOUBLE
namespace Teuchos {
namespace Details {

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

  void
  LASWP (const int N, long double 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 long double A[], const int LDA, const int IPIV[],
         long double B[], const int LDB, int* INFO) const;

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

  long double
  LAPY2 (const long double& x, const long double& y) const;

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

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

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

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

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

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

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

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

  void
  GBTRF (const int m,
         const int n,
         const int kl,
         const int ku,
         long double* 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 long double* A,
         const int lda,
         const int* IPIV,
         long double* B,
         const int ldb,
         int* info) const;
};

} // namespace Details
} // namespace Teuchos
#endif // HAVE_TEUCHOS_LONG_DOUBLE

#endif // TEUCHOS_DETAILS_LAPACKLONGDOUBLE_HPP