Teuchos_Details_Lapack128.hpp

Go to the documentation of this file.

// @HEADER
// ***********************************************************************
//
//                    Teuchos: Common Tools Package
//                 Copyright (2004) Sandia Corporation
//
// Under terms of Contract DE-AC04-94AL85000, there is a non-exclusive
// license for use of this work by or on behalf of the U.S. Government.
//
// Redistribution and use in source and binary forms, with or without
// modification, are permitted provided that the following conditions are
// met:
//
// 1. Redistributions of source code must retain the above copyright
// notice, this list of conditions and the following disclaimer.
//
// 2. Redistributions in binary form must reproduce the above copyright
// notice, this list of conditions and the following disclaimer in the
// documentation and/or other materials provided with the distribution.
//
// 3. Neither the name of the Corporation nor the names of the
// contributors may be used to endorse or promote products derived from
// this software without specific prior written permission.
//
// THIS SOFTWARE IS PROVIDED BY SANDIA CORPORATION "AS IS" AND ANY
// EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
// IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
// PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL SANDIA CORPORATION OR THE
// CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
// EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
// PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
// PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
// LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
// NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
// SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
//
// Questions? Contact Michael A. Heroux (maherou@sandia.gov)
//
// ***********************************************************************
// @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