|
Teuchos - Trilinos Tools Package Version of the Day
|
|
Teuchos - Trilinos Tools Package Version of the Day
|
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 DGTTRF_F77 F77_BLAS_MANGLE(sgttrf,SGTTRF) 00064 #define DGTTRS_F77 F77_BLAS_MANGLE(sgttrs,SGTTRS) 00065 #define DPTTRF_F77 F77_BLAS_MANGLE(spttrf,SPTTRF) 00066 #define DPTTRS_F77 F77_BLAS_MANGLE(spttrs,SPTTRS) 00067 #define DGETRI_F77 F77_BLAS_MANGLE(sgetri,SGETRI) 00068 #define DGERFS_F77 F77_BLAS_MANGLE(sgerfs,SGERFS) 00069 #define DLATRS_F77 F77_BLAS_MANGLE(slatrs,SLATRS) 00070 #define DGECON_F77 F77_BLAS_MANGLE(sgecon,SGECON) 00071 #define DGESVX_F77 F77_BLAS_MANGLE(sgesvx,SGESVX) 00072 #define DGESV_F77 F77_BLAS_MANGLE(sgesv,SGESV) 00073 #define DGEEQU_F77 F77_BLAS_MANGLE(sgeequ,SGEEQU) 00074 #define DSYTRD_F77 F77_BLAS_MANGLE(ssytrd,SSYTRD) 00075 #define DPOTRF_F77 F77_BLAS_MANGLE(spotrf,SPOTRF) 00076 #define DPOTRS_F77 F77_BLAS_MANGLE(spotrs,SPOTRS) 00077 #define DPOTRI_F77 F77_BLAS_MANGLE(spotri,SPOTRI) 00078 #define DPOCON_F77 F77_BLAS_MANGLE(spocon,SPOCON) 00079 #define DPOSV_F77 F77_BLAS_MANGLE(sposv,SPOSV) 00080 #define DPOEQU_F77 F77_BLAS_MANGLE(spoequ,SPOEQU) 00081 #define DPORFS_F77 F77_BLAS_MANGLE(sporfs,SPORFS) 00082 #define DPOSVX_F77 F77_BLAS_MANGLE(sposvx,SPOSVX) 00083 #define DLAMCH_F77 F77_BLAS_MANGLE(slamch,SLAMCH) 00084 #define DTRTRI_F77 F77_BLAS_MANGLE(strtri,STRTRI) 00085 #define DTRTRS_F77 F77_BLAS_MANGLE(strtrs,STRTRS) 00086 #define DGELS_F77 F77_BLAS_MANGLE(sgels,SGELS) 00087 #define DGELSS_F77 F77_BLAS_MANGLE(sgelss,SGELSS) 00088 #define DGEEV_F77 F77_BLAS_MANGLE(sgeev,SGEEV) 00089 #define DGESVD_F77 F77_BLAS_MANGLE(sgesvd,SGESVD) 00090 #define DGGEV_F77 F77_BLAS_MANGLE(sggev,SGGEV) 00091 #define DGGEVX_F77 F77_BLAS_MANGLE(sggevx,SGGEVX) 00092 #define DGEHRD_F77 F77_BLAS_MANGLE(sgehrd,SGEHRD) 00093 #define DHSEQR_F77 F77_BLAS_MANGLE(shseqr,SHSEQR) 00094 #define DORMQR_F77 F77_BLAS_MANGLE(sormqr,SORMQR) 00095 #define DORGQR_F77 F77_BLAS_MANGLE(sorgqr,SORGQR) 00096 #define DORGHR_F77 F77_BLAS_MANGLE(sorghr,SORGHR) 00097 #define DORMHR_F77 F77_BLAS_MANGLE(sormhr,SORMHR) 00098 #define DTREVC_F77 F77_BLAS_MANGLE(strevc,STREVC) 00099 #define DTREXC_F77 F77_BLAS_MANGLE(strexc,STREXC) 00100 #define DGEES_F77 F77_BLAS_MANGLE(sgees,SGEES) 00101 #define DSPEV_F77 F77_BLAS_MANGLE(sspev,SSPEV) 00102 #define DSYEV_F77 F77_BLAS_MANGLE(ssyev,SSYEV) 00103 #define DSYGV_F77 F77_BLAS_MANGLE(ssygv,SSYGV) 00104 #define DSTEQR_F77 F77_BLAS_MANGLE(ssteqr,SSTEQR) 00105 #define DLAPY2_F77 F77_BLAS_MANGLE(slapy2,SLAPY2) 00106 #define DLARTG_F77 F77_BLAS_MANGLE(slartg,SLARTG) 00107 #define DLARFG_F77 F77_BLAS_MANGLE(slarfg,SLARFG) 00108 #define DGEBAL_F77 F77_BLAS_MANGLE(sgebal,SGEBAL) 00109 #define DGEBAK_F77 F77_BLAS_MANGLE(sgebak,SGEBAK) 00110 #define DLARND_F77 F77_BLAS_MANGLE(slarnd,SLARND) 00111 #define DLARNV_F77 F77_BLAS_MANGLE(slarnv,SLARNV) 00112 #define ILAENV_F77 F77_BLAS_MANGLE(ilaenv,ILAENV) 00113 00114 00115 #ifdef HAVE_TEUCHOS_COMPLEX 00116 00117 #define ZGEQRF_F77 F77_BLAS_MANGLE(cgeqrf,CGEQRF) 00118 #define ZUNGQR_F77 F77_BLAS_MANGLE(cungqr,CUNGQR) 00119 #define ZUNMQR_F77 F77_BLAS_MANGLE(cunmqr,CUNMQR) 00120 #define ZGETRF_F77 F77_BLAS_MANGLE(cgetrf,CGETRF) 00121 #define ZGETRS_F77 F77_BLAS_MANGLE(cgetrs,CGETRS) 00122 #define ZGTTRF_F77 F77_BLAS_MANGLE(cgttrf,CGTTRF) 00123 #define ZGTTRS_F77 F77_BLAS_MANGLE(cgttrs,CGTTRS) 00124 #define ZPTTRF_F77 F77_BLAS_MANGLE(cpttrf,CPTTRF) 00125 #define ZPTTRS_F77 F77_BLAS_MANGLE(cpttrs,CPTTRS) 00126 #define ZGETRI_F77 F77_BLAS_MANGLE(cgetri,CGETRI) 00127 #define ZGERFS_F77 F77_BLAS_MANGLE(cgerfs,CGERFS) 00128 #define ZLATRS_F77 F77_BLAS_MANGLE(clatrs,CLATRS) 00129 #define ZGECON_F77 F77_BLAS_MANGLE(cgecon,CGECON) 00130 #define ZGESVX_F77 F77_BLAS_MANGLE(cgesvx,CGESVX) 00131 #define ZGESV_F77 F77_BLAS_MANGLE(cgesv,CGESV) 00132 #define ZGEEQU_F77 F77_BLAS_MANGLE(cgeequ,CGEEQU) 00133 #define ZPOTRF_F77 F77_BLAS_MANGLE(cpotrf,CPOTRF) 00134 #define ZPOTRS_F77 F77_BLAS_MANGLE(cpotrs,CPOTRS) 00135 #define ZPOTRI_F77 F77_BLAS_MANGLE(cpotri,CPOTRI) 00136 #define ZPOCON_F77 F77_BLAS_MANGLE(cpocon,CPOCON) 00137 #define ZPOSV_F77 F77_BLAS_MANGLE(cposv,CPOSV) 00138 #define ZPOEQU_F77 F77_BLAS_MANGLE(cpoequ,CPOEQU) 00139 #define ZPORFS_F77 F77_BLAS_MANGLE(cporfs,CPORFS) 00140 #define ZPOSVX_F77 F77_BLAS_MANGLE(cposvx,CPOSVX) 00141 #define ZTRTRS_F77 F77_BLAS_MANGLE(ctrtrs,CTRTRS) 00142 #define ZTRTRI_F77 F77_BLAS_MANGLE(ctrtri,CTRTRI) 00143 #define ZGELS_F77 F77_BLAS_MANGLE(cgels,CGELS) 00144 #define ZGELSS_F77 F77_BLAS_MANGLE(zgelss,ZGELSS) 00145 #define ZGEEV_F77 F77_BLAS_MANGLE(cgeev,CGEEV) 00146 #define ZGESVD_F77 F77_BLAS_MANGLE(cgesvd,CGESVD) 00147 //#define ZGGEV_F77 F77_BLAS_MANGLE(cggev,CGGEV) 00148 //#define ZGGEVX_F77 F77_BLAS_MANGLE(cggevx,CGGEVX) 00149 #define ZGEHRD_F77 F77_BLAS_MANGLE(cgehrd,CGEHRD) 00150 #define ZHSEQR_F77 F77_BLAS_MANGLE(chseqr,CHSEQR) 00151 #define ZTREVC_F77 F77_BLAS_MANGLE(ctrevc,CTREVC) 00152 #define ZTREXC_F77 F77_BLAS_MANGLE(ctrexc,CTREXC) 00153 #define ZGEES_F77 F77_BLAS_MANGLE(cgees,CGEES) 00154 #define ZSTEQR_F77 F77_BLAS_MANGLE(csteqr,CSTEQR) 00155 #define ZHEEV_F77 F77_BLAS_MANGLE(cheev,CHEEV) 00156 #define ZHEGV_F77 F77_BLAS_MANGLE(chegv,CHEGV) 00157 #define ZLARTG_F77 F77_BLAS_MANGLE(clartg,CLARTG) 00158 #define ZLARFG_F77 F77_BLAS_MANGLE(clarfg,CLARFG) 00159 #define ZGEBAL_F77 F77_BLAS_MANGLE(cgebal,CGEBAL) 00160 #define ZGEBAK_F77 F77_BLAS_MANGLE(cgebak,CGEBAK) 00161 #define ZLARND_F77 F77_BLAS_MANGLE(clarnd,CLARND) 00162 #define ZLARNV_F77 F77_BLAS_MANGLE(clarnv,CLARNV) 00163 00164 #endif /* HAVE_TEUCHOS_COMPLEX */ 00165 00166 #elif defined(INTEL_CXML) 00167 00168 #define PREFIX __stdcall 00169 #define Teuchos_fcd const char *, unsigned int 00170 00171 #define DGEQRF_F77 F77_BLAS_MANGLE(dgeqrf,DGEQRF) 00172 #define DGETRF_F77 F77_BLAS_MANGLE(dgetrf,DGETRF) 00173 #define DGETRS_F77 F77_BLAS_MANGLE(dgetrs,DGETRS) 00174 #define DGTTRF_F77 F77_BLAS_MANGLE(dgttrf,DGTTRF) 00175 #define DGTTRS_F77 F77_BLAS_MANGLE(dgttrs,DGTTRS) 00176 #define DPTTRF_F77 F77_BLAS_MANGLE(dpttrf,DPTTRF) 00177 #define DPTTRS_F77 F77_BLAS_MANGLE(dpttrs,DPTTRS) 00178 #define DGETRI_F77 F77_BLAS_MANGLE(dgetri,DGETRI) 00179 #define DGERFS_F77 F77_BLAS_MANGLE(dgerfs,DGERFS) 00180 #define DLATRS_F77 F77_BLAS_MANGLE(dlatrs,DLATRS) 00181 #define DGECON_F77 F77_BLAS_MANGLE(dgecon,DGECON) 00182 #define DGESVX_F77 F77_BLAS_MANGLE(dgesvx,DGESVX) 00183 #define DGESV_F77 F77_BLAS_MANGLE(dgesv,DGESV) 00184 #define DGEEQU_F77 F77_BLAS_MANGLE(dgeequ,DGEEQU) 00185 #define DSYTRD_F77 F77_BLAS_MANGLE(dsytrd,DSYTRD) 00186 #define DPOTRF_F77 F77_BLAS_MANGLE(dpotrf,DPOTRF) 00187 #define DPOTRS_F77 F77_BLAS_MANGLE(dpotrs,DPOTRS) 00188 #define DPOTRI_F77 F77_BLAS_MANGLE(dpotri,DPOTRI) 00189 #define DPOCON_F77 F77_BLAS_MANGLE(dpocon,DPOCON) 00190 #define DPOSV_F77 F77_BLAS_MANGLE(dposv,DPOSV) 00191 #define DPOEQU_F77 F77_BLAS_MANGLE(dpoequ,DPOEQU) 00192 #define DPORFS_F77 F77_BLAS_MANGLE(dporfs,DPORFS) 00193 #define DPOSVX_F77 F77_BLAS_MANGLE(dposvx,DPOSVX) 00194 #define DTRTRS_F77 F77_BLAS_MANGLE(dtrtrs,DTRTRS) 00195 #define DTRTRI_F77 F77_BLAS_MANGLE(dtrtri,DTRTRI) 00196 #define DLAMCH_F77 F77_BLAS_MANGLE(dlamch,DLAMCH) 00197 #define DGELS_F77 F77_BLAS_MANGLE(dgels,DGELS) 00198 #define DGELSS_F77 F77_BLAS_MANGLE(dgelss,DGELSS) 00199 #define DGEEV_F77 F77_BLAS_MANGLE(dgeev,DGEEV) 00200 #define DGESVD_F77 F77_BLAS_MANGLE(dgesvd,DGESVD) 00201 #define DGGEV_F77 F77_BLAS_MANGLE(dggev,DGGEV) 00202 #define DGGEVX_F77 F77_BLAS_MANGLE(dggevx,DGGEVX) 00203 #define DGEHRD_F77 F77_BLAS_MANGLE(dgehrd,DGEHRD) 00204 #define DHSEQR_F77 F77_BLAS_MANGLE(dhseqr,DHSEQR) 00205 #define DORGHR_F77 F77_BLAS_MANGLE(dorghr,DORGHR) 00206 #define DORGQR_F77 F77_BLAS_MANGLE(dorgqr,DORGQR) 00207 #define DORMHR_F77 F77_BLAS_MANGLE(dormhr,DORMHR) 00208 #define DORMQR_F77 F77_BLAS_MANGLE(dormqr,DORMQR) 00209 #define DTREVC_F77 F77_BLAS_MANGLE(dtrevc,DTREVC) 00210 #define DTREXC_F77 F77_BLAS_MANGLE(dtrexc,DTREXC) 00211 #define DGEES_F77 F77_BLAS_MANGLE(dgees,DGEES) 00212 #define DSPEV_F77 F77_BLAS_MANGLE(dspev,DSPEV) 00213 #define DSYEV_F77 F77_BLAS_MANGLE(dsyev,DSYEV) 00214 #define DSYGV_F77 F77_BLAS_MANGLE(dsygv,DSYGV) 00215 #define DSTEQR_F77 F77_BLAS_MANGLE(dsteqr,DSTEQR) 00216 #define DLAPY2_F77 F77_BLAS_MANGLE(dlapy2,DLAPY2) 00217 #define DLARTG_F77 F77_BLAS_MANGLE(dlartg,DLARTG) 00218 #define DLARFG_F77 F77_BLAS_MANGLE(dlarfg,DLARFG) 00219 #define DGEBAL_F77 F77_BLAS_MANGLE(dgebal,DGEBAL) 00220 #define DGEBAK_F77 F77_BLAS_MANGLE(dgebak,DGEBAK) 00221 #define DLARND_F77 F77_BLAS_MANGLE(dlarnd,DLARND) 00222 #define DLARNV_F77 F77_BLAS_MANGLE(dlarnv,DLARNV) 00223 #define ILAENV_F77 F77_BLAS_MANGLE(ilaenv,ILAENV) 00224 00225 #ifdef HAVE_TEUCHOS_COMPLEX 00226 00227 #define ZGEQRF_F77 F77_BLAS_MANGLE(zgeqrf,ZGEQRF) 00228 #define ZUNGQR_F77 F77_BLAS_MANGLE(zungqr,ZUNGQR) 00229 #define ZUNMQR_F77 F77_BLAS_MANGLE(zunmqr,ZUNMQR) 00230 #define ZGETRF_F77 F77_BLAS_MANGLE(zgetrf,ZGETRF) 00231 #define ZGETRS_F77 F77_BLAS_MANGLE(zgetrs,ZGETRS) 00232 #define ZGTTRF_F77 F77_BLAS_MANGLE(zgttrf,ZGTTRF) 00233 #define ZGTTRS_F77 F77_BLAS_MANGLE(zgttrs,ZGTTRS) 00234 #define ZPTTRF_F77 F77_BLAS_MANGLE(zpttrf,ZPTTRF) 00235 #define ZPTTRS_F77 F77_BLAS_MANGLE(zpttrs,ZPTTRS) 00236 #define ZGETRI_F77 F77_BLAS_MANGLE(zgetri,ZGETRI) 00237 #define ZGERFS_F77 F77_BLAS_MANGLE(zgerfs,ZGERFS) 00238 #define ZLATRS_F77 F77_BLAS_MANGLE(zlatrs,ZLATRS) 00239 #define ZGECON_F77 F77_BLAS_MANGLE(zgecon,ZGECON) 00240 #define ZGESVX_F77 F77_BLAS_MANGLE(zgesvx,ZGESVX) 00241 #define ZGESV_F77 F77_BLAS_MANGLE(zgesv,ZGESV) 00242 #define ZGEEQU_F77 F77_BLAS_MANGLE(zgeequ,ZGEEQU) 00243 #define ZPOTRF_F77 F77_BLAS_MANGLE(zpotrf,ZPOTRF) 00244 #define ZPOTRS_F77 F77_BLAS_MANGLE(zpotrs,ZPOTRS) 00245 #define ZPOTRI_F77 F77_BLAS_MANGLE(zpotri,ZPOTRI) 00246 #define ZPOCON_F77 F77_BLAS_MANGLE(zpocon,ZPOCON) 00247 #define ZPOSV_F77 F77_BLAS_MANGLE(zposv,ZPOSV) 00248 #define ZPOEQU_F77 F77_BLAS_MANGLE(zpoequ,ZPOEQU) 00249 #define ZPORFS_F77 F77_BLAS_MANGLE(zporfs,ZPORFS) 00250 #define ZPOSVX_F77 F77_BLAS_MANGLE(zposvx,ZPOSVX) 00251 #define ZTRTRS_F77 F77_BLAS_MANGLE(ztrtrs,ZTRTRS) 00252 #define ZTRTRI_F77 F77_BLAS_MANGLE(ztrtri,ZTRTRI) 00253 #define ZGELS_F77 F77_BLAS_MANGLE(zgels,ZGELS) 00254 #define ZGELSS_F77 F77_BLAS_MANGLE(zgelss,ZGELSS) 00255 #define ZGEEV_F77 F77_BLAS_MANGLE(zgeev,ZGEEV) 00256 #define ZGESVD_F77 F77_BLAS_MANGLE(zgesvd,ZGESVD) 00257 //#define ZGGEV_F77 F77_BLAS_MANGLE(zggev,ZGGEV) 00258 //#define ZGGEVX_F77 F77_BLAS_MANGLE(zggevx,ZGGEVX) 00259 #define ZGEHRD_F77 F77_BLAS_MANGLE(zgehrd,ZGEHRD) 00260 #define ZHSEQR_F77 F77_BLAS_MANGLE(zhseqr,ZHSEQR) 00261 #define ZTREVC_F77 F77_BLAS_MANGLE(ztrevc,ZTREVC) 00262 #define ZTREXC_F77 F77_BLAS_MANGLE(ztrexc,ZTREXC) 00263 #define ZGEES_F77 F77_BLAS_MANGLE(zgees,ZGEES) 00264 #define ZSTEQR_F77 F77_BLAS_MANGLE(zsteqr,ZSTEQR) 00265 #define ZHEEV_F77 F77_BLAS_MANGLE(zheev,ZHEEV) 00266 #define ZHEGV_F77 F77_BLAS_MANGLE(zhegv,ZHEGV) 00267 #define ZLARTG_F77 F77_BLAS_MANGLE(zlartg,ZLARTG) 00268 #define ZLARFG_F77 F77_BLAS_MANGLE(zlarfg,ZLARFG) 00269 #define ZGEBAL_F77 F77_BLAS_MANGLE(zgebal,ZGEBAL) 00270 #define ZGEBAK_F77 F77_BLAS_MANGLE(zgebak,ZGEBAK) 00271 #define ZLARND_F77 F77_BLAS_MANGLE(zlarnd,ZLARND) 00272 #define ZLARNV_F77 F77_BLAS_MANGLE(zlarnv,ZLARNV) 00273 00274 #endif /* HAVE_TEUCHOS_COMPLEX */ 00275 00276 #elif defined(INTEL_MKL) 00277 00278 #define PREFIX 00279 #define Teuchos_fcd const char * 00280 00281 #define DGEQRF_F77 F77_BLAS_MANGLE(dgeqrf,DGEQRF) 00282 #define DGETRF_F77 F77_BLAS_MANGLE(dgetrf,DGETRF) 00283 #define DGETRS_F77 F77_BLAS_MANGLE(dgetrs,DGETRS) 00284 #define DGTTRF_F77 F77_BLAS_MANGLE(dgttrf,DGTTRF) 00285 #define DGTTRS_F77 F77_BLAS_MANGLE(dgttrs,DGTTRS) 00286 #define DPTTRF_F77 F77_BLAS_MANGLE(dpttrf,DPTTRF) 00287 #define DPTTRS_F77 F77_BLAS_MANGLE(dpttrs,DPTTRS) 00288 #define DGETRI_F77 F77_BLAS_MANGLE(dgetri,DGETRI) 00289 #define DGERFS_F77 F77_BLAS_MANGLE(dgerfs,DGERFS) 00290 #define DLATRS_F77 F77_BLAS_MANGLE(dlatrs,DLATRS) 00291 #define DGECON_F77 F77_BLAS_MANGLE(dgecon,DGECON) 00292 #define DGESVX_F77 F77_BLAS_MANGLE(dgesvx,DGESVX) 00293 #define DGESV_F77 F77_BLAS_MANGLE(dgesv,DGESV) 00294 #define DGEEQU_F77 F77_BLAS_MANGLE(dgeequ,DGEEQU) 00295 #define DSYTRD_F77 F77_BLAS_MANGLE(dsytrd,DSYTRD) 00296 #define DPOTRF_F77 F77_BLAS_MANGLE(dpotrf,DPOTRF) 00297 #define DPOTRS_F77 F77_BLAS_MANGLE(dpotrs,DPOTRS) 00298 #define DPOTRI_F77 F77_BLAS_MANGLE(dpotri,DPOTRI) 00299 #define DPOCON_F77 F77_BLAS_MANGLE(dpocon,DPOCON) 00300 #define DPOSV_F77 F77_BLAS_MANGLE(dposv,DPOSV) 00301 #define DPOEQU_F77 F77_BLAS_MANGLE(dpoequ,DPOEQU) 00302 #define DPORFS_F77 F77_BLAS_MANGLE(dporfs,DPORFS) 00303 #define DPOSVX_F77 F77_BLAS_MANGLE(dposvx,DPOSVX) 00304 #define DTRTRS_F77 F77_BLAS_MANGLE(dtrtrs,DTRTRS) 00305 #define DTRTRI_F77 F77_BLAS_MANGLE(dtrtri,DTRTRI) 00306 #define DLAMCH_F77 F77_BLAS_MANGLE(dlamch,DLAMCH) 00307 #define DGELS_F77 F77_BLAS_MANGLE(dgels,DGELS) 00308 #define DGELSS_F77 F77_BLAS_MANGLE(dgelss,DGELSS) 00309 #define DGEEV_F77 F77_BLAS_MANGLE(dgeev,DGEEV) 00310 #define DGESVD_F77 F77_BLAS_MANGLE(dgesvd,DGESVD) 00311 #define DGGEV_F77 F77_BLAS_MANGLE(dggev,DGGEV) 00312 #define DGGEVX_F77 F77_BLAS_MANGLE(dggevx,DGGEVX) 00313 #define DGEHRD_F77 F77_BLAS_MANGLE(dgehrd,DGEHRD) 00314 #define DHSEQR_F77 F77_BLAS_MANGLE(dhseqr,DHSEQR) 00315 #define DORGHR_F77 F77_BLAS_MANGLE(dorghr,DORGHR) 00316 #define DORGQR_F77 F77_BLAS_MANGLE(dorgqr,DORGQR) 00317 #define DORMHR_F77 F77_BLAS_MANGLE(dormhr,DORMHR) 00318 #define DORMQR_F77 F77_BLAS_MANGLE(dormqr,DORMQR) 00319 #define DTREVC_F77 F77_BLAS_MANGLE(dtrevc,DTREVC) 00320 #define DTREXC_F77 F77_BLAS_MANGLE(dtrexc,DTREXC) 00321 #define DGEES_F77 F77_BLAS_MANGLE(dgees,DGEES) 00322 #define DSPEV_F77 F77_BLAS_MANGLE(dspev,DSPEV) 00323 #define DSYEV_F77 F77_BLAS_MANGLE(dsyev,DSYEV) 00324 #define DSYGV_F77 F77_BLAS_MANGLE(dsygv,DSYGV) 00325 #define DSTEQR_F77 F77_BLAS_MANGLE(dsteqr,DSTEQR) 00326 #define DLAPY2_F77 F77_BLAS_MANGLE(dlapy2,DLAPY2) 00327 #define DLARTG_F77 F77_BLAS_MANGLE(dlartg,DLARTG) 00328 #define DLARFG_F77 F77_BLAS_MANGLE(dlarfg,DLARFG) 00329 #define DGEBAL_F77 F77_BLAS_MANGLE(dgebal,DGEBAL) 00330 #define DGEBAK_F77 F77_BLAS_MANGLE(dgebak,DGEBAK) 00331 #define DLARND_F77 F77_BLAS_MANGLE(dlarnd,DLARND) 00332 #define DLARNV_F77 F77_BLAS_MANGLE(dlarnv,DLARNV) 00333 #define ILAENV_F77 F77_BLAS_MANGLE(ilaenv,ILAENV) 00334 00335 #ifdef HAVE_TEUCHOS_COMPLEX 00336 00337 #define ZGEQRF_F77 F77_BLAS_MANGLE(zgeqrf,ZGEQRF) 00338 #define ZUNGQR_F77 F77_BLAS_MANGLE(zungqr,ZUNGQR) 00339 #define ZUNMQR_F77 F77_BLAS_MANGLE(zunmqr,ZUNMQR) 00340 #define ZGTTRF_F77 F77_BLAS_MANGLE(zgttrf,ZGTTRF) 00341 #define ZGTTRS_F77 F77_BLAS_MANGLE(zgttrs,ZGTTRS) 00342 #define ZPTTRF_F77 F77_BLAS_MANGLE(zpttrf,ZPTTRF) 00343 #define ZPTTRS_F77 F77_BLAS_MANGLE(zpttrs,ZPTTRS) 00344 #define ZGETRF_F77 F77_BLAS_MANGLE(zgetrf,ZGETRF) 00345 #define ZGETRS_F77 F77_BLAS_MANGLE(zgetrs,ZGETRS) 00346 #define ZGETRI_F77 F77_BLAS_MANGLE(zgetri,ZGETRI) 00347 #define ZGERFS_F77 F77_BLAS_MANGLE(zgerfs,ZGERFS) 00348 #define ZLATRS_F77 F77_BLAS_MANGLE(zlatrs,ZLATRS) 00349 #define ZGECON_F77 F77_BLAS_MANGLE(zgecon,ZGECON) 00350 #define ZGESVX_F77 F77_BLAS_MANGLE(zgesvx,ZGESVX) 00351 #define ZGESV_F77 F77_BLAS_MANGLE(zgesv,ZGESV) 00352 #define ZGEEQU_F77 F77_BLAS_MANGLE(zgeequ,ZGEEQU) 00353 #define ZPOTRF_F77 F77_BLAS_MANGLE(zpotrf,ZPOTRF) 00354 #define ZPOTRS_F77 F77_BLAS_MANGLE(zpotrs,ZPOTRS) 00355 #define ZPOTRI_F77 F77_BLAS_MANGLE(zpotri,ZPOTRI) 00356 #define ZPOCON_F77 F77_BLAS_MANGLE(zpocon,ZPOCON) 00357 #define ZPOSV_F77 F77_BLAS_MANGLE(zposv,ZPOSV) 00358 #define ZPOEQU_F77 F77_BLAS_MANGLE(zpoequ,ZPOEQU) 00359 #define ZPORFS_F77 F77_BLAS_MANGLE(zporfs,ZPORFS) 00360 #define ZPOSVX_F77 F77_BLAS_MANGLE(zposvx,ZPOSVX) 00361 #define ZTRTRS_F77 F77_BLAS_MANGLE(ztrtrs,ZTRTRS) 00362 #define ZTRTRI_F77 F77_BLAS_MANGLE(ztrtri,ZTRTRI) 00363 #define ZGELS_F77 F77_BLAS_MANGLE(zgels,ZGELS) 00364 #define ZGELSS_F77 F77_BLAS_MANGLE(zgelss,ZGELSS) 00365 #define ZGEEV_F77 F77_BLAS_MANGLE(zgeev,ZGEEV) 00366 #define ZGESVD_F77 F77_BLAS_MANGLE(zgesvd,ZGESVD) 00367 //#define ZGGEV_F77 F77_BLAS_MANGLE(zggev,ZGGEV) 00368 //#define ZGGEVX_F77 F77_BLAS_MANGLE(zggevx,ZGGEVX) 00369 #define ZGEHRD_F77 F77_BLAS_MANGLE(zgehrd,ZGEHRD) 00370 #define ZHSEQR_F77 F77_BLAS_MANGLE(zhseqr,ZHSEQR) 00371 #define ZTREVC_F77 F77_BLAS_MANGLE(ztrevc,ZTREVC) 00372 #define ZTREXC_F77 F77_BLAS_MANGLE(ztrexc,ZTREXC) 00373 #define ZGEES_F77 F77_BLAS_MANGLE(zgees,ZGEES) 00374 #define ZSTEQR_F77 F77_BLAS_MANGLE(zsteqr,ZSTEQR) 00375 #define ZHEEV_F77 F77_BLAS_MANGLE(zheev,ZHEEV) 00376 #define ZHEGV_F77 F77_BLAS_MANGLE(zhegv,ZHEGV) 00377 #define ZLARTG_F77 F77_BLAS_MANGLE(zlartg,ZLARTG) 00378 #define ZLARFG_F77 F77_BLAS_MANGLE(zlarfg,ZLARFG) 00379 #define ZGEBAL_F77 F77_BLAS_MANGLE(zgebal,ZGEBAL) 00380 #define ZGEBAK_F77 F77_BLAS_MANGLE(zgebak,ZGEBAK) 00381 #define ZLARND_F77 F77_BLAS_MANGLE(zlarnd,ZLARND) 00382 #define ZLARNV_F77 F77_BLAS_MANGLE(zlarnv,ZLARNV) 00383 00384 #endif /* HAVE_TEUCHOS_COMPLEX */ 00385 00386 #endif /* defined(CRAY_T3X) || defined(INTEL_CXML) || defined(INTEL_MKL) */ 00387 00388 /* All three of these machines use a simple uppercase mangling of Fortran names */ 00389 00390 /* if F77_BLAS_MANGLE is defined undefine it because we want to redefine */ 00391 00392 #ifdef F77_FUNC 00393 #undef F77_FUNC 00394 #endif 00395 00396 #ifdef F77_BLAS_MANGLE 00397 #undef F77_BLAS_MANGLE 00398 #endif 00399 00400 #define F77_FUNC(lcase,UCASE) PREFIX UCASE 00401 #define F77_BLAS_MANGLE(lcase,UCASE) PREFIX UCASE 00402 00403 #else /* Define Teuchos_fcd for all other machines */ 00404 00405 #define PREFIX 00406 #define Teuchos_fcd const char * 00407 00408 #ifdef TRILINOS_NO_CONFIG_H 00409 00410 #ifdef F77_FUNC 00411 #undef F77_FUNC 00412 #endif 00413 00414 #ifdef F77_BLAS_MANGLE 00415 #undef F77_BLAS_MANGLE 00416 #endif 00417 00418 00419 #ifdef TRILINOS_HAVE_NO_FORTRAN_UNDERSCORE 00420 #define F77_FUNC(lcase,UCASE) lcase 00421 #define F77_BLAS_MANGLE(lcase,UCASE) lcase 00422 #else /* TRILINOS_HAVE_NO_FORTRAN_UNDERSCORE not defined*/ 00423 #define F77_FUNC(lcase,UCASE) lcase ## _ 00424 #define F77_BLAS_MANGLE(lcase,UCASE) lcase ## _ 00425 #endif /* TRILINOS_HAVE_NO_FORTRAN_UNDERSCORE */ 00426 00427 #endif /* TRILINOS_NO_CONFIG_H */ 00428 00429 #define DGEQRF_F77 F77_BLAS_MANGLE(dgeqrf,DGEQRF) 00430 #define DGETRF_F77 F77_BLAS_MANGLE(dgetrf,DGETRF) 00431 #define DGETRS_F77 F77_BLAS_MANGLE(dgetrs,DGETRS) 00432 #define DGTTRF_F77 F77_BLAS_MANGLE(dgttrf,DGTTRF) 00433 #define DGTTRS_F77 F77_BLAS_MANGLE(dgttrs,DGTTRS) 00434 #define DPTTRF_F77 F77_BLAS_MANGLE(dpttrf,DPTTRF) 00435 #define DPTTRS_F77 F77_BLAS_MANGLE(dpttrs,DPTTRS) 00436 #define DGETRI_F77 F77_BLAS_MANGLE(dgetri,DGETRI) 00437 #define DGERFS_F77 F77_BLAS_MANGLE(dgerfs,DGERFS) 00438 #define DLATRS_F77 F77_BLAS_MANGLE(dlatrs,DLATRS) 00439 #define DGECON_F77 F77_BLAS_MANGLE(dgecon,DGECON) 00440 #define DGESVX_F77 F77_BLAS_MANGLE(dgesvx,DGESVX) 00441 #define DGESV_F77 F77_BLAS_MANGLE(dgesv,DGESV) 00442 #define DGEEQU_F77 F77_BLAS_MANGLE(dgeequ,DGEEQU) 00443 #define DSYTRD_F77 F77_BLAS_MANGLE(dsytrd,DSYTRD) 00444 #define DPOTRF_F77 F77_BLAS_MANGLE(dpotrf,DPOTRF) 00445 #define DPOTRS_F77 F77_BLAS_MANGLE(dpotrs,DPOTRS) 00446 #define DPOTRI_F77 F77_BLAS_MANGLE(dpotri,DPOTRI) 00447 #define DPOCON_F77 F77_BLAS_MANGLE(dpocon,DPOCON) 00448 #define DPOSV_F77 F77_BLAS_MANGLE(dposv,DPOSV) 00449 #define DPOEQU_F77 F77_BLAS_MANGLE(dpoequ,DPOEQU) 00450 #define DPORFS_F77 F77_BLAS_MANGLE(dporfs,DPORFS) 00451 #define DPOSVX_F77 F77_BLAS_MANGLE(dposvx,DPOSVX) 00452 #define DTRTRS_F77 F77_BLAS_MANGLE(dtrtrs,DTRTRS) 00453 #define DTRTRI_F77 F77_BLAS_MANGLE(dtrtri,DTRTRI) 00454 #define DLAMCH_F77 F77_BLAS_MANGLE(dlamch,DLAMCH) 00455 #define DGELS_F77 F77_BLAS_MANGLE(dgels,DGELS) 00456 #define DGELSS_F77 F77_BLAS_MANGLE(dgelss,DGELSS) 00457 #define DGGLSE_F77 F77_BLAS_MANGLE(dgglse,DGGLSE) 00458 #define DGEEV_F77 F77_BLAS_MANGLE(dgeev,DGEEV) 00459 #define DGESVD_F77 F77_BLAS_MANGLE(dgesvd,DGESVD) 00460 #define DGGEV_F77 F77_BLAS_MANGLE(dggev,DGGEV) 00461 #define DGGEVX_F77 F77_BLAS_MANGLE(dggevx,DGGEVX) 00462 #define DGEHRD_F77 F77_BLAS_MANGLE(dgehrd,DGEHRD) 00463 #define DHSEQR_F77 F77_BLAS_MANGLE(dhseqr,DHSEQR) 00464 #define DORGHR_F77 F77_BLAS_MANGLE(dorghr,DORGHR) 00465 #define DORGQR_F77 F77_BLAS_MANGLE(dorgqr,DORGQR) 00466 #define DORMHR_F77 F77_BLAS_MANGLE(dormhr,DORMHR) 00467 #define DORMQR_F77 F77_BLAS_MANGLE(dormqr,DORMQR) 00468 #define DTREVC_F77 F77_BLAS_MANGLE(dtrevc,DTREVC) 00469 #define DTREXC_F77 F77_BLAS_MANGLE(dtrexc,DTREXC) 00470 #define DGEES_F77 F77_BLAS_MANGLE(dgees,DGEES) 00471 #define DSPEV_F77 F77_BLAS_MANGLE(dspev,DSPEV) 00472 #define DSYEV_F77 F77_BLAS_MANGLE(dsyev,DSYEV) 00473 #define DSYGV_F77 F77_BLAS_MANGLE(dsygv,DSYGV) 00474 #define DSTEQR_F77 F77_BLAS_MANGLE(dsteqr,DSTEQR) 00475 #define DLAPY2_F77 F77_BLAS_MANGLE(dlapy2,DLAPY2) 00476 #define DLARND_F77 F77_BLAS_MANGLE(dlarnd,DLARND) 00477 #define DLARNV_F77 F77_BLAS_MANGLE(dlarnv,DLARNV) 00478 #define DGEBAL_F77 F77_BLAS_MANGLE(dgebal,DGEBAL) 00479 #define DGEBAK_F77 F77_BLAS_MANGLE(dgebak,DGEBAK) 00480 #define DLARTG_F77 F77_BLAS_MANGLE(dlartg,DLARTG) 00481 #define DLARFG_F77 F77_BLAS_MANGLE(dlarfg,DLARFG) 00482 #define ILAENV_F77 F77_BLAS_MANGLE(ilaenv,ILAENV) 00483 00484 #ifdef HAVE_TEUCHOS_COMPLEX 00485 00486 #define ZGEQRF_F77 F77_BLAS_MANGLE(zgeqrf,ZGEQRF) 00487 #define ZUNGQR_F77 F77_BLAS_MANGLE(zungqr,ZUNGQR) 00488 #define ZUNMQR_F77 F77_BLAS_MANGLE(zunmqr,ZUNMQR) 00489 #define ZGETRF_F77 F77_BLAS_MANGLE(zgetrf,ZGETRF) 00490 #define ZGETRS_F77 F77_BLAS_MANGLE(zgetrs,ZGETRS) 00491 #define ZGTTRF_F77 F77_BLAS_MANGLE(zgttrf,ZGTTRF) 00492 #define ZGTTRS_F77 F77_BLAS_MANGLE(zgttrs,ZGTTRS) 00493 #define ZPTTRF_F77 F77_BLAS_MANGLE(zpttrf,ZPTTRF) 00494 #define ZPTTRS_F77 F77_BLAS_MANGLE(zpttrs,ZPTTRS) 00495 #define ZGETRI_F77 F77_BLAS_MANGLE(zgetri,ZGETRI) 00496 #define ZGERFS_F77 F77_BLAS_MANGLE(zgerfs,ZGERFS) 00497 #define ZLATRS_F77 F77_BLAS_MANGLE(zlatrs,ZLATRS) 00498 #define ZGECON_F77 F77_BLAS_MANGLE(zgecon,ZGECON) 00499 #define ZGESVX_F77 F77_BLAS_MANGLE(zgesvx,ZGESVX) 00500 #define ZGESV_F77 F77_BLAS_MANGLE(zgesv,ZGESV) 00501 #define ZGEEQU_F77 F77_BLAS_MANGLE(zgeequ,ZGEEQU) 00502 #define ZPOTRF_F77 F77_BLAS_MANGLE(zpotrf,ZPOTRF) 00503 #define ZPOTRS_F77 F77_BLAS_MANGLE(zpotrs,ZPOTRS) 00504 #define ZPOTRI_F77 F77_BLAS_MANGLE(zpotri,ZPOTRI) 00505 #define ZPOCON_F77 F77_BLAS_MANGLE(zpocon,ZPOCON) 00506 #define ZPOSV_F77 F77_BLAS_MANGLE(zposv,ZPOSV) 00507 #define ZPOEQU_F77 F77_BLAS_MANGLE(zpoequ,ZPOEQU) 00508 #define ZPORFS_F77 F77_BLAS_MANGLE(zporfs,ZPORFS) 00509 #define ZPOSVX_F77 F77_BLAS_MANGLE(zposvx,ZPOSVX) 00510 #define ZTRTRS_F77 F77_BLAS_MANGLE(ztrtrs,ZTRTRS) 00511 #define ZTRTRI_F77 F77_BLAS_MANGLE(ztrtri,ZTRTRI) 00512 #define ZGELS_F77 F77_BLAS_MANGLE(zgels,ZGELS) 00513 #define ZGELSS_F77 F77_BLAS_MANGLE(zgelss,ZGELSS) 00514 //#define ZGGLSE_F77 F77_BLAS_MANGLE(zgglse,ZGGLSE) 00515 #define ZGEEV_F77 F77_BLAS_MANGLE(zgeev,ZGEEV) 00516 #define ZGESVD_F77 F77_BLAS_MANGLE(zgesvd,ZGESVD) 00517 //#define ZGGEV_F77 F77_BLAS_MANGLE(zggev,ZGGEV) 00518 //#define ZGGEVX_F77 F77_BLAS_MANGLE(zggevx,ZGGEVX) 00519 #define ZGEHRD_F77 F77_BLAS_MANGLE(zgehrd,ZGEHRD) 00520 #define ZHSEQR_F77 F77_BLAS_MANGLE(zhseqr,ZHSEQR) 00521 #define ZTREVC_F77 F77_BLAS_MANGLE(ztrevc,ZTREVC) 00522 #define ZTREXC_F77 F77_BLAS_MANGLE(ztrexc,ZTREXC) 00523 #define ZGEES_F77 F77_BLAS_MANGLE(zgees,ZGEES) 00524 #define ZSTEQR_F77 F77_BLAS_MANGLE(zsteqr,ZSTEQR) 00525 #define ZHEEV_F77 F77_BLAS_MANGLE(zheev,ZHEEV) 00526 #define ZHEGV_F77 F77_BLAS_MANGLE(zhegv,ZHEGV) 00527 #define ZLARTG_F77 F77_BLAS_MANGLE(zlartg,ZLARTG) 00528 #define ZLARFG_F77 F77_BLAS_MANGLE(zlarfg,ZLARFG) 00529 #define ZGEBAL_F77 F77_BLAS_MANGLE(zgebal,ZGEBAL) 00530 #define ZGEBAK_F77 F77_BLAS_MANGLE(zgebak,ZGEBAK) 00531 #define ZLARND_F77 F77_BLAS_MANGLE(zlarnd,ZLARND) 00532 #define ZLARNV_F77 F77_BLAS_MANGLE(zlarnv,ZLARNV) 00533 00534 #endif /* HAVE_TEUCHOS_COMPLEX */ 00535 00536 #endif 00537 00538 #define SGEQRF_F77 F77_BLAS_MANGLE(sgeqrf,SGEQRF) 00539 #define SGETRF_F77 F77_BLAS_MANGLE(sgetrf,SGETRF) 00540 #define SGETRS_F77 F77_BLAS_MANGLE(sgetrs,SGETRS) 00541 #define SGTTRF_F77 F77_BLAS_MANGLE(sgttrf,SGTTRF) 00542 #define SGTTRS_F77 F77_BLAS_MANGLE(sgttrs,SGTTRS) 00543 #define SPTTRF_F77 F77_BLAS_MANGLE(spttrf,SPTTRF) 00544 #define SPTTRS_F77 F77_BLAS_MANGLE(spttrs,SPTTRS) 00545 #define SGETRI_F77 F77_BLAS_MANGLE(sgetri,SGETRI) 00546 #define SGERFS_F77 F77_BLAS_MANGLE(sgerfs,SGERFS) 00547 #define SLATRS_F77 F77_BLAS_MANGLE(slatrs,SLATRS) 00548 #define SGECON_F77 F77_BLAS_MANGLE(sgecon,SGECON) 00549 #define SGESVX_F77 F77_BLAS_MANGLE(sgesvx,SGESVX) 00550 #define SGESV_F77 F77_BLAS_MANGLE(sgesv,SGESV) 00551 #define SGEEQU_F77 F77_BLAS_MANGLE(sgeequ,SGEEQU) 00552 #define SSYTRD_F77 F77_BLAS_MANGLE(ssytrd,SSYTRD) 00553 #define SPOTRF_F77 F77_BLAS_MANGLE(spotrf,SPOTRF) 00554 #define SPOTRS_F77 F77_BLAS_MANGLE(spotrs,SPOTRS) 00555 #define SPOTRI_F77 F77_BLAS_MANGLE(spotri,SPOTRI) 00556 #define SPOCON_F77 F77_BLAS_MANGLE(spocon,SPOCON) 00557 #define SPOSV_F77 F77_BLAS_MANGLE(sposv,SPOSV) 00558 #define SPOEQU_F77 F77_BLAS_MANGLE(spoequ,SPOEQU) 00559 #define SPORFS_F77 F77_BLAS_MANGLE(sporfs,SPORFS) 00560 #define SPOSVX_F77 F77_BLAS_MANGLE(sposvx,SPOSVX) 00561 #define STRTRS_F77 F77_BLAS_MANGLE(strtrs,STRTRS) 00562 #define STRTRI_F77 F77_BLAS_MANGLE(strtri,STRTRI) 00563 #define SGELS_F77 F77_BLAS_MANGLE(sgels,SGELS) 00564 #define SGELSS_F77 F77_BLAS_MANGLE(sgelss,SGELSS) 00565 #define SGGLSE_F77 F77_BLAS_MANGLE(sgglse,SGGLSE) 00566 #define SGEEV_F77 F77_BLAS_MANGLE(sgeev,SGEEV) 00567 #define SGESVD_F77 F77_BLAS_MANGLE(sgesvd,SGESVD) 00568 #define SGGEV_F77 F77_BLAS_MANGLE(sggev,SGGEV) 00569 #define SGGEVX_F77 F77_BLAS_MANGLE(sggevx,SGGEVX) 00570 #define SGEHRD_F77 F77_BLAS_MANGLE(sgehrd,SGEHRD) 00571 #define SHSEQR_F77 F77_BLAS_MANGLE(shseqr,SHSEQR) 00572 #define SORGHR_F77 F77_BLAS_MANGLE(sorghr,SORGHR) 00573 #define SORGQR_F77 F77_BLAS_MANGLE(sorgqr,SORGQR) 00574 #define SORMHR_F77 F77_BLAS_MANGLE(sormhr,SORMHR) 00575 #define SORMQR_F77 F77_BLAS_MANGLE(sormqr,SORMQR) 00576 #define STREVC_F77 F77_BLAS_MANGLE(strevc,STREVC) 00577 #define STREXC_F77 F77_BLAS_MANGLE(strexc,STREXC) 00578 #define SLAMCH_F77 F77_BLAS_MANGLE(slamch,SLAMCH) 00579 #define SGEES_F77 F77_BLAS_MANGLE(sgees,SGEES) 00580 #define SSPEV_F77 F77_BLAS_MANGLE(sspev,SSPEV) 00581 #define SSYEV_F77 F77_BLAS_MANGLE(ssyev,SSYEV) 00582 #define SSYGV_F77 F77_BLAS_MANGLE(ssygv,SSYGV) 00583 #define SSTEQR_F77 F77_BLAS_MANGLE(ssteqr,SSTEQR) 00584 #ifdef HAVE_TEUCHOS_BLASFLOAT 00585 #define SLAPY2_F77 F77_BLAS_MANGLE(slapy2,SLAPY2) 00586 #endif 00587 #define SLARTG_F77 F77_BLAS_MANGLE(slartg,SLARTG) 00588 #define SLARFG_F77 F77_BLAS_MANGLE(slarfg,SLARFG) 00589 #define SGEBAL_F77 F77_BLAS_MANGLE(sgebal,SGEBAL) 00590 #define SGEBAK_F77 F77_BLAS_MANGLE(sgebak,SGEBAK) 00591 #define SLARND_F77 F77_BLAS_MANGLE(slarnd,SLARND) 00592 #define SLARNV_F77 F77_BLAS_MANGLE(slarnv,SLARNV) 00593 00594 #ifdef HAVE_TEUCHOS_COMPLEX 00595 00596 #define CGEQRF_F77 F77_BLAS_MANGLE(cgeqrf,CGEQRF) 00597 #define CUNGQR_F77 F77_BLAS_MANGLE(cungqr,CUNGQR) 00598 #define CUNMQR_F77 F77_BLAS_MANGLE(cunmqr,CUNMQR) 00599 #define CGETRF_F77 F77_BLAS_MANGLE(cgetrf,CGETRF) 00600 #define CGETRS_F77 F77_BLAS_MANGLE(cgetrs,CGETRS) 00601 #define CGTTRF_F77 F77_BLAS_MANGLE(cgttrf,CGTTRF) 00602 #define CGTTRS_F77 F77_BLAS_MANGLE(cgttrs,CGTTRS) 00603 #define CPTTRF_F77 F77_BLAS_MANGLE(cpttrf,CPTTRF) 00604 #define CPTTRS_F77 F77_BLAS_MANGLE(cpttrs,CPTTRS) 00605 #define CGETRI_F77 F77_BLAS_MANGLE(cgetri,CGETRI) 00606 #define CGERFS_F77 F77_BLAS_MANGLE(cgerfs,CGERFS) 00607 #define CLATRS_F77 F77_BLAS_MANGLE(clatrs,CLATRS) 00608 #define CGECON_F77 F77_BLAS_MANGLE(cgecon,CGECON) 00609 #define CGESVX_F77 F77_BLAS_MANGLE(cgesvx,CGESVX) 00610 #define CGESV_F77 F77_BLAS_MANGLE(cgesv,CGESV) 00611 #define CGEEQU_F77 F77_BLAS_MANGLE(cgeequ,CGEEQU) 00612 #define CPOTRF_F77 F77_BLAS_MANGLE(cpotrf,CPOTRF) 00613 #define CPOTRS_F77 F77_BLAS_MANGLE(cpotrs,CPOTRS) 00614 #define CPOTRI_F77 F77_BLAS_MANGLE(cpotri,CPOTRI) 00615 #define CPOCON_F77 F77_BLAS_MANGLE(cpocon,CPOCON) 00616 #define CPOSV_F77 F77_BLAS_MANGLE(cposv,CPOSV) 00617 #define CPOEQU_F77 F77_BLAS_MANGLE(cpoequ,CPOEQU) 00618 #define CPORFS_F77 F77_BLAS_MANGLE(cporfs,CPORFS) 00619 #define CPOSVX_F77 F77_BLAS_MANGLE(cposvx,CPOSVX) 00620 #define CTRTRS_F77 F77_BLAS_MANGLE(ctrtrs,CTRTRS) 00621 #define CTRTRI_F77 F77_BLAS_MANGLE(ctrtri,CTRTRI) 00622 #define CGELS_F77 F77_BLAS_MANGLE(cgels,CGELS) 00623 #define CGELSS_F77 F77_BLAS_MANGLE(cgelss,CGELSS) 00624 //#define CGGLSE_F77 F77_BLAS_MANGLE(cgglse,CGGLSE) 00625 #define CGEEV_F77 F77_BLAS_MANGLE(cgeev,CGEEV) 00626 #define CGESVD_F77 F77_BLAS_MANGLE(cgesvd,CGESVD) 00627 //#define CGGEV_F77 F77_BLAS_MANGLE(cggev,CGGEV) 00628 //#define CGGEVX_F77 F77_BLAS_MANGLE(cggevx,CGGEVX) 00629 #define CGEHRD_F77 F77_BLAS_MANGLE(cgehrd,CGEHRD) 00630 #define CHSEQR_F77 F77_BLAS_MANGLE(chseqr,CHSEQR) 00631 #define CTREVC_F77 F77_BLAS_MANGLE(ctrevc,CTREVC) 00632 #define CTREXC_F77 F77_BLAS_MANGLE(ctrexc,CTREXC) 00633 #define CGEES_F77 F77_BLAS_MANGLE(cgees,CGEES) 00634 #define CSTEQR_F77 F77_BLAS_MANGLE(csteqr,CSTEQR) 00635 #define CHEEV_F77 F77_BLAS_MANGLE(cheev,CHEEV) 00636 #define CHEGV_F77 F77_BLAS_MANGLE(chegv,CHEGV) 00637 #define CLARTG_F77 F77_BLAS_MANGLE(clartg,CLARTG) 00638 #define CLARFG_F77 F77_BLAS_MANGLE(clarfg,CLARFG) 00639 #define CGEBAL_F77 F77_BLAS_MANGLE(cgebal,CGEBAL) 00640 #define CGEBAK_F77 F77_BLAS_MANGLE(cgebak,CGEBAK) 00641 #define CLARND_F77 F77_BLAS_MANGLE(clarnd,CLARND) 00642 #define CLARNV_F77 F77_BLAS_MANGLE(clarnv,CLARNV) 00643 00644 #endif /* HAVE_TEUCHOS_COMPLEX */ 00645 00646 #ifdef __cplusplus 00647 extern "C" { 00648 #endif 00649 00650 // Double precision LAPACK linear solvers 00651 00652 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); 00653 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); 00654 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); 00655 void PREFIX DGEQRF_F77(const int* m, const int* n, double* a, const int* lda, double* tau, double* work, const int* lwork, int* info); 00656 void PREFIX DGETRF_F77(const int* m, const int* n, double* a, const int* lda, int* ipiv, int* info); 00657 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); 00658 void PREFIX DGTTRF_F77(const int* n, double* dl, double* d, double* du, double* du2, int* ipiv, int* info); 00659 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); 00660 void PREFIX DPTTRF_F77(const int* n, double* d, double* e, int* info); 00661 void PREFIX DPTTRS_F77(const int* n, const int* nrhs, const double* d, const double* e, double* x , const int* ldx, int* info); 00662 void PREFIX DGETRI_F77(const int* n, double* a, const int* lda, const int* ipiv, double* work , const int* lwork, int* info); 00663 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); 00664 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); 00665 void PREFIX DGESV_F77(const int* n, const int* nrhs, double* a, const int* lda, int* ipiv, double* x , const int* ldx, int* info); 00666 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); 00667 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); 00668 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, 00669 double* c, double* b, const int* ldb, double* x, const int* ldx, double* rcond, double* ferr, double* berr, double* work, int* iwork, int* info); 00670 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); 00671 void PREFIX DPOTRF_F77(Teuchos_fcd, const int* n, double* a, const int* lda, int* info); 00672 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); 00673 void PREFIX DPOTRI_F77(Teuchos_fcd, const int* n, double* a, const int* lda, int* info); 00674 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); 00675 void PREFIX DPOSV_F77(Teuchos_fcd, const int* n, const int* nrhs, double* a, const int* lda, double*x , const int* ldx, int* info); 00676 void PREFIX DPOEQU_F77(const int* n, const double* a, const int* lda, double* s, double* scond, double* amax, int* info); 00677 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); 00678 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); 00679 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); 00680 void PREFIX DTRTRI_F77(Teuchos_fcd, Teuchos_fcd, const int* n, const double* a, const int* lda, int* info); 00681 00682 // Single precision LAPACK linear solvers 00683 00684 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); 00685 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); 00686 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); 00687 void PREFIX SGEQRF_F77(const int* m, const int* n, float* a, const int* lda, float* tau, float* work, const int* lwork, int* info); 00688 void PREFIX SGETRF_F77(const int* m, const int* n, float* a, const int* lda, int* ipiv, int* info); 00689 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); 00690 void PREFIX SGTTRF_F77(const int* n, float* dl, float* d, float* du, float* du2, int* ipiv, int* info); 00691 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); 00692 void PREFIX SPTTRF_F77(const int* n, float* d, float* e, int* info); 00693 void PREFIX SPTTRS_F77(const int* n, const int* nrhs, const float* d, const float* e, float* x , const int* ldx, int* info); 00694 void PREFIX SGETRI_F77(const int* n, float* a, const int* lda, const int* ipiv, float* work , const int* lwork, int* info); 00695 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); 00696 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); 00697 void PREFIX SGESV_F77(const int* n, const int* nrhs, float* a, const int* lda, int* ipiv, float* x , const int* ldx, int* info); 00698 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); 00699 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); 00700 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, 00701 float* c, float* b, const int* ldb, float* x, const int* ldx, float* rcond, float* ferr, float* berr, float* work, int* iwork, int* info); 00702 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); 00703 void PREFIX SPOTRF_F77(Teuchos_fcd, const int* n, float* a, const int* lda, int* info); 00704 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); 00705 void PREFIX SPOTRI_F77(Teuchos_fcd, const int* n, float* a, const int* lda, int* info); 00706 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); 00707 void PREFIX SPOSV_F77(Teuchos_fcd, const int* n, const int* nrhs, float* a, const int* lda, float*x , const int* ldx, int* info); 00708 void PREFIX SPOEQU_F77(const int* n, const float* a, const int* lda, float* s, float* scond, float* amax, int* info); 00709 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); 00710 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); 00711 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); 00712 void PREFIX STRTRI_F77(Teuchos_fcd, Teuchos_fcd, const int* n, const float* a, const int* lda, int* info); 00713 00714 // Double precision LAPACK eigen solvers 00715 void PREFIX DSPEV_F77(Teuchos_fcd, Teuchos_fcd, const int* n, double* ap, double* w, double* z, const int* ldz, double* work, int* info); 00716 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); 00717 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); 00718 void PREFIX DSTEQR_F77(Teuchos_fcd, const int* n, double* D, double* E, double* Z, const int* ldz, double* work, int* info); 00719 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); 00720 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); 00721 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); 00722 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); 00723 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); 00724 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); 00725 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); 00726 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); 00727 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); 00728 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); 00729 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); 00730 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); 00731 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); 00732 00733 00734 // Single precision LAPACK eigen solvers 00735 00736 void PREFIX SSPEV_F77(Teuchos_fcd, Teuchos_fcd, const int* n, float* ap, float* w, float* z, const int* ldz, float* work, int* info); 00737 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); 00738 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); 00739 void PREFIX SSTEQR_F77(Teuchos_fcd, const int* n, float* D, float* E, float* Z, const int* ldz, float* work, int* info); 00740 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); 00741 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); 00742 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); 00743 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); 00744 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); 00745 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); 00746 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); 00747 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); 00748 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); 00749 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); 00750 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); 00751 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); 00752 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); 00753 00754 void PREFIX SLARTG_F77(const float* f, const float* g, float* c, float* s, float* r); 00755 void PREFIX DLARTG_F77(const double* f, const double* g, double* c, double* s, double* r); 00756 00757 void PREFIX SLARFG_F77(const int* n, float* alpha, float* x, const int* incx, float* tau); 00758 void PREFIX DLARFG_F77(const int* n, double* alpha, double* x, const int* incx, double* tau); 00759 00760 void PREFIX SGEBAL_F77(Teuchos_fcd, const int* n, float* a, const int* lda, int* ilo, int* ihi, float* scale, int* info); 00761 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); 00762 void PREFIX DGEBAL_F77(Teuchos_fcd, const int* n, double* a, const int* lda, int* ilo, int* ihi, double* scale, int* info); 00763 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); 00764 00765 float PREFIX SLARND_F77(const int* idist, int* seed); 00766 double PREFIX DLARND_F77(const int* idist, int* seed); 00767 00768 void PREFIX SLARNV_F77(const int* idist, int* seed, const int* n, float* v); 00769 void PREFIX DLARNV_F77(const int* idist, int* seed, const int* n, double* v); 00770 00771 float PREFIX SLAMCH_F77(Teuchos_fcd); 00772 double PREFIX DLAMCH_F77(Teuchos_fcd); 00773 00774 #if defined(INTEL_CXML) 00775 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 ); 00776 #else 00777 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 ); 00778 #endif 00779 00780 #ifdef HAVE_TEUCHOS_BLASFLOAT 00781 #if defined(HAVE_SLAPY2_PROBLEM) && defined(HAVE_SLAPY2_DOUBLE_RETURN) 00782 double PREFIX SLAPY2_F77(const float* x, const float* y); 00783 #else 00784 float PREFIX SLAPY2_F77(const float* x, const float* y); 00785 #endif 00786 #endif 00787 00788 double PREFIX DLAPY2_F77(const double* x, const double* y); 00789 00790 #ifdef HAVE_TEUCHOS_COMPLEX 00791 00792 // Double precision complex LAPACK linear solvers 00793 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); 00794 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); 00795 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); 00796 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); 00797 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); 00798 void PREFIX ZGETRF_F77(const int* m, const int* n, std::complex<double>* a, const int* lda, int* ipiv, int* info); 00799 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); 00800 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); 00801 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); 00802 void PREFIX ZPTTRF_F77(const int* n, std::complex<double>* d, std::complex<double>* e, int* info); 00803 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); 00804 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); 00805 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); 00806 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); 00807 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); 00808 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); 00809 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* iwork, int* info); 00810 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); 00811 void PREFIX ZPOTRF_F77(Teuchos_fcd, const int* n, std::complex<double>* a, const int* lda, int* info); 00812 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); 00813 void PREFIX ZPOTRI_F77(Teuchos_fcd, const int* n, std::complex<double>* a, const int* lda, int* info); 00814 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); 00815 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); 00816 void PREFIX ZPOEQU_F77(const int* n, const std::complex<double>* a, const int* lda, double* s, double* scond, double* amax, int* info); 00817 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); 00818 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); 00819 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); 00820 void PREFIX ZTRTRI_F77(Teuchos_fcd, Teuchos_fcd, const int* n, const std::complex<double>* a, const int* lda, int* info); 00821 00822 // Single precision complex LAPACK linear solvers 00823 00824 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); 00825 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); 00826 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); 00827 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); 00828 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); 00829 void PREFIX CGETRF_F77(const int* m, const int* n, std::complex<float>* a, const int* lda, int* ipiv, int* info); 00830 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); 00831 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); 00832 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); 00833 void PREFIX CPTTRF_F77(const int* n, std::complex<float>* d, std::complex<float>* e, int* info); 00834 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); 00835 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); 00836 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); 00837 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); 00838 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); 00839 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); 00840 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); 00841 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); 00842 void PREFIX CPOTRF_F77(Teuchos_fcd, const int* n, std::complex<float>* a, const int* lda, int* info); 00843 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); 00844 void PREFIX CPOTRI_F77(Teuchos_fcd, const int* n, std::complex<float>* a, const int* lda, int* info); 00845 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); 00846 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); 00847 void PREFIX CPOEQU_F77(const int* n, const std::complex<float>* a, const int* lda, float* s, float* scond, float* amax, int* info); 00848 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); 00849 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); 00850 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); 00851 void PREFIX CTRTRI_F77(Teuchos_fcd, Teuchos_fcd, const int* n, const std::complex<float>* a, const int* lda, int* info); 00852 00853 // Double precision complex LAPACK eigensolvers 00854 00855 void PREFIX ZSTEQR_F77(Teuchos_fcd, const int* n, double* D, double* E, std::complex<double>* Z, const int* ldz, double* work, int* info); 00856 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); 00857 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); 00858 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); 00859 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); 00860 //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, int* iwork, int* bwork, int* info); 00861 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); 00862 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); 00863 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); 00864 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); 00865 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); 00866 00867 // Single precision complex LAPACK eigensolvers 00868 00869 void PREFIX CSTEQR_F77(Teuchos_fcd, const int* n, float* D, float* E, std::complex<float>* Z, const int* ldz, float* work, int* info); 00870 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); 00871 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); 00872 void PREFIX CGEEV_F77(Teuchos_fcd, Teuchos_fcd, const int* n, std::complex<float>* a, const int* lda, std::complex<float>* wr, 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); 00873 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); 00874 //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, int* iwork, int* bwork, int* info); 00875 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); 00876 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); 00877 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); 00878 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); 00879 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); 00880 00881 void PREFIX CLARTG_F77(const std::complex<float>* f, const std::complex<float>* g, float* c, std::complex<float>* s, std::complex<float>* r); 00882 void PREFIX ZLARTG_F77(const std::complex<double>* f, const std::complex<double>* g, double* c, std::complex<double>* s, std::complex<double>* r); 00883 00884 void PREFIX CLARFG_F77(const int* n, std::complex<float>* alpha, std::complex<float>* x, const int* incx, std::complex<float>* tau); 00885 void PREFIX ZLARFG_F77(const int* n, std::complex<double>* alpha, std::complex<double>* x, const int* incx, std::complex<double>* tau); 00886 00887 void PREFIX CGEBAL_F77(Teuchos_fcd, const int* n, std::complex<float>* a, const int* lda, int* ilo, int* ihi, float* scale, int* info); 00888 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); 00889 void PREFIX ZGEBAL_F77(Teuchos_fcd, const int* n, std::complex<double>* a, const int* lda, int* ilo, int* ihi, double* scale, int* info); 00890 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); 00891 00892 std::complex<float> PREFIX CLARND_F77(const int* idist, int* seed); 00893 std::complex<double> PREFIX ZLARND_F77(const int* idist, int* seed); 00894 00895 void PREFIX CLARNV_F77(const int* idist, int* seed, const int* n, std::complex<float>* v); 00896 void PREFIX ZLARNV_F77(const int* idist, int* seed, const int* n, std::complex<double>* v); 00897 00898 #endif /* HAVE_TEUCHOS_COMPLEX */ 00899 00900 #ifdef __cplusplus 00901 } 00902 #endif 00903 00904 #endif // end of TEUCHOS_LAPACK_WRAPPERS_HPP_
1.7.4
