42#ifndef _TEUCHOS_LAPACK_WRAPPERS_HPP_
43#define _TEUCHOS_LAPACK_WRAPPERS_HPP_
54#if defined(INTEL_CXML)
55# define PREFIX __stdcall
56# define Teuchos_fcd const char *, unsigned int
57#elif defined(INTEL_MKL)
59# define Teuchos_fcd const char *
62# define Teuchos_fcd const char *
66#if defined(INTEL_CXML)
67# define PREFIX __stdcall
68# define Teuchos_nonconst_fcd char *, unsigned int
69#elif defined(INTEL_MKL)
71# define Teuchos_nonconst_fcd char *
74# define Teuchos_nonconst_fcd char *
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)
152#ifdef HAVE_TEUCHOS_COMPLEX
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)
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);
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)
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)
297#ifdef HAVE_TEUCHOS_COMPLEX
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)
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)
373void 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);
374void 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);
375void 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);
376void PREFIX DGEQRF_F77(
const int* m,
const int* n,
double* a,
const int* lda,
double* tau,
double* work,
const int* lwork,
int* info);
377void PREFIX DGEQR2_F77(
const int*
const m,
const int*
const n,
double* a,
const int*
const lda,
double* tau,
double* work,
int*
const info);
378void PREFIX DGETRF_F77(
const int* m,
const int* n,
double* a,
const int* lda,
int* ipiv,
int* info);
379void 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);
380void 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);
381void PREFIX DLASWP_F77(
const int* N,
double*
A,
const int* LDA,
const int* K1,
const int* K2,
const int* IPIV,
const int* INCX);
382void PREFIX DGBTRF_F77(
const int* m,
const int* n,
const int* kl,
const int* ku,
double* a,
const int* lda,
int* ipiv,
int* info);
383void 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);
384void PREFIX DGTTRF_F77(
const int* n,
double* dl,
double* d,
double* du,
double* du2,
int* ipiv,
int* info);
385void 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);
387void PREFIX DPTTRS_F77(
const int* n,
const int* nrhs,
const double* d,
const double* e,
double* x ,
const int* ldx,
int* info);
388void PREFIX DGETRI_F77(
const int* n,
double* a,
const int* lda,
const int* ipiv,
double* work ,
const int* lwork,
int* info);
389void 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);
390void 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);
391void 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);
393void PREFIX DGESV_F77(
const int* n,
const int* nrhs,
double* a,
const int* lda,
int* ipiv,
double* x ,
const int* ldx,
int* info);
394void 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);
395void 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);
396void 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);
397void 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);
398void 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,
399double* c,
double* b,
const int* ldb,
double* x,
const int* ldx,
double* rcond,
double* ferr,
double* berr,
double* work,
int* iwork,
int* info);
404void 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);
406void PREFIX DPOEQU_F77(
const int* n,
const double* a,
const int* lda,
double* s,
double* scond,
double* amax,
int* info);
407void 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);
408void 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);
411void 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 );
415void 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);
416void 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);
417void 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);
418void PREFIX SGEQRF_F77(
const int* m,
const int* n,
float* a,
const int* lda,
float* tau,
float* work,
const int* lwork,
int* info);
419void PREFIX SGEQR2_F77(
const int*
const m,
const int*
const n,
float* a,
const int*
const lda,
float* tau,
float* work,
int*
const info);
420void PREFIX SGETRF_F77(
const int* m,
const int* n,
float* a,
const int* lda,
int* ipiv,
int* info);
421void 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);
422void 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);
423void PREFIX SLASWP_F77(
const int* N,
float*
A,
const int* LDA,
const int* K1,
const int* K2,
const int* IPIV,
const int* INCX);
424void PREFIX SGBTRF_F77(
const int* m,
const int* n,
const int* kl,
const int* ku,
float* a,
const int* lda,
int* ipiv,
int* info);
425void 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);
426void PREFIX SGTTRF_F77(
const int* n,
float* dl,
float* d,
float* du,
float* du2,
int* ipiv,
int* info);
427void 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);
429void PREFIX SPTTRS_F77(
const int* n,
const int* nrhs,
const float* d,
const float* e,
float* x ,
const int* ldx,
int* info);
430void PREFIX SGETRI_F77(
const int* n,
float* a,
const int* lda,
const int* ipiv,
float* work ,
const int* lwork,
int* info);
431void 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);
432void 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);
433void 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);
435void PREFIX SGESV_F77(
const int* n,
const int* nrhs,
float* a,
const int* lda,
int* ipiv,
float* x ,
const int* ldx,
int* info);
436void 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);
437void 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);
438void 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);
439void 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);
440void 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,
441float* c,
float* b,
const int* ldb,
float* x,
const int* ldx,
float* rcond,
float* ferr,
float* berr,
float* work,
int* iwork,
int* info);
446void 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);
448void PREFIX SPOEQU_F77(
const int* n,
const float* a,
const int* lda,
float* s,
float* scond,
float* amax,
int* info);
449void 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);
450void 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);
453void 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 );
458void 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);
461void 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);
462void 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);
463void 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);
464void 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);
465void 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);
466void 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);
467void 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);
468void 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);
469void 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);
470void 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);
471void 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);
472void 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);
473void 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);
474void 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);
475void 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);
476void 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);
478void 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);
479void 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);
480void 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);
487void 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);
490void 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);
491void 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);
492void 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);
493void 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);
494void 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);
495void 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);
496void 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);
497void 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);
498void 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);
499void 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);
500void 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);
501void 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);
502void 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);
503void 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);
504void 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);
505void 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);
507void 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);
508void 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);
509void 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);
515void PREFIX DLARFG_F77(
const int* n,
double* alpha,
double* x,
const int* incx,
double* tau);
531#if defined(INTEL_CXML)
532int 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 );
534int 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 );
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);
541 float PREFIX SLAPY2_F77(
const float* x,
const float* y);
547#ifdef HAVE_TEUCHOS_COMPLEX
550void 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);
551void 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);
552void 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);
553void 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);
554void 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);
555void 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);
556void 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);
557void PREFIX ZGETRF_F77(
const int* m,
const int* n, std::complex<double>* a,
const int* lda,
int* ipiv,
int* info);
558void 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);
559void 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);
560void 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);
561void 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);
562void 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);
563void 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);
564void 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);
565void PREFIX ZPTTRF_F77(
const int* n,
double* d, std::complex<double>* e,
int* info);
566void 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);
567void 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);
568void 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);
569void 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);
570void 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);
571double 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);
572void 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);
573void 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);
574void 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);
575void 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);
576void 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);
577void 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);
578void PREFIX ZPOTRF_F77(
Teuchos_fcd,
const int* n, std::complex<double>* a,
const int* lda,
int* info);
579void 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);
580void PREFIX ZPOTRI_F77(
Teuchos_fcd,
const int* n, std::complex<double>* a,
const int* lda,
int* info);
581void 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);
582void 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);
583void PREFIX ZPOEQU_F77(
const int* n,
const std::complex<double>* a,
const int* lda,
double* s,
double* scond,
double* amax,
int* info);
584void 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);
585void 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);
586void 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);
588void 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 );
592void 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);
593void 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);
594void 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);
595void 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);
596void 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);
597void 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);
598void 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);
599void PREFIX CGETRF_F77(
const int* m,
const int* n, std::complex<float>* a,
const int* lda,
int* ipiv,
int* info);
600void 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);
601void 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);
602void 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);
603void 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);
604void 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);
605void 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);
606void 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);
607void PREFIX CPTTRF_F77(
const int* n,
float* d, std::complex<float>* e,
int* info);
608void 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);
609void 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);
610void 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);
611void 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);
612void 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);
613float 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);
614void 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);
615void 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);
616void 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);
617void 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);
618void 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);
619void 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);
620void PREFIX CPOTRF_F77(
Teuchos_fcd,
const int* n, std::complex<float>* a,
const int* lda,
int* info);
621void 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);
622void PREFIX CPOTRI_F77(
Teuchos_fcd,
const int* n, std::complex<float>* a,
const int* lda,
int* info);
623void 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);
624void 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);
625void PREFIX CPOEQU_F77(
const int* n,
const std::complex<float>* a,
const int* lda,
float* s,
float* scond,
float* amax,
int* info);
626void 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);
627void 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);
630void 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 );
634void PREFIX ZSTEQR_F77(
Teuchos_fcd,
const int* n,
double*
D,
double*
E, std::complex<double>* Z,
const int* ldz,
double* work,
int* info);
635void PREFIX ZPTEQR_F77(
Teuchos_fcd,
const int* n,
double*
D,
double*
E, std::complex<double>* Z,
const int* ldz,
double* work,
int* info);
636void 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);
637void 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);
638void 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);
639void 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);
640void 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);
641void 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);
642void 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);
643void 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);
644void 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);
645void 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);
646void 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);
647void 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);
648void 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);
651void 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);
655void PREFIX CSTEQR_F77(
Teuchos_fcd,
const int* n,
float*
D,
float*
E, std::complex<float>* Z,
const int* ldz,
float* work,
int* info);
656void PREFIX CPTEQR_F77(
Teuchos_fcd,
const int* n,
float*
D,
float*
E, std::complex<float>* Z,
const int* ldz,
float* work,
int* info);
657void 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);
658void 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);
659void 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);
660void 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);
661void 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);
662void 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);
663void 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);
664void 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);
665void 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);
666void 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);
667void 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);
668void 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);
672void 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);
674void PREFIX CLARTG_F77(
const std::complex<float>*
f,
const std::complex<float>*
g,
float* c, std::complex<float>* s, std::complex<float>* r);
675void PREFIX ZLARTG_F77(
const std::complex<double>*
f,
const std::complex<double>*
g,
double* c, std::complex<double>* s, std::complex<double>* r);
677void PREFIX CLARFG_F77(
const int* n, std::complex<float>* alpha, std::complex<float>* x,
const int* incx, std::complex<float>* tau);
678void PREFIX ZLARFG_F77(
const int* n, std::complex<double>* alpha, std::complex<double>* x,
const int* incx, std::complex<double>* tau);
680void PREFIX CGEBAL_F77(
Teuchos_fcd,
const int* n, std::complex<float>* a,
const int* lda,
int* ilo,
int* ihi,
float* scale,
int* info);
681void 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);
682void PREFIX ZGEBAL_F77(
Teuchos_fcd,
const int* n, std::complex<double>* a,
const int* lda,
int* ilo,
int* ihi,
double* scale,
int* info);
683void 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);
696#if (defined(HAVE_TEUCHOSCORE_CXX11) && !defined(_MSC_VER))
697float _Complex
PREFIX CLARND_F77(
const int* idist,
int* seed);
698double _Complex
PREFIX ZLARND_F77(
const int* idist,
int* seed);
700std::complex<float>
PREFIX CLARND_F77(
const int* idist,
int* seed);
701std::complex<double>
PREFIX ZLARND_F77(
const int* idist,
int* seed);
705void PREFIX CLARNV_F77(
const int* idist,
int* seed,
const int* n, std::complex<float>* v);
706void PREFIX ZLARNV_F77(
const int* idist,
int* seed,
const int* n, std::complex<double>* v);
Teuchos header file which uses auto-configuration information to include necessary C++ headers.
#define Teuchos_nonconst_fcd