42 #ifndef _TEUCHOS_LAPACK_WRAPPERS_HPP_ 43 #define _TEUCHOS_LAPACK_WRAPPERS_HPP_ 54 #if defined(INTEL_CXML) 55 # define PREFIX __stdcall 56 # define Teuchos_fcd const char *, unsigned int 57 #elif defined(INTEL_MKL) 59 # define Teuchos_fcd const char * 62 # define Teuchos_fcd const char * 68 #define DGEQRF_F77 F77_BLAS_MANGLE(dgeqrf,DGEQRF) 69 #define DGEQR2_F77 F77_BLAS_MANGLE(dgeqr2,DGEQR2) 70 #define DGETRF_F77 F77_BLAS_MANGLE(dgetrf,DGETRF) 71 #define DGETRS_F77 F77_BLAS_MANGLE(dgetrs,DGETRS) 72 #define DLASCL_F77 F77_BLAS_MANGLE(dlascl,DLASCL) 73 #define DLASWP_F77 F77_BLAS_MANGLE(dlaswp,DLASWP) 74 #define DGBTRF_F77 F77_BLAS_MANGLE(dgbtrf,DGBTRF) 75 #define DGBTRS_F77 F77_BLAS_MANGLE(dgbtrs,DGBTRS) 76 #define DGTTRF_F77 F77_BLAS_MANGLE(dgttrf,DGTTRF) 77 #define DGTTRS_F77 F77_BLAS_MANGLE(dgttrs,DGTTRS) 78 #define DPTTRF_F77 F77_BLAS_MANGLE(dpttrf,DPTTRF) 79 #define DPTTRS_F77 F77_BLAS_MANGLE(dpttrs,DPTTRS) 80 #define DGETRI_F77 F77_BLAS_MANGLE(dgetri,DGETRI) 81 #define DGERFS_F77 F77_BLAS_MANGLE(dgerfs,DGERFS) 82 #define DGBRFS_F77 F77_BLAS_MANGLE(dgbrfs,DGBRFS) 83 #define DLATRS_F77 F77_BLAS_MANGLE(dlatrs,DLATRS) 84 #define DGECON_F77 F77_BLAS_MANGLE(dgecon,DGECON) 85 #define DGBCON_F77 F77_BLAS_MANGLE(dgbcon,DGBCON) 86 #define DLANGB_F77 F77_BLAS_MANGLE(dlangb,DLANGB) 87 #define DGESVX_F77 F77_BLAS_MANGLE(dgesvx,DGESVX) 88 #define DGESV_F77 F77_BLAS_MANGLE(dgesv,DGESV) 89 #define DGEEQU_F77 F77_BLAS_MANGLE(dgeequ,DGEEQU) 90 #define DGBEQU_F77 F77_BLAS_MANGLE(dgbequ,DGBEQU) 91 #define DSYTRD_F77 F77_BLAS_MANGLE(dsytrd,DSYTRD) 92 #define DPOTRF_F77 F77_BLAS_MANGLE(dpotrf,DPOTRF) 93 #define DPOTRS_F77 F77_BLAS_MANGLE(dpotrs,DPOTRS) 94 #define DPOTRI_F77 F77_BLAS_MANGLE(dpotri,DPOTRI) 95 #define DPOCON_F77 F77_BLAS_MANGLE(dpocon,DPOCON) 96 #define DPOSV_F77 F77_BLAS_MANGLE(dposv,DPOSV) 97 #define DPOEQU_F77 F77_BLAS_MANGLE(dpoequ,DPOEQU) 98 #define DPORFS_F77 F77_BLAS_MANGLE(dporfs,DPORFS) 99 #define DPOSVX_F77 F77_BLAS_MANGLE(dposvx,DPOSVX) 100 #define DTRTRS_F77 F77_BLAS_MANGLE(dtrtrs,DTRTRS) 101 #define DTRTRI_F77 F77_BLAS_MANGLE(dtrtri,DTRTRI) 102 #define DLAMCH_F77 F77_BLAS_MANGLE(dlamch,DLAMCH) 103 #define DGELS_F77 F77_BLAS_MANGLE(dgels,DGELS) 104 #define DGELSS_F77 F77_BLAS_MANGLE(dgelss,DGELSS) 105 #define DGGLSE_F77 F77_BLAS_MANGLE(dgglse,DGGLSE) 106 #define DGEEV_F77 F77_BLAS_MANGLE(dgeev,DGEEV) 107 #define DGESVD_F77 F77_BLAS_MANGLE(dgesvd,DGESVD) 108 #define DGGEV_F77 F77_BLAS_MANGLE(dggev,DGGEV) 109 #define DGGES_F77 F77_BLAS_MANGLE(dgges,DGGES) 110 #define DTRSEN_F77 F77_BLAS_MANGLE(dtrsen,DTRSEN) 111 #define DTGSEN_F77 F77_BLAS_MANGLE(dtgsen,DTGSEN) 112 #define DGEEVX_F77 F77_BLAS_MANGLE(dgeevx,DGEEVX) 113 #define DGGEVX_F77 F77_BLAS_MANGLE(dggevx,DGGEVX) 114 #define DGEHRD_F77 F77_BLAS_MANGLE(dgehrd,DGEHRD) 115 #define DHSEQR_F77 F77_BLAS_MANGLE(dhseqr,DHSEQR) 116 #define DORGHR_F77 F77_BLAS_MANGLE(dorghr,DORGHR) 117 #define DORGQR_F77 F77_BLAS_MANGLE(dorgqr,DORGQR) 118 #define DORMHR_F77 F77_BLAS_MANGLE(dormhr,DORMHR) 119 #define DORMQR_F77 F77_BLAS_MANGLE(dormqr,DORMQR) 120 #define DORM2R_F77 F77_BLAS_MANGLE(dorm2r,DORM2R) 121 #define DTREVC_F77 F77_BLAS_MANGLE(dtrevc,DTREVC) 122 #define DTREXC_F77 F77_BLAS_MANGLE(dtrexc,DTREXC) 123 #define DTGEVC_F77 F77_BLAS_MANGLE(dtgevc,DTGEVC) 124 #define DGEES_F77 F77_BLAS_MANGLE(dgees,DGEES) 125 #define DSPEV_F77 F77_BLAS_MANGLE(dspev,DSPEV) 126 #define DSYEV_F77 F77_BLAS_MANGLE(dsyev,DSYEV) 127 #define DSYGV_F77 F77_BLAS_MANGLE(dsygv,DSYGV) 128 #define DSTEQR_F77 F77_BLAS_MANGLE(dsteqr,DSTEQR) 129 #define DLAPY2_F77 F77_BLAS_MANGLE(dlapy2,DLAPY2) 130 #define DLARND_F77 F77_BLAS_MANGLE(dlarnd,DLARND) 131 #define DLARNV_F77 F77_BLAS_MANGLE(dlarnv,DLARNV) 132 #define DGEBAL_F77 F77_BLAS_MANGLE(dgebal,DGEBAL) 133 #define DGEBAK_F77 F77_BLAS_MANGLE(dgebak,DGEBAK) 134 #define DLARTG_F77 F77_BLAS_MANGLE(dlartg,DLARTG) 135 #define DLARFG_F77 F77_BLAS_MANGLE(dlarfg,DLARFG) 136 #define ILAENV_F77 F77_BLAS_MANGLE(ilaenv,ILAENV) 137 #define DGEQP3_F77 F77_BLAS_MANGLE(dgeqp3,DGEQP3) 139 #ifdef HAVE_TEUCHOS_COMPLEX 141 #define ZGEQRF_F77 F77_BLAS_MANGLE(zgeqrf,ZGEQRF) 142 #define ZGEQR2_F77 F77_BLAS_MANGLE(zgeqr2,ZGEQR2) 143 #define ZUNGQR_F77 F77_BLAS_MANGLE(zungqr,ZUNGQR) 144 #define ZUNMQR_F77 F77_BLAS_MANGLE(zunmqr,ZUNMQR) 145 #define ZUNM2R_F77 F77_BLAS_MANGLE(zunm2r,ZUNM2R) 146 #define ZGETRF_F77 F77_BLAS_MANGLE(zgetrf,ZGETRF) 147 #define ZGETRS_F77 F77_BLAS_MANGLE(zgetrs,ZGETRS) 148 #define ZLASCL_F77 F77_BLAS_MANGLE(zlascl,ZLASCL) 149 #define ZLASWP_F77 F77_BLAS_MANGLE(zlaswp,ZLASWP) 150 #define ZGBTRF_F77 F77_BLAS_MANGLE(zgbtrf,ZGBTRF) 151 #define ZGBTRS_F77 F77_BLAS_MANGLE(zgbtrs,ZGBTRS) 152 #define ZGTTRF_F77 F77_BLAS_MANGLE(zgttrf,ZGTTRF) 153 #define ZGTTRS_F77 F77_BLAS_MANGLE(zgttrs,ZGTTRS) 154 #define ZPTTRF_F77 F77_BLAS_MANGLE(zpttrf,ZPTTRF) 155 #define ZPTTRS_F77 F77_BLAS_MANGLE(zpttrs,ZPTTRS) 156 #define ZGETRI_F77 F77_BLAS_MANGLE(zgetri,ZGETRI) 157 #define ZGERFS_F77 F77_BLAS_MANGLE(zgerfs,ZGERFS) 158 #define ZGBRFS_F77 F77_BLAS_MANGLE(zgbrfs,ZGBRFS) 159 #define ZLATRS_F77 F77_BLAS_MANGLE(zlatrs,ZLATRS) 160 #define ZGECON_F77 F77_BLAS_MANGLE(zgecon,ZGECON) 161 #define ZGBCON_F77 F77_BLAS_MANGLE(zgbcon,ZGBCON) 162 #define ZLANGB_F77 F77_BLAS_MANGLE(zlangb,ZLANGB) 163 #define ZGESVX_F77 F77_BLAS_MANGLE(zgesvx,ZGESVX) 164 #define ZGESV_F77 F77_BLAS_MANGLE(zgesv,ZGESV) 165 #define ZGEEQU_F77 F77_BLAS_MANGLE(zgeequ,ZGEEQU) 166 #define ZGBEQU_F77 F77_BLAS_MANGLE(zgbequ,ZGBEQU) 167 #define ZPOTRF_F77 F77_BLAS_MANGLE(zpotrf,ZPOTRF) 168 #define ZPOTRS_F77 F77_BLAS_MANGLE(zpotrs,ZPOTRS) 169 #define ZPOTRI_F77 F77_BLAS_MANGLE(zpotri,ZPOTRI) 170 #define ZPOCON_F77 F77_BLAS_MANGLE(zpocon,ZPOCON) 171 #define ZPOSV_F77 F77_BLAS_MANGLE(zposv,ZPOSV) 172 #define ZPOEQU_F77 F77_BLAS_MANGLE(zpoequ,ZPOEQU) 173 #define ZPORFS_F77 F77_BLAS_MANGLE(zporfs,ZPORFS) 174 #define ZPOSVX_F77 F77_BLAS_MANGLE(zposvx,ZPOSVX) 175 #define ZTRTRS_F77 F77_BLAS_MANGLE(ztrtrs,ZTRTRS) 176 #define ZTRTRI_F77 F77_BLAS_MANGLE(ztrtri,ZTRTRI) 177 #define ZGELS_F77 F77_BLAS_MANGLE(zgels,ZGELS) 178 #define ZGELSS_F77 F77_BLAS_MANGLE(zgelss,ZGELSS) 180 #define ZGEEV_F77 F77_BLAS_MANGLE(zgeev,ZGEEV) 181 #define ZGESVD_F77 F77_BLAS_MANGLE(zgesvd,ZGESVD) 182 #define ZGGEV_F77 F77_BLAS_MANGLE(zggev,ZGGEV) 183 #define ZGEEVX_F77 F77_BLAS_MANGLE(zgeevx,ZGEEVX) 184 #define ZGGEVX_F77 F77_BLAS_MANGLE(zggevx,ZGGEVX) 185 #define ZGEHRD_F77 F77_BLAS_MANGLE(zgehrd,ZGEHRD) 186 #define ZHSEQR_F77 F77_BLAS_MANGLE(zhseqr,ZHSEQR) 187 #define ZTREVC_F77 F77_BLAS_MANGLE(ztrevc,ZTREVC) 188 #define ZTREXC_F77 F77_BLAS_MANGLE(ztrexc,ZTREXC) 189 #define ZGEES_F77 F77_BLAS_MANGLE(zgees,ZGEES) 190 #define ZSTEQR_F77 F77_BLAS_MANGLE(zsteqr,ZSTEQR) 191 #define ZHEEV_F77 F77_BLAS_MANGLE(zheev,ZHEEV) 192 #define ZHEGV_F77 F77_BLAS_MANGLE(zhegv,ZHEGV) 193 #define ZLARTG_F77 F77_BLAS_MANGLE(zlartg,ZLARTG) 194 #define ZLARFG_F77 F77_BLAS_MANGLE(zlarfg,ZLARFG) 195 #define ZGEBAL_F77 F77_BLAS_MANGLE(zgebal,ZGEBAL) 196 #define ZGEBAK_F77 F77_BLAS_MANGLE(zgebak,ZGEBAK) 197 #define ZLARND_F77 F77_BLAS_MANGLE(zlarnd,ZLARND) 198 #define ZLARNV_F77 F77_BLAS_MANGLE(zlarnv,ZLARNV) 199 #define ZGEQP3_F77 F77_BLAS_MANGLE(zgeqp3,ZGEQP3) 203 #define SGEQRF_F77 F77_BLAS_MANGLE(sgeqrf,SGEQRF) 204 #define SGEQR2_F77 F77_BLAS_MANGLE(sgeqr2,SGEQR2) 205 #define SGETRF_F77 F77_BLAS_MANGLE(sgetrf,SGETRF) 206 #define SGETRS_F77 F77_BLAS_MANGLE(sgetrs,SGETRS) 207 #define SLASCL_F77 F77_BLAS_MANGLE(slascl,SLASCL) 208 #define SLASWP_F77 F77_BLAS_MANGLE(slaswp,SLASWP) 209 #define SGBTRF_F77 F77_BLAS_MANGLE(sgbtrf,SGBTRF) 210 #define SGBTRS_F77 F77_BLAS_MANGLE(sgbtrs,SGBTRS) 211 #define SGTTRF_F77 F77_BLAS_MANGLE(sgttrf,SGTTRF) 212 #define SGTTRS_F77 F77_BLAS_MANGLE(sgttrs,SGTTRS) 213 #define SPTTRF_F77 F77_BLAS_MANGLE(spttrf,SPTTRF) 214 #define SPTTRS_F77 F77_BLAS_MANGLE(spttrs,SPTTRS) 215 #define SGETRI_F77 F77_BLAS_MANGLE(sgetri,SGETRI) 216 #define SGERFS_F77 F77_BLAS_MANGLE(sgerfs,SGERFS) 217 #define SGBRFS_F77 F77_BLAS_MANGLE(sgbrfs,SGBRFS) 218 #define SLATRS_F77 F77_BLAS_MANGLE(slatrs,SLATRS) 219 #define SGECON_F77 F77_BLAS_MANGLE(sgecon,SGECON) 220 #define SGBCON_F77 F77_BLAS_MANGLE(sgbcon,SGBCON) 221 #define SLANGB_F77 F77_BLAS_MANGLE(slangb,SLANGB) 222 #define SGESVX_F77 F77_BLAS_MANGLE(sgesvx,SGESVX) 223 #define SGESV_F77 F77_BLAS_MANGLE(sgesv,SGESV) 224 #define SGEEQU_F77 F77_BLAS_MANGLE(sgeequ,SGEEQU) 225 #define SGBEQU_F77 F77_BLAS_MANGLE(sgbequ,SGBEQU) 226 #define SSYTRD_F77 F77_BLAS_MANGLE(ssytrd,SSYTRD) 227 #define SPOTRF_F77 F77_BLAS_MANGLE(spotrf,SPOTRF) 228 #define SPOTRS_F77 F77_BLAS_MANGLE(spotrs,SPOTRS) 229 #define SPOTRI_F77 F77_BLAS_MANGLE(spotri,SPOTRI) 230 #define SPOCON_F77 F77_BLAS_MANGLE(spocon,SPOCON) 231 #define SPOSV_F77 F77_BLAS_MANGLE(sposv,SPOSV) 232 #define SPOEQU_F77 F77_BLAS_MANGLE(spoequ,SPOEQU) 233 #define SPORFS_F77 F77_BLAS_MANGLE(sporfs,SPORFS) 234 #define SPOSVX_F77 F77_BLAS_MANGLE(sposvx,SPOSVX) 235 #define STRTRS_F77 F77_BLAS_MANGLE(strtrs,STRTRS) 236 #define STRTRI_F77 F77_BLAS_MANGLE(strtri,STRTRI) 237 #define SGELS_F77 F77_BLAS_MANGLE(sgels,SGELS) 238 #define SGELSS_F77 F77_BLAS_MANGLE(sgelss,SGELSS) 239 #define SGGLSE_F77 F77_BLAS_MANGLE(sgglse,SGGLSE) 240 #define SGEEV_F77 F77_BLAS_MANGLE(sgeev,SGEEV) 241 #define SGESVD_F77 F77_BLAS_MANGLE(sgesvd,SGESVD) 242 #define SGGEV_F77 F77_BLAS_MANGLE(sggev,SGGEV) 243 #define SGGES_F77 F77_BLAS_MANGLE(sgges,SGGES) 244 #define STRSEN_F77 F77_BLAS_MANGLE(strsen,STRSEN) 245 #define STGSEN_F77 F77_BLAS_MANGLE(stgsen,STGSEN) 246 #define SGEEVX_F77 F77_BLAS_MANGLE(sgeevx,SGEEVX) 247 #define SGGEVX_F77 F77_BLAS_MANGLE(sggevx,SGGEVX) 248 #define SGEHRD_F77 F77_BLAS_MANGLE(sgehrd,SGEHRD) 249 #define SHSEQR_F77 F77_BLAS_MANGLE(shseqr,SHSEQR) 250 #define SORGHR_F77 F77_BLAS_MANGLE(sorghr,SORGHR) 251 #define SORGQR_F77 F77_BLAS_MANGLE(sorgqr,SORGQR) 252 #define SORMHR_F77 F77_BLAS_MANGLE(sormhr,SORMHR) 253 #define SORMQR_F77 F77_BLAS_MANGLE(sormqr,SORMQR) 254 #define SORM2R_F77 F77_BLAS_MANGLE(sorm2r,SORM2R) 255 #define STREVC_F77 F77_BLAS_MANGLE(strevc,STREVC) 256 #define STREXC_F77 F77_BLAS_MANGLE(strexc,STREXC) 257 #define STGEVC_F77 F77_BLAS_MANGLE(stgevc,STGEVC) 258 #define SLAMCH_F77 F77_BLAS_MANGLE(slamch,SLAMCH) 259 #define SGEES_F77 F77_BLAS_MANGLE(sgees,SGEES) 260 #define SSPEV_F77 F77_BLAS_MANGLE(sspev,SSPEV) 261 #define SSYEV_F77 F77_BLAS_MANGLE(ssyev,SSYEV) 262 #define SSYGV_F77 F77_BLAS_MANGLE(ssygv,SSYGV) 263 #define SSTEQR_F77 F77_BLAS_MANGLE(ssteqr,SSTEQR) 264 #ifdef HAVE_TEUCHOS_BLASFLOAT 265 #define SLAPY2_F77 F77_BLAS_MANGLE(slapy2,SLAPY2) 267 #define SLARTG_F77 F77_BLAS_MANGLE(slartg,SLARTG) 268 #define SLARFG_F77 F77_BLAS_MANGLE(slarfg,SLARFG) 269 #define SGEBAL_F77 F77_BLAS_MANGLE(sgebal,SGEBAL) 270 #define SGEBAK_F77 F77_BLAS_MANGLE(sgebak,SGEBAK) 271 #define SLARND_F77 F77_BLAS_MANGLE(slarnd,SLARND) 272 #define SLARNV_F77 F77_BLAS_MANGLE(slarnv,SLARNV) 273 #define SGEQP3_F77 F77_BLAS_MANGLE(sgeqp3,SGEQP3) 275 #ifdef HAVE_TEUCHOS_COMPLEX 277 #define CGEQRF_F77 F77_BLAS_MANGLE(cgeqrf,CGEQRF) 278 #define CGEQR2_F77 F77_BLAS_MANGLE(cgeqr2,CGEQR2) 279 #define CUNGQR_F77 F77_BLAS_MANGLE(cungqr,CUNGQR) 280 #define CUNMQR_F77 F77_BLAS_MANGLE(cunmqr,CUNMQR) 281 #define CUNM2R_F77 F77_BLAS_MANGLE(cunm2r,CUNM2R) 282 #define CGETRF_F77 F77_BLAS_MANGLE(cgetrf,CGETRF) 283 #define CGETRS_F77 F77_BLAS_MANGLE(cgetrs,CGETRS) 284 #define CLASCL_F77 F77_BLAS_MANGLE(clascl,CLASCL) 285 #define CLASWP_F77 F77_BLAS_MANGLE(claswp,CLASWP) 286 #define CGBTRF_F77 F77_BLAS_MANGLE(cgbtrf,CGBTRF) 287 #define CGBTRS_F77 F77_BLAS_MANGLE(cgbtrs,CGBTRS) 288 #define CGTTRF_F77 F77_BLAS_MANGLE(cgttrf,CGTTRF) 289 #define CGTTRS_F77 F77_BLAS_MANGLE(cgttrs,CGTTRS) 290 #define CPTTRF_F77 F77_BLAS_MANGLE(cpttrf,CPTTRF) 291 #define CPTTRS_F77 F77_BLAS_MANGLE(cpttrs,CPTTRS) 292 #define CGETRI_F77 F77_BLAS_MANGLE(cgetri,CGETRI) 293 #define CGERFS_F77 F77_BLAS_MANGLE(cgerfs,CGERFS) 294 #define CGBRFS_F77 F77_BLAS_MANGLE(cgbrfs,CGBRFS) 295 #define CLATRS_F77 F77_BLAS_MANGLE(clatrs,CLATRS) 296 #define CGECON_F77 F77_BLAS_MANGLE(cgecon,CGECON) 297 #define CGBCON_F77 F77_BLAS_MANGLE(cgbcon,CGBCON) 298 #define CLANGB_F77 F77_BLAS_MANGLE(clangb,CLANGB) 299 #define CGESVX_F77 F77_BLAS_MANGLE(cgesvx,CGESVX) 300 #define CGESV_F77 F77_BLAS_MANGLE(cgesv,CGESV) 301 #define CGEEQU_F77 F77_BLAS_MANGLE(cgeequ,CGEEQU) 302 #define CGBEQU_F77 F77_BLAS_MANGLE(cgbequ,CGBEQU) 303 #define CPOTRF_F77 F77_BLAS_MANGLE(cpotrf,CPOTRF) 304 #define CPOTRS_F77 F77_BLAS_MANGLE(cpotrs,CPOTRS) 305 #define CPOTRI_F77 F77_BLAS_MANGLE(cpotri,CPOTRI) 306 #define CPOCON_F77 F77_BLAS_MANGLE(cpocon,CPOCON) 307 #define CPOSV_F77 F77_BLAS_MANGLE(cposv,CPOSV) 308 #define CPOEQU_F77 F77_BLAS_MANGLE(cpoequ,CPOEQU) 309 #define CPORFS_F77 F77_BLAS_MANGLE(cporfs,CPORFS) 310 #define CPOSVX_F77 F77_BLAS_MANGLE(cposvx,CPOSVX) 311 #define CTRTRS_F77 F77_BLAS_MANGLE(ctrtrs,CTRTRS) 312 #define CTRTRI_F77 F77_BLAS_MANGLE(ctrtri,CTRTRI) 313 #define CGELS_F77 F77_BLAS_MANGLE(cgels,CGELS) 314 #define CGELSS_F77 F77_BLAS_MANGLE(cgelss,CGELSS) 316 #define CGEEV_F77 F77_BLAS_MANGLE(cgeev,CGEEV) 317 #define CGESVD_F77 F77_BLAS_MANGLE(cgesvd,CGESVD) 318 #define CGGEV_F77 F77_BLAS_MANGLE(cggev,CGGEV) 319 #define CGEEVX_F77 F77_BLAS_MANGLE(cgeevx,CGEEVX) 320 #define CGGEVX_F77 F77_BLAS_MANGLE(cggevx,CGGEVX) 321 #define CGEHRD_F77 F77_BLAS_MANGLE(cgehrd,CGEHRD) 322 #define CHSEQR_F77 F77_BLAS_MANGLE(chseqr,CHSEQR) 323 #define CTREVC_F77 F77_BLAS_MANGLE(ctrevc,CTREVC) 324 #define CTREXC_F77 F77_BLAS_MANGLE(ctrexc,CTREXC) 325 #define CGEES_F77 F77_BLAS_MANGLE(cgees,CGEES) 326 #define CSTEQR_F77 F77_BLAS_MANGLE(csteqr,CSTEQR) 327 #define CHEEV_F77 F77_BLAS_MANGLE(cheev,CHEEV) 328 #define CHEGV_F77 F77_BLAS_MANGLE(chegv,CHEGV) 329 #define CLARTG_F77 F77_BLAS_MANGLE(clartg,CLARTG) 330 #define CLARFG_F77 F77_BLAS_MANGLE(clarfg,CLARFG) 331 #define CGEBAL_F77 F77_BLAS_MANGLE(cgebal,CGEBAL) 332 #define CGEBAK_F77 F77_BLAS_MANGLE(cgebak,CGEBAK) 333 #define CLARND_F77 F77_BLAS_MANGLE(clarnd,CLARND) 334 #define CLARNV_F77 F77_BLAS_MANGLE(clarnv,CLARNV) 335 #define CGEQP3_F77 F77_BLAS_MANGLE(cgeqp3,CGEQP3) 348 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);
349 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);
350 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);
351 void PREFIX DGEQRF_F77(
const int* m,
const int* n,
double* a,
const int* lda,
double* tau,
double* work,
const int* lwork,
int* info);
352 void PREFIX DGEQR2_F77(
const int*
const m,
const int*
const n,
double a[],
const int*
const lda,
double tau[],
double work[],
int*
const info);
353 void PREFIX DGETRF_F77(
const int* m,
const int* n,
double* a,
const int* lda,
int* ipiv,
int* info);
354 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);
355 void PREFIX DLASCL_F77(Teuchos_fcd,
const int* kl,
const int* ku,
const double* cfrom,
const double* cto,
const int* m,
const int* n,
const double* a,
const int* lda,
int* info);
356 void PREFIX DLASWP_F77(
const int* N,
double A[],
const int* LDA,
const int* K1,
const int* K2,
const int IPIV[],
const int* INCX);
357 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);
358 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);
359 void PREFIX DGTTRF_F77(
const int* n,
double* dl,
double* d,
double* du,
double* du2,
int* ipiv,
int* info);
360 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);
361 void PREFIX DPTTRF_F77(
const int* n,
double* d,
double* e,
int* info);
362 void PREFIX DPTTRS_F77(
const int* n,
const int* nrhs,
const double* d,
const double* e,
double* x ,
const int* ldx,
int* info);
363 void PREFIX DGETRI_F77(
const int* n,
double* a,
const int* lda,
const int* ipiv,
double* work ,
const int* lwork,
int* info);
364 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);
365 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);
366 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);
367 double PREFIX DLANGB_F77(Teuchos_fcd norm,
const int* n,
const int* kl,
const int* ku,
const double* a,
const int* lda,
double* work);
368 void PREFIX DGESV_F77(
const int* n,
const int* nrhs,
double* a,
const int* lda,
int* ipiv,
double* x ,
const int* ldx,
int* info);
369 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);
370 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);
371 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);
372 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);
373 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,
374 double* c,
double* b,
const int* ldb,
double* x,
const int* ldx,
double* rcond,
double* ferr,
double* berr,
double* work,
int* iwork,
int* info);
375 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);
376 void PREFIX DPOTRF_F77(Teuchos_fcd,
const int* n,
double* a,
const int* lda,
int* info);
377 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);
378 void PREFIX DPOTRI_F77(Teuchos_fcd,
const int* n,
double* a,
const int* lda,
int* info);
379 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);
380 void PREFIX DPOSV_F77(Teuchos_fcd,
const int* n,
const int* nrhs,
double* a,
const int* lda,
double*x ,
const int* ldx,
int* info);
381 void PREFIX DPOEQU_F77(
const int* n,
const double* a,
const int* lda,
double* s,
double* scond,
double* amax,
int* info);
382 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);
383 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);
384 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);
385 void PREFIX DTRTRI_F77(Teuchos_fcd, Teuchos_fcd,
const int* n,
const double* a,
const int* lda,
int* info);
386 void PREFIX DGEQP3_F77(
const int *M,
const int *N,
double *A,
const int *LDA,
int *JPVT,
double *TAU,
double *WORK,
const int *LWORK,
int *INFO );
390 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);
391 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);
392 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);
393 void PREFIX SGEQRF_F77(
const int* m,
const int* n,
float* a,
const int* lda,
float* tau,
float* work,
const int* lwork,
int* info);
394 void PREFIX SGEQR2_F77(
const int*
const m,
const int*
const n,
float a[],
const int*
const lda,
float tau[],
float work[],
int*
const info);
395 void PREFIX SGETRF_F77(
const int* m,
const int* n,
float* a,
const int* lda,
int* ipiv,
int* info);
396 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);
397 void PREFIX SLASCL_F77(Teuchos_fcd,
const int* kl,
const int* ku,
const float* cfrom,
const float* cto,
const int* m,
const int* n,
const float* a,
const int* lda,
int* info);
398 void PREFIX SLASWP_F77(
const int* N,
float A[],
const int* LDA,
const int* K1,
const int* K2,
const int IPIV[],
const int* INCX);
399 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);
400 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);
401 void PREFIX SGTTRF_F77(
const int* n,
float* dl,
float* d,
float* du,
float* du2,
int* ipiv,
int* info);
402 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);
403 void PREFIX SPTTRF_F77(
const int* n,
float* d,
float* e,
int* info);
404 void PREFIX SPTTRS_F77(
const int* n,
const int* nrhs,
const float* d,
const float* e,
float* x ,
const int* ldx,
int* info);
405 void PREFIX SGETRI_F77(
const int* n,
float* a,
const int* lda,
const int* ipiv,
float* work ,
const int* lwork,
int* info);
406 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);
407 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);
408 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);
409 float PREFIX SLANGB_F77(Teuchos_fcd norm,
const int* n,
const int* kl,
const int* ku,
const float* a,
const int* lda,
float* work);
410 void PREFIX SGESV_F77(
const int* n,
const int* nrhs,
float* a,
const int* lda,
int* ipiv,
float* x ,
const int* ldx,
int* info);
411 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);
412 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);
413 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);
414 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);
415 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,
416 float* c,
float* b,
const int* ldb,
float* x,
const int* ldx,
float* rcond,
float* ferr,
float* berr,
float* work,
int* iwork,
int* info);
417 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);
418 void PREFIX SPOTRF_F77(Teuchos_fcd,
const int* n,
float* a,
const int* lda,
int* info);
419 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);
420 void PREFIX SPOTRI_F77(Teuchos_fcd,
const int* n,
float* a,
const int* lda,
int* info);
421 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);
422 void PREFIX SPOSV_F77(Teuchos_fcd,
const int* n,
const int* nrhs,
float* a,
const int* lda,
float*x ,
const int* ldx,
int* info);
423 void PREFIX SPOEQU_F77(
const int* n,
const float* a,
const int* lda,
float* s,
float* scond,
float* amax,
int* info);
424 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);
425 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);
426 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);
427 void PREFIX STRTRI_F77(Teuchos_fcd, Teuchos_fcd,
const int* n,
const float* a,
const int* lda,
int* info);
428 void PREFIX SGEQP3_F77(
const int *M,
const int *N,
float *A,
const int *LDA,
int *JPVT,
float *TAU,
float *WORK,
const int *LWORK,
int *INFO );
431 void PREFIX DSPEV_F77(Teuchos_fcd, Teuchos_fcd,
const int* n,
double* ap,
double* w,
double* z,
const int* ldz,
double* work,
int* info);
432 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);
433 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);
434 void PREFIX DSTEQR_F77(Teuchos_fcd,
const int* n,
double* D,
double* E,
double* Z,
const int* ldz,
double* work,
int* info);
435 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);
436 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);
437 void PREFIX DGGES_F77(Teuchos_fcd, Teuchos_fcd, Teuchos_fcd,
int (*ptr2func)(
double*,
double*,
double*),
const int* n,
double* A,
const int* lda,
double* B,
const int* ldb,
int* sdim,
double* alphar,
double* alphai,
double* beta,
double* vl,
const int* ldvl,
double* vr,
const int* ldvr,
double* work,
const int *lwork,
int *bwork,
int *info);
438 void PREFIX DTRSEN_F77(Teuchos_fcd, Teuchos_fcd,
const int *select,
const int *n,
double *t,
const int *ldt,
double *q,
const int *ldq,
double *wr,
double *wi,
int *m,
double *s,
double *sep,
double *work,
const int *lwork,
int *iwork,
const int *liwork,
int *info);
439 void PREFIX DTGSEN_F77(
const int *ijob,
const int *wantq,
const int *wantz,
const int *select,
const int *n,
double *a,
const int *lda,
double *b,
const int *ldb,
double *alphar,
double *alphai,
double *beta,
double *q,
const int *ldq,
double *z,
const int *ldz,
int *m,
double *pl,
double *pr,
double *dif,
double *work,
const int *lwork,
int *iwork,
const int *liwork,
int *info);
440 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);
441 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);
442 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);
443 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);
444 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);
445 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);
446 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);
447 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);
448 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);
449 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);
450 void PREFIX DORM2R_F77(Teuchos_fcd SIDE, Teuchos_fcd
TRANS,
const int*
const M,
const int*
const N,
const int*
const K,
const double A[],
const int*
const LDA,
const double TAU[],
double C[],
const int*
const LDC,
double WORK[],
int*
const INFO);
452 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);
453 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);
454 void PREFIX DTGEVC_F77(Teuchos_fcd, Teuchos_fcd,
const int *select,
const int *n,
double *s,
const int *lds,
double *p,
const int *ldp,
double *vl,
const int *ldvl,
double *vr,
const int *ldvr,
const int *mm,
int *m,
double *work,
int *info);
459 void PREFIX SSPEV_F77(Teuchos_fcd, Teuchos_fcd,
const int* n,
float* ap,
float* w,
float* z,
const int* ldz,
float* work,
int* info);
460 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);
461 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);
462 void PREFIX SSTEQR_F77(Teuchos_fcd,
const int* n,
float* D,
float* E,
float* Z,
const int* ldz,
float* work,
int* info);
463 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);
464 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);
465 void PREFIX SGGES_F77(Teuchos_fcd, Teuchos_fcd, Teuchos_fcd,
int (*ptr2func)(
float*,
float*,
float*),
const int* n,
float* A,
const int* lda,
float* B,
const int* ldb,
int* sdim,
float* alphar,
float* alphai,
float* beta,
float* vl,
const int* ldvl,
float* vr,
const int* ldvr,
float* work,
const int *lwork,
int *bwork,
int *info);
466 void PREFIX STRSEN_F77(Teuchos_fcd, Teuchos_fcd,
const int *select,
const int *n,
float *t,
const int *ldt,
float *q,
const int *ldq,
float *wr,
float *wi,
int *m,
float *s,
float *sep,
float *work,
const int *lwork,
int *iwork,
const int *liwork,
int *info);
467 void PREFIX STGSEN_F77(
const int *ijob,
const int *wantq,
const int *wantz,
const int *select,
const int *n,
float *a,
const int *lda,
float *b,
const int *ldb,
float *alphar,
float *alphai,
float *beta,
float *q,
const int *ldq,
float *z,
const int *ldz,
int *m,
float *pl,
float *pr,
float *dif,
float *work,
const int *lwork,
int *iwork,
const int *liwork,
int *info);
468 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);
469 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);
470 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);
471 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);
472 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);
473 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);
474 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);
475 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);
476 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);
477 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);
478 void PREFIX SORM2R_F77(Teuchos_fcd SIDE, Teuchos_fcd
TRANS,
const int*
const M,
const int*
const N,
const int*
const K,
const float A[],
const int*
const LDA,
const float TAU[],
float C[],
const int*
const LDC,
float WORK[],
int*
const INFO);
480 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);
481 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);
482 void PREFIX STGEVC_F77(Teuchos_fcd, Teuchos_fcd,
const int *select,
const int *n,
float *s,
const int *lds,
float *p,
const int *ldp,
float *vl,
const int *ldvl,
float *vr,
const int *ldvr,
const int *mm,
int *m,
float *work,
int *info);
484 void PREFIX SLARTG_F77(
const float* f,
const float* g,
float* c,
float* s,
float* r);
485 void PREFIX DLARTG_F77(
const double* f,
const double* g,
double* c,
double* s,
double* r);
487 void PREFIX SLARFG_F77(
const int* n,
float* alpha,
float* x,
const int* incx,
float* tau);
488 void PREFIX DLARFG_F77(
const int* n,
double* alpha,
double* x,
const int* incx,
double* tau);
490 void PREFIX SGEBAL_F77(Teuchos_fcd,
const int* n,
float* a,
const int* lda,
int* ilo,
int* ihi,
float* scale,
int* info);
491 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);
492 void PREFIX DGEBAL_F77(Teuchos_fcd,
const int* n,
double* a,
const int* lda,
int* ilo,
int* ihi,
double* scale,
int* info);
493 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);
495 float PREFIX SLARND_F77(
const int* idist,
int* seed);
496 double PREFIX DLARND_F77(
const int* idist,
int* seed);
498 void PREFIX SLARNV_F77(
const int* idist,
int* seed,
const int* n,
float* v);
499 void PREFIX DLARNV_F77(
const int* idist,
int* seed,
const int* n,
double* v);
501 float PREFIX SLAMCH_F77(Teuchos_fcd);
502 double PREFIX DLAMCH_F77(Teuchos_fcd);
504 #if defined(INTEL_CXML) 505 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 );
507 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 );
510 #ifdef HAVE_TEUCHOS_BLASFLOAT 511 #if defined(HAVE_SLAPY2_PROBLEM) && defined(HAVE_SLAPY2_DOUBLE_RETURN) 512 double PREFIX SLAPY2_F77(
const float* x,
const float* y);
514 float PREFIX SLAPY2_F77(
const float* x,
const float* y);
518 double PREFIX DLAPY2_F77(
const double* x,
const double* y);
520 #ifdef HAVE_TEUCHOS_COMPLEX 523 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);
524 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);
525 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);
526 void PREFIX ZGEQR2_F77(
const int*
const m,
const int*
const n, std::complex<double> a[],
const int*
const lda, std::complex<double> tau[], std::complex<double> work[],
int*
const info);
527 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);
528 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);
529 void PREFIX ZUNM2R_F77(Teuchos_fcd SIDE, Teuchos_fcd
TRANS,
const int*
const M,
const int*
const N,
const int*
const K,
const std::complex<double> A[],
const int*
const LDA,
const std::complex<double> TAU[], std::complex<double> C[],
const int*
const LDC, std::complex<double> WORK[],
int*
const INFO);
530 void PREFIX ZGETRF_F77(
const int* m,
const int* n, std::complex<double>* a,
const int* lda,
int* ipiv,
int* info);
531 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);
532 void PREFIX ZLASCL_F77(Teuchos_fcd,
const int* kl,
const int* ku,
const double* cfrom,
const double* cto,
const int* m,
const int* n,
const std::complex<double>* a,
const int* lda,
int* info);
533 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);
534 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);
535 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);
536 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);
537 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);
538 void PREFIX ZPTTRF_F77(
const int* n, std::complex<double>* d, std::complex<double>* e,
int* info);
539 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);
540 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);
541 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);
542 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);
543 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);
544 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);
545 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);
546 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);
547 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);
548 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);
549 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);
550 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);
551 void PREFIX ZPOTRF_F77(Teuchos_fcd,
const int* n, std::complex<double>* a,
const int* lda,
int* info);
552 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);
553 void PREFIX ZPOTRI_F77(Teuchos_fcd,
const int* n, std::complex<double>* a,
const int* lda,
int* info);
554 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);
555 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);
556 void PREFIX ZPOEQU_F77(
const int* n,
const std::complex<double>* a,
const int* lda,
double* s,
double* scond,
double* amax,
int* info);
557 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);
558 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);
559 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);
560 void PREFIX ZTRTRI_F77(Teuchos_fcd, Teuchos_fcd,
const int* n,
const std::complex<double>* a,
const int* lda,
int* info);
561 void PREFIX ZGEQP3_F77(
const int *M,
const int *N, std::complex<double>* A,
const int *LDA,
int *JPVT, std::complex<double>* TAU, std::complex<double>* WORK,
const int *LWORK,
double *RWORK,
int *INFO );
565 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);
566 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);
567 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);
568 void PREFIX CGEQR2_F77(
const int*
const m,
const int*
const n, std::complex<float> a[],
const int*
const lda, std::complex<float> tau[], std::complex<float> work[],
int*
const info);
569 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);
570 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);
571 void PREFIX CUNM2R_F77(Teuchos_fcd SIDE, Teuchos_fcd
TRANS,
const int*
const M,
const int*
const N,
const int*
const K,
const std::complex<float> A[],
const int*
const LDA,
const std::complex<float> TAU[], std::complex<float> C[],
const int*
const LDC, std::complex<float> WORK[],
int*
const INFO);
572 void PREFIX CGETRF_F77(
const int* m,
const int* n, std::complex<float>* a,
const int* lda,
int* ipiv,
int* info);
573 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);
574 void PREFIX CLASCL_F77(Teuchos_fcd,
const int* kl,
const int* ku,
const float* cfrom,
const float* cto,
const int* m,
const int* n,
const std::complex<float>* a,
const int* lda,
int* info);
575 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);
576 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);
577 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);
578 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);
579 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);
580 void PREFIX CPTTRF_F77(
const int* n, std::complex<float>* d, std::complex<float>* e,
int* info);
581 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);
582 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);
583 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);
584 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);
585 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);
586 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);
587 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);
588 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);
589 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);
590 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);
591 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);
592 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);
593 void PREFIX CPOTRF_F77(Teuchos_fcd,
const int* n, std::complex<float>* a,
const int* lda,
int* info);
594 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);
595 void PREFIX CPOTRI_F77(Teuchos_fcd,
const int* n, std::complex<float>* a,
const int* lda,
int* info);
596 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);
597 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);
598 void PREFIX CPOEQU_F77(
const int* n,
const std::complex<float>* a,
const int* lda,
float* s,
float* scond,
float* amax,
int* info);
599 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);
600 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);
601 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);
602 void PREFIX CTRTRI_F77(Teuchos_fcd, Teuchos_fcd,
const int* n,
const std::complex<float>* a,
const int* lda,
int* info);
603 void PREFIX CGEQP3_F77(
const int *M,
const int *N, std::complex<float>* A,
const int *LDA,
int *JPVT, std::complex<float>* TAU, std::complex<float>* WORK,
const int *LWORK,
float *RWORK,
int *INFO );
607 void PREFIX ZSTEQR_F77(Teuchos_fcd,
const int* n,
double* D,
double* E, std::complex<double>* Z,
const int* ldz,
double* work,
int* info);
608 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);
609 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);
610 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);
611 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);
612 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);
613 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);
614 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);
615 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);
616 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);
617 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);
618 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);
619 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);
623 void PREFIX CSTEQR_F77(Teuchos_fcd,
const int* n,
float* D,
float* E, std::complex<float>* Z,
const int* ldz,
float* work,
int* info);
624 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);
625 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);
626 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);
627 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);
628 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);
629 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);
630 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);
631 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);
632 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);
633 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);
634 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);
635 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);
637 void PREFIX CLARTG_F77(
const std::complex<float>* f,
const std::complex<float>* g,
float* c, std::complex<float>* s, std::complex<float>* r);
638 void PREFIX ZLARTG_F77(
const std::complex<double>* f,
const std::complex<double>* g,
double* c, std::complex<double>* s, std::complex<double>* r);
640 void PREFIX CLARFG_F77(
const int* n, std::complex<float>* alpha, std::complex<float>* x,
const int* incx, std::complex<float>* tau);
641 void PREFIX ZLARFG_F77(
const int* n, std::complex<double>* alpha, std::complex<double>* x,
const int* incx, std::complex<double>* tau);
643 void PREFIX CGEBAL_F77(Teuchos_fcd,
const int* n, std::complex<float>* a,
const int* lda,
int* ilo,
int* ihi,
float* scale,
int* info);
644 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);
645 void PREFIX ZGEBAL_F77(Teuchos_fcd,
const int* n, std::complex<double>* a,
const int* lda,
int* ilo,
int* ihi,
double* scale,
int* info);
646 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);
648 std::complex<float> PREFIX CLARND_F77(
const int* idist,
int* seed);
649 std::complex<double> PREFIX ZLARND_F77(
const int* idist,
int* seed);
651 void PREFIX CLARNV_F77(
const int* idist,
int* seed,
const int* n, std::complex<float>* v);
652 void PREFIX ZLARNV_F77(
const int* idist,
int* seed,
const int* n, std::complex<double>* v);
670 #endif // end of TEUCHOS_LAPACK_WRAPPERS_HPP_ Teuchos header file which uses auto-configuration information to include necessary C++ headers...
int rank(const Comm< Ordinal > &comm)
Get the process rank.