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 // Need to evaluate unsigned int - CXML deprecated
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)
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 );
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 );
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);
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);
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);
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);
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);
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);
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);
522 float PREFIX SLARND_F77(
const int* idist,
int* seed);
523 double PREFIX DLARND_F77(
const int* idist,
int* seed);
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);
528 float PREFIX SLAMCH_F77(Teuchos_fcd);
529 double PREFIX DLAMCH_F77(Teuchos_fcd);
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 );
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 );
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);
545 double PREFIX DLAPY2_F77(
const double* x,
const double* y);
547 #ifdef HAVE_TEUCHOS_COMPLEX
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 );
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 );
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);
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);
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);
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);
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);
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);
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);
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);
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);
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.