Teuchos - Trilinos Tools Package Version of the Day
Loading...
Searching...
No Matches
Teuchos_Details_LapackLongDouble.cpp
1// @HEADER
2// ***********************************************************************
3//
4// Teuchos: Common Tools Package
5// Copyright (2004) Sandia Corporation
6//
7// Under terms of Contract DE-AC04-94AL85000, there is a non-exclusive
8// license for use of this work by or on behalf of the U.S. Government.
9//
10// Redistribution and use in source and binary forms, with or without
11// modification, are permitted provided that the following conditions are
12// met:
13//
14// 1. Redistributions of source code must retain the above copyright
15// notice, this list of conditions and the following disclaimer.
16//
17// 2. Redistributions in binary form must reproduce the above copyright
18// notice, this list of conditions and the following disclaimer in the
19// documentation and/or other materials provided with the distribution.
20//
21// 3. Neither the name of the Corporation nor the names of the
22// contributors may be used to endorse or promote products derived from
23// this software without specific prior written permission.
24//
25// THIS SOFTWARE IS PROVIDED BY SANDIA CORPORATION "AS IS" AND ANY
26// EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
27// IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
28// PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL SANDIA CORPORATION OR THE
29// CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
30// EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
31// PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
32// PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
33// LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
34// NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
35// SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
36//
37// Questions? Contact Michael A. Heroux (maherou@sandia.gov)
38//
39// ***********************************************************************
40// @HEADER
41
42#include "Teuchos_Details_LapackLongDouble.hpp"
43#include "Teuchos_TestForException.hpp"
44
45#ifdef HAVE_TEUCHOS_LONG_DOUBLE
46namespace Teuchos {
47namespace Details {
48
49void
50LapackLongDouble::
51GETRF (const int M, const int N, long double A[],
52 const int LDA, int IPIV[], int* INFO) const
53{
54 TEUCHOS_TEST_FOR_EXCEPTION
55 (true, std::logic_error, "Teuchos::LAPACK<int, long double>::GETRF: Not implemented yet.");
56}
57
58void
59LapackLongDouble::
60LASWP (const int N, long double A[], const int LDA, const int K1,
61 const int K2, const int IPIV[], const int INCX) const
62{
63 TEUCHOS_TEST_FOR_EXCEPTION
64 (true, std::logic_error, "Teuchos::LAPACK<int, long double>::LASWP: Not implemented yet.");
65}
66
67void
68LapackLongDouble::
69GETRI (const int /* N */, long double /* A */ [], const int /* LDA */,
70 int /* IPIV */ [], long double /* WORK */ [], const int /* LWORK */,
71 int* /* INFO */) const
72{
73 TEUCHOS_TEST_FOR_EXCEPTION
74 (true, std::logic_error, "Teuchos::LAPACK<int, long double>::GETRI: Not implemented yet.");
75}
76
77
78void
79LapackLongDouble::
80GETRS (const char TRANS, const int N, const int NRHS,
81 const long double A[], const int LDA, const int IPIV[],
82 long double B[], const int LDB, int* INFO) const
83{
84 TEUCHOS_TEST_FOR_EXCEPTION
85 (true, std::logic_error, "Teuchos::LAPACK<int, long double>::GETRS: Not implemented yet.");
86}
87
88long double
89LapackLongDouble::
90LAPY2 (const long double& x, const long double& y) const
91{
92 TEUCHOS_TEST_FOR_EXCEPTION
93 (true, std::logic_error, "Teuchos::LAPACK<int, long double>::LAPY2: Not implemented yet.");
94}
95
96void
97LapackLongDouble::
98ORM2R (const char side, const char trans,
99 const int m, const int n, const int k,
100 const long double A[], const int lda,
101 const long double* const tau,
102 long double C[], const int ldc,
103 long double work[], int* const info) const
104{
105 TEUCHOS_TEST_FOR_EXCEPTION
106 (true, std::logic_error, "Teuchos::LAPACK<int, long double>::ORM2R: Not implemented yet.");
107}
108
109namespace { // (anonymous)
110
111 int
112 ILADLC (const int m, const int n, const long double A[], const int lda)
113 {
114 TEUCHOS_TEST_FOR_EXCEPTION
115 (true, std::logic_error, "Teuchos::LAPACK<int, long double>::ILADLC: Not implemented yet.");
116 return 0;
117 }
118
119 int
120 ILADLR (const int m, const int n, const long double A[], const int lda)
121 {
122 TEUCHOS_TEST_FOR_EXCEPTION
123 (true, std::logic_error, "Teuchos::LAPACK<int, long double>::ILADLR: Not implemented yet.");
124 return 0;
125 }
126} // namespace (anonymous)
127
128void
129LapackLongDouble::
130LARF (const char side,
131 const int m,
132 const int n,
133 const long double v[],
134 const int incv,
135 const long double tau,
136 long double C[],
137 const int ldc,
138 long double work[]) const
139{
140 TEUCHOS_TEST_FOR_EXCEPTION
141 (true, std::logic_error, "Teuchos::LAPACK<int, long double>::LARF: Not implemented yet.");
142}
143
144
145void
146LapackLongDouble::
147LARFG (const int N, long double* const ALPHA,
148 long double X[], const int INCX, long double* const TAU) const
149{
150 TEUCHOS_TEST_FOR_EXCEPTION
151 (true, std::logic_error, "Teuchos::LAPACK<int, long double>::LARFG: Not implemented yet.");
152}
153
154void
155LapackLongDouble::
156GEQR2 (const int /* M */,
157 const int /* N */,
158 long double /* A */ [],
159 const int /* LDA */,
160 long double /* TAU */ [],
161 long double /* WORK */ [],
162 int* const /* INFO */ ) const
163{
164 TEUCHOS_TEST_FOR_EXCEPTION
165 (true, std::logic_error, "Teuchos::LAPACK<int, long double>::GEQR2: Not implemented yet.");
166}
167
168void
169LapackLongDouble::
170GEQRF (const int M,
171 const int N,
172 long double A[],
173 const int LDA,
174 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>::GEQRF: Not implemented yet.");
181}
182
183void
184LapackLongDouble::
185ORGQR (const int /* M */,
186 const int /* N */,
187 const int /* K */,
188 long double /* A */ [],
189 const int /* LDA */,
190 const long double /* TAU */ [],
191 long double /* WORK */ [],
192 const int /* LWORK */,
193 int* const /* INFO */) const
194{
195 TEUCHOS_TEST_FOR_EXCEPTION
196 (true, std::logic_error, "Teuchos::LAPACK<int, long double>::GEQR2: Not implemented yet.");
197}
198
199void
200LapackLongDouble::
201UNGQR (const int /* M */,
202 const int /* N */,
203 const int /* K */,
204 long double /* A */ [],
205 const int /* LDA */,
206 const long double /* TAU */ [],
207 long double /* WORK */ [],
208 const int /* LWORK */,
209 int* const /* INFO */) const
210{
211 TEUCHOS_TEST_FOR_EXCEPTION
212 (true, std::logic_error, "Teuchos::LAPACK<int, long double>::GEQR2: Not implemented yet.");
213}
214
215void
216LapackLongDouble::
217LASCL (const char TYPE,
218 const int kl,
219 const int ku,
220 const long double cfrom,
221 const long double cto,
222 const int m,
223 const int n,
224 long double* A,
225 const int lda,
226 int* info) const
227{
228 TEUCHOS_TEST_FOR_EXCEPTION
229 (true, std::logic_error, "Teuchos::LAPACK<int, long double>::LASCL: Not implemented yet.");
230}
231
232void
233LapackLongDouble::
234GBTRF (const int m,
235 const int n,
236 const int kl,
237 const int ku,
238 long double* A,
239 const int lda,
240 int* IPIV,
241 int* info) const
242{
243 TEUCHOS_TEST_FOR_EXCEPTION
244 (true, std::logic_error, "Teuchos::LAPACK<int, long double>::GBTRF: Not implemented yet.");
245}
246
247void
248LapackLongDouble::
249GBTRS (const char TRANS,
250 const int n,
251 const int kl,
252 const int ku,
253 const int nrhs,
254 const long double* A,
255 const int lda,
256 const int* IPIV,
257 long double* B,
258 const int ldb,
259 int* info) const
260{
261 TEUCHOS_TEST_FOR_EXCEPTION
262 (true, std::logic_error, "Teuchos::LAPACK<int, long double>::GBTRS: Not implemented yet.");
263}
264
265} // namespace Details
266} // namespace Teuchos
267#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:178
Teuchos
The Teuchos namespace contains all of the classes, structs and enums used by Teuchos,...
Generated by doxygen 1.17.0