Teuchos - Trilinos Tools Package Version of the Day
Teuchos_LAPACK_wrappers.hpp
Go to the documentation of this file.
00001 // @HEADER
00002 // ***********************************************************************
00003 //
00004 //                    Teuchos: Common Tools Package
00005 //                 Copyright (2004) Sandia Corporation
00006 //
00007 // Under terms of Contract DE-AC04-94AL85000, there is a non-exclusive
00008 // license for use of this work by or on behalf of the U.S. Government.
00009 //
00010 // Redistribution and use in source and binary forms, with or without
00011 // modification, are permitted provided that the following conditions are
00012 // met:
00013 //
00014 // 1. Redistributions of source code must retain the above copyright
00015 // notice, this list of conditions and the following disclaimer.
00016 //
00017 // 2. Redistributions in binary form must reproduce the above copyright
00018 // notice, this list of conditions and the following disclaimer in the
00019 // documentation and/or other materials provided with the distribution.
00020 //
00021 // 3. Neither the name of the Corporation nor the names of the
00022 // contributors may be used to endorse or promote products derived from
00023 // this software without specific prior written permission.
00024 //
00025 // THIS SOFTWARE IS PROVIDED BY SANDIA CORPORATION "AS IS" AND ANY
00026 // EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
00027 // IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
00028 // PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL SANDIA CORPORATION OR THE
00029 // CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
00030 // EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
00031 // PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
00032 // PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
00033 // LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
00034 // NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
00035 // SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
00036 //
00037 // Questions? Contact Michael A. Heroux (maherou@sandia.gov)
00038 //
00039 // ***********************************************************************
00040 // @HEADER
00041 
00042 #ifndef _TEUCHOS_LAPACK_WRAPPERS_HPP_
00043 #define _TEUCHOS_LAPACK_WRAPPERS_HPP_
00044 
00045 #include "Teuchos_ConfigDefs.hpp"
00046 
00050 /* Define fcd (Fortran Teuchos_fcd descriptor) for non-standard situations */
00051 
00052 #if defined(CRAY_T3X) || defined(INTEL_CXML) || defined(INTEL_MKL)
00053 
00054 #if defined(CRAY_T3X)
00055 
00056 #include <fortran.h>
00057 #define PREFIX
00058 #define Teuchos_fcd fcd
00059 
00060 #define DGEQRF_F77  F77_BLAS_MANGLE(sgeqrf,SGEQRF)
00061 #define DGETRF_F77  F77_BLAS_MANGLE(sgetrf,SGETRF)
00062 #define DGETRS_F77  F77_BLAS_MANGLE(sgetrs,SGETRS)
00063 #define DLASWP_F77  F77_BLAS_MANGLE(slaswp,SLASWP)
00064 #define DGBTRF_F77  F77_BLAS_MANGLE(sgbtrf,SGBTRF)
00065 #define DGBTRS_F77  F77_BLAS_MANGLE(sgbtrs,SGBTRS)
00066 #define DGTTRF_F77  F77_BLAS_MANGLE(sgttrf,SGTTRF)
00067 #define DGTTRS_F77  F77_BLAS_MANGLE(sgttrs,SGTTRS)
00068 #define DPTTRF_F77  F77_BLAS_MANGLE(spttrf,SPTTRF)
00069 #define DPTTRS_F77  F77_BLAS_MANGLE(spttrs,SPTTRS)
00070 #define DGETRI_F77  F77_BLAS_MANGLE(sgetri,SGETRI)
00071 #define DGERFS_F77  F77_BLAS_MANGLE(sgerfs,SGERFS)
00072 #define DGBRFS_F77  F77_BLAS_MANGLE(sgbrfs,SGBRFS)
00073 #define DLATRS_F77  F77_BLAS_MANGLE(slatrs,SLATRS)
00074 #define DGECON_F77  F77_BLAS_MANGLE(sgecon,SGECON)
00075 #define DGBCON_F77  F77_BLAS_MANGLE(sgbcon,SGBCON)
00076 #define DLANGB_F77  F77_BLAS_MANGLE(slangb,SLANGB)
00077 #define DGESVX_F77  F77_BLAS_MANGLE(sgesvx,SGESVX)
00078 #define DGESV_F77   F77_BLAS_MANGLE(sgesv,SGESV)
00079 #define DGEEQU_F77  F77_BLAS_MANGLE(sgeequ,SGEEQU)
00080 #define DGBEQU_F77  F77_BLAS_MANGLE(sgbequ,SGBEQU)
00081 #define DSYTRD_F77  F77_BLAS_MANGLE(ssytrd,SSYTRD)
00082 #define DPOTRF_F77  F77_BLAS_MANGLE(spotrf,SPOTRF)
00083 #define DPOTRS_F77  F77_BLAS_MANGLE(spotrs,SPOTRS)
00084 #define DPOTRI_F77  F77_BLAS_MANGLE(spotri,SPOTRI)
00085 #define DPOCON_F77  F77_BLAS_MANGLE(spocon,SPOCON)
00086 #define DPOSV_F77   F77_BLAS_MANGLE(sposv,SPOSV)
00087 #define DPOEQU_F77  F77_BLAS_MANGLE(spoequ,SPOEQU)
00088 #define DPORFS_F77  F77_BLAS_MANGLE(sporfs,SPORFS)
00089 #define DPOSVX_F77  F77_BLAS_MANGLE(sposvx,SPOSVX)
00090 #define DLAMCH_F77  F77_BLAS_MANGLE(slamch,SLAMCH)
00091 #define DTRTRI_F77  F77_BLAS_MANGLE(strtri,STRTRI)
00092 #define DTRTRS_F77  F77_BLAS_MANGLE(strtrs,STRTRS)
00093 #define DGELS_F77   F77_BLAS_MANGLE(sgels,SGELS)
00094 #define DGELSS_F77   F77_BLAS_MANGLE(sgelss,SGELSS)
00095 #define DGEEV_F77   F77_BLAS_MANGLE(sgeev,SGEEV)
00096 #define DGESVD_F77  F77_BLAS_MANGLE(sgesvd,SGESVD)
00097 #define DGGEV_F77   F77_BLAS_MANGLE(sggev,SGGEV)
00098 #define DGEEVX_F77  F77_BLAS_MANGLE(sgeevx,SGEEVX)
00099 #define DGGEVX_F77  F77_BLAS_MANGLE(sggevx,SGGEVX)
00100 #define DGEHRD_F77  F77_BLAS_MANGLE(sgehrd,SGEHRD)
00101 #define DHSEQR_F77  F77_BLAS_MANGLE(shseqr,SHSEQR)
00102 #define DORMQR_F77  F77_BLAS_MANGLE(sormqr,SORMQR)
00103 #define DORGQR_F77  F77_BLAS_MANGLE(sorgqr,SORGQR)
00104 #define DORGHR_F77  F77_BLAS_MANGLE(sorghr,SORGHR)
00105 #define DORMHR_F77  F77_BLAS_MANGLE(sormhr,SORMHR)
00106 #define DTREVC_F77  F77_BLAS_MANGLE(strevc,STREVC)
00107 #define DTREXC_F77  F77_BLAS_MANGLE(strexc,STREXC)
00108 #define DGEES_F77   F77_BLAS_MANGLE(sgees,SGEES)
00109 #define DSPEV_F77   F77_BLAS_MANGLE(sspev,SSPEV)
00110 #define DSYEV_F77   F77_BLAS_MANGLE(ssyev,SSYEV)
00111 #define DSYGV_F77   F77_BLAS_MANGLE(ssygv,SSYGV)
00112 #define DSTEQR_F77  F77_BLAS_MANGLE(ssteqr,SSTEQR)
00113 #define DLAPY2_F77  F77_BLAS_MANGLE(slapy2,SLAPY2)
00114 #define DLARTG_F77  F77_BLAS_MANGLE(slartg,SLARTG)
00115 #define DLARFG_F77  F77_BLAS_MANGLE(slarfg,SLARFG)
00116 #define DGEBAL_F77  F77_BLAS_MANGLE(sgebal,SGEBAL)
00117 #define DGEBAK_F77  F77_BLAS_MANGLE(sgebak,SGEBAK)
00118 #define DLARND_F77  F77_BLAS_MANGLE(slarnd,SLARND)
00119 #define DLARNV_F77  F77_BLAS_MANGLE(slarnv,SLARNV)
00120 #define ILAENV_F77  F77_BLAS_MANGLE(ilaenv,ILAENV)
00121 
00122 
00123 #ifdef HAVE_TEUCHOS_COMPLEX
00124 
00125 #define ZGEQRF_F77  F77_BLAS_MANGLE(cgeqrf,CGEQRF)
00126 #define ZUNGQR_F77  F77_BLAS_MANGLE(cungqr,CUNGQR)
00127 #define ZUNMQR_F77  F77_BLAS_MANGLE(cunmqr,CUNMQR)
00128 #define ZGETRF_F77  F77_BLAS_MANGLE(cgetrf,CGETRF)
00129 #define ZGETRS_F77  F77_BLAS_MANGLE(cgetrs,CGETRS)
00130 #define ZLASWP_F77  F77_BLAS_MANGLE(claswp,CLASWP)
00131 #define ZGBTRF_F77  F77_BLAS_MANGLE(cgbtrf,CGBTRF)
00132 #define ZGBTRS_F77  F77_BLAS_MANGLE(cgbtrs,CGBTRS)
00133 #define ZGTTRF_F77  F77_BLAS_MANGLE(cgttrf,CGTTRF)
00134 #define ZGTTRS_F77  F77_BLAS_MANGLE(cgttrs,CGTTRS)
00135 #define ZPTTRF_F77  F77_BLAS_MANGLE(cpttrf,CPTTRF)
00136 #define ZPTTRS_F77  F77_BLAS_MANGLE(cpttrs,CPTTRS)
00137 #define ZGETRI_F77  F77_BLAS_MANGLE(cgetri,CGETRI)
00138 #define ZGERFS_F77  F77_BLAS_MANGLE(cgerfs,CGERFS)
00139 #define ZGBRFS_F77  F77_BLAS_MANGLE(cgbrfs,CGBRFS)
00140 #define ZLATRS_F77  F77_BLAS_MANGLE(clatrs,CLATRS)
00141 #define ZGECON_F77  F77_BLAS_MANGLE(cgecon,CGECON)
00142 #define ZGBCON_F77  F77_BLAS_MANGLE(cgbcon,CGBCON)
00143 #define ZLANGB_F77  F77_BLAS_MANGLE(clangb,CLANGB)
00144 #define ZGESVX_F77  F77_BLAS_MANGLE(cgesvx,CGESVX)
00145 #define ZGESV_F77   F77_BLAS_MANGLE(cgesv,CGESV)
00146 #define ZGEEQU_F77  F77_BLAS_MANGLE(cgeequ,CGEEQU)
00147 #define ZGBEQU_F77  F77_BLAS_MANGLE(cgbequ,CGBEQU)
00148 #define ZPOTRF_F77  F77_BLAS_MANGLE(cpotrf,CPOTRF)
00149 #define ZPOTRS_F77  F77_BLAS_MANGLE(cpotrs,CPOTRS)
00150 #define ZPOTRI_F77  F77_BLAS_MANGLE(cpotri,CPOTRI)
00151 #define ZPOCON_F77  F77_BLAS_MANGLE(cpocon,CPOCON)
00152 #define ZPOSV_F77   F77_BLAS_MANGLE(cposv,CPOSV)
00153 #define ZPOEQU_F77  F77_BLAS_MANGLE(cpoequ,CPOEQU)
00154 #define ZPORFS_F77  F77_BLAS_MANGLE(cporfs,CPORFS)
00155 #define ZPOSVX_F77  F77_BLAS_MANGLE(cposvx,CPOSVX)
00156 #define ZTRTRS_F77  F77_BLAS_MANGLE(ctrtrs,CTRTRS)
00157 #define ZTRTRI_F77  F77_BLAS_MANGLE(ctrtri,CTRTRI)
00158 #define ZGELS_F77   F77_BLAS_MANGLE(cgels,CGELS)
00159 #define ZGELSS_F77   F77_BLAS_MANGLE(zgelss,ZGELSS)
00160 #define ZGEEV_F77   F77_BLAS_MANGLE(cgeev,CGEEV)
00161 #define ZGESVD_F77  F77_BLAS_MANGLE(cgesvd,CGESVD)
00162 #define ZGGEV_F77   F77_BLAS_MANGLE(cggev,CGGEV)
00163 #define ZGEEVX_F77  F77_BLAS_MANGLE(cgeevx,CGEEVX)
00164 #define ZGGEVX_F77  F77_BLAS_MANGLE(cggevx,CGGEVX)
00165 #define ZGEHRD_F77  F77_BLAS_MANGLE(cgehrd,CGEHRD)
00166 #define ZHSEQR_F77  F77_BLAS_MANGLE(chseqr,CHSEQR)
00167 #define ZTREVC_F77  F77_BLAS_MANGLE(ctrevc,CTREVC)
00168 #define ZTREXC_F77  F77_BLAS_MANGLE(ctrexc,CTREXC)
00169 #define ZGEES_F77   F77_BLAS_MANGLE(cgees,CGEES)
00170 #define ZSTEQR_F77  F77_BLAS_MANGLE(csteqr,CSTEQR)
00171 #define ZHEEV_F77   F77_BLAS_MANGLE(cheev,CHEEV)
00172 #define ZHEGV_F77   F77_BLAS_MANGLE(chegv,CHEGV)
00173 #define ZLARTG_F77  F77_BLAS_MANGLE(clartg,CLARTG)
00174 #define ZLARFG_F77  F77_BLAS_MANGLE(clarfg,CLARFG)
00175 #define ZGEBAL_F77  F77_BLAS_MANGLE(cgebal,CGEBAL)
00176 #define ZGEBAK_F77  F77_BLAS_MANGLE(cgebak,CGEBAK)
00177 #define ZLARND_F77  F77_BLAS_MANGLE(clarnd,CLARND)
00178 #define ZLARNV_F77  F77_BLAS_MANGLE(clarnv,CLARNV)
00179 
00180 #endif /* HAVE_TEUCHOS_COMPLEX */
00181 
00182 #elif defined(INTEL_CXML)
00183 
00184 #define PREFIX __stdcall
00185 #define Teuchos_fcd const char *, unsigned int
00186 
00187 #define DGEQRF_F77  F77_BLAS_MANGLE(dgeqrf,DGEQRF)
00188 #define DGETRF_F77  F77_BLAS_MANGLE(dgetrf,DGETRF)
00189 #define DGETRS_F77  F77_BLAS_MANGLE(dgetrs,DGETRS)
00190 #define DLASWP_F77  F77_BLAS_MANGLE(dlaswp,DLASWP)
00191 #define DGBTRF_F77  F77_BLAS_MANGLE(dgbtrf,DGBTRF)
00192 #define DGBTRS_F77  F77_BLAS_MANGLE(dgbtrs,DGBTRS)
00193 #define DGTTRF_F77  F77_BLAS_MANGLE(dgttrf,DGTTRF)
00194 #define DGTTRS_F77  F77_BLAS_MANGLE(dgttrs,DGTTRS)
00195 #define DPTTRF_F77  F77_BLAS_MANGLE(dpttrf,DPTTRF)
00196 #define DPTTRS_F77  F77_BLAS_MANGLE(dpttrs,DPTTRS)
00197 #define DGETRI_F77  F77_BLAS_MANGLE(dgetri,DGETRI)
00198 #define DGERFS_F77  F77_BLAS_MANGLE(dgerfs,DGERFS)
00199 #define DGBRFS_F77  F77_BLAS_MANGLE(dgbrfs,DGBRFS)
00200 #define DLATRS_F77  F77_BLAS_MANGLE(dlatrs,DLATRS)
00201 #define DGECON_F77  F77_BLAS_MANGLE(dgecon,DGECON)
00202 #define DGBCON_F77  F77_BLAS_MANGLE(dgbcon,DGBCON)
00203 #define DLANGB_F77  F77_BLAS_MANGLE(dlangb,DLANGB)
00204 #define DGESVX_F77  F77_BLAS_MANGLE(dgesvx,DGESVX)
00205 #define DGESV_F77   F77_BLAS_MANGLE(dgesv,DGESV)
00206 #define DGEEQU_F77  F77_BLAS_MANGLE(dgeequ,DGEEQU)
00207 #define DGBEQU_F77  F77_BLAS_MANGLE(dgbequ,DGBEQU)
00208 #define DSYTRD_F77  F77_BLAS_MANGLE(dsytrd,DSYTRD)
00209 #define DPOTRF_F77  F77_BLAS_MANGLE(dpotrf,DPOTRF)
00210 #define DPOTRS_F77  F77_BLAS_MANGLE(dpotrs,DPOTRS)
00211 #define DPOTRI_F77  F77_BLAS_MANGLE(dpotri,DPOTRI)
00212 #define DPOCON_F77  F77_BLAS_MANGLE(dpocon,DPOCON)
00213 #define DPOSV_F77   F77_BLAS_MANGLE(dposv,DPOSV)
00214 #define DPOEQU_F77  F77_BLAS_MANGLE(dpoequ,DPOEQU)
00215 #define DPORFS_F77  F77_BLAS_MANGLE(dporfs,DPORFS)
00216 #define DPOSVX_F77  F77_BLAS_MANGLE(dposvx,DPOSVX)
00217 #define DTRTRS_F77  F77_BLAS_MANGLE(dtrtrs,DTRTRS)
00218 #define DTRTRI_F77  F77_BLAS_MANGLE(dtrtri,DTRTRI)
00219 #define DLAMCH_F77  F77_BLAS_MANGLE(dlamch,DLAMCH)
00220 #define DGELS_F77   F77_BLAS_MANGLE(dgels,DGELS)
00221 #define DGELSS_F77   F77_BLAS_MANGLE(dgelss,DGELSS)
00222 #define DGEEV_F77   F77_BLAS_MANGLE(dgeev,DGEEV)
00223 #define DGESVD_F77  F77_BLAS_MANGLE(dgesvd,DGESVD)
00224 #define DGGEV_F77   F77_BLAS_MANGLE(dggev,DGGEV)
00225 #define DGEEVX_F77  F77_BLAS_MANGLE(dgeevx,DGEEVX)
00226 #define DGGEVX_F77  F77_BLAS_MANGLE(dggevx,DGGEVX)
00227 #define DGEHRD_F77  F77_BLAS_MANGLE(dgehrd,DGEHRD)
00228 #define DHSEQR_F77  F77_BLAS_MANGLE(dhseqr,DHSEQR)
00229 #define DORGHR_F77  F77_BLAS_MANGLE(dorghr,DORGHR)
00230 #define DORGQR_F77  F77_BLAS_MANGLE(dorgqr,DORGQR)
00231 #define DORMHR_F77  F77_BLAS_MANGLE(dormhr,DORMHR)
00232 #define DORMQR_F77  F77_BLAS_MANGLE(dormqr,DORMQR)
00233 #define DTREVC_F77  F77_BLAS_MANGLE(dtrevc,DTREVC)
00234 #define DTREXC_F77  F77_BLAS_MANGLE(dtrexc,DTREXC)
00235 #define DGEES_F77   F77_BLAS_MANGLE(dgees,DGEES)
00236 #define DSPEV_F77   F77_BLAS_MANGLE(dspev,DSPEV)
00237 #define DSYEV_F77   F77_BLAS_MANGLE(dsyev,DSYEV)
00238 #define DSYGV_F77   F77_BLAS_MANGLE(dsygv,DSYGV)
00239 #define DSTEQR_F77  F77_BLAS_MANGLE(dsteqr,DSTEQR)
00240 #define DLAPY2_F77  F77_BLAS_MANGLE(dlapy2,DLAPY2)
00241 #define DLARTG_F77  F77_BLAS_MANGLE(dlartg,DLARTG)
00242 #define DLARFG_F77  F77_BLAS_MANGLE(dlarfg,DLARFG)
00243 #define DGEBAL_F77  F77_BLAS_MANGLE(dgebal,DGEBAL)
00244 #define DGEBAK_F77  F77_BLAS_MANGLE(dgebak,DGEBAK)
00245 #define DLARND_F77  F77_BLAS_MANGLE(dlarnd,DLARND)
00246 #define DLARNV_F77  F77_BLAS_MANGLE(dlarnv,DLARNV)
00247 #define ILAENV_F77  F77_BLAS_MANGLE(ilaenv,ILAENV)
00248 
00249 #ifdef HAVE_TEUCHOS_COMPLEX
00250 
00251 #define ZGEQRF_F77  F77_BLAS_MANGLE(zgeqrf,ZGEQRF)
00252 #define ZUNGQR_F77  F77_BLAS_MANGLE(zungqr,ZUNGQR)
00253 #define ZUNMQR_F77  F77_BLAS_MANGLE(zunmqr,ZUNMQR)
00254 #define ZGETRF_F77  F77_BLAS_MANGLE(zgetrf,ZGETRF)
00255 #define ZGETRS_F77  F77_BLAS_MANGLE(zgetrs,ZGETRS)
00256 #define ZLASWP_F77  F77_BLAS_MANGLE(zlaswp,ZLASWP)
00257 #define ZGTTRF_F77  F77_BLAS_MANGLE(zgttrf,ZGTTRF)
00258 #define ZGTTRS_F77  F77_BLAS_MANGLE(zgttrs,ZGTTRS)
00259 #define ZPTTRF_F77  F77_BLAS_MANGLE(zpttrf,ZPTTRF)
00260 #define ZPTTRS_F77  F77_BLAS_MANGLE(zpttrs,ZPTTRS)
00261 #define ZGETRI_F77  F77_BLAS_MANGLE(zgetri,ZGETRI)
00262 #define ZGERFS_F77  F77_BLAS_MANGLE(zgerfs,ZGERFS)
00263 #define ZGBRFS_F77  F77_BLAS_MANGLE(zgbrfs,ZGBRFS)
00264 #define ZLATRS_F77  F77_BLAS_MANGLE(zlatrs,ZLATRS)
00265 #define ZGECON_F77  F77_BLAS_MANGLE(zgecon,ZGECON)
00266 #define ZGBCON_F77  F77_BLAS_MANGLE(zgbcon,ZGBCON)
00267 #define ZLANGB_F77  F77_BLAS_MANGLE(zlangb,ZLANGB)
00268 #define ZGESVX_F77  F77_BLAS_MANGLE(zgesvx,ZGESVX)
00269 #define ZGESV_F77   F77_BLAS_MANGLE(zgesv,ZGESV)
00270 #define ZGEEQU_F77  F77_BLAS_MANGLE(zgeequ,ZGEEQU)
00271 #define ZGBEQU_F77  F77_BLAS_MANGLE(zgbequ,ZGBEQU)
00272 #define ZPOTRF_F77  F77_BLAS_MANGLE(zpotrf,ZPOTRF)
00273 #define ZPOTRS_F77  F77_BLAS_MANGLE(zpotrs,ZPOTRS)
00274 #define ZPOTRI_F77  F77_BLAS_MANGLE(zpotri,ZPOTRI)
00275 #define ZPOCON_F77  F77_BLAS_MANGLE(zpocon,ZPOCON)
00276 #define ZPOSV_F77   F77_BLAS_MANGLE(zposv,ZPOSV)
00277 #define ZPOEQU_F77  F77_BLAS_MANGLE(zpoequ,ZPOEQU)
00278 #define ZPORFS_F77  F77_BLAS_MANGLE(zporfs,ZPORFS)
00279 #define ZPOSVX_F77  F77_BLAS_MANGLE(zposvx,ZPOSVX)
00280 #define ZTRTRS_F77  F77_BLAS_MANGLE(ztrtrs,ZTRTRS)
00281 #define ZTRTRI_F77  F77_BLAS_MANGLE(ztrtri,ZTRTRI)
00282 #define ZGELS_F77   F77_BLAS_MANGLE(zgels,ZGELS)
00283 #define ZGELSS_F77   F77_BLAS_MANGLE(zgelss,ZGELSS)
00284 #define ZGEEV_F77   F77_BLAS_MANGLE(zgeev,ZGEEV)
00285 #define ZGESVD_F77   F77_BLAS_MANGLE(zgesvd,ZGESVD)
00286 #define ZGGEV_F77   F77_BLAS_MANGLE(zggev,ZGGEV)
00287 #define ZGEEVX_F77  F77_BLAS_MANGLE(zgeevx,ZGEEVX)
00288 #define ZGGEVX_F77  F77_BLAS_MANGLE(zggevx,ZGGEVX)
00289 #define ZGEHRD_F77  F77_BLAS_MANGLE(zgehrd,ZGEHRD)
00290 #define ZHSEQR_F77  F77_BLAS_MANGLE(zhseqr,ZHSEQR)
00291 #define ZTREVC_F77  F77_BLAS_MANGLE(ztrevc,ZTREVC)
00292 #define ZTREXC_F77  F77_BLAS_MANGLE(ztrexc,ZTREXC)
00293 #define ZGEES_F77   F77_BLAS_MANGLE(zgees,ZGEES)
00294 #define ZSTEQR_F77  F77_BLAS_MANGLE(zsteqr,ZSTEQR)
00295 #define ZHEEV_F77   F77_BLAS_MANGLE(zheev,ZHEEV)
00296 #define ZHEGV_F77   F77_BLAS_MANGLE(zhegv,ZHEGV)
00297 #define ZLARTG_F77  F77_BLAS_MANGLE(zlartg,ZLARTG)
00298 #define ZLARFG_F77  F77_BLAS_MANGLE(zlarfg,ZLARFG)
00299 #define ZGEBAL_F77  F77_BLAS_MANGLE(zgebal,ZGEBAL)
00300 #define ZGEBAK_F77  F77_BLAS_MANGLE(zgebak,ZGEBAK)
00301 #define ZLARND_F77  F77_BLAS_MANGLE(zlarnd,ZLARND)
00302 #define ZLARNV_F77  F77_BLAS_MANGLE(zlarnv,ZLARNV)
00303 
00304 #endif /* HAVE_TEUCHOS_COMPLEX */
00305 
00306 #elif defined(INTEL_MKL)
00307 
00308 #define PREFIX
00309 #define Teuchos_fcd const char *
00310 
00311 #define DGEQRF_F77  F77_BLAS_MANGLE(dgeqrf,DGEQRF)
00312 #define DGETRF_F77  F77_BLAS_MANGLE(dgetrf,DGETRF)
00313 #define DGETRS_F77  F77_BLAS_MANGLE(dgetrs,DGETRS)
00314 #define DLASWP_F77  F77_BLAS_MANGLE(dlaswp,DLASWP)
00315 #define DGBTRF_F77  F77_BLAS_MANGLE(dgbtrf,DGBTRF)
00316 #define DGBTRS_F77  F77_BLAS_MANGLE(dgbtrs,DGBTRS)
00317 #define DGTTRF_F77  F77_BLAS_MANGLE(dgttrf,DGTTRF)
00318 #define DGTTRS_F77  F77_BLAS_MANGLE(dgttrs,DGTTRS)
00319 #define DPTTRF_F77  F77_BLAS_MANGLE(dpttrf,DPTTRF)
00320 #define DPTTRS_F77  F77_BLAS_MANGLE(dpttrs,DPTTRS)
00321 #define DGETRI_F77  F77_BLAS_MANGLE(dgetri,DGETRI)
00322 #define DGERFS_F77  F77_BLAS_MANGLE(dgerfs,DGERFS)
00323 #define DGBRFS_F77  F77_BLAS_MANGLE(dgbrfs,DGBRFS)
00324 #define DLATRS_F77  F77_BLAS_MANGLE(dlatrs,DLATRS)
00325 #define DGECON_F77  F77_BLAS_MANGLE(dgecon,DGECON)
00326 #define DGBCON_F77  F77_BLAS_MANGLE(dgbcon,DGBCON)
00327 #define DLANGB_F77  F77_BLAS_MANGLE(dlangb,DLANGB)
00328 #define DGESVX_F77  F77_BLAS_MANGLE(dgesvx,DGESVX)
00329 #define DGESV_F77   F77_BLAS_MANGLE(dgesv,DGESV)
00330 #define DGEEQU_F77  F77_BLAS_MANGLE(dgeequ,DGEEQU)
00331 #define DGBEQU_F77  F77_BLAS_MANGLE(dgbequ,DGBEQU)
00332 #define DSYTRD_F77  F77_BLAS_MANGLE(dsytrd,DSYTRD)
00333 #define DPOTRF_F77  F77_BLAS_MANGLE(dpotrf,DPOTRF)
00334 #define DPOTRS_F77  F77_BLAS_MANGLE(dpotrs,DPOTRS)
00335 #define DPOTRI_F77  F77_BLAS_MANGLE(dpotri,DPOTRI)
00336 #define DPOCON_F77  F77_BLAS_MANGLE(dpocon,DPOCON)
00337 #define DPOSV_F77   F77_BLAS_MANGLE(dposv,DPOSV)
00338 #define DPOEQU_F77  F77_BLAS_MANGLE(dpoequ,DPOEQU)
00339 #define DPORFS_F77  F77_BLAS_MANGLE(dporfs,DPORFS)
00340 #define DPOSVX_F77  F77_BLAS_MANGLE(dposvx,DPOSVX)
00341 #define DTRTRS_F77  F77_BLAS_MANGLE(dtrtrs,DTRTRS)
00342 #define DTRTRI_F77  F77_BLAS_MANGLE(dtrtri,DTRTRI)
00343 #define DLAMCH_F77  F77_BLAS_MANGLE(dlamch,DLAMCH)
00344 #define DGELS_F77   F77_BLAS_MANGLE(dgels,DGELS)
00345 #define DGELSS_F77   F77_BLAS_MANGLE(dgelss,DGELSS)
00346 #define DGEEV_F77   F77_BLAS_MANGLE(dgeev,DGEEV)
00347 #define DGESVD_F77  F77_BLAS_MANGLE(dgesvd,DGESVD)
00348 #define DGGEV_F77   F77_BLAS_MANGLE(dggev,DGGEV)
00349 #define DGEEVX_F77  F77_BLAS_MANGLE(dgeevx,DGEEVX)
00350 #define DGGEVX_F77  F77_BLAS_MANGLE(dggevx,DGGEVX)
00351 #define DGEHRD_F77  F77_BLAS_MANGLE(dgehrd,DGEHRD)
00352 #define DHSEQR_F77  F77_BLAS_MANGLE(dhseqr,DHSEQR)
00353 #define DORGHR_F77  F77_BLAS_MANGLE(dorghr,DORGHR)
00354 #define DORGQR_F77  F77_BLAS_MANGLE(dorgqr,DORGQR)
00355 #define DORMHR_F77  F77_BLAS_MANGLE(dormhr,DORMHR)
00356 #define DORMQR_F77  F77_BLAS_MANGLE(dormqr,DORMQR)
00357 #define DTREVC_F77  F77_BLAS_MANGLE(dtrevc,DTREVC)
00358 #define DTREXC_F77  F77_BLAS_MANGLE(dtrexc,DTREXC)
00359 #define DGEES_F77   F77_BLAS_MANGLE(dgees,DGEES)
00360 #define DSPEV_F77   F77_BLAS_MANGLE(dspev,DSPEV)
00361 #define DSYEV_F77   F77_BLAS_MANGLE(dsyev,DSYEV)
00362 #define DSYGV_F77   F77_BLAS_MANGLE(dsygv,DSYGV)
00363 #define DSTEQR_F77  F77_BLAS_MANGLE(dsteqr,DSTEQR)
00364 #define DLAPY2_F77  F77_BLAS_MANGLE(dlapy2,DLAPY2)
00365 #define DLARTG_F77  F77_BLAS_MANGLE(dlartg,DLARTG)
00366 #define DLARFG_F77  F77_BLAS_MANGLE(dlarfg,DLARFG)
00367 #define DGEBAL_F77  F77_BLAS_MANGLE(dgebal,DGEBAL)
00368 #define DGEBAK_F77  F77_BLAS_MANGLE(dgebak,DGEBAK)
00369 #define DLARND_F77  F77_BLAS_MANGLE(dlarnd,DLARND)
00370 #define DLARNV_F77  F77_BLAS_MANGLE(dlarnv,DLARNV)
00371 #define ILAENV_F77  F77_BLAS_MANGLE(ilaenv,ILAENV)
00372 
00373 #ifdef HAVE_TEUCHOS_COMPLEX
00374 
00375 #define ZGEQRF_F77  F77_BLAS_MANGLE(zgeqrf,ZGEQRF)
00376 #define ZUNGQR_F77  F77_BLAS_MANGLE(zungqr,ZUNGQR)
00377 #define ZUNMQR_F77  F77_BLAS_MANGLE(zunmqr,ZUNMQR)
00378 #define ZGTTRF_F77  F77_BLAS_MANGLE(zgttrf,ZGTTRF)
00379 #define ZGTTRS_F77  F77_BLAS_MANGLE(zgttrs,ZGTTRS)
00380 #define ZPTTRF_F77  F77_BLAS_MANGLE(zpttrf,ZPTTRF)
00381 #define ZPTTRS_F77  F77_BLAS_MANGLE(zpttrs,ZPTTRS)
00382 #define ZGETRF_F77  F77_BLAS_MANGLE(zgetrf,ZGETRF)
00383 #define ZGETRS_F77  F77_BLAS_MANGLE(zgetrs,ZGETRS)
00384 #define ZLASWP_F77  F77_BLAS_MANGLE(zlaswp,ZLASWP)
00385 #define ZGBTRF_F77  F77_BLAS_MANGLE(zgbtrf,ZGBTRF)
00386 #define ZGBTRS_F77  F77_BLAS_MANGLE(zgbtrs,ZGBTRS)
00387 #define ZGETRI_F77  F77_BLAS_MANGLE(zgetri,ZGETRI)
00388 #define ZGERFS_F77  F77_BLAS_MANGLE(zgerfs,ZGERFS)
00389 #define ZGBRFS_F77  F77_BLAS_MANGLE(zgbrfs,ZGBRFS)
00390 #define ZLATRS_F77  F77_BLAS_MANGLE(zlatrs,ZLATRS)
00391 #define ZGECON_F77  F77_BLAS_MANGLE(zgecon,ZGECON)
00392 #define ZGBCON_F77  F77_BLAS_MANGLE(zgbcon,ZGBCON)
00393 #define ZLANGB_F77  F77_BLAS_MANGLE(zlangb,ZLANGB)
00394 #define ZGESVX_F77  F77_BLAS_MANGLE(zgesvx,ZGESVX)
00395 #define ZGESV_F77   F77_BLAS_MANGLE(zgesv,ZGESV)
00396 #define ZGEEQU_F77  F77_BLAS_MANGLE(zgeequ,ZGEEQU)
00397 #define ZGBEQU_F77  F77_BLAS_MANGLE(zgbequ,ZGBEQU)
00398 #define ZPOTRF_F77  F77_BLAS_MANGLE(zpotrf,ZPOTRF)
00399 #define ZPOTRS_F77  F77_BLAS_MANGLE(zpotrs,ZPOTRS)
00400 #define ZPOTRI_F77  F77_BLAS_MANGLE(zpotri,ZPOTRI)
00401 #define ZPOCON_F77  F77_BLAS_MANGLE(zpocon,ZPOCON)
00402 #define ZPOSV_F77   F77_BLAS_MANGLE(zposv,ZPOSV)
00403 #define ZPOEQU_F77  F77_BLAS_MANGLE(zpoequ,ZPOEQU)
00404 #define ZPORFS_F77  F77_BLAS_MANGLE(zporfs,ZPORFS)
00405 #define ZPOSVX_F77  F77_BLAS_MANGLE(zposvx,ZPOSVX)
00406 #define ZTRTRS_F77  F77_BLAS_MANGLE(ztrtrs,ZTRTRS)
00407 #define ZTRTRI_F77  F77_BLAS_MANGLE(ztrtri,ZTRTRI)
00408 #define ZGELS_F77   F77_BLAS_MANGLE(zgels,ZGELS)
00409 #define ZGELSS_F77   F77_BLAS_MANGLE(zgelss,ZGELSS)
00410 #define ZGEEV_F77   F77_BLAS_MANGLE(zgeev,ZGEEV)
00411 #define ZGESVD_F77   F77_BLAS_MANGLE(zgesvd,ZGESVD)
00412 #define ZGGEV_F77   F77_BLAS_MANGLE(zggev,ZGGEV)
00413 #define ZGEEVX_F77  F77_BLAS_MANGLE(zgeevx,ZGEEVX)
00414 #define ZGGEVX_F77  F77_BLAS_MANGLE(zggevx,ZGGEVX)
00415 #define ZGEHRD_F77  F77_BLAS_MANGLE(zgehrd,ZGEHRD)
00416 #define ZHSEQR_F77  F77_BLAS_MANGLE(zhseqr,ZHSEQR)
00417 #define ZTREVC_F77  F77_BLAS_MANGLE(ztrevc,ZTREVC)
00418 #define ZTREXC_F77  F77_BLAS_MANGLE(ztrexc,ZTREXC)
00419 #define ZGEES_F77   F77_BLAS_MANGLE(zgees,ZGEES)
00420 #define ZSTEQR_F77  F77_BLAS_MANGLE(zsteqr,ZSTEQR)
00421 #define ZHEEV_F77   F77_BLAS_MANGLE(zheev,ZHEEV)
00422 #define ZHEGV_F77   F77_BLAS_MANGLE(zhegv,ZHEGV)
00423 #define ZLARTG_F77  F77_BLAS_MANGLE(zlartg,ZLARTG)
00424 #define ZLARFG_F77  F77_BLAS_MANGLE(zlarfg,ZLARFG)
00425 #define ZGEBAL_F77  F77_BLAS_MANGLE(zgebal,ZGEBAL)
00426 #define ZGEBAK_F77  F77_BLAS_MANGLE(zgebak,ZGEBAK)
00427 #define ZLARND_F77  F77_BLAS_MANGLE(zlarnd,ZLARND)
00428 #define ZLARNV_F77  F77_BLAS_MANGLE(zlarnv,ZLARNV)
00429 
00430 #endif /* HAVE_TEUCHOS_COMPLEX */
00431 
00432 #endif /* defined(CRAY_T3X) || defined(INTEL_CXML) || defined(INTEL_MKL) */
00433 
00434 /* All three of these machines use a simple uppercase mangling of Fortran names */
00435 
00436 /* if F77_BLAS_MANGLE is defined undefine it because we want to redefine */
00437 
00438 #ifdef F77_FUNC
00439 #undef F77_FUNC
00440 #endif
00441 
00442 #ifdef F77_BLAS_MANGLE
00443 #undef F77_BLAS_MANGLE
00444 #endif
00445 
00446 #define F77_FUNC(lcase,UCASE) PREFIX UCASE
00447 #define F77_BLAS_MANGLE(lcase,UCASE) PREFIX UCASE
00448 
00449 #else /* Define Teuchos_fcd for all other machines */
00450 
00451 #define PREFIX
00452 #define Teuchos_fcd const char *
00453 
00454 #ifdef TRILINOS_NO_CONFIG_H
00455 
00456 #ifdef F77_FUNC
00457 #undef F77_FUNC
00458 #endif
00459 
00460 #ifdef F77_BLAS_MANGLE
00461 #undef F77_BLAS_MANGLE
00462 #endif
00463 
00464 
00465 #ifdef TRILINOS_HAVE_NO_FORTRAN_UNDERSCORE
00466 #define F77_FUNC(lcase,UCASE) lcase
00467 #define F77_BLAS_MANGLE(lcase,UCASE) lcase
00468 #else /* TRILINOS_HAVE_NO_FORTRAN_UNDERSCORE not defined*/
00469 #define F77_FUNC(lcase,UCASE) lcase ## _
00470 #define F77_BLAS_MANGLE(lcase,UCASE) lcase ## _
00471 #endif /* TRILINOS_HAVE_NO_FORTRAN_UNDERSCORE */
00472 
00473 #endif /* TRILINOS_NO_CONFIG_H */
00474 
00475 #define DGEQRF_F77  F77_BLAS_MANGLE(dgeqrf,DGEQRF)
00476 #define DGETRF_F77  F77_BLAS_MANGLE(dgetrf,DGETRF)
00477 #define DGETRS_F77  F77_BLAS_MANGLE(dgetrs,DGETRS)
00478 #define DLASWP_F77  F77_BLAS_MANGLE(dlaswp,DLASWP)
00479 #define DGBTRF_F77  F77_BLAS_MANGLE(dgbtrf,DGBTRF)
00480 #define DGBTRS_F77  F77_BLAS_MANGLE(dgbtrs,DGBTRS)
00481 #define DGTTRF_F77  F77_BLAS_MANGLE(dgttrf,DGTTRF)
00482 #define DGTTRS_F77  F77_BLAS_MANGLE(dgttrs,DGTTRS)
00483 #define DPTTRF_F77  F77_BLAS_MANGLE(dpttrf,DPTTRF)
00484 #define DPTTRS_F77  F77_BLAS_MANGLE(dpttrs,DPTTRS)
00485 #define DGETRI_F77  F77_BLAS_MANGLE(dgetri,DGETRI)
00486 #define DGERFS_F77  F77_BLAS_MANGLE(dgerfs,DGERFS)
00487 #define DGBRFS_F77  F77_BLAS_MANGLE(dgbrfs,DGBRFS)
00488 #define DLATRS_F77  F77_BLAS_MANGLE(dlatrs,DLATRS)
00489 #define DGECON_F77  F77_BLAS_MANGLE(dgecon,DGECON)
00490 #define DGBCON_F77  F77_BLAS_MANGLE(dgbcon,DGBCON)
00491 #define DLANGB_F77  F77_BLAS_MANGLE(dlangb,DLANGB)
00492 #define DGESVX_F77  F77_BLAS_MANGLE(dgesvx,DGESVX)
00493 #define DGESV_F77   F77_BLAS_MANGLE(dgesv,DGESV)
00494 #define DGEEQU_F77  F77_BLAS_MANGLE(dgeequ,DGEEQU)
00495 #define DGBEQU_F77  F77_BLAS_MANGLE(dgbequ,DGBEQU)
00496 #define DSYTRD_F77  F77_BLAS_MANGLE(dsytrd,DSYTRD)
00497 #define DPOTRF_F77  F77_BLAS_MANGLE(dpotrf,DPOTRF)
00498 #define DPOTRS_F77  F77_BLAS_MANGLE(dpotrs,DPOTRS)
00499 #define DPOTRI_F77  F77_BLAS_MANGLE(dpotri,DPOTRI)
00500 #define DPOCON_F77  F77_BLAS_MANGLE(dpocon,DPOCON)
00501 #define DPOSV_F77   F77_BLAS_MANGLE(dposv,DPOSV)
00502 #define DPOEQU_F77  F77_BLAS_MANGLE(dpoequ,DPOEQU)
00503 #define DPORFS_F77  F77_BLAS_MANGLE(dporfs,DPORFS)
00504 #define DPOSVX_F77  F77_BLAS_MANGLE(dposvx,DPOSVX)
00505 #define DTRTRS_F77  F77_BLAS_MANGLE(dtrtrs,DTRTRS)
00506 #define DTRTRI_F77  F77_BLAS_MANGLE(dtrtri,DTRTRI)
00507 #define DLAMCH_F77  F77_BLAS_MANGLE(dlamch,DLAMCH)
00508 #define DGELS_F77   F77_BLAS_MANGLE(dgels,DGELS)
00509 #define DGELSS_F77  F77_BLAS_MANGLE(dgelss,DGELSS)
00510 #define DGGLSE_F77  F77_BLAS_MANGLE(dgglse,DGGLSE)
00511 #define DGEEV_F77   F77_BLAS_MANGLE(dgeev,DGEEV)
00512 #define DGESVD_F77  F77_BLAS_MANGLE(dgesvd,DGESVD)
00513 #define DGGEV_F77   F77_BLAS_MANGLE(dggev,DGGEV)
00514 #define DGEEVX_F77  F77_BLAS_MANGLE(dgeevx,DGEEVX)
00515 #define DGGEVX_F77  F77_BLAS_MANGLE(dggevx,DGGEVX)
00516 #define DGEHRD_F77  F77_BLAS_MANGLE(dgehrd,DGEHRD)
00517 #define DHSEQR_F77  F77_BLAS_MANGLE(dhseqr,DHSEQR)
00518 #define DORGHR_F77  F77_BLAS_MANGLE(dorghr,DORGHR)
00519 #define DORGQR_F77  F77_BLAS_MANGLE(dorgqr,DORGQR)
00520 #define DORMHR_F77  F77_BLAS_MANGLE(dormhr,DORMHR)
00521 #define DORMQR_F77  F77_BLAS_MANGLE(dormqr,DORMQR)
00522 #define DTREVC_F77  F77_BLAS_MANGLE(dtrevc,DTREVC)
00523 #define DTREXC_F77  F77_BLAS_MANGLE(dtrexc,DTREXC)
00524 #define DGEES_F77   F77_BLAS_MANGLE(dgees,DGEES)
00525 #define DSPEV_F77   F77_BLAS_MANGLE(dspev,DSPEV)
00526 #define DSYEV_F77   F77_BLAS_MANGLE(dsyev,DSYEV)
00527 #define DSYGV_F77   F77_BLAS_MANGLE(dsygv,DSYGV)
00528 #define DSTEQR_F77  F77_BLAS_MANGLE(dsteqr,DSTEQR)
00529 #define DLAPY2_F77  F77_BLAS_MANGLE(dlapy2,DLAPY2)
00530 #define DLARND_F77  F77_BLAS_MANGLE(dlarnd,DLARND)
00531 #define DLARNV_F77  F77_BLAS_MANGLE(dlarnv,DLARNV)
00532 #define DGEBAL_F77  F77_BLAS_MANGLE(dgebal,DGEBAL)
00533 #define DGEBAK_F77  F77_BLAS_MANGLE(dgebak,DGEBAK)
00534 #define DLARTG_F77  F77_BLAS_MANGLE(dlartg,DLARTG)
00535 #define DLARFG_F77  F77_BLAS_MANGLE(dlarfg,DLARFG)
00536 #define ILAENV_F77  F77_BLAS_MANGLE(ilaenv,ILAENV)
00537 
00538 #ifdef HAVE_TEUCHOS_COMPLEX
00539 
00540 #define ZGEQRF_F77  F77_BLAS_MANGLE(zgeqrf,ZGEQRF)
00541 #define ZUNGQR_F77  F77_BLAS_MANGLE(zungqr,ZUNGQR)
00542 #define ZUNMQR_F77  F77_BLAS_MANGLE(zunmqr,ZUNMQR)
00543 #define ZGETRF_F77  F77_BLAS_MANGLE(zgetrf,ZGETRF)
00544 #define ZGETRS_F77  F77_BLAS_MANGLE(zgetrs,ZGETRS)
00545 #define ZLASWP_F77  F77_BLAS_MANGLE(zlaswp,ZLASWP)
00546 #define ZGBTRF_F77  F77_BLAS_MANGLE(zgbtrf,ZGBTRF)
00547 #define ZGBTRS_F77  F77_BLAS_MANGLE(zgbtrs,ZGBTRS)
00548 #define ZGTTRF_F77  F77_BLAS_MANGLE(zgttrf,ZGTTRF)
00549 #define ZGTTRS_F77  F77_BLAS_MANGLE(zgttrs,ZGTTRS)
00550 #define ZPTTRF_F77  F77_BLAS_MANGLE(zpttrf,ZPTTRF)
00551 #define ZPTTRS_F77  F77_BLAS_MANGLE(zpttrs,ZPTTRS)
00552 #define ZGETRI_F77  F77_BLAS_MANGLE(zgetri,ZGETRI)
00553 #define ZGERFS_F77  F77_BLAS_MANGLE(zgerfs,ZGERFS)
00554 #define ZGBRFS_F77  F77_BLAS_MANGLE(zgbrfs,ZGBRFS)
00555 #define ZLATRS_F77  F77_BLAS_MANGLE(zlatrs,ZLATRS)
00556 #define ZGECON_F77  F77_BLAS_MANGLE(zgecon,ZGECON)
00557 #define ZGBCON_F77  F77_BLAS_MANGLE(zgbcon,ZGBCON)
00558 #define ZLANGB_F77  F77_BLAS_MANGLE(zlangb,ZLANGB)
00559 #define ZGESVX_F77  F77_BLAS_MANGLE(zgesvx,ZGESVX)
00560 #define ZGESV_F77   F77_BLAS_MANGLE(zgesv,ZGESV)
00561 #define ZGEEQU_F77  F77_BLAS_MANGLE(zgeequ,ZGEEQU)
00562 #define ZGBEQU_F77  F77_BLAS_MANGLE(zgbequ,ZGBEQU)
00563 #define ZPOTRF_F77  F77_BLAS_MANGLE(zpotrf,ZPOTRF)
00564 #define ZPOTRS_F77  F77_BLAS_MANGLE(zpotrs,ZPOTRS)
00565 #define ZPOTRI_F77  F77_BLAS_MANGLE(zpotri,ZPOTRI)
00566 #define ZPOCON_F77  F77_BLAS_MANGLE(zpocon,ZPOCON)
00567 #define ZPOSV_F77   F77_BLAS_MANGLE(zposv,ZPOSV)
00568 #define ZPOEQU_F77  F77_BLAS_MANGLE(zpoequ,ZPOEQU)
00569 #define ZPORFS_F77  F77_BLAS_MANGLE(zporfs,ZPORFS)
00570 #define ZPOSVX_F77  F77_BLAS_MANGLE(zposvx,ZPOSVX)
00571 #define ZTRTRS_F77  F77_BLAS_MANGLE(ztrtrs,ZTRTRS)
00572 #define ZTRTRI_F77  F77_BLAS_MANGLE(ztrtri,ZTRTRI)
00573 #define ZGELS_F77   F77_BLAS_MANGLE(zgels,ZGELS)
00574 #define ZGELSS_F77  F77_BLAS_MANGLE(zgelss,ZGELSS)
00575 //#define ZGGLSE_F77  F77_BLAS_MANGLE(zgglse,ZGGLSE)
00576 #define ZGEEV_F77   F77_BLAS_MANGLE(zgeev,ZGEEV)
00577 #define ZGESVD_F77   F77_BLAS_MANGLE(zgesvd,ZGESVD)
00578 #define ZGGEV_F77   F77_BLAS_MANGLE(zggev,ZGGEV)
00579 #define ZGEEVX_F77  F77_BLAS_MANGLE(zgeevx,ZGEEVX)
00580 #define ZGGEVX_F77  F77_BLAS_MANGLE(zggevx,ZGGEVX)
00581 #define ZGEHRD_F77  F77_BLAS_MANGLE(zgehrd,ZGEHRD)
00582 #define ZHSEQR_F77  F77_BLAS_MANGLE(zhseqr,ZHSEQR)
00583 #define ZTREVC_F77  F77_BLAS_MANGLE(ztrevc,ZTREVC)
00584 #define ZTREXC_F77  F77_BLAS_MANGLE(ztrexc,ZTREXC)
00585 #define ZGEES_F77   F77_BLAS_MANGLE(zgees,ZGEES)
00586 #define ZSTEQR_F77  F77_BLAS_MANGLE(zsteqr,ZSTEQR)
00587 #define ZHEEV_F77   F77_BLAS_MANGLE(zheev,ZHEEV)
00588 #define ZHEGV_F77   F77_BLAS_MANGLE(zhegv,ZHEGV)
00589 #define ZLARTG_F77  F77_BLAS_MANGLE(zlartg,ZLARTG)
00590 #define ZLARFG_F77  F77_BLAS_MANGLE(zlarfg,ZLARFG)
00591 #define ZGEBAL_F77  F77_BLAS_MANGLE(zgebal,ZGEBAL)
00592 #define ZGEBAK_F77  F77_BLAS_MANGLE(zgebak,ZGEBAK)
00593 #define ZLARND_F77  F77_BLAS_MANGLE(zlarnd,ZLARND)
00594 #define ZLARNV_F77  F77_BLAS_MANGLE(zlarnv,ZLARNV)
00595 
00596 #endif /* HAVE_TEUCHOS_COMPLEX */
00597 
00598 #endif
00599 
00600 #define SGEQRF_F77  F77_BLAS_MANGLE(sgeqrf,SGEQRF)
00601 #define SGETRF_F77  F77_BLAS_MANGLE(sgetrf,SGETRF)
00602 #define SGETRS_F77  F77_BLAS_MANGLE(sgetrs,SGETRS)
00603 #define SLASWP_F77  F77_BLAS_MANGLE(slaswp,SLASWP)
00604 #define SGBTRF_F77  F77_BLAS_MANGLE(sgbtrf,SGBTRF)
00605 #define SGBTRS_F77  F77_BLAS_MANGLE(sgbtrs,SGBTRS)
00606 #define SGTTRF_F77  F77_BLAS_MANGLE(sgttrf,SGTTRF)
00607 #define SGTTRS_F77  F77_BLAS_MANGLE(sgttrs,SGTTRS)
00608 #define SPTTRF_F77  F77_BLAS_MANGLE(spttrf,SPTTRF)
00609 #define SPTTRS_F77  F77_BLAS_MANGLE(spttrs,SPTTRS)
00610 #define SGETRI_F77  F77_BLAS_MANGLE(sgetri,SGETRI)
00611 #define SGERFS_F77  F77_BLAS_MANGLE(sgerfs,SGERFS)
00612 #define SGBRFS_F77  F77_BLAS_MANGLE(sgbrfs,SGBRFS)
00613 #define SLATRS_F77  F77_BLAS_MANGLE(slatrs,SLATRS)
00614 #define SGECON_F77  F77_BLAS_MANGLE(sgecon,SGECON)
00615 #define SGBCON_F77  F77_BLAS_MANGLE(sgbcon,SGBCON)
00616 #define SLANGB_F77  F77_BLAS_MANGLE(slangb,SLANGB)
00617 #define SGESVX_F77  F77_BLAS_MANGLE(sgesvx,SGESVX)
00618 #define SGESV_F77   F77_BLAS_MANGLE(sgesv,SGESV)
00619 #define SGEEQU_F77  F77_BLAS_MANGLE(sgeequ,SGEEQU)
00620 #define SGBEQU_F77  F77_BLAS_MANGLE(sgbequ,SGBEQU)
00621 #define SSYTRD_F77  F77_BLAS_MANGLE(ssytrd,SSYTRD)
00622 #define SPOTRF_F77  F77_BLAS_MANGLE(spotrf,SPOTRF)
00623 #define SPOTRS_F77  F77_BLAS_MANGLE(spotrs,SPOTRS)
00624 #define SPOTRI_F77  F77_BLAS_MANGLE(spotri,SPOTRI)
00625 #define SPOCON_F77  F77_BLAS_MANGLE(spocon,SPOCON)
00626 #define SPOSV_F77   F77_BLAS_MANGLE(sposv,SPOSV)
00627 #define SPOEQU_F77  F77_BLAS_MANGLE(spoequ,SPOEQU)
00628 #define SPORFS_F77  F77_BLAS_MANGLE(sporfs,SPORFS)
00629 #define SPOSVX_F77  F77_BLAS_MANGLE(sposvx,SPOSVX)
00630 #define STRTRS_F77  F77_BLAS_MANGLE(strtrs,STRTRS)
00631 #define STRTRI_F77  F77_BLAS_MANGLE(strtri,STRTRI)
00632 #define SGELS_F77   F77_BLAS_MANGLE(sgels,SGELS)
00633 #define SGELSS_F77  F77_BLAS_MANGLE(sgelss,SGELSS)
00634 #define SGGLSE_F77  F77_BLAS_MANGLE(sgglse,SGGLSE)
00635 #define SGEEV_F77   F77_BLAS_MANGLE(sgeev,SGEEV)
00636 #define SGESVD_F77  F77_BLAS_MANGLE(sgesvd,SGESVD)
00637 #define SGGEV_F77   F77_BLAS_MANGLE(sggev,SGGEV)
00638 #define SGEEVX_F77  F77_BLAS_MANGLE(sgeevx,SGEEVX)
00639 #define SGGEVX_F77  F77_BLAS_MANGLE(sggevx,SGGEVX)
00640 #define SGEHRD_F77  F77_BLAS_MANGLE(sgehrd,SGEHRD)
00641 #define SHSEQR_F77  F77_BLAS_MANGLE(shseqr,SHSEQR)
00642 #define SORGHR_F77  F77_BLAS_MANGLE(sorghr,SORGHR)
00643 #define SORGQR_F77  F77_BLAS_MANGLE(sorgqr,SORGQR)
00644 #define SORMHR_F77  F77_BLAS_MANGLE(sormhr,SORMHR)
00645 #define SORMQR_F77  F77_BLAS_MANGLE(sormqr,SORMQR)
00646 #define STREVC_F77  F77_BLAS_MANGLE(strevc,STREVC)
00647 #define STREXC_F77  F77_BLAS_MANGLE(strexc,STREXC)
00648 #define SLAMCH_F77  F77_BLAS_MANGLE(slamch,SLAMCH)
00649 #define SGEES_F77   F77_BLAS_MANGLE(sgees,SGEES)
00650 #define SSPEV_F77   F77_BLAS_MANGLE(sspev,SSPEV)
00651 #define SSYEV_F77   F77_BLAS_MANGLE(ssyev,SSYEV)
00652 #define SSYGV_F77   F77_BLAS_MANGLE(ssygv,SSYGV)
00653 #define SSTEQR_F77  F77_BLAS_MANGLE(ssteqr,SSTEQR)
00654 #ifdef HAVE_TEUCHOS_BLASFLOAT
00655   #define SLAPY2_F77  F77_BLAS_MANGLE(slapy2,SLAPY2)
00656 #endif
00657 #define SLARTG_F77  F77_BLAS_MANGLE(slartg,SLARTG)
00658 #define SLARFG_F77  F77_BLAS_MANGLE(slarfg,SLARFG)
00659 #define SGEBAL_F77  F77_BLAS_MANGLE(sgebal,SGEBAL)
00660 #define SGEBAK_F77  F77_BLAS_MANGLE(sgebak,SGEBAK)
00661 #define SLARND_F77  F77_BLAS_MANGLE(slarnd,SLARND)
00662 #define SLARNV_F77  F77_BLAS_MANGLE(slarnv,SLARNV)
00663 
00664 #ifdef HAVE_TEUCHOS_COMPLEX
00665 
00666 #define CGEQRF_F77  F77_BLAS_MANGLE(cgeqrf,CGEQRF)
00667 #define CUNGQR_F77  F77_BLAS_MANGLE(cungqr,CUNGQR)
00668 #define CUNMQR_F77  F77_BLAS_MANGLE(cunmqr,CUNMQR)
00669 #define CGETRF_F77  F77_BLAS_MANGLE(cgetrf,CGETRF)
00670 #define CGETRS_F77  F77_BLAS_MANGLE(cgetrs,CGETRS)
00671 #define CLASWP_F77  F77_BLAS_MANGLE(claswp,CLASWP)
00672 #define CGBTRF_F77  F77_BLAS_MANGLE(cgbtrf,CGBTRF)
00673 #define CGBTRS_F77  F77_BLAS_MANGLE(cgbtrs,CGBTRS)
00674 #define CGTTRF_F77  F77_BLAS_MANGLE(cgttrf,CGTTRF)
00675 #define CGTTRS_F77  F77_BLAS_MANGLE(cgttrs,CGTTRS)
00676 #define CPTTRF_F77  F77_BLAS_MANGLE(cpttrf,CPTTRF)
00677 #define CPTTRS_F77  F77_BLAS_MANGLE(cpttrs,CPTTRS)
00678 #define CGETRI_F77  F77_BLAS_MANGLE(cgetri,CGETRI)
00679 #define CGERFS_F77  F77_BLAS_MANGLE(cgerfs,CGERFS)
00680 #define CGBRFS_F77  F77_BLAS_MANGLE(cgbrfs,CGBRFS)
00681 #define CLATRS_F77  F77_BLAS_MANGLE(clatrs,CLATRS)
00682 #define CGECON_F77  F77_BLAS_MANGLE(cgecon,CGECON)
00683 #define CGBCON_F77  F77_BLAS_MANGLE(cgbcon,CGBCON)
00684 #define CLANGB_F77  F77_BLAS_MANGLE(clangb,CLANGB)
00685 #define CGESVX_F77  F77_BLAS_MANGLE(cgesvx,CGESVX)
00686 #define CGESV_F77   F77_BLAS_MANGLE(cgesv,CGESV)
00687 #define CGEEQU_F77  F77_BLAS_MANGLE(cgeequ,CGEEQU)
00688 #define CGBEQU_F77  F77_BLAS_MANGLE(cgbequ,CGBEQU)
00689 #define CPOTRF_F77  F77_BLAS_MANGLE(cpotrf,CPOTRF)
00690 #define CPOTRS_F77  F77_BLAS_MANGLE(cpotrs,CPOTRS)
00691 #define CPOTRI_F77  F77_BLAS_MANGLE(cpotri,CPOTRI)
00692 #define CPOCON_F77  F77_BLAS_MANGLE(cpocon,CPOCON)
00693 #define CPOSV_F77   F77_BLAS_MANGLE(cposv,CPOSV)
00694 #define CPOEQU_F77  F77_BLAS_MANGLE(cpoequ,CPOEQU)
00695 #define CPORFS_F77  F77_BLAS_MANGLE(cporfs,CPORFS)
00696 #define CPOSVX_F77  F77_BLAS_MANGLE(cposvx,CPOSVX)
00697 #define CTRTRS_F77  F77_BLAS_MANGLE(ctrtrs,CTRTRS)
00698 #define CTRTRI_F77  F77_BLAS_MANGLE(ctrtri,CTRTRI)
00699 #define CGELS_F77   F77_BLAS_MANGLE(cgels,CGELS)
00700 #define CGELSS_F77  F77_BLAS_MANGLE(cgelss,CGELSS)
00701 //#define CGGLSE_F77  F77_BLAS_MANGLE(cgglse,CGGLSE)
00702 #define CGEEV_F77   F77_BLAS_MANGLE(cgeev,CGEEV)
00703 #define CGESVD_F77  F77_BLAS_MANGLE(cgesvd,CGESVD)
00704 #define CGGEV_F77   F77_BLAS_MANGLE(cggev,CGGEV)
00705 #define CGEEVX_F77  F77_BLAS_MANGLE(cgeevx,CGEEVX)
00706 #define CGGEVX_F77  F77_BLAS_MANGLE(cggevx,CGGEVX)
00707 #define CGEHRD_F77  F77_BLAS_MANGLE(cgehrd,CGEHRD)
00708 #define CHSEQR_F77  F77_BLAS_MANGLE(chseqr,CHSEQR)
00709 #define CTREVC_F77  F77_BLAS_MANGLE(ctrevc,CTREVC)
00710 #define CTREXC_F77  F77_BLAS_MANGLE(ctrexc,CTREXC)
00711 #define CGEES_F77   F77_BLAS_MANGLE(cgees,CGEES)
00712 #define CSTEQR_F77  F77_BLAS_MANGLE(csteqr,CSTEQR)
00713 #define CHEEV_F77   F77_BLAS_MANGLE(cheev,CHEEV)
00714 #define CHEGV_F77   F77_BLAS_MANGLE(chegv,CHEGV)
00715 #define CLARTG_F77  F77_BLAS_MANGLE(clartg,CLARTG)
00716 #define CLARFG_F77  F77_BLAS_MANGLE(clarfg,CLARFG)
00717 #define CGEBAL_F77  F77_BLAS_MANGLE(cgebal,CGEBAL)
00718 #define CGEBAK_F77  F77_BLAS_MANGLE(cgebak,CGEBAK)
00719 #define CLARND_F77  F77_BLAS_MANGLE(clarnd,CLARND)
00720 #define CLARNV_F77  F77_BLAS_MANGLE(clarnv,CLARNV)
00721 
00722 #endif /* HAVE_TEUCHOS_COMPLEX */
00723 
00724 #ifdef __cplusplus
00725 extern "C" {
00726 #endif
00727 
00728 // Double precision LAPACK linear solvers
00729 
00730 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);
00731 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);
00732 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);
00733 void PREFIX DGEQRF_F77(const int* m, const int* n, double* a, const int* lda, double* tau, double* work, const int* lwork, int* info);
00734 void PREFIX DGETRF_F77(const int* m, const int* n, double* a, const int* lda, int* ipiv, int* info);
00735 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);
00736 void PREFIX DLASWP_F77(const int* N, double A[], const int* LDA, const int* K1, const int* K2, const int IPIV[], const int* INCX);
00737 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);
00738 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);
00739 void PREFIX DGTTRF_F77(const int* n, double* dl, double* d, double* du, double* du2, int* ipiv, int* info);
00740 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);
00741 void PREFIX DPTTRF_F77(const int* n, double* d, double* e, int* info);
00742 void PREFIX DPTTRS_F77(const int* n, const int* nrhs, const double* d, const double* e, double* x , const int* ldx, int* info);
00743 void PREFIX DGETRI_F77(const int* n, double* a, const int* lda, const int* ipiv, double* work , const int* lwork, int* info);
00744 void PREFIX DLATRS_F77(Teuchos_fcd UPLO, Teuchos_fcd TRANS, Teuchos_fcd DIAG, Teuchos_fcd NORMIN, const int* N, double* A, const int* LDA, double* X, double* SCALE, double* CNORM, int* INFO);
00745 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);
00746 void PREFIX DGBCON_F77(Teuchos_fcd norm, const int* n, const int* kl, const int* ku, const double* a, const int* lda, int* IPIV, const double* anorm, double* rcond, double* work, int* iwork, int* info);
00747 double PREFIX DLANGB_F77(Teuchos_fcd norm, const int* n, const int* kl, const int* ku, const double* a, const int* lda, double* work);
00748 void PREFIX DGESV_F77(const int* n, const int* nrhs, double* a, const int* lda, int* ipiv, double* x , const int* ldx, int* info);
00749 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);
00750 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);
00751 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);
00752 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);
00753 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_fcd, double* r,
00754 double* c, double* b, const int* ldb, double* x, const int* ldx, double* rcond, double* ferr, double* berr, double* work, int* iwork, int* info);
00755 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);
00756 void PREFIX DPOTRF_F77(Teuchos_fcd, const int* n, double* a, const int* lda, int* info);
00757 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);
00758 void PREFIX DPOTRI_F77(Teuchos_fcd, const int* n, double* a, const int* lda, int* info);
00759 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);
00760 void PREFIX DPOSV_F77(Teuchos_fcd, const int* n, const int* nrhs, double* a, const int* lda, double*x , const int* ldx, int* info);
00761 void PREFIX DPOEQU_F77(const int* n, const double* a, const int* lda, double* s, double* scond, double* amax, int* info);
00762 void PREFIX DPORFS_F77(Teuchos_fcd, const int* n, const int* nrhs, 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);
00763 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_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);
00764 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);
00765 void PREFIX DTRTRI_F77(Teuchos_fcd, Teuchos_fcd, const int* n, const double* a, const int* lda, int* info);
00766 
00767 // Single precision LAPACK linear solvers
00768 
00769 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);
00770 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);
00771 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);
00772 void PREFIX SGEQRF_F77(const int* m, const int* n, float* a, const int* lda, float* tau, float* work, const int* lwork, int* info);
00773 void PREFIX SGETRF_F77(const int* m, const int* n, float* a, const int* lda, int* ipiv, int* info);
00774 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);
00775 void PREFIX SLASWP_F77(const int* N, float A[], const int* LDA, const int* K1, const int* K2, const int IPIV[], const int* INCX);
00776 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);
00777 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);
00778 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);
00779 void PREFIX SGTTRF_F77(const int* n, float* dl, float* d, float* du, float* du2, int* ipiv, int* info);
00780 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);
00781 void PREFIX SPTTRF_F77(const int* n, float* d, float* e, int* info);
00782 void PREFIX SPTTRS_F77(const int* n, const int* nrhs, const float* d, const float* e, float* x , const int* ldx, int* info);
00783 void PREFIX SGETRI_F77(const int* n, float* a, const int* lda, const int* ipiv, float* work , const int* lwork, int* info);
00784 void PREFIX SLATRS_F77(Teuchos_fcd UPLO, Teuchos_fcd TRANS, Teuchos_fcd DIAG, Teuchos_fcd NORMIN, const int* N, float* A, const int* LDA, float* X, float* SCALE, float* CNORM, int* INFO);
00785 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);
00786 void PREFIX SGBCON_F77(Teuchos_fcd norm, const int* n, const int* kl, const int* ku, const float* a, const int* lda, int* IPIV, const float* anorm, float* rcond, float* work, int* iwork, int* info);
00787 float PREFIX SLANGB_F77(Teuchos_fcd norm, const int* n, const int* kl, const int* ku, const float* a, const int* lda, float* work);
00788 void PREFIX SGESV_F77(const int* n, const int* nrhs, float* a, const int* lda, int* ipiv, float* x , const int* ldx, int* info);
00789 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);
00790 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);
00791 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);
00792 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);
00793 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_fcd, float* r,
00794 float* c, float* b, const int* ldb, float* x, const int* ldx, float* rcond, float* ferr, float* berr, float* work, int* iwork, int* info);
00795 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);
00796 void PREFIX SPOTRF_F77(Teuchos_fcd, const int* n, float* a, const int* lda, int* info);
00797 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);
00798 void PREFIX SPOTRI_F77(Teuchos_fcd, const int* n, float* a, const int* lda, int* info);
00799 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);
00800 void PREFIX SPOSV_F77(Teuchos_fcd, const int* n, const int* nrhs, float* a, const int* lda, float*x , const int* ldx, int* info);
00801 void PREFIX SPOEQU_F77(const int* n, const float* a, const int* lda, float* s, float* scond, float* amax, int* info);
00802 void PREFIX SPORFS_F77(Teuchos_fcd, const int* n, const int* nrhs, 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);
00803 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_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);
00804 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);
00805 void PREFIX STRTRI_F77(Teuchos_fcd, Teuchos_fcd, const int* n, const float* a, const int* lda, int* info);
00806 
00807 // Double precision LAPACK eigen solvers
00808 void PREFIX DSPEV_F77(Teuchos_fcd, Teuchos_fcd, const int* n, double* ap, double* w, double* z, const int* ldz, double* work, int* info);
00809 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);
00810 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);
00811 void PREFIX DSTEQR_F77(Teuchos_fcd, const int* n, double* D, double* E, double* Z, const int* ldz, double* work, int* info);
00812 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);
00813 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);
00814 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);
00815 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);
00816 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);
00817 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);
00818 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);
00819 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);
00820 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);
00821 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);
00822 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);
00823 void PREFIX DORMQR_F77(Teuchos_fcd, Teuchos_fcd, const int* m, const int* n, const int* k, double* a, const int* lda, const double* tau, double* C, const int* ldc, double* work, const int* lwork, int* info);
00824 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);
00825 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);
00826 
00827 
00828 // Single precision LAPACK eigen solvers
00829 
00830 void PREFIX SSPEV_F77(Teuchos_fcd, Teuchos_fcd, const int* n, float* ap, float* w, float* z, const int* ldz, float* work, int* info);
00831 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);
00832 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);
00833 void PREFIX SSTEQR_F77(Teuchos_fcd, const int* n, float* D, float* E, float* Z, const int* ldz, float* work, int* info);
00834 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);
00835 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);
00836 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);
00837 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);
00838 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);
00839 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);
00840 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);
00841 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);
00842 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);
00843 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);
00844 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);
00845 void PREFIX SORMQR_F77(Teuchos_fcd, Teuchos_fcd, const int* m, const int* n, const int* k, float* a, const int* lda, const float* tau, float* C, const int* ldc, float* work, const int* lwork, int* info);
00846 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);
00847 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);
00848 
00849 void PREFIX SLARTG_F77(const float* f, const float* g, float* c, float* s, float* r);
00850 void PREFIX DLARTG_F77(const double* f, const double* g, double* c, double* s, double* r);
00851 
00852 void PREFIX SLARFG_F77(const int* n, float* alpha, float* x, const int* incx, float* tau);
00853 void PREFIX DLARFG_F77(const int* n, double* alpha, double* x, const int* incx, double* tau);
00854 
00855 void PREFIX SGEBAL_F77(Teuchos_fcd, const int* n, float* a, const int* lda, int* ilo, int* ihi, float* scale, int* info);
00856 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);
00857 void PREFIX DGEBAL_F77(Teuchos_fcd, const int* n, double* a, const int* lda, int* ilo, int* ihi, double* scale, int* info);
00858 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);
00859 
00860 float PREFIX SLARND_F77(const int* idist, int* seed);
00861 double PREFIX DLARND_F77(const int* idist, int* seed);
00862 
00863 void PREFIX SLARNV_F77(const int* idist, int* seed, const int* n, float* v);
00864 void PREFIX DLARNV_F77(const int* idist, int* seed, const int* n, double* v);
00865 
00866 float PREFIX SLAMCH_F77(Teuchos_fcd);
00867 double PREFIX DLAMCH_F77(Teuchos_fcd);
00868 
00869 #if defined(INTEL_CXML)
00870 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 );
00871 #else
00872 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 );
00873 #endif
00874 
00875 #ifdef HAVE_TEUCHOS_BLASFLOAT
00876   #if defined(HAVE_SLAPY2_PROBLEM) && defined(HAVE_SLAPY2_DOUBLE_RETURN)
00877     double PREFIX SLAPY2_F77(const float* x, const float* y);
00878   #else
00879     float PREFIX SLAPY2_F77(const float* x, const float* y);
00880   #endif
00881 #endif
00882 
00883 double PREFIX DLAPY2_F77(const double* x, const double* y);
00884 
00885 #ifdef HAVE_TEUCHOS_COMPLEX
00886 
00887 // Double precision complex LAPACK linear solvers
00888 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);
00889 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);
00890 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);
00891 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);
00892 void PREFIX ZUNMQR_F77(Teuchos_fcd SIDE, Teuchos_fcd TRANS, const int* m, const int* n, const int* k, 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);
00893 void PREFIX ZGETRF_F77(const int* m, const int* n, std::complex<double>* a, const int* lda, int* ipiv, int* info);
00894 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);
00895 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);
00896 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); 
00897 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);
00898 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);
00899 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);
00900 void PREFIX ZPTTRF_F77(const int* n, std::complex<double>* d, std::complex<double>* e, int* info);
00901 void PREFIX ZPTTRS_F77(const int* n, const int* nrhs, const std::complex<double>* d, const std::complex<double>* e, std::complex<double>* x , const int* ldx, int* info);
00902 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);
00903 void PREFIX ZLATRS_F77(Teuchos_fcd UPLO, Teuchos_fcd TRANS, Teuchos_fcd DIAG, Teuchos_fcd NORMIN, const int* N, std::complex<double>* A, const int* LDA, std::complex<double>* X, double* SCALE, double* CNORM, int* INFO);
00904 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);
00905 void PREFIX ZGBCON_F77(Teuchos_fcd norm, const int* n, const int* kl, const int* ku, const std::complex<double>* a, const int* lda, int* IPIV, const double* anorm, double* rcond, std::complex<double>* work, double* rwork, int* info);
00906 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);
00907 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);
00908 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);
00909 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);
00910 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);
00911 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);
00912 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_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);
00913 void PREFIX ZPOTRF_F77(Teuchos_fcd, const int* n, std::complex<double>* a, const int* lda, int* info);
00914 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);
00915 void PREFIX ZPOTRI_F77(Teuchos_fcd, const int* n, std::complex<double>* a, const int* lda, int* info);
00916 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);
00917 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);
00918 void PREFIX ZPOEQU_F77(const int* n, const std::complex<double>* a, const int* lda, double* s, double* scond, double* amax, int* info);
00919 void PREFIX ZPORFS_F77(Teuchos_fcd, const int* n, const int* nrhs, 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);
00920 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_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);
00921 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);
00922 void PREFIX ZTRTRI_F77(Teuchos_fcd, Teuchos_fcd, const int* n, const std::complex<double>* a, const int* lda, int* info);
00923 
00924 // Single precision complex LAPACK linear solvers
00925 
00926 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);
00927 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);
00928 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);
00929 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);
00930 void PREFIX CUNMQR_F77(Teuchos_fcd SIDE, Teuchos_fcd TRANS, const int* m, const int* n, const int* k, 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);
00931 void PREFIX CGETRF_F77(const int* m, const int* n, std::complex<float>* a, const int* lda, int* ipiv, int* info);
00932 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);
00933 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);
00934 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);
00935 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);
00936 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);
00937 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);
00938 void PREFIX CPTTRF_F77(const int* n, std::complex<float>* d, std::complex<float>* e, int* info);
00939 void PREFIX CPTTRS_F77(const int* n, const int* nrhs, const std::complex<float>* d, const std::complex<float>* e, std::complex<float>* x , const int* ldx, int* info);
00940 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);
00941 void PREFIX CLATRS_F77(Teuchos_fcd UPLO, Teuchos_fcd TRANS, Teuchos_fcd DIAG, Teuchos_fcd NORMIN, const int* N, std::complex<float>* A, const int* LDA, std::complex<float>* X, float* SCALE, float* CNORM, int* INFO);
00942 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);
00943 void PREFIX CGBCON_F77(Teuchos_fcd norm, const int* n, const int* kl, const int* ku, const std::complex<float>* a, const int* lda, int* IPIV, const float* anorm, float* rcond, std::complex<float>* work, float* rwork, int* info);
00944 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);
00945 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);
00946 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);
00947 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);
00948 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);
00949 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);
00950 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_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);
00951 void PREFIX CPOTRF_F77(Teuchos_fcd, const int* n, std::complex<float>* a, const int* lda, int* info);
00952 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);
00953 void PREFIX CPOTRI_F77(Teuchos_fcd, const int* n, std::complex<float>* a, const int* lda, int* info);
00954 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);
00955 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);
00956 void PREFIX CPOEQU_F77(const int* n, const std::complex<float>* a, const int* lda, float* s, float* scond, float* amax, int* info);
00957 void PREFIX CPORFS_F77(Teuchos_fcd, const int* n, const int* nrhs, 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);
00958 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_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);
00959 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);
00960 void PREFIX CTRTRI_F77(Teuchos_fcd, Teuchos_fcd, const int* n, const std::complex<float>* a, const int* lda, int* info);
00961 
00962 // Double precision complex LAPACK eigensolvers
00963 
00964 void PREFIX ZSTEQR_F77(Teuchos_fcd, const int* n, double* D, double* E, std::complex<double>* Z, const int* ldz, double* work, int* info);
00965 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);
00966 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);
00967 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);
00968 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, double *beta, double *vl, const int *ldvl, double *vr, const int *ldvr, double *work, const int *lwork, double *rwork, int *info);
00969 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);
00970 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);
00971 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);
00972 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);
00973 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);
00974 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);
00975 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);
00976 void PREFIX ZTREXC_F77(Teuchos_fcd, const int* n, std::complex<double>* t, const int* ldt, std::complex<double>* q, const int* ldq, int* ifst, int* ilst, int* info);
00977 
00978 // Single precision complex LAPACK eigensolvers
00979 
00980 void PREFIX CSTEQR_F77(Teuchos_fcd, const int* n, float* D, float* E, std::complex<float>* Z, const int* ldz, float* work, int* info);
00981 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);
00982 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);
00983 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);
00984 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);
00985 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);
00986 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);
00987 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);
00988 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);
00989 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);
00990 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);
00991   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);
00992 void PREFIX CTREXC_F77(Teuchos_fcd, const int* n, std::complex<float>* t, const int* ldt, std::complex<float>* q, const int* ldq, int* ifst, int* ilst, int* info);
00993 
00994 void PREFIX CLARTG_F77(const std::complex<float>* f, const std::complex<float>* g, float* c, std::complex<float>* s, std::complex<float>* r);
00995 void PREFIX ZLARTG_F77(const std::complex<double>* f, const std::complex<double>* g, double* c, std::complex<double>* s, std::complex<double>* r);
00996 
00997 void PREFIX CLARFG_F77(const int* n, std::complex<float>* alpha, std::complex<float>* x, const int* incx, std::complex<float>* tau);
00998 void PREFIX ZLARFG_F77(const int* n, std::complex<double>* alpha, std::complex<double>* x, const int* incx, std::complex<double>* tau);
00999 
01000 void PREFIX CGEBAL_F77(Teuchos_fcd, const int* n, std::complex<float>* a, const int* lda, int* ilo, int* ihi, float* scale, int* info);
01001 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);
01002 void PREFIX ZGEBAL_F77(Teuchos_fcd, const int* n, std::complex<double>* a, const int* lda, int* ilo, int* ihi, double* scale, int* info);
01003 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);
01004 
01005 std::complex<float> PREFIX CLARND_F77(const int* idist, int* seed);
01006 std::complex<double> PREFIX ZLARND_F77(const int* idist, int* seed);
01007 
01008 void PREFIX CLARNV_F77(const int* idist, int* seed, const int* n, std::complex<float>* v);
01009 void PREFIX ZLARNV_F77(const int* idist, int* seed, const int* n, std::complex<double>* v);
01010 
01011 #endif /* HAVE_TEUCHOS_COMPLEX */
01012 
01013 #ifdef __cplusplus
01014 }
01015 #endif
01016 
01017 #endif // end of TEUCHOS_LAPACK_WRAPPERS_HPP_
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Defines