Teuchos - Trilinos Tools Package Version of the Day
Loading...
Searching...
No Matches
Teuchos_Details_LapackLongDouble.cpp
1// @HEADER
2// *****************************************************************************
3// Teuchos: Common Tools Package
4//
5// Copyright 2004 NTESS and the Teuchos contributors.
6// SPDX-License-Identifier: BSD-3-Clause
7// *****************************************************************************
8// @HEADER
9
10#include "Teuchos_Details_LapackLongDouble.hpp"
11#include "Teuchos_TestForException.hpp"
12
13#ifdef HAVE_TEUCHOS_LONG_DOUBLE
14namespace Teuchos {
15namespace Details {
16
17void
18LapackLongDouble::
19GETRF (const int M, const int N, long double A[],
20 const int LDA, int IPIV[], int* INFO) const
21{
22 TEUCHOS_TEST_FOR_EXCEPTION
23 (true, std::logic_error, "Teuchos::LAPACK<int, long double>::GETRF: Not implemented yet.");
24}
25
26void
27LapackLongDouble::
28LASWP (const int N, long double A[], const int LDA, const int K1,
29 const int K2, const int IPIV[], const int INCX) const
30{
31 TEUCHOS_TEST_FOR_EXCEPTION
32 (true, std::logic_error, "Teuchos::LAPACK<int, long double>::LASWP: Not implemented yet.");
33}
34
35void
36LapackLongDouble::
37GETRI (const int /* N */, long double /* A */ [], const int /* LDA */,
38 int /* IPIV */ [], long double /* WORK */ [], const int /* LWORK */,
39 int* /* INFO */) const
40{
41 TEUCHOS_TEST_FOR_EXCEPTION
42 (true, std::logic_error, "Teuchos::LAPACK<int, long double>::GETRI: Not implemented yet.");
43}
44
45
46void
47LapackLongDouble::
48GETRS (const char TRANS, const int N, const int NRHS,
49 const long double A[], const int LDA, const int IPIV[],
50 long double B[], const int LDB, int* INFO) const
51{
52 TEUCHOS_TEST_FOR_EXCEPTION
53 (true, std::logic_error, "Teuchos::LAPACK<int, long double>::GETRS: Not implemented yet.");
54}
55
56long double
57LapackLongDouble::
58LAPY2 (const long double& x, const long double& y) const
59{
60 TEUCHOS_TEST_FOR_EXCEPTION
61 (true, std::logic_error, "Teuchos::LAPACK<int, long double>::LAPY2: Not implemented yet.");
62}
63
64void
65LapackLongDouble::
66ORM2R (const char side, const char trans,
67 const int m, const int n, const int k,
68 const long double A[], const int lda,
69 const long double* const tau,
70 long double C[], const int ldc,
71 long double work[], int* const info) const
72{
73 TEUCHOS_TEST_FOR_EXCEPTION
74 (true, std::logic_error, "Teuchos::LAPACK<int, long double>::ORM2R: Not implemented yet.");
75}
76
77namespace { // (anonymous)
78
79 int
80 ILADLC (const int m, const int n, const long double A[], const int lda)
81 {
82 TEUCHOS_TEST_FOR_EXCEPTION
83 (true, std::logic_error, "Teuchos::LAPACK<int, long double>::ILADLC: Not implemented yet.");
84 return 0;
85 }
86
87 int
88 ILADLR (const int m, const int n, const long double A[], const int lda)
89 {
90 TEUCHOS_TEST_FOR_EXCEPTION
91 (true, std::logic_error, "Teuchos::LAPACK<int, long double>::ILADLR: Not implemented yet.");
92 return 0;
93 }
94} // namespace (anonymous)
95
96void
97LapackLongDouble::
98LARF (const char side,
99 const int m,
100 const int n,
101 const long double v[],
102 const int incv,
103 const long double tau,
104 long double C[],
105 const int ldc,
106 long double work[]) const
107{
108 TEUCHOS_TEST_FOR_EXCEPTION
109 (true, std::logic_error, "Teuchos::LAPACK<int, long double>::LARF: Not implemented yet.");
110}
111
112
113void
114LapackLongDouble::
115LARFG (const int N, long double* const ALPHA,
116 long double X[], const int INCX, long double* const TAU) const
117{
118 TEUCHOS_TEST_FOR_EXCEPTION
119 (true, std::logic_error, "Teuchos::LAPACK<int, long double>::LARFG: Not implemented yet.");
120}
121
122void
123LapackLongDouble::
124GEQR2 (const int /* M */,
125 const int /* N */,
126 long double /* A */ [],
127 const int /* LDA */,
128 long double /* TAU */ [],
129 long double /* WORK */ [],
130 int* const /* INFO */ ) const
131{
132 TEUCHOS_TEST_FOR_EXCEPTION
133 (true, std::logic_error, "Teuchos::LAPACK<int, long double>::GEQR2: Not implemented yet.");
134}
135
136void
137LapackLongDouble::
138GEQRF (const int M,
139 const int N,
140 long double A[],
141 const int LDA,
142 long double TAU[],
143 long double WORK[],
144 const int LWORK,
145 int* const INFO) const
146{
147 TEUCHOS_TEST_FOR_EXCEPTION
148 (true, std::logic_error, "Teuchos::LAPACK<int, long double>::GEQRF: Not implemented yet.");
149}
150
151void
152LapackLongDouble::
153ORGQR (const int /* M */,
154 const int /* N */,
155 const int /* K */,
156 long double /* A */ [],
157 const int /* LDA */,
158 const long double /* TAU */ [],
159 long double /* WORK */ [],
160 const int /* LWORK */,
161 int* const /* INFO */) const
162{
163 TEUCHOS_TEST_FOR_EXCEPTION
164 (true, std::logic_error, "Teuchos::LAPACK<int, long double>::GEQR2: Not implemented yet.");
165}
166
167void
168LapackLongDouble::
169UNGQR (const int /* M */,
170 const int /* N */,
171 const int /* K */,
172 long double /* A */ [],
173 const int /* LDA */,
174 const long double /* TAU */ [],
175 long double /* WORK */ [],
176 const int /* LWORK */,
177 int* const /* INFO */) const
178{
179 TEUCHOS_TEST_FOR_EXCEPTION
180 (true, std::logic_error, "Teuchos::LAPACK<int, long double>::GEQR2: Not implemented yet.");
181}
182
183void
184LapackLongDouble::
185LASCL (const char TYPE,
186 const int kl,
187 const int ku,
188 const long double cfrom,
189 const long double cto,
190 const int m,
191 const int n,
192 long double* A,
193 const int lda,
194 int* info) const
195{
196 TEUCHOS_TEST_FOR_EXCEPTION
197 (true, std::logic_error, "Teuchos::LAPACK<int, long double>::LASCL: Not implemented yet.");
198}
199
200void
201LapackLongDouble::
202GBTRF (const int m,
203 const int n,
204 const int kl,
205 const int ku,
206 long double* A,
207 const int lda,
208 int* IPIV,
209 int* info) const
210{
211 TEUCHOS_TEST_FOR_EXCEPTION
212 (true, std::logic_error, "Teuchos::LAPACK<int, long double>::GBTRF: Not implemented yet.");
213}
214
215void
216LapackLongDouble::
217GBTRS (const char TRANS,
218 const int n,
219 const int kl,
220 const int ku,
221 const int nrhs,
222 const long double* A,
223 const int lda,
224 const int* IPIV,
225 long double* B,
226 const int ldb,
227 int* info) const
228{
229 TEUCHOS_TEST_FOR_EXCEPTION
230 (true, std::logic_error, "Teuchos::LAPACK<int, long double>::GBTRS: Not implemented yet.");
231}
232
233} // namespace Details
234} // namespace Teuchos
235#endif // HAVE_TEUCHOS_LONG_DOUBLE
Teuchos_Details_LapackLongDouble.hpp
Declaration and definition of Teuchos::Details::LapackLongDouble, a partial implementation of Teuchos...
Teuchos_TestForException.hpp
Standard test and throw macros.
TEUCHOS_TEST_FOR_EXCEPTION
#define TEUCHOS_TEST_FOR_EXCEPTION(throw_exception_test, Exception, msg)
Macro for throwing an exception with breakpointing to ease debugging.
Definition Teuchos_TestForException.hpp:146
Teuchos
The Teuchos namespace contains all of the classes, structs and enums used by Teuchos,...
Generated by doxygen 1.17.0