Teuchos - Trilinos Tools Package  Version of the Day
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Groups Pages
Teuchos_LAPACK_wrappers.hpp
Go to the documentation of this file.
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 #ifndef _TEUCHOS_LAPACK_WRAPPERS_HPP_
43 #define _TEUCHOS_LAPACK_WRAPPERS_HPP_
44 
45 #include "Teuchos_ConfigDefs.hpp"
46 
52 /* A) Define PREFIX and Teuchos_fcd based on platform. */
53 
54 #if defined(INTEL_CXML)
55 # define PREFIX __stdcall
56 # define Teuchos_fcd const char *, unsigned int
57 #elif defined(INTEL_MKL)
58 # define PREFIX
59 # define Teuchos_fcd const char *
60 #else
61 # define PREFIX
62 # define Teuchos_fcd const char *
63 #endif
64 
65 // in progress - added for EQUED which is a modified char *, not const
66 #if defined(INTEL_CXML)
67 # define PREFIX __stdcall
68 # define Teuchos_nonconst_fcd char *, unsigned int // Need to evaluate unsigned int - CXML deprecated
69 #elif defined(INTEL_MKL)
70 # define PREFIX
71 # define Teuchos_nonconst_fcd char *
72 #else
73 # define PREFIX
74 # define Teuchos_nonconst_fcd char *
75 #endif
76 
77 
78 /* B) Take care of of the link name case */
79 
80 #define DGEQRF_F77 F77_BLAS_MANGLE(dgeqrf,DGEQRF)
81 #define DGEQR2_F77 F77_BLAS_MANGLE(dgeqr2,DGEQR2)
82 #define DGETRF_F77 F77_BLAS_MANGLE(dgetrf,DGETRF)
83 #define DGETRS_F77 F77_BLAS_MANGLE(dgetrs,DGETRS)
84 #define DLASCL_F77 F77_BLAS_MANGLE(dlascl,DLASCL)
85 #define DLASWP_F77 F77_BLAS_MANGLE(dlaswp,DLASWP)
86 #define DGBTRF_F77 F77_BLAS_MANGLE(dgbtrf,DGBTRF)
87 #define DGBTRS_F77 F77_BLAS_MANGLE(dgbtrs,DGBTRS)
88 #define DGTTRF_F77 F77_BLAS_MANGLE(dgttrf,DGTTRF)
89 #define DGTTRS_F77 F77_BLAS_MANGLE(dgttrs,DGTTRS)
90 #define DPTTRF_F77 F77_BLAS_MANGLE(dpttrf,DPTTRF)
91 #define DPTTRS_F77 F77_BLAS_MANGLE(dpttrs,DPTTRS)
92 #define DGETRI_F77 F77_BLAS_MANGLE(dgetri,DGETRI)
93 #define DGERFS_F77 F77_BLAS_MANGLE(dgerfs,DGERFS)
94 #define DGBRFS_F77 F77_BLAS_MANGLE(dgbrfs,DGBRFS)
95 #define DLATRS_F77 F77_BLAS_MANGLE(dlatrs,DLATRS)
96 #define DGECON_F77 F77_BLAS_MANGLE(dgecon,DGECON)
97 #define DGBCON_F77 F77_BLAS_MANGLE(dgbcon,DGBCON)
98 #define DLANGB_F77 F77_BLAS_MANGLE(dlangb,DLANGB)
99 #define DGESVX_F77 F77_BLAS_MANGLE(dgesvx,DGESVX)
100 #define DGESV_F77 F77_BLAS_MANGLE(dgesv,DGESV)
101 #define DGEEQU_F77 F77_BLAS_MANGLE(dgeequ,DGEEQU)
102 #define DGBEQU_F77 F77_BLAS_MANGLE(dgbequ,DGBEQU)
103 #define DSYTRD_F77 F77_BLAS_MANGLE(dsytrd,DSYTRD)
104 #define DPOTRF_F77 F77_BLAS_MANGLE(dpotrf,DPOTRF)
105 #define DPOTRS_F77 F77_BLAS_MANGLE(dpotrs,DPOTRS)
106 #define DPOTRI_F77 F77_BLAS_MANGLE(dpotri,DPOTRI)
107 #define DPOCON_F77 F77_BLAS_MANGLE(dpocon,DPOCON)
108 #define DPOSV_F77 F77_BLAS_MANGLE(dposv,DPOSV)
109 #define DPOEQU_F77 F77_BLAS_MANGLE(dpoequ,DPOEQU)
110 #define DPORFS_F77 F77_BLAS_MANGLE(dporfs,DPORFS)
111 #define DPOSVX_F77 F77_BLAS_MANGLE(dposvx,DPOSVX)
112 #define DTRTRS_F77 F77_BLAS_MANGLE(dtrtrs,DTRTRS)
113 #define DTRTRI_F77 F77_BLAS_MANGLE(dtrtri,DTRTRI)
114 #define DLAMCH_F77 F77_BLAS_MANGLE(dlamch,DLAMCH)
115 #define DGELS_F77 F77_BLAS_MANGLE(dgels,DGELS)
116 #define DGELSS_F77 F77_BLAS_MANGLE(dgelss,DGELSS)
117 #define DGGLSE_F77 F77_BLAS_MANGLE(dgglse,DGGLSE)
118 #define DGEEV_F77 F77_BLAS_MANGLE(dgeev,DGEEV)
119 #define DGESVD_F77 F77_BLAS_MANGLE(dgesvd,DGESVD)
120 #define DGGEV_F77 F77_BLAS_MANGLE(dggev,DGGEV)
121 #define DGGES_F77 F77_BLAS_MANGLE(dgges,DGGES)
122 #define DTRSEN_F77 F77_BLAS_MANGLE(dtrsen,DTRSEN)
123 #define DTGSEN_F77 F77_BLAS_MANGLE(dtgsen,DTGSEN)
124 #define DGEEVX_F77 F77_BLAS_MANGLE(dgeevx,DGEEVX)
125 #define DGGEVX_F77 F77_BLAS_MANGLE(dggevx,DGGEVX)
126 #define DGEHRD_F77 F77_BLAS_MANGLE(dgehrd,DGEHRD)
127 #define DHSEQR_F77 F77_BLAS_MANGLE(dhseqr,DHSEQR)
128 #define DORGHR_F77 F77_BLAS_MANGLE(dorghr,DORGHR)
129 #define DORGQR_F77 F77_BLAS_MANGLE(dorgqr,DORGQR)
130 #define DORMHR_F77 F77_BLAS_MANGLE(dormhr,DORMHR)
131 #define DORMQR_F77 F77_BLAS_MANGLE(dormqr,DORMQR)
132 #define DORM2R_F77 F77_BLAS_MANGLE(dorm2r,DORM2R)
133 #define DTREVC_F77 F77_BLAS_MANGLE(dtrevc,DTREVC)
134 #define DTREXC_F77 F77_BLAS_MANGLE(dtrexc,DTREXC)
135 #define DTGEVC_F77 F77_BLAS_MANGLE(dtgevc,DTGEVC)
136 #define DGEES_F77 F77_BLAS_MANGLE(dgees,DGEES)
137 #define DSPEV_F77 F77_BLAS_MANGLE(dspev,DSPEV)
138 #define DSYEV_F77 F77_BLAS_MANGLE(dsyev,DSYEV)
139 #define DSYGV_F77 F77_BLAS_MANGLE(dsygv,DSYGV)
140 #define DSTEQR_F77 F77_BLAS_MANGLE(dsteqr,DSTEQR)
141 #define DPTEQR_F77 F77_BLAS_MANGLE(dpteqr,DPTEQR)
142 #define DLAPY2_F77 F77_BLAS_MANGLE(dlapy2,DLAPY2)
143 #define DLARND_F77 F77_BLAS_MANGLE(dlarnd,DLARND)
144 #define DLARNV_F77 F77_BLAS_MANGLE(dlarnv,DLARNV)
145 #define DGEBAL_F77 F77_BLAS_MANGLE(dgebal,DGEBAL)
146 #define DGEBAK_F77 F77_BLAS_MANGLE(dgebak,DGEBAK)
147 #define DLARTG_F77 F77_BLAS_MANGLE(dlartg,DLARTG)
148 #define DLARFG_F77 F77_BLAS_MANGLE(dlarfg,DLARFG)
149 #define ILAENV_F77 F77_BLAS_MANGLE(ilaenv,ILAENV)
150 #define DGEQP3_F77 F77_BLAS_MANGLE(dgeqp3,DGEQP3)
151 
152 #ifdef HAVE_TEUCHOS_COMPLEX
153 
154 #define ZGEQRF_F77 F77_BLAS_MANGLE(zgeqrf,ZGEQRF)
155 #define ZGEQR2_F77 F77_BLAS_MANGLE(zgeqr2,ZGEQR2)
156 #define ZUNGQR_F77 F77_BLAS_MANGLE(zungqr,ZUNGQR)
157 #define ZUNMQR_F77 F77_BLAS_MANGLE(zunmqr,ZUNMQR)
158 #define ZUNM2R_F77 F77_BLAS_MANGLE(zunm2r,ZUNM2R)
159 #define ZGETRF_F77 F77_BLAS_MANGLE(zgetrf,ZGETRF)
160 #define ZGETRS_F77 F77_BLAS_MANGLE(zgetrs,ZGETRS)
161 #define ZLASCL_F77 F77_BLAS_MANGLE(zlascl,ZLASCL)
162 #define ZLASWP_F77 F77_BLAS_MANGLE(zlaswp,ZLASWP)
163 #define ZGBTRF_F77 F77_BLAS_MANGLE(zgbtrf,ZGBTRF)
164 #define ZGBTRS_F77 F77_BLAS_MANGLE(zgbtrs,ZGBTRS)
165 #define ZGTTRF_F77 F77_BLAS_MANGLE(zgttrf,ZGTTRF)
166 #define ZGTTRS_F77 F77_BLAS_MANGLE(zgttrs,ZGTTRS)
167 #define ZPTTRF_F77 F77_BLAS_MANGLE(zpttrf,ZPTTRF)
168 #define ZPTTRS_F77 F77_BLAS_MANGLE(zpttrs,ZPTTRS)
169 #define ZGETRI_F77 F77_BLAS_MANGLE(zgetri,ZGETRI)
170 #define ZGERFS_F77 F77_BLAS_MANGLE(zgerfs,ZGERFS)
171 #define ZGBRFS_F77 F77_BLAS_MANGLE(zgbrfs,ZGBRFS)
172 #define ZLATRS_F77 F77_BLAS_MANGLE(zlatrs,ZLATRS)
173 #define ZGECON_F77 F77_BLAS_MANGLE(zgecon,ZGECON)
174 #define ZGBCON_F77 F77_BLAS_MANGLE(zgbcon,ZGBCON)
175 #define ZLANGB_F77 F77_BLAS_MANGLE(zlangb,ZLANGB)
176 #define ZGESVX_F77 F77_BLAS_MANGLE(zgesvx,ZGESVX)
177 #define ZGESV_F77 F77_BLAS_MANGLE(zgesv,ZGESV)
178 #define ZGEEQU_F77 F77_BLAS_MANGLE(zgeequ,ZGEEQU)
179 #define ZGBEQU_F77 F77_BLAS_MANGLE(zgbequ,ZGBEQU)
180 #define ZPOTRF_F77 F77_BLAS_MANGLE(zpotrf,ZPOTRF)
181 #define ZPOTRS_F77 F77_BLAS_MANGLE(zpotrs,ZPOTRS)
182 #define ZPOTRI_F77 F77_BLAS_MANGLE(zpotri,ZPOTRI)
183 #define ZPOCON_F77 F77_BLAS_MANGLE(zpocon,ZPOCON)
184 #define ZPOSV_F77 F77_BLAS_MANGLE(zposv,ZPOSV)
185 #define ZPOEQU_F77 F77_BLAS_MANGLE(zpoequ,ZPOEQU)
186 #define ZPORFS_F77 F77_BLAS_MANGLE(zporfs,ZPORFS)
187 #define ZPOSVX_F77 F77_BLAS_MANGLE(zposvx,ZPOSVX)
188 #define ZTRTRS_F77 F77_BLAS_MANGLE(ztrtrs,ZTRTRS)
189 #define ZTRTRI_F77 F77_BLAS_MANGLE(ztrtri,ZTRTRI)
190 #define ZGELS_F77 F77_BLAS_MANGLE(zgels,ZGELS)
191 #define ZGELSS_F77 F77_BLAS_MANGLE(zgelss,ZGELSS)
192 //#define ZGGLSE_F77 F77_BLAS_MANGLE(zgglse,ZGGLSE)
193 #define ZGEEV_F77 F77_BLAS_MANGLE(zgeev,ZGEEV)
194 #define ZGESVD_F77 F77_BLAS_MANGLE(zgesvd,ZGESVD)
195 #define ZGGEV_F77 F77_BLAS_MANGLE(zggev,ZGGEV)
196 #define ZGGES_F77 F77_BLAS_MANGLE(zgges,ZGGES)
197 #define ZTGSEN_F77 F77_BLAS_MANGLE(ztgsen,ZTGSEN)
198 #define ZGGES_F77 F77_BLAS_MANGLE(zgges,ZGGES)
199 #define ZTRSEN_F77 F77_BLAS_MANGLE(ztrsen,ZTRSEN)
200 #define ZGEEVX_F77 F77_BLAS_MANGLE(zgeevx,ZGEEVX)
201 #define ZGGEVX_F77 F77_BLAS_MANGLE(zggevx,ZGGEVX)
202 #define ZGEHRD_F77 F77_BLAS_MANGLE(zgehrd,ZGEHRD)
203 #define ZHSEQR_F77 F77_BLAS_MANGLE(zhseqr,ZHSEQR)
204 #define ZTREVC_F77 F77_BLAS_MANGLE(ztrevc,ZTREVC)
205 #define ZTREXC_F77 F77_BLAS_MANGLE(ztrexc,ZTREXC)
206 #define ZGEES_F77 F77_BLAS_MANGLE(zgees,ZGEES)
207 #define ZSTEQR_F77 F77_BLAS_MANGLE(zsteqr,ZSTEQR)
208 #define ZPTEQR_F77 F77_BLAS_MANGLE(zpteqr,ZPTEQR)
209 #define ZHEEV_F77 F77_BLAS_MANGLE(zheev,ZHEEV)
210 #define ZHEGV_F77 F77_BLAS_MANGLE(zhegv,ZHEGV)
211 #define ZLARTG_F77 F77_BLAS_MANGLE(zlartg,ZLARTG)
212 #define ZLARFG_F77 F77_BLAS_MANGLE(zlarfg,ZLARFG)
213 #define ZGEBAL_F77 F77_BLAS_MANGLE(zgebal,ZGEBAL)
214 #define ZGEBAK_F77 F77_BLAS_MANGLE(zgebak,ZGEBAK)
215 #define ZLARND_F77 F77_BLAS_MANGLE(zlarnd,ZLARND)
216 #define ZLARNV_F77 F77_BLAS_MANGLE(zlarnv,ZLARNV)
217 #define ZGEQP3_F77 F77_BLAS_MANGLE(zgeqp3,ZGEQP3)
218 #define TEUCHOS_LAPACK_CONVERT_COMPLEX_FORTRAN_TO_CXX(TYPE, Z) \
219  reinterpret_cast<std::complex<TYPE>&>(Z);
220 // NOTE: The above is guaranteed to be okay given the C99 and C++11 standards
221 
222 #endif /* HAVE_TEUCHOS_COMPLEX */
223 
224 #define SGEQRF_F77 F77_BLAS_MANGLE(sgeqrf,SGEQRF)
225 #define SGEQR2_F77 F77_BLAS_MANGLE(sgeqr2,SGEQR2)
226 #define SGETRF_F77 F77_BLAS_MANGLE(sgetrf,SGETRF)
227 #define SGETRS_F77 F77_BLAS_MANGLE(sgetrs,SGETRS)
228 #define SLASCL_F77 F77_BLAS_MANGLE(slascl,SLASCL)
229 #define SLASWP_F77 F77_BLAS_MANGLE(slaswp,SLASWP)
230 #define SGBTRF_F77 F77_BLAS_MANGLE(sgbtrf,SGBTRF)
231 #define SGBTRS_F77 F77_BLAS_MANGLE(sgbtrs,SGBTRS)
232 #define SGTTRF_F77 F77_BLAS_MANGLE(sgttrf,SGTTRF)
233 #define SGTTRS_F77 F77_BLAS_MANGLE(sgttrs,SGTTRS)
234 #define SPTTRF_F77 F77_BLAS_MANGLE(spttrf,SPTTRF)
235 #define SPTTRS_F77 F77_BLAS_MANGLE(spttrs,SPTTRS)
236 #define SGETRI_F77 F77_BLAS_MANGLE(sgetri,SGETRI)
237 #define SGERFS_F77 F77_BLAS_MANGLE(sgerfs,SGERFS)
238 #define SGBRFS_F77 F77_BLAS_MANGLE(sgbrfs,SGBRFS)
239 #define SLATRS_F77 F77_BLAS_MANGLE(slatrs,SLATRS)
240 #define SGECON_F77 F77_BLAS_MANGLE(sgecon,SGECON)
241 #define SGBCON_F77 F77_BLAS_MANGLE(sgbcon,SGBCON)
242 #define SLANGB_F77 F77_BLAS_MANGLE(slangb,SLANGB)
243 #define SGESVX_F77 F77_BLAS_MANGLE(sgesvx,SGESVX)
244 #define SGESV_F77 F77_BLAS_MANGLE(sgesv,SGESV)
245 #define SGEEQU_F77 F77_BLAS_MANGLE(sgeequ,SGEEQU)
246 #define SGBEQU_F77 F77_BLAS_MANGLE(sgbequ,SGBEQU)
247 #define SSYTRD_F77 F77_BLAS_MANGLE(ssytrd,SSYTRD)
248 #define SPOTRF_F77 F77_BLAS_MANGLE(spotrf,SPOTRF)
249 #define SPOTRS_F77 F77_BLAS_MANGLE(spotrs,SPOTRS)
250 #define SPOTRI_F77 F77_BLAS_MANGLE(spotri,SPOTRI)
251 #define SPOCON_F77 F77_BLAS_MANGLE(spocon,SPOCON)
252 #define SPOSV_F77 F77_BLAS_MANGLE(sposv,SPOSV)
253 #define SPOEQU_F77 F77_BLAS_MANGLE(spoequ,SPOEQU)
254 #define SPORFS_F77 F77_BLAS_MANGLE(sporfs,SPORFS)
255 #define SPOSVX_F77 F77_BLAS_MANGLE(sposvx,SPOSVX)
256 #define STRTRS_F77 F77_BLAS_MANGLE(strtrs,STRTRS)
257 #define STRTRI_F77 F77_BLAS_MANGLE(strtri,STRTRI)
258 #define SGELS_F77 F77_BLAS_MANGLE(sgels,SGELS)
259 #define SGELSS_F77 F77_BLAS_MANGLE(sgelss,SGELSS)
260 #define SGGLSE_F77 F77_BLAS_MANGLE(sgglse,SGGLSE)
261 #define SGEEV_F77 F77_BLAS_MANGLE(sgeev,SGEEV)
262 #define SGESVD_F77 F77_BLAS_MANGLE(sgesvd,SGESVD)
263 #define SGGEV_F77 F77_BLAS_MANGLE(sggev,SGGEV)
264 #define SGGES_F77 F77_BLAS_MANGLE(sgges,SGGES)
265 #define STRSEN_F77 F77_BLAS_MANGLE(strsen,STRSEN)
266 #define STGSEN_F77 F77_BLAS_MANGLE(stgsen,STGSEN)
267 #define SGEEVX_F77 F77_BLAS_MANGLE(sgeevx,SGEEVX)
268 #define SGGEVX_F77 F77_BLAS_MANGLE(sggevx,SGGEVX)
269 #define SGEHRD_F77 F77_BLAS_MANGLE(sgehrd,SGEHRD)
270 #define SHSEQR_F77 F77_BLAS_MANGLE(shseqr,SHSEQR)
271 #define SORGHR_F77 F77_BLAS_MANGLE(sorghr,SORGHR)
272 #define SORGQR_F77 F77_BLAS_MANGLE(sorgqr,SORGQR)
273 #define SORMHR_F77 F77_BLAS_MANGLE(sormhr,SORMHR)
274 #define SORMQR_F77 F77_BLAS_MANGLE(sormqr,SORMQR)
275 #define SORM2R_F77 F77_BLAS_MANGLE(sorm2r,SORM2R)
276 #define STREVC_F77 F77_BLAS_MANGLE(strevc,STREVC)
277 #define STREXC_F77 F77_BLAS_MANGLE(strexc,STREXC)
278 #define STGEVC_F77 F77_BLAS_MANGLE(stgevc,STGEVC)
279 #define SLAMCH_F77 F77_BLAS_MANGLE(slamch,SLAMCH)
280 #define SGEES_F77 F77_BLAS_MANGLE(sgees,SGEES)
281 #define SSPEV_F77 F77_BLAS_MANGLE(sspev,SSPEV)
282 #define SSYEV_F77 F77_BLAS_MANGLE(ssyev,SSYEV)
283 #define SSYGV_F77 F77_BLAS_MANGLE(ssygv,SSYGV)
284 #define SSTEQR_F77 F77_BLAS_MANGLE(ssteqr,SSTEQR)
285 #define SPTEQR_F77 F77_BLAS_MANGLE(spteqr,SPTEQR)
286 #ifdef HAVE_TEUCHOS_BLASFLOAT
287  #define SLAPY2_F77 F77_BLAS_MANGLE(slapy2,SLAPY2)
288 #endif
289 #define SLARTG_F77 F77_BLAS_MANGLE(slartg,SLARTG)
290 #define SLARFG_F77 F77_BLAS_MANGLE(slarfg,SLARFG)
291 #define SGEBAL_F77 F77_BLAS_MANGLE(sgebal,SGEBAL)
292 #define SGEBAK_F77 F77_BLAS_MANGLE(sgebak,SGEBAK)
293 #define SLARND_F77 F77_BLAS_MANGLE(slarnd,SLARND)
294 #define SLARNV_F77 F77_BLAS_MANGLE(slarnv,SLARNV)
295 #define SGEQP3_F77 F77_BLAS_MANGLE(sgeqp3,SGEQP3)
296 
297 #ifdef HAVE_TEUCHOS_COMPLEX
298 
299 #define CGEQRF_F77 F77_BLAS_MANGLE(cgeqrf,CGEQRF)
300 #define CGEQR2_F77 F77_BLAS_MANGLE(cgeqr2,CGEQR2)
301 #define CUNGQR_F77 F77_BLAS_MANGLE(cungqr,CUNGQR)
302 #define CUNMQR_F77 F77_BLAS_MANGLE(cunmqr,CUNMQR)
303 #define CUNM2R_F77 F77_BLAS_MANGLE(cunm2r,CUNM2R)
304 #define CGETRF_F77 F77_BLAS_MANGLE(cgetrf,CGETRF)
305 #define CGETRS_F77 F77_BLAS_MANGLE(cgetrs,CGETRS)
306 #define CLASCL_F77 F77_BLAS_MANGLE(clascl,CLASCL)
307 #define CLASWP_F77 F77_BLAS_MANGLE(claswp,CLASWP)
308 #define CGBTRF_F77 F77_BLAS_MANGLE(cgbtrf,CGBTRF)
309 #define CGBTRS_F77 F77_BLAS_MANGLE(cgbtrs,CGBTRS)
310 #define CGTTRF_F77 F77_BLAS_MANGLE(cgttrf,CGTTRF)
311 #define CGTTRS_F77 F77_BLAS_MANGLE(cgttrs,CGTTRS)
312 #define CPTTRF_F77 F77_BLAS_MANGLE(cpttrf,CPTTRF)
313 #define CPTTRS_F77 F77_BLAS_MANGLE(cpttrs,CPTTRS)
314 #define CGETRI_F77 F77_BLAS_MANGLE(cgetri,CGETRI)
315 #define CGERFS_F77 F77_BLAS_MANGLE(cgerfs,CGERFS)
316 #define CGBRFS_F77 F77_BLAS_MANGLE(cgbrfs,CGBRFS)
317 #define CLATRS_F77 F77_BLAS_MANGLE(clatrs,CLATRS)
318 #define CGECON_F77 F77_BLAS_MANGLE(cgecon,CGECON)
319 #define CGBCON_F77 F77_BLAS_MANGLE(cgbcon,CGBCON)
320 #define CLANGB_F77 F77_BLAS_MANGLE(clangb,CLANGB)
321 #define CGESVX_F77 F77_BLAS_MANGLE(cgesvx,CGESVX)
322 #define CGESV_F77 F77_BLAS_MANGLE(cgesv,CGESV)
323 #define CGEEQU_F77 F77_BLAS_MANGLE(cgeequ,CGEEQU)
324 #define CGBEQU_F77 F77_BLAS_MANGLE(cgbequ,CGBEQU)
325 #define CPOTRF_F77 F77_BLAS_MANGLE(cpotrf,CPOTRF)
326 #define CPOTRS_F77 F77_BLAS_MANGLE(cpotrs,CPOTRS)
327 #define CPOTRI_F77 F77_BLAS_MANGLE(cpotri,CPOTRI)
328 #define CPOCON_F77 F77_BLAS_MANGLE(cpocon,CPOCON)
329 #define CPOSV_F77 F77_BLAS_MANGLE(cposv,CPOSV)
330 #define CPOEQU_F77 F77_BLAS_MANGLE(cpoequ,CPOEQU)
331 #define CPORFS_F77 F77_BLAS_MANGLE(cporfs,CPORFS)
332 #define CPOSVX_F77 F77_BLAS_MANGLE(cposvx,CPOSVX)
333 #define CTRTRS_F77 F77_BLAS_MANGLE(ctrtrs,CTRTRS)
334 #define CTRTRI_F77 F77_BLAS_MANGLE(ctrtri,CTRTRI)
335 #define CGELS_F77 F77_BLAS_MANGLE(cgels,CGELS)
336 #define CGELSS_F77 F77_BLAS_MANGLE(cgelss,CGELSS)
337 //#define CGGLSE_F77 F77_BLAS_MANGLE(cgglse,CGGLSE)
338 #define CGEEV_F77 F77_BLAS_MANGLE(cgeev,CGEEV)
339 #define CGESVD_F77 F77_BLAS_MANGLE(cgesvd,CGESVD)
340 #define CGGEV_F77 F77_BLAS_MANGLE(cggev,CGGEV)
341 #define CGGES_F77 F77_BLAS_MANGLE(cgges,CGGES)
342 #define CTGSEN_F77 F77_BLAS_MANGLE(ctgsen,CTGSEN)
343 #define CGEEVX_F77 F77_BLAS_MANGLE(cgeevx,CGEEVX)
344 #define CGGEVX_F77 F77_BLAS_MANGLE(cggevx,CGGEVX)
345 #define CGEHRD_F77 F77_BLAS_MANGLE(cgehrd,CGEHRD)
346 #define CHSEQR_F77 F77_BLAS_MANGLE(chseqr,CHSEQR)
347 #define CTREVC_F77 F77_BLAS_MANGLE(ctrevc,CTREVC)
348 #define CTREXC_F77 F77_BLAS_MANGLE(ctrexc,CTREXC)
349 #define CGEES_F77 F77_BLAS_MANGLE(cgees,CGEES)
350 #define CSTEQR_F77 F77_BLAS_MANGLE(csteqr,CSTEQR)
351 #define CPTEQR_F77 F77_BLAS_MANGLE(cpteqr,CPTEQR)
352 #define CHEEV_F77 F77_BLAS_MANGLE(cheev,CHEEV)
353 #define CHEGV_F77 F77_BLAS_MANGLE(chegv,CHEGV)
354 #define CLARTG_F77 F77_BLAS_MANGLE(clartg,CLARTG)
355 #define CLARFG_F77 F77_BLAS_MANGLE(clarfg,CLARFG)
356 #define CGEBAL_F77 F77_BLAS_MANGLE(cgebal,CGEBAL)
357 #define CGEBAK_F77 F77_BLAS_MANGLE(cgebak,CGEBAK)
358 #define CLARND_F77 F77_BLAS_MANGLE(clarnd,CLARND)
359 #define CLARNV_F77 F77_BLAS_MANGLE(clarnv,CLARNV)
360 #define CGEQP3_F77 F77_BLAS_MANGLE(cgeqp3,CGEQP3)
361 
362 #endif /* HAVE_TEUCHOS_COMPLEX */
363 
364 
365 /* C) Define the function prototypes for all platforms! */
366 
367 #ifdef __cplusplus
368 extern "C" {
369 #endif
370 
371 // Double precision LAPACK linear solvers
372 
373 void PREFIX DGELS_F77(Teuchos_fcd ch, const int* m, const int* n, const int* nrhs, double* a, const int* lda, double* b, const int* ldb, double* work, const int* lwork, int* info);
374 void PREFIX DGELSS_F77(const int* m, const int* n, const int* nrhs, double* a, const int* lda, double* b, const int* ldb, double* s, const double* rcond, int* rank, double* work, const int* lwork, int* info);
375 void PREFIX DGGLSE_F77(const int* m, const int* n, const int* p, double* a, const int* lda, double* b, const int* ldb, double* c, double* d, double* x, double* work, const int* lwork, int* info);
376 void PREFIX DGEQRF_F77(const int* m, const int* n, double* a, const int* lda, double* tau, double* work, const int* lwork, int* info);
377 void PREFIX DGEQR2_F77(const int* const m, const int* const n, double* a, const int* const lda, double* tau, double* work, int* const info);
378 void PREFIX DGETRF_F77(const int* m, const int* n, double* a, const int* lda, int* ipiv, int* info);
379 void PREFIX DGETRS_F77(Teuchos_fcd, const int* n, const int* nrhs, const double* a, const int* lda,const int* ipiv, double* x , const int* ldx, int* info);
380 void PREFIX DLASCL_F77(Teuchos_fcd, const int* kl, const int* ku, const double* cfrom, const double* cto, const int* m, const int* n, double* a, const int* lda, int* info);
381 void PREFIX DLASWP_F77(const int* N, double* A, const int* LDA, const int* K1, const int* K2, const int* IPIV, const int* INCX);
382 void PREFIX DGBTRF_F77(const int* m, const int* n, const int* kl, const int* ku, double* a, const int* lda, int* ipiv, int* info);
383 void PREFIX DGBTRS_F77(Teuchos_fcd, const int* n, const int* kl, const int* ku, const int* nrhs, const double* a, const int* lda, const int* ipiv, double* x, const int* ldx, int* info);
384 void PREFIX DGTTRF_F77(const int* n, double* dl, double* d, double* du, double* du2, int* ipiv, int* info);
385 void PREFIX DGTTRS_F77(Teuchos_fcd, const int* n, const int* nrhs, const double* dl, const double* d, const double* du, const double* du2, const int* ipiv, double* x , const int* ldx, int* info);
386 void PREFIX DPTTRF_F77(const int* n, double* d, double* e, int* info);
387 void PREFIX DPTTRS_F77(const int* n, const int* nrhs, const double* d, const double* e, double* x , const int* ldx, int* info);
388 void PREFIX DGETRI_F77(const int* n, double* a, const int* lda, const int* ipiv, double* work , const int* lwork, int* info);
389 void PREFIX DLATRS_F77(Teuchos_fcd UPLO, Teuchos_fcd TRANS, Teuchos_fcd DIAG, Teuchos_fcd NORMIN, const int* N, const double* A, const int* LDA, double* X, double* SCALE, double* CNORM, int* INFO);
390 void PREFIX DGECON_F77(Teuchos_fcd norm, const int* n, const double* a, const int* lda, const double* anorm, double* rcond, double* work, int* iwork, int* info);
391 void PREFIX DGBCON_F77(Teuchos_fcd norm, const int* n, const int* kl, const int* ku, const double* a, const int* lda, const int* IPIV, const double* anorm, double* rcond, double* work, int* iwork, int* info);
392 double PREFIX DLANGB_F77(Teuchos_fcd norm, const int* n, const int* kl, const int* ku, const double* a, const int* lda, double* work);
393 void PREFIX DGESV_F77(const int* n, const int* nrhs, double* a, const int* lda, int* ipiv, double* x , const int* ldx, int* info);
394 void PREFIX DGEEQU_F77(const int* m, const int* n, const double* a, const int* lda, double* r, double* c, double* rowcnd, double* colcnd, double* amax, int* info);
395 void PREFIX DGBEQU_F77(const int* m, const int* n, const int* kl, const int* ku, const double* a, const int* lda, double* r, double* c, double* rowcnd, double* colcnd, double* amax, int* info);
396 void PREFIX DGERFS_F77(Teuchos_fcd, const int* n, const int* nrhs, const double* a, const int* lda, const double* af, const int* ldaf, const int* ipiv, const double* b, const int* ldb, double* x, const int* ldx, double* ferr, double* berr, double* work, int* iwork, int* info);
397 void PREFIX DGBRFS_F77(Teuchos_fcd, const int* n, const int* kl, const int* ku, const int* nrhs, const double* a, const int* lda, const double* af, const int* ldaf, const int* ipiv, const double* b, const int* ldb, double* x, const int* ldx, double* ferr, double* berr, double* work, int* iwork, int* info);
398 void PREFIX DGESVX_F77(Teuchos_fcd, Teuchos_fcd, const int* n, const int* nrhs, double* a, const int* lda, double* af, const int* ldaf, int* ipiv, Teuchos_nonconst_fcd, double* r,
399 double* c, double* b, const int* ldb, double* x, const int* ldx, double* rcond, double* ferr, double* berr, double* work, int* iwork, int* info);
400 void PREFIX DSYTRD_F77(Teuchos_fcd, const int* n, double* a, const int* lda, double* D, double* E, double* tau, double* work, const int* lwork, int* info);
401 void PREFIX DPOTRF_F77(Teuchos_fcd, const int* n, double* a, const int* lda, int* info);
402 void PREFIX DPOTRS_F77(Teuchos_fcd, const int* n, const int* nrhs, const double* a, const int* lda, double*x , const int* ldx, int* info);
403 void PREFIX DPOTRI_F77(Teuchos_fcd, const int* n, double* a, const int* lda, int* info);
404 void PREFIX DPOCON_F77(Teuchos_fcd, const int* n, const double* a, const int* lda, const double* anorm, double* rcond, double* work, int* iwork, int* info);
405 void PREFIX DPOSV_F77(Teuchos_fcd, const int* n, const int* nrhs, double* a, const int* lda, double*x , const int* ldx, int* info);
406 void PREFIX DPOEQU_F77(const int* n, const double* a, const int* lda, double* s, double* scond, double* amax, int* info);
407 void PREFIX DPORFS_F77(Teuchos_fcd, const int* n, const int* nrhs, const double* a, const int* lda, const double* af, const int* ldaf, const double* b, const int* ldb, double* x, const int* ldx, double* ferr, double* berr, double* work, int* iwork, int* info);
408 void PREFIX DPOSVX_F77(Teuchos_fcd, Teuchos_fcd, const int* n, const int* nrhs, double* a, const int* lda, double* af, const int* ldaf, Teuchos_nonconst_fcd, double* s, double* b, const int* ldb, double* x, const int* ldx, double* rcond, double* ferr, double* berr, double* work, int* iwork, int* info);
409 void PREFIX DTRTRS_F77(Teuchos_fcd, Teuchos_fcd, Teuchos_fcd, const int* n, const int* nrhs, const double* a, const int* lda, double* b, const int* ldb, int* info);
410 void PREFIX DTRTRI_F77(Teuchos_fcd, Teuchos_fcd, const int* n, double* a, const int* lda, int* info);
411 void PREFIX DGEQP3_F77( const int *M, const int *N, double *A, const int *LDA, int *JPVT, double *TAU, double *WORK, const int *LWORK, int *INFO );
412 
413 // Single precision LAPACK linear solvers
414 
415 void PREFIX SGELS_F77(Teuchos_fcd ch, const int* m, const int* n, const int* nrhs, float* a, const int* lda, float* b, const int* ldb, float* work, const int* lwork, int* info);
416 void PREFIX SGELSS_F77(const int* m, const int* n, const int* nrhs, float* a, const int* lda, float* b, const int* ldb, float* s, const float* rcond, int* rank, float* work, const int* lwork, int* info);
417 void PREFIX SGGLSE_F77(const int* m, const int* n, const int* p, float* a, const int* lda, float* b, const int* ldb, float* c, float* d, float* x, float* work, const int* lwork, int* info);
418 void PREFIX SGEQRF_F77(const int* m, const int* n, float* a, const int* lda, float* tau, float* work, const int* lwork, int* info);
419 void PREFIX SGEQR2_F77(const int* const m, const int* const n, float* a, const int* const lda, float* tau, float* work, int* const info);
420 void PREFIX SGETRF_F77(const int* m, const int* n, float* a, const int* lda, int* ipiv, int* info);
421 void PREFIX SGETRS_F77(Teuchos_fcd, const int* n, const int* nrhs, const float* a, const int* lda, const int* ipiv, float* x , const int* ldx, int* info);
422 void PREFIX SLASCL_F77(Teuchos_fcd, const int* kl, const int* ku, const float* cfrom, const float* cto, const int* m, const int* n, float* a, const int* lda, int* info);
423 void PREFIX SLASWP_F77(const int* N, float* A, const int* LDA, const int* K1, const int* K2, const int* IPIV, const int* INCX);
424 void PREFIX SGBTRF_F77(const int* m, const int* n, const int* kl, const int* ku, float* a, const int* lda, int* ipiv, int* info);
425 void PREFIX SGBTRS_F77(Teuchos_fcd, const int* n, const int* kl, const int* ku, const int* nrhs, const float* a, const int* lda, const int* ipiv, float* x, const int* ldx, int* info);
426 void PREFIX SGTTRF_F77(const int* n, float* dl, float* d, float* du, float* du2, int* ipiv, int* info);
427 void PREFIX SGTTRS_F77(Teuchos_fcd, const int* n, const int* nrhs, const float* dl, const float* d, const float* du, const float* du2, const int* ipiv, float* x , const int* ldx, int* info);
428 void PREFIX SPTTRF_F77(const int* n, float* d, float* e, int* info);
429 void PREFIX SPTTRS_F77(const int* n, const int* nrhs, const float* d, const float* e, float* x , const int* ldx, int* info);
430 void PREFIX SGETRI_F77(const int* n, float* a, const int* lda, const int* ipiv, float* work , const int* lwork, int* info);
431 void PREFIX SLATRS_F77(Teuchos_fcd UPLO, Teuchos_fcd TRANS, Teuchos_fcd DIAG, Teuchos_fcd NORMIN, const int* N, const float* A, const int* LDA, float* X, float* SCALE, float* CNORM, int* INFO);
432 void PREFIX SGECON_F77(Teuchos_fcd norm, const int* n, const float* a, const int* lda, const float* anorm, float* rcond, float* work, int* iwork, int* info);
433 void PREFIX SGBCON_F77(Teuchos_fcd norm, const int* n, const int* kl, const int* ku, const float* a, const int* lda, const int* IPIV, const float* anorm, float* rcond, float* work, int* iwork, int* info);
434 float PREFIX SLANGB_F77(Teuchos_fcd norm, const int* n, const int* kl, const int* ku, const float* a, const int* lda, float* work);
435 void PREFIX SGESV_F77(const int* n, const int* nrhs, float* a, const int* lda, int* ipiv, float* x , const int* ldx, int* info);
436 void PREFIX SGEEQU_F77(const int* m, const int* n, const float* a, const int* lda, float* r, float* c, float* rowcnd, float* colcnd, float* amax, int* info);
437 void PREFIX SGBEQU_F77(const int* m, const int* n, const int* kl, const int* ku, const float* a, const int* lda, float* r, float* c, float* rowcnd, float* colcnd, float* amax, int* info);
438 void PREFIX SGERFS_F77(Teuchos_fcd, const int* n, const int* nrhs, const float* a, const int* lda, const float* af, const int* ldaf, const int* ipiv, const float* b, const int* ldb, float* x, const int* ldx, float* ferr, float* berr, float* work, int* iwork, int* info);
439 void PREFIX SGBRFS_F77(Teuchos_fcd, const int* n, const int* kl, const int* ku, const int* nrhs, const float* a, const int* lda, const float* af, const int* ldaf, const int* ipiv, const float* b, const int* ldb, float* x, const int* ldx, float* ferr, float* berr, float* work, int* iwork, int* info);
440 void PREFIX SGESVX_F77(Teuchos_fcd, Teuchos_fcd, const int* n, const int* nrhs, float* a, const int* lda, float* af, const int* ldaf, int* ipiv, Teuchos_nonconst_fcd, float* r,
441 float* c, float* b, const int* ldb, float* x, const int* ldx, float* rcond, float* ferr, float* berr, float* work, int* iwork, int* info);
442 void PREFIX SSYTRD_F77(Teuchos_fcd, const int* n, float* a, const int* lda, float* D, float* E, float* tau, float* work, const int* lwork, int* info);
443 void PREFIX SPOTRF_F77(Teuchos_fcd, const int* n, float* a, const int* lda, int* info);
444 void PREFIX SPOTRS_F77(Teuchos_fcd, const int* n, const int* nrhs, const float* a, const int* lda, float*x , const int* ldx, int* info);
445 void PREFIX SPOTRI_F77(Teuchos_fcd, const int* n, float* a, const int* lda, int* info);
446 void PREFIX SPOCON_F77(Teuchos_fcd, const int* n, const float* a, const int* lda, const float* anorm, float* rcond, float* work, int* iwork, int* info);
447 void PREFIX SPOSV_F77(Teuchos_fcd, const int* n, const int* nrhs, float* a, const int* lda, float*x , const int* ldx, int* info);
448 void PREFIX SPOEQU_F77(const int* n, const float* a, const int* lda, float* s, float* scond, float* amax, int* info);
449 void PREFIX SPORFS_F77(Teuchos_fcd, const int* n, const int* nrhs, const float* a, const int* lda, const float* af, const int* ldaf, const float* b, const int* ldb, float* x, const int* ldx, float* ferr, float* berr, float* work, int* iwork, int* info);
450 void PREFIX SPOSVX_F77(Teuchos_fcd, Teuchos_fcd, const int* n, const int* nrhs, float* a, const int* lda, float* af, const int* ldaf, Teuchos_nonconst_fcd, float* s, float* b, const int* ldb, float* x, const int* ldx, float* rcond, float* ferr, float* berr, float* work, int* iwork, int* info);
451 void PREFIX STRTRS_F77(Teuchos_fcd, Teuchos_fcd, Teuchos_fcd, const int* n, const int* nrhs, const float* a, const int* lda, float* b, const int* ldb, int* info);
452 void PREFIX STRTRI_F77(Teuchos_fcd, Teuchos_fcd, const int* n, float* a, const int* lda, int* info);
453 void PREFIX SGEQP3_F77( const int *M, const int *N, float *A, const int *LDA, int *JPVT, float *TAU, float *WORK, const int *LWORK, int *INFO );
454 
455 // Double precision LAPACK eigen solvers
456 void PREFIX DSPEV_F77(Teuchos_fcd, Teuchos_fcd, const int* n, double* ap, double* w, double* z, const int* ldz, double* work, int* info);
457 void PREFIX DSYEV_F77(Teuchos_fcd, Teuchos_fcd, const int* n, double* a, const int* lda, double* w, double* work, const int* lwork, int* info);
458 void PREFIX DSYGV_F77(const int* itype, Teuchos_fcd, Teuchos_fcd, const int* n, double* a, const int* lda, double* B, const int* ldb, double* w, double* work, const int* lwork, int* info);
459 void PREFIX DSTEQR_F77(Teuchos_fcd, const int* n, double* D, double* E, double* Z, const int* ldz, double* work, int* info);
460 void PREFIX DPTEQR_F77(Teuchos_fcd, const int* n, double* D, double* E, double* Z, const int* ldz, double* work, int* info);
461 void PREFIX DGEEV_F77(Teuchos_fcd, Teuchos_fcd, const int* n, double* a, const int* lda, double* wr, double* wi, double* vl, const int* ldvl, double* vr, const int* ldvr, double* work, const int* lwork, int* info);
462 void PREFIX DGGEV_F77(Teuchos_fcd, Teuchos_fcd, const int *n, double *A, const int *lda, double *B, const int *ldb, double *alphar, double *alphai, double *beta, double *vl, const int *ldvl, double *vr, const int *ldvr, double *work, const int *lwork, int *info);
463 void PREFIX DGGES_F77(Teuchos_fcd, Teuchos_fcd, Teuchos_fcd, int (*ptr2func)(double*, double*, double*), const int* n, double* A, const int* lda, double* B, const int* ldb, int* sdim, double* alphar, double* alphai, double* beta, double* vl, const int* ldvl, double* vr, const int* ldvr, double* work, const int *lwork, int *bwork, int *info);
464 void PREFIX DTRSEN_F77(Teuchos_fcd, Teuchos_fcd, const int *select, const int *n, double *t, const int *ldt, double *q, const int *ldq, double *wr, double *wi, int *m, double *s, double *sep, double *work, const int *lwork, int *iwork, const int *liwork, int *info);
465 void PREFIX DTGSEN_F77(const int *ijob, const int *wantq, const int *wantz, const int *select, const int *n, double *a, const int *lda, double *b, const int *ldb, double *alphar, double *alphai, double *beta, double *q, const int *ldq, double *z, const int *ldz, int *m, double *pl, double *pr, double *dif, double *work, const int *lwork, int *iwork, const int *liwork, int *info);
466 void PREFIX DGESVD_F77(Teuchos_fcd, Teuchos_fcd, const int* m, const int* n, double* a, const int* lda, double* s, double* u, const int* ldu, double* v, const int* ldv, double* work, const int* lwork, int* info);
467 void PREFIX DGGEVX_F77(Teuchos_fcd, Teuchos_fcd, Teuchos_fcd, Teuchos_fcd, const int* n, double* a, const int* lda, double* b, const int* ldb, double* alphar, double* alphai, double* beta, double* vl, const int* ldvl, double* vr, const int* ldvr, int* ilo, int* ihi, double* lscale, double* rscale, double* abnrm, double* bbnrm, double* rconde, double* rcondv, double* work, const int* lwork, int* iwork, int* bwork, int* info);
468 void PREFIX DGEEVX_F77(Teuchos_fcd, Teuchos_fcd, Teuchos_fcd, Teuchos_fcd, const int* n, double* a, const int* lda, double* alphar, double* alphai, double* vl, const int* ldvl, double* vr, const int* ldvr, int* ilo, int* ihi, double* scale, double* abnrm, double* rconde, double* rcondv, double* work, const int* lwork, int* iwork, int* info);
469 void PREFIX DGEHRD_F77(const int* n, const int* ilo, const int* ihi, double* A, const int* lda, double* tau, double* work, const int* lwork, int* info);
470 void PREFIX DHSEQR_F77(Teuchos_fcd job, Teuchos_fcd, const int* n, const int* ilo, const int* ihi, double* h, const int* ldh, double* wr, double* wi, double* z, const int* ldz, double* work, const int* lwork, int* info);
471 void PREFIX DGEES_F77(Teuchos_fcd, Teuchos_fcd, int (*ptr2func)(double*, double*), const int* n, double* a, const int* lda, int* sdim, double* wr, double* wi, double* vs, const int* ldvs, double* work, const int* lwork, int* bwork, int* info);
472 void PREFIX DORGHR_F77(const int* n, const int* ilo, const int* ihi, double* a, const int* lda, const double* tau, double* work, const int* lwork, int* info);
473 void PREFIX DORMHR_F77(Teuchos_fcd, Teuchos_fcd, const int* m, const int* n, const int* ilo, const int* ihi, const double* a, const int* lda, const double* tau, double* c, const int* ldc, double* work, const int* lwork, int* info);
474 void PREFIX DORGQR_F77(const int* m, const int* n, const int* k, double* a, const int* lda, const double* tau, double* work, const int* lwork, int* info);
475 void PREFIX DORMQR_F77(Teuchos_fcd, Teuchos_fcd, const int* m, const int* n, const int* k, const double* a, const int* lda, const double* tau, double* C, const int* ldc, double* work, const int* lwork, int* info);
476 void PREFIX DORM2R_F77(Teuchos_fcd SIDE, Teuchos_fcd TRANS, const int* const M, const int* const N, const int* const K, const double* A, const int* const LDA, const double* TAU, double* C, const int* const LDC, double* WORK, int* const INFO);
477 
478 void PREFIX DTREVC_F77(Teuchos_fcd, Teuchos_fcd, int* select, const int* n, const double* t, const int* ldt, double* vl, const int* ldvl, double* vr, const int* ldvr, const int* mm, int* m, double* work, int* info);
479 void PREFIX DTREXC_F77(Teuchos_fcd, const int* n, double* t, const int* ldt, double* q, const int* ldq, int* ifst, int* ilst, double* work, int* info);
480 void PREFIX DTGEVC_F77(Teuchos_fcd, Teuchos_fcd, const int *select, const int *n, const double *s, const int *lds, const double *p, const int *ldp, double *vl, const int *ldvl, double *vr, const int *ldvr, const int *mm, int *m, double *work, int *info);
481 
482 
483 // Single precision LAPACK eigen solvers
484 
485 void PREFIX SSPEV_F77(Teuchos_fcd, Teuchos_fcd, const int* n, float* ap, float* w, float* z, const int* ldz, float* work, int* info);
486 void PREFIX SSYEV_F77(Teuchos_fcd, Teuchos_fcd, const int* n, float* a, const int* lda, float* w, float* work, const int* lwork, int* info);
487 void PREFIX SSYGV_F77(const int* itype, Teuchos_fcd, Teuchos_fcd, const int* n, float* a, const int* lda, float* B, const int* ldb, float* w, float* work, const int* lwork, int* info);
488 void PREFIX SSTEQR_F77(Teuchos_fcd, const int* n, float* D, float* E, float* Z, const int* ldz, float* work, int* info);
489 void PREFIX SPTEQR_F77(Teuchos_fcd, const int* n, float* D, float* E, float* Z, const int* ldz, float* work, int* info);
490 void PREFIX SGEEV_F77(Teuchos_fcd, Teuchos_fcd, const int* n, float* a, const int* lda, float* wr, float* wi, float* vl, const int* ldvl, float* vr, const int* ldvr, float* work, const int* lwork, int* info);
491 void PREFIX SGGEV_F77(Teuchos_fcd, Teuchos_fcd, const int *n, float *A, const int *lda, float *B, const int *ldb, float *alphar, float *alphai, float *beta, float *vl, const int *ldvl, float *vr, const int *ldvr, float *work, const int *lwork, int *info);
492 void PREFIX SGGES_F77(Teuchos_fcd, Teuchos_fcd, Teuchos_fcd, int (*ptr2func)(float*, float*, float*), const int* n, float* A, const int* lda, float* B, const int* ldb, int* sdim, float* alphar, float* alphai, float* beta, float* vl, const int* ldvl, float* vr, const int* ldvr, float* work, const int *lwork, int *bwork, int *info);
493 void PREFIX STRSEN_F77(Teuchos_fcd, Teuchos_fcd, const int *select, const int *n, float *t, const int *ldt, float *q, const int *ldq, float *wr, float *wi, int *m, float *s, float *sep, float *work, const int *lwork, int *iwork, const int *liwork, int *info);
494 void PREFIX STGSEN_F77(const int *ijob, const int *wantq, const int *wantz, const int *select, const int *n, float *a, const int *lda, float *b, const int *ldb, float *alphar, float *alphai, float *beta, float *q, const int *ldq, float *z, const int *ldz, int *m, float *pl, float *pr, float *dif, float *work, const int *lwork, int *iwork, const int *liwork, int *info);
495 void PREFIX SGESVD_F77(Teuchos_fcd, Teuchos_fcd, const int* m, const int* n, float* a, const int* lda, float* s, float* u, const int* ldu, float* v, const int* ldv, float* work, const int* lwork, int* info);
496 void PREFIX SGGEVX_F77(Teuchos_fcd, Teuchos_fcd, Teuchos_fcd, Teuchos_fcd, const int* n, float* a, const int* lda, float* b, const int* ldb, float* alphar, float* alphai, float* beta, float* vl, const int* ldvl, float* vr, const int* ldvr, int* ilo, int* ihi, float* lscale, float* rscale, float* abnrm, float* bbnrm, float* rconde, float* rcondv, float* work, const int* lwork, int* iwork, int* bwork, int* info);
497 void PREFIX SGEEVX_F77(Teuchos_fcd, Teuchos_fcd, Teuchos_fcd, Teuchos_fcd, const int* n, float* a, const int* lda, float* wr, float* wi, float* vl, const int* ldvl, float* vr, const int* ldvr, int* ilo, int* ihi, float* scale, float* abnrm, float* rconde, float* rcondv, float* work, const int* lwork, int* iwork, int* info);
498 void PREFIX SGEHRD_F77(const int* n, const int* ilo, const int* ihi, float* A, const int* lda, float* tau, float* work, const int* lwork, int* info);
499 void PREFIX SHSEQR_F77(Teuchos_fcd job, Teuchos_fcd, const int* n, const int* ilo, const int* ihi, float* h, const int* ldh, float* wr, float* wi, float* z, const int* ldz, float* work, const int* lwork, int* info);
500 void PREFIX SGEES_F77(Teuchos_fcd, Teuchos_fcd, int (*ptr2func)(float*, float*), const int* n, float* a, const int* lda, int* sdim, float* wr, float* wi, float* vs, const int* ldvs, float* work, const int* lwork, int* bwork, int* info);
501 void PREFIX SORGHR_F77(const int* n, const int* ilo, const int* ihi, float* a, const int* lda, const float* tau, float* work, const int* lwork, int* info);
502 void PREFIX SORMHR_F77(Teuchos_fcd, Teuchos_fcd, const int* m, const int* n, const int* ilo, const int* ihi, const float* a, const int* lda, const float* tau, float* c, const int* ldc, float* work, const int* lwork, int* info);
503 void PREFIX SORGQR_F77(const int* m, const int* n, const int* k, float* a, const int* lda, const float* tau, float* work, const int* lwork, int* info);
504 void PREFIX SORMQR_F77(Teuchos_fcd, Teuchos_fcd, const int* m, const int* n, const int* k, const float* a, const int* lda, const float* tau, float* C, const int* ldc, float* work, const int* lwork, int* info);
505 void PREFIX SORM2R_F77(Teuchos_fcd SIDE, Teuchos_fcd TRANS, const int* const M, const int* const N, const int* const K, const float* A, const int* const LDA, const float* TAU, float* C, const int* const LDC, float* WORK, int* const INFO);
506 
507 void PREFIX STREVC_F77(Teuchos_fcd, Teuchos_fcd, int* select, const int* n, const float* t, const int* ldt, float* vl, const int* ldvl, float* vr, const int* ldvr, const int* mm, int* m, float* work, int* info);
508 void PREFIX STREXC_F77(Teuchos_fcd, const int* n, float* t, const int* ldt, float* q, const int* ldq, int* ifst, int* ilst, float* work, int* info);
509 void PREFIX STGEVC_F77(Teuchos_fcd, Teuchos_fcd, const int *select, const int *n, const float *s, const int *lds, const float *p, const int *ldp, float *vl, const int *ldvl, float *vr, const int *ldvr, const int *mm, int *m, float *work, int *info);
510 
511 void PREFIX SLARTG_F77(const float* f, const float* g, float* c, float* s, float* r);
512 void PREFIX DLARTG_F77(const double* f, const double* g, double* c, double* s, double* r);
513 
514 void PREFIX SLARFG_F77(const int* n, float* alpha, float* x, const int* incx, float* tau);
515 void PREFIX DLARFG_F77(const int* n, double* alpha, double* x, const int* incx, double* tau);
516 
517 void PREFIX SGEBAL_F77(Teuchos_fcd, const int* n, float* a, const int* lda, int* ilo, int* ihi, float* scale, int* info);
518 void PREFIX SGEBAK_F77(Teuchos_fcd, Teuchos_fcd, const int* n, const int* ilo, const int* ihi, const float* scale, const int* m, float* V, const int* ldv, int* info);
519 void PREFIX DGEBAL_F77(Teuchos_fcd, const int* n, double* a, const int* lda, int* ilo, int* ihi, double* scale, int* info);
520 void PREFIX DGEBAK_F77(Teuchos_fcd, Teuchos_fcd, const int* n, const int* ilo, const int* ihi, const double* scale, const int* m, double* V, const int* ldv, int* info);
521 
522 float PREFIX SLARND_F77(const int* idist, int* seed);
523 double PREFIX DLARND_F77(const int* idist, int* seed);
524 
525 void PREFIX SLARNV_F77(const int* idist, int* seed, const int* n, float* v);
526 void PREFIX DLARNV_F77(const int* idist, int* seed, const int* n, double* v);
527 
528 float PREFIX SLAMCH_F77(Teuchos_fcd);
529 double PREFIX DLAMCH_F77(Teuchos_fcd);
530 
531 #if defined(INTEL_CXML)
532 int PREFIX ILAENV_F77( const int* ispec, const char* name, unsigned int name_length, const char* opts, unsigned int opts_length, const int* N1, const int* N2, const int* N3, const int* N4 );
533 #else
534 int PREFIX ILAENV_F77( const int* ispec, const char* name, const char* opts, const int* N1, const int* N2, const int* N3, const int* N4, unsigned int name_length, unsigned int opts_length );
535 #endif
536 
537 #ifdef HAVE_TEUCHOS_BLASFLOAT
538  #if defined(HAVE_SLAPY2_PROBLEM) && defined(HAVE_SLAPY2_DOUBLE_RETURN)
539  double PREFIX SLAPY2_F77(const float* x, const float* y);
540  #else
541  float PREFIX SLAPY2_F77(const float* x, const float* y);
542  #endif
543 #endif
544 
545 double PREFIX DLAPY2_F77(const double* x, const double* y);
546 
547 #ifdef HAVE_TEUCHOS_COMPLEX
548 
549 // Double precision complex LAPACK linear solvers
550 void PREFIX ZGELS_F77(Teuchos_fcd ch, const int* m, const int* n, const int* nrhs, std::complex<double>* a, const int* lda, std::complex<double>* b, const int* ldb, std::complex<double>* work, const int* lwork, int* info);
551 void PREFIX ZGELSS_F77(const int* m, const int* n, const int* nrhs, std::complex<double>* a, const int* lda, std::complex<double>* b, const int* ldb, double* s, const double* rcond, int* rank, std::complex<double>* work, const int* lwork, double* rwork, int* info);
552 void PREFIX ZGEQRF_F77(const int* m, const int* n, std::complex<double>* a, const int* lda, std::complex<double>* tau, std::complex<double>* work, const int* lwork, int* info);
553 void PREFIX ZGEQR2_F77(const int* const m, const int* const n, std::complex<double>* a, const int* const lda, std::complex<double>* tau, std::complex<double>* work, int* const info);
554 void PREFIX ZUNGQR_F77(const int* m, const int* n, const int* k, std::complex<double>* a, const int* lda, const std::complex<double>* tau, std::complex<double>* work, const int* lwork, int* info);
555 void PREFIX ZUNMQR_F77(Teuchos_fcd SIDE, Teuchos_fcd TRANS, const int* m, const int* n, const int* k, const std::complex<double>* A, const int* lda, const std::complex<double>* tau, std::complex<double>* C, const int* ldc, std::complex<double>* work, const int* lwork, int* info);
556 void PREFIX ZUNM2R_F77(Teuchos_fcd SIDE, Teuchos_fcd TRANS, const int* const M, const int* const N, const int* const K, const std::complex<double>* A, const int* const LDA, const std::complex<double>* TAU, std::complex<double>* C, const int* const LDC, std::complex<double>* WORK, int* const INFO);
557 void PREFIX ZGETRF_F77(const int* m, const int* n, std::complex<double>* a, const int* lda, int* ipiv, int* info);
558 void PREFIX ZGETRS_F77(Teuchos_fcd, const int* n, const int* nrhs, const std::complex<double>* a, const int* lda,const int* ipiv, std::complex<double>* x , const int* ldx, int* info);
559 void PREFIX ZLASCL_F77(Teuchos_fcd, const int* kl, const int* ku, const double* cfrom, const double* cto, const int* m, const int* n, std::complex<double>* a, const int* lda, int* info);
560 void PREFIX ZLASWP_F77(const int* N, std::complex<double>* A, const int* LDA, const int* K1, const int* K2, const int* IPIV, const int* INCX);
561 void PREFIX ZGBTRF_F77(const int* m, const int* n, const int* kl, const int* ku, std::complex<double>* a, const int* lda, int* ipiv, int* info);
562 void PREFIX ZGBTRS_F77(Teuchos_fcd, const int* n, const int* kl, const int* ku, const int* nrhs, const std::complex<double>* a, const int* lda,const int* ipiv, std::complex<double>* x , const int* ldx, int* info);
563 void PREFIX ZGTTRF_F77(const int* n, std::complex<double>* dl, std::complex<double>* d, std::complex<double>* du, std::complex<double>* du2, int* ipiv, int* info);
564 void PREFIX ZGTTRS_F77(Teuchos_fcd, const int* n, const int* nrhs, const std::complex<double>* dl, const std::complex<double>* d, const std::complex<double>* du, const std::complex<double>* du2, const int* ipiv, std::complex<double>* x , const int* ldx, int* info);
565 void PREFIX ZPTTRF_F77(const int* n, double* d, std::complex<double>* e, int* info);
566 void PREFIX ZPTTRS_F77(Teuchos_fcd UPLO, const int* n, const int* nrhs, const double* d, const std::complex<double>* e, std::complex<double>* x , const int* ldx, int* info);
567 void PREFIX ZGETRI_F77(const int* n, std::complex<double>* a, const int* lda, const int* ipiv, std::complex<double>* work , const int* lwork, int* info);
568 void PREFIX ZLATRS_F77(Teuchos_fcd UPLO, Teuchos_fcd TRANS, Teuchos_fcd DIAG, Teuchos_fcd NORMIN, const int* N, const std::complex<double>* A, const int* LDA, std::complex<double>* X, double* SCALE, double* CNORM, int* INFO);
569 void PREFIX ZGECON_F77(Teuchos_fcd norm, const int* n, const std::complex<double>* a, const int* lda, const double* anorm, double* rcond, std::complex<double>* work, double* rwork, int* info);
570 void PREFIX ZGBCON_F77(Teuchos_fcd norm, const int* n, const int* kl, const int* ku, const std::complex<double>* a, const int* lda, const int* IPIV, const double* anorm, double* rcond, std::complex<double>* work, double* rwork, int* info);
571 double PREFIX ZLANGB_F77(Teuchos_fcd norm, const int* n, const int* kl, const int* ku, const std::complex<double>* a, const int* lda, double* work);
572 void PREFIX ZGESV_F77(const int* n, const int* nrhs, std::complex<double>* a, const int* lda, int* ipiv, std::complex<double>* x , const int* ldx, int* info);
573 void PREFIX ZGEEQU_F77(const int* m, const int* n, const std::complex<double>* a, const int* lda, double* r, double* c, double* rowcnd, double* colcnd, double* amax, int* info);
574 void PREFIX ZGBEQU_F77(const int* m, const int* n, const int* kl, const int* ku, const std::complex<double>* a, const int* lda, double* r, double* c, double* rowcnd, double* colcnd, double* amax, int* info);
575 void PREFIX ZGERFS_F77(Teuchos_fcd, const int* n, const int* nrhs, const std::complex<double>* a, const int* lda, const std::complex<double>* af, const int* ldaf, const int* ipiv, const std::complex<double>* b, const int* ldb, std::complex<double>* x, const int* ldx, double* ferr, double* berr, std::complex<double>* work, double* rwork, int* info);
576 void PREFIX ZGBRFS_F77(Teuchos_fcd, const int* n, const int* kl, const int* ku, const int* nrhs, const std::complex<double>* a, const int* lda, const std::complex<double>* af, const int* ldaf, const int* ipiv, const std::complex<double>* b, const int* ldb, std::complex<double>* x, const int* ldx, double* ferr, double* berr, std::complex<double>* work, double* rwork, int* info);
577 void PREFIX ZGESVX_F77(Teuchos_fcd, Teuchos_fcd, const int* n, const int* nrhs, std::complex<double>* a, const int* lda, std::complex<double>* af, const int* ldaf, int* ipiv, Teuchos_nonconst_fcd, double* r, double* c, std::complex<double>* b, const int* ldb, std::complex<double>* x, const int* ldx, double* rcond, double* ferr, double* berr, std::complex<double>* work, double* rwork, int* info);
578 void PREFIX ZPOTRF_F77(Teuchos_fcd, const int* n, std::complex<double>* a, const int* lda, int* info);
579 void PREFIX ZPOTRS_F77(Teuchos_fcd, const int* n, const int* nrhs, const std::complex<double>* a, const int* lda, std::complex<double>*x , const int* ldx, int* info);
580 void PREFIX ZPOTRI_F77(Teuchos_fcd, const int* n, std::complex<double>* a, const int* lda, int* info);
581 void PREFIX ZPOCON_F77(Teuchos_fcd, const int* n, const std::complex<double>* a, const int* lda, const double* anorm, double* rcond, std::complex<double>* work, double* rwork, int* info);
582 void PREFIX ZPOSV_F77(Teuchos_fcd, const int* n, const int* nrhs, std::complex<double>* a, const int* lda, std::complex<double>*x , const int* ldx, int* info);
583 void PREFIX ZPOEQU_F77(const int* n, const std::complex<double>* a, const int* lda, double* s, double* scond, double* amax, int* info);
584 void PREFIX ZPORFS_F77(Teuchos_fcd, const int* n, const int* nrhs, const std::complex<double>* a, const int* lda, const std::complex<double>* af, const int* ldaf, const std::complex<double>* b, const int* ldb, std::complex<double>* x, const int* ldx, double* ferr, double* berr, std::complex<double>* work, double* rwork, int* info);
585 void PREFIX ZPOSVX_F77(Teuchos_fcd, Teuchos_fcd, const int* n, const int* nrhs, std::complex<double>* a, const int* lda, std::complex<double>* af, const int* ldaf, Teuchos_nonconst_fcd, double* s, std::complex<double>* b, const int* ldb, std::complex<double>* x, const int* ldx, double* rcond, double* ferr, double* berr, std::complex<double>* work, double* rwork, int* info);
586 void PREFIX ZTRTRS_F77(Teuchos_fcd, Teuchos_fcd, Teuchos_fcd, const int* n, const int* nrhs, const std::complex<double>* a, const int* lda, std::complex<double>* b, const int* ldb, int* info);
587 void PREFIX ZTRTRI_F77(Teuchos_fcd, Teuchos_fcd, const int* n, std::complex<double>* a, const int* lda, int* info);
588 void PREFIX ZGEQP3_F77( const int *M, const int *N, std::complex<double>* A, const int *LDA, int *JPVT, std::complex<double>* TAU, std::complex<double>* WORK, const int *LWORK, double *RWORK, int *INFO );
589 
590 // Single precision complex LAPACK linear solvers
591 
592 void PREFIX CGELS_F77(Teuchos_fcd ch, const int* m, const int* n, const int* nrhs, std::complex<float>* a, const int* lda, std::complex<float>* b, const int* ldb, std::complex<float>* work, const int* lwork, int* info);
593 void PREFIX CGELSS_F77(const int* m, const int* n, const int* nrhs, std::complex<float>* a, const int* lda, std::complex<float>* b, const int* ldb, float* s, const float* rcond, int* rank, std::complex<float>* work, const int* lwork, float* rwork, int* info);
594 void PREFIX CGEQRF_F77(const int* m, const int* n, std::complex<float>* a, const int* lda, std::complex<float>* tau, std::complex<float>* work, const int* lwork, int* info);
595 void PREFIX CGEQR2_F77(const int* const m, const int* const n, std::complex<float>* a, const int* const lda, std::complex<float>* tau, std::complex<float>* work, int* const info);
596 void PREFIX CUNGQR_F77(const int* m, const int* n, const int* k, std::complex<float>* a, const int* lda, const std::complex<float>* tau, std::complex<float>* work, const int* lwork, int* info);
597 void PREFIX CUNMQR_F77(Teuchos_fcd SIDE, Teuchos_fcd TRANS, const int* m, const int* n, const int* k, const std::complex<float>* A, const int* lda, const std::complex<float>* tau, std::complex<float>* C, const int* ldc, std::complex<float>* work, const int* lwork, int* info);
598 void PREFIX CUNM2R_F77(Teuchos_fcd SIDE, Teuchos_fcd TRANS, const int* const M, const int* const N, const int* const K, const std::complex<float>* A, const int* const LDA, const std::complex<float>* TAU, std::complex<float>* C, const int* const LDC, std::complex<float>* WORK, int* const INFO);
599 void PREFIX CGETRF_F77(const int* m, const int* n, std::complex<float>* a, const int* lda, int* ipiv, int* info);
600 void PREFIX CGETRS_F77(Teuchos_fcd, const int* n, const int* nrhs, const std::complex<float>* a, const int* lda,const int* ipiv, std::complex<float>* x , const int* ldx, int* info);
601 void PREFIX CLASCL_F77(Teuchos_fcd, const int* kl, const int* ku, const float* cfrom, const float* cto, const int* m, const int* n, std::complex<float>* a, const int* lda, int* info);
602 void PREFIX CLASWP_F77(const int* N, std::complex<float>* A, const int* LDA, const int* K1, const int* K2, const int* IPIV, const int* INCX);
603 void PREFIX CGBTRF_F77(const int* m, const int* n, const int* kl, const int* ku, std::complex<float>* a, const int* lda, int* ipiv, int* info);
604 void PREFIX CGBTRS_F77(Teuchos_fcd, const int* n, const int* kl, const int* ku, const int* nrhs, const std::complex<float>* a, const int* lda,const int* ipiv, std::complex<float>* x , const int* ldx, int* info);
605 void PREFIX CGTTRF_F77(const int* n, std::complex<float>* dl, std::complex<float>* d, std::complex<float>* du, std::complex<float>* du2, int* ipiv, int* info);
606 void PREFIX CGTTRS_F77(Teuchos_fcd, const int* n, const int* nrhs, const std::complex<float>* dl, const std::complex<float>* d, const std::complex<float>* du, const std::complex<float>* du2, const int* ipiv, std::complex<float>* x , const int* ldx, int* info);
607 void PREFIX CPTTRF_F77(const int* n, float* d, std::complex<float>* e, int* info);
608 void PREFIX CPTTRS_F77(Teuchos_fcd UPLO, const int* n, const int* nrhs, const float* d, const std::complex<float>* e, std::complex<float>* x , const int* ldx, int* info);
609 void PREFIX CGETRI_F77(const int* n, std::complex<float>* a, const int* lda, const int* ipiv, std::complex<float>* work , const int* lwork, int* info);
610 void PREFIX CLATRS_F77(Teuchos_fcd UPLO, Teuchos_fcd TRANS, Teuchos_fcd DIAG, Teuchos_fcd NORMIN, const int* N, const std::complex<float>* A, const int* LDA, std::complex<float>* X, float* SCALE, float* CNORM, int* INFO);
611 void PREFIX CGECON_F77(Teuchos_fcd norm, const int* n, const std::complex<float>* a, const int* lda, const float* anorm, float* rcond, std::complex<float>* work, float* rwork, int* info);
612 void PREFIX CGBCON_F77(Teuchos_fcd norm, const int* n, const int* kl, const int* ku, const std::complex<float>* a, const int* lda, const int* IPIV, const float* anorm, float* rcond, std::complex<float>* work, float* rwork, int* info);
613 float PREFIX CLANGB_F77(Teuchos_fcd norm, const int* n, const int* kl, const int* ku, const std::complex<float>* a, const int* lda, float* work);
614 void PREFIX CGESV_F77(const int* n, const int* nrhs, std::complex<float>* a, const int* lda, int* ipiv, std::complex<float>* x, const int* ldx, int* info);
615 void PREFIX CGEEQU_F77(const int* m, const int* n, const std::complex<float>* a, const int* lda, float* r, float* c, float* rowcnd, float* colcnd, float* amax, int* info);
616 void PREFIX CGBEQU_F77(const int* m, const int* n, const int* kl, const int* ku, const std::complex<float>* a, const int* lda, float* r, float* c, float* rowcnd, float* colcnd, float* amax, int* info);
617 void PREFIX CGERFS_F77(Teuchos_fcd, const int* n, const int* nrhs, const std::complex<float>* a, const int* lda, const std::complex<float>* af, const int* ldaf, const int* ipiv, const std::complex<float>* b, const int* ldb, std::complex<float>* x, const int* ldx, float* ferr, float* berr, std::complex<float>* work, float* rwork, int* info);
618 void PREFIX CGBRFS_F77(Teuchos_fcd, const int* n, const int* kl, const int* ku, const int* nrhs, const std::complex<float>* a, const int* lda, const std::complex<float>* af, const int* ldaf, const int* ipiv, const std::complex<float>* b, const int* ldb, std::complex<float>* x, const int* ldx, float* ferr, float* berr, std::complex<float>* work, float* rwork, int* info);
619 void PREFIX CGESVX_F77(Teuchos_fcd, Teuchos_fcd, const int* n, const int* nrhs, std::complex<float>* a, const int* lda, std::complex<float>* af, const int* ldaf, int* ipiv, Teuchos_nonconst_fcd, float* r, float* c, std::complex<float>* b, const int* ldb, std::complex<float>* x, const int* ldx, float* rcond, float* ferr, float* berr, std::complex<float>* work, float* rwork, int* info);
620 void PREFIX CPOTRF_F77(Teuchos_fcd, const int* n, std::complex<float>* a, const int* lda, int* info);
621 void PREFIX CPOTRS_F77(Teuchos_fcd, const int* n, const int* nrhs, const std::complex<float>* a, const int* lda, std::complex<float>*x , const int* ldx, int* info);
622 void PREFIX CPOTRI_F77(Teuchos_fcd, const int* n, std::complex<float>* a, const int* lda, int* info);
623 void PREFIX CPOCON_F77(Teuchos_fcd, const int* n, const std::complex<float>* a, const int* lda, const float* anorm, float* rcond, std::complex<float>* work, float* rwork, int* info);
624 void PREFIX CPOSV_F77(Teuchos_fcd, const int* n, const int* nrhs, std::complex<float>* a, const int* lda, std::complex<float>*x , const int* ldx, int* info);
625 void PREFIX CPOEQU_F77(const int* n, const std::complex<float>* a, const int* lda, float* s, float* scond, float* amax, int* info);
626 void PREFIX CPORFS_F77(Teuchos_fcd, const int* n, const int* nrhs, const std::complex<float>* a, const int* lda, const std::complex<float>* af, const int* ldaf, const std::complex<float>* b, const int* ldb, std::complex<float>* x, const int* ldx, float* ferr, float* berr, std::complex<float>* work, float* rwork, int* info);
627 void PREFIX CPOSVX_F77(Teuchos_fcd, Teuchos_fcd, const int* n, const int* nrhs, std::complex<float>* a, const int* lda, std::complex<float>* af, const int* ldaf, Teuchos_nonconst_fcd, float* s, std::complex<float>* b, const int* ldb, std::complex<float>* x, const int* ldx, float* rcond, float* ferr, float* berr, std::complex<float>* work, float* rwork, int* info);
628 void PREFIX CTRTRS_F77(Teuchos_fcd, Teuchos_fcd, Teuchos_fcd, const int* n, const int* nrhs, const std::complex<float>* a, const int* lda, std::complex<float>* b, const int* ldb, int* info);
629 void PREFIX CTRTRI_F77(Teuchos_fcd, Teuchos_fcd, const int* n, std::complex<float>* a, const int* lda, int* info);
630 void PREFIX CGEQP3_F77( const int *M, const int *N, std::complex<float>* A, const int *LDA, int *JPVT, std::complex<float>* TAU, std::complex<float>* WORK, const int *LWORK, float *RWORK, int *INFO );
631 
632 // Double precision complex LAPACK eigensolvers
633 
634 void PREFIX ZSTEQR_F77(Teuchos_fcd, const int* n, double* D, double* E, std::complex<double>* Z, const int* ldz, double* work, int* info);
635 void PREFIX ZPTEQR_F77(Teuchos_fcd, const int* n, double* D, double* E, std::complex<double>* Z, const int* ldz, double* work, int* info);
636 void PREFIX ZHEEV_F77(Teuchos_fcd, Teuchos_fcd, const int* n, std::complex<double>* a, const int* lda, double* w, std::complex<double>* work, const int* lwork, double* rwork, int* info);
637 void PREFIX ZHEGV_F77(const int* itype, Teuchos_fcd, Teuchos_fcd, const int* n, std::complex<double>* a, const int* lda, std::complex<double>* B, const int* ldb, double* w, std::complex<double>* work, const int* lwork, double *rwork, int* info);
638 void PREFIX ZGEEV_F77(Teuchos_fcd, Teuchos_fcd, const int* n, std::complex<double>* a, const int* lda, std::complex<double>* w, std::complex<double>* vl, const int* ldvl, std::complex<double>* vr, const int* ldvr, std::complex<double>* work, const int* lwork, double* rwork, int* info);
639 void PREFIX ZGGEV_F77(Teuchos_fcd, Teuchos_fcd, const int *n, std::complex<double> *A, const int *lda, std::complex<double> *B, const int *ldb, std::complex<double> *alpha, std::complex<double> *beta, std::complex<double> *vl, const int *ldvl, std::complex<double> *vr, const int *ldvr, std::complex<double> *work, const int *lwork, double *rwork, int *info);
640 void PREFIX ZGGES_F77(Teuchos_fcd, Teuchos_fcd, Teuchos_fcd, int (*ptr2func)(std::complex<double>*, std::complex<double>*), const int* n, std::complex<double>* A, const int* lda, std::complex<double>* B, const int* ldb, int* sdim, std::complex<double>* alpha, std::complex<double>* beta, std::complex<double>* vl, const int* ldvl, std::complex<double>* vr, const int* ldvr, std::complex<double>* work, const int *lwork, double* rwork, int* bwork, int *info);
641 void PREFIX ZTGSEN_F77(const int *ijob, const int *wantq, const int *wantz, const int *select, const int *n, std::complex<double>* a, const int *lda, std::complex<double>* b, const int *ldb, std::complex<double>* alpha, std::complex<double>* beta, std::complex<double>* q, const int *ldq, std::complex<double>* z, const int *ldz, int *m, double *pl, double *pr, double *dif, std::complex<double>* work, const int *lwork, int *iwork, const int *liwork, int *info);
642 void PREFIX ZGESVD_F77(Teuchos_fcd, Teuchos_fcd, const int* m, const int* n, std::complex<double>* a, const int* lda, double* s, std::complex<double>* u, const int* ldu, std::complex<double>* v, const int* ldv, std::complex<double>* work, const int* lwork, double* rwork, int* info);
643 void PREFIX ZGGEVX_F77(Teuchos_fcd, Teuchos_fcd, Teuchos_fcd, Teuchos_fcd, const int* n, std::complex<double>* a, const int* lda, std::complex<double>* b, const int* ldb, std::complex<double>* alpha, std::complex<double>* beta, std::complex<double>* vl, const int* ldvl, std::complex<double>* vr, const int* ldvr, int* ilo, int* ihi, double* lscale, double* rscale, double* abnrm, double* bbnrm, double* rconde, double* rcondv, std::complex<double>* work, const int* lwork, double* rwork, int* iwork, int* bwork, int* info);
644 void PREFIX ZGEEVX_F77(Teuchos_fcd, Teuchos_fcd, Teuchos_fcd, Teuchos_fcd, const int* n, std::complex<double>* a, const int* lda, std::complex<double>* w, std::complex<double>* vl, const int* ldvl, std::complex<double>* vr, const int* ldvr, int* ilo, int* ihi, double* scale, double* abnrm, double* rconde, double* rcondv, std::complex<double>* work, const int* lwork, double* rwork, int* info);
645 void PREFIX ZGEHRD_F77(const int* n, const int* ilo, const int* ihi, std::complex<double>* A, const int* lda, std::complex<double>* tau, std::complex<double>* work, const int* lwork, int* info);
646 void PREFIX ZHSEQR_F77(Teuchos_fcd job, Teuchos_fcd, const int* n, const int* ilo, const int* ihi, std::complex<double>* h, const int* ldh, std::complex<double>* w, std::complex<double>* z, const int* ldz, std::complex<double>* work, const int* lwork, int* info);
647 void PREFIX ZGEES_F77(Teuchos_fcd, Teuchos_fcd, int (*ptr2func)(std::complex<double>*), const int* n, std::complex<double>* a, const int* lda, int* sdim, std::complex<double>* w, std::complex<double>* vs, const int* ldvs, std::complex<double>* work, const int* lwork, double* rwork, int* bwork, int* info);
648 void PREFIX ZTREVC_F77(Teuchos_fcd, Teuchos_fcd, int* select, const int* n, const std::complex<double>* t, const int* ldt, std::complex<double>* vl, const int* ldvl, std::complex<double>* vr, const int* ldvr, const int* mm, int* m, std::complex<double>* work, double* rwork, int* info);
649 
650 // note that complex takes const int* for ifst, ilst - float/double types do NOT - they tak int*
651 void PREFIX ZTREXC_F77(Teuchos_fcd, const int* n, std::complex<double>* t, const int* ldt, std::complex<double>* q, const int* ldq, const int* ifst, const int* ilst, int* info);
652 
653 // Single precision complex LAPACK eigensolvers
654 
655 void PREFIX CSTEQR_F77(Teuchos_fcd, const int* n, float* D, float* E, std::complex<float>* Z, const int* ldz, float* work, int* info);
656 void PREFIX CPTEQR_F77(Teuchos_fcd, const int* n, float* D, float* E, std::complex<float>* Z, const int* ldz, float* work, int* info);
657 void PREFIX CHEEV_F77(Teuchos_fcd, Teuchos_fcd, const int* n, std::complex<float>* a, const int* lda, float* w, std::complex<float>* work, const int* lwork, float* rwork, int* info);
658 void PREFIX CHEGV_F77(const int* itype, Teuchos_fcd, Teuchos_fcd, const int* n, std::complex<float>* a, const int* lda, std::complex<float>* B, const int* ldb, float* w, std::complex<float>* work, const int* lwork, float *rwork, int* info);
659 void PREFIX CGEEV_F77(Teuchos_fcd, Teuchos_fcd, const int* n, std::complex<float>* a, const int* lda, std::complex<float>* w, std::complex<float>* vl, const int* ldvl, std::complex<float>* vr, const int* ldvr, std::complex<float>* work, const int* lwork, float* rwork, int* info);
660 void PREFIX CGGEV_F77(Teuchos_fcd, Teuchos_fcd, const int *n, std::complex<float> *A, const int *lda, std::complex<float> *B, const int *ldb, std::complex<float> *alpha, std::complex<float> *beta, std::complex<float> *vl, const int *ldvl, std::complex<float> *vr, const int *ldvr, std::complex<float> *work, const int *lwork, float *rwork, int *info);
661 void PREFIX CGGES_F77(Teuchos_fcd, Teuchos_fcd, Teuchos_fcd, int (*ptr2func)(std::complex<float>*, std::complex<float>*), const int* n, std::complex<float>* A, const int* lda, std::complex<float>* B, const int* ldb, int* sdim, std::complex<float>* alpha, std::complex<float>* beta, std::complex<float>* vl, const int* ldvl, std::complex<float>* vr, const int* ldvr, std::complex<float>* work, const int *lwork, float* rwork, int* bwork, int *info);
662 void PREFIX CTGSEN_F77(const int *ijob, const int *wantq, const int *wantz, const int *select, const int *n, std::complex<float>* a, const int *lda, std::complex<float>* b, const int *ldb, std::complex<float>* alpha, std::complex<float>* beta, std::complex<float>* q, const int *ldq, std::complex<float>* z, const int *ldz, int *m, float* pl, float* pr, float* dif, std::complex<float>* work, const int *lwork, int *iwork, const int *liwork, int *info);
663 void PREFIX CGESVD_F77(Teuchos_fcd, Teuchos_fcd, const int* m, const int* n, std::complex<float>* a, const int* lda, float* s, std::complex<float>* u, const int* ldu, std::complex<float>* v, const int* ldv, std::complex<float>* work, const int* lwork, float* rwork, int* info);
664 void PREFIX CGEEVX_F77(Teuchos_fcd, Teuchos_fcd, Teuchos_fcd, Teuchos_fcd, const int* n, std::complex<float>* a, const int* lda, std::complex<float>* w, std::complex<float>* vl, const int* ldvl, std::complex<float>* vr, const int* ldvr, int* ilo, int* ihi, float* scale, float* abnrm, float* rconde, float* rcondv, std::complex<float>* work, const int* lwork, float* rwork, int* info);
665 void PREFIX CGGEVX_F77(Teuchos_fcd, Teuchos_fcd, Teuchos_fcd, Teuchos_fcd, const int* n, std::complex<float>* a, const int* lda, std::complex<float>* b, const int* ldb, std::complex<float>* alpha, std::complex<float>* beta, std::complex<float>* vl, const int* ldvl, std::complex<float>* vr, const int* ldvr, int* ilo, int* ihi, float* lscale, float* rscale, float* abnrm, float* bbnrm, float* rconde, float* rcondv, std::complex<float>* work, const int* lwork, float* rwork, int* iwork, int* bwork, int* info);
666 void PREFIX CGEHRD_F77(const int* n, const int* ilo, const int* ihi, std::complex<float>* A, const int* lda, std::complex<float>* tau, std::complex<float>* work, const int* lwork, int* info);
667 void PREFIX CHSEQR_F77(Teuchos_fcd job, Teuchos_fcd, const int* n, const int* ilo, const int* ihi, std::complex<float>* h, const int* ldh, std::complex<float>* w, std::complex<float>* z, const int* ldz, std::complex<float>* work, const int* lwork, int* info);
668 void PREFIX CGEES_F77(Teuchos_fcd, Teuchos_fcd, int (*ptr2func)(std::complex<float>*), const int* n, std::complex<float>* a, const int* lda, int* sdim, std::complex<float>* w, std::complex<float>* vs, const int* ldvs, std::complex<float>* work, const int* lwork, float* rwork, int* bwork, int* info);
669  void PREFIX CTREVC_F77(Teuchos_fcd, Teuchos_fcd, int* select, const int* n, const std::complex<float>* t, const int* ldt, std::complex<float>* vl, const int* ldvl, std::complex<float>* vr, const int* ldvr, const int* mm, int* m, std::complex<float>* work, float* rwork, int* info);
670 
671 // note that complex takes const int* for ifst, ilst - float/double types do NOT - they tak int*
672 void PREFIX CTREXC_F77(Teuchos_fcd, const int* n, std::complex<float>* t, const int* ldt, std::complex<float>* q, const int* ldq, const int* ifst, const int* ilst, int* info);
673 
674 void PREFIX CLARTG_F77(const std::complex<float>* f, const std::complex<float>* g, float* c, std::complex<float>* s, std::complex<float>* r);
675 void PREFIX ZLARTG_F77(const std::complex<double>* f, const std::complex<double>* g, double* c, std::complex<double>* s, std::complex<double>* r);
676 
677 void PREFIX CLARFG_F77(const int* n, std::complex<float>* alpha, std::complex<float>* x, const int* incx, std::complex<float>* tau);
678 void PREFIX ZLARFG_F77(const int* n, std::complex<double>* alpha, std::complex<double>* x, const int* incx, std::complex<double>* tau);
679 
680 void PREFIX CGEBAL_F77(Teuchos_fcd, const int* n, std::complex<float>* a, const int* lda, int* ilo, int* ihi, float* scale, int* info);
681 void PREFIX CGEBAK_F77(Teuchos_fcd, Teuchos_fcd, const int* n, const int* ilo, const int* ihi, const float* scale, const int* m, std::complex<float>* V, const int* ldv, int* info);
682 void PREFIX ZGEBAL_F77(Teuchos_fcd, const int* n, std::complex<double>* a, const int* lda, int* ilo, int* ihi, double* scale, int* info);
683 void PREFIX ZGEBAK_F77(Teuchos_fcd, Teuchos_fcd, const int* n, const int* ilo, const int* ihi, const double* scale, const int* m, std::complex<double>* V, const int* ldv, int* info);
684 
685 // Returning the C99 complex type instead of the C++ complex type
686 // avoids build warnings of the following form:
687 //
688 // warning: $FUNCTION_NAME has C-linkage specified, but returns
689 // user-defined type 'std::complex<double>' which is incompatible with
690 // C [-Wreturn-type-c-linkage]
691 //
692 // However, we may only use those types if the C++ compiler supports
693 // them. C++11 implies C99 support generally, so asking whether the
694 // compiler supports C++11 is a reasonable test. Unless you're using
695 // Visual Studio, which supports subsets of C++11, but not this.
696 #if (defined(HAVE_TEUCHOSCORE_CXX11) && !defined(_MSC_VER))
697 float _Complex PREFIX CLARND_F77(const int* idist, int* seed);
698 double _Complex PREFIX ZLARND_F77(const int* idist, int* seed);
699 #else // NOT HAVE_TEUCHOSCORE_CXX11 || _MSC_VER
700 std::complex<float> PREFIX CLARND_F77(const int* idist, int* seed);
701 std::complex<double> PREFIX ZLARND_F77(const int* idist, int* seed);
702 #endif
703 
704 
705 void PREFIX CLARNV_F77(const int* idist, int* seed, const int* n, std::complex<float>* v);
706 void PREFIX ZLARNV_F77(const int* idist, int* seed, const int* n, std::complex<double>* v);
707 
708 #endif /* HAVE_TEUCHOS_COMPLEX */
709 
710 #ifdef __cplusplus
711 }
712 #endif
713 
714 /* Don't leave a global macros called PREFIX or Teuchos_fcd laying around */
715 
716 #ifdef PREFIX
717 # undef PREFIX
718 #endif
719 
720 #ifdef Teuchos_fcd
721 # undef Teuchos_fcd
722 #endif
723 
724 #endif // end of TEUCHOS_LAPACK_WRAPPERS_HPP_
Teuchos header file which uses auto-configuration information to include necessary C++ headers...
int rank(const Comm< Ordinal > &comm)
Get the process rank.