Delete lapack_wrappers.c.orig
This looks like a leftover from patching and confuses further patching;-)
This commit is contained in:
drhpc
GitHub
parent
9721b57ecf
commit
206e03fdac
|
|
@ -1,607 +0,0 @@
|
||||||
#include "relapack.h"
|
|
||||||
|
|
||||||
////////////
|
|
||||||
// XLAUUM //
|
|
||||||
////////////
|
|
||||||
|
|
||||||
#if INCLUDE_SLAUUM
|
|
||||||
void LAPACK(slauum)(
|
|
||||||
const char *uplo, const int *n,
|
|
||||||
float *A, const int *ldA,
|
|
||||||
int *info
|
|
||||||
) {
|
|
||||||
RELAPACK_slauum(uplo, n, A, ldA, info);
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
|
|
||||||
#if INCLUDE_DLAUUM
|
|
||||||
void LAPACK(dlauum)(
|
|
||||||
const char *uplo, const int *n,
|
|
||||||
double *A, const int *ldA,
|
|
||||||
int *info
|
|
||||||
) {
|
|
||||||
RELAPACK_dlauum(uplo, n, A, ldA, info);
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
|
|
||||||
#if INCLUDE_CLAUUM
|
|
||||||
void LAPACK(clauum)(
|
|
||||||
const char *uplo, const int *n,
|
|
||||||
float *A, const int *ldA,
|
|
||||||
int *info
|
|
||||||
) {
|
|
||||||
RELAPACK_clauum(uplo, n, A, ldA, info);
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
|
|
||||||
#if INCLUDE_ZLAUUM
|
|
||||||
void LAPACK(zlauum)(
|
|
||||||
const char *uplo, const int *n,
|
|
||||||
double *A, const int *ldA,
|
|
||||||
int *info
|
|
||||||
) {
|
|
||||||
RELAPACK_zlauum(uplo, n, A, ldA, info);
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
|
|
||||||
|
|
||||||
////////////
|
|
||||||
// XSYGST //
|
|
||||||
////////////
|
|
||||||
|
|
||||||
#if INCLUDE_SSYGST
|
|
||||||
void LAPACK(ssygst)(
|
|
||||||
const int *itype, const char *uplo, const int *n,
|
|
||||||
float *A, const int *ldA, const float *B, const int *ldB,
|
|
||||||
int *info
|
|
||||||
) {
|
|
||||||
RELAPACK_ssygst(itype, uplo, n, A, ldA, B, ldB, info);
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
|
|
||||||
#if INCLUDE_DSYGST
|
|
||||||
void LAPACK(dsygst)(
|
|
||||||
const int *itype, const char *uplo, const int *n,
|
|
||||||
double *A, const int *ldA, const double *B, const int *ldB,
|
|
||||||
int *info
|
|
||||||
) {
|
|
||||||
RELAPACK_dsygst(itype, uplo, n, A, ldA, B, ldB, info);
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
|
|
||||||
#if INCLUDE_CSYGST
|
|
||||||
void LAPACK(csygst)(
|
|
||||||
const int *itype, const char *uplo, const int *n,
|
|
||||||
float *A, const int *ldA, const float *B, const int *ldB,
|
|
||||||
int *info
|
|
||||||
) {
|
|
||||||
RELAPACK_csygst(itype, uplo, n, A, ldA, B, ldB, info);
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
|
|
||||||
#if INCLUDE_ZSYGST
|
|
||||||
void LAPACK(zsygst)(
|
|
||||||
const int *itype, const char *uplo, const int *n,
|
|
||||||
double *A, const int *ldA, const double *B, const int *ldB,
|
|
||||||
int *info
|
|
||||||
) {
|
|
||||||
RELAPACK_zsygst(itype, uplo, n, A, ldA, B, ldB, info);
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
|
|
||||||
|
|
||||||
////////////
|
|
||||||
// XTRTRI //
|
|
||||||
////////////
|
|
||||||
|
|
||||||
#if INCLUDE_STRTRI
|
|
||||||
void LAPACK(strtri)(
|
|
||||||
const char *uplo, const char *diag, const int *n,
|
|
||||||
float *A, const int *ldA,
|
|
||||||
int *info
|
|
||||||
) {
|
|
||||||
RELAPACK_strtri(uplo, diag, n, A, ldA, info);
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
|
|
||||||
#if INCLUDE_DTRTRI
|
|
||||||
void LAPACK(dtrtri)(
|
|
||||||
const char *uplo, const char *diag, const int *n,
|
|
||||||
double *A, const int *ldA,
|
|
||||||
int *info
|
|
||||||
) {
|
|
||||||
RELAPACK_dtrtri(uplo, diag, n, A, ldA, info);
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
|
|
||||||
#if INCLUDE_CTRTRI
|
|
||||||
void LAPACK(ctrtri)(
|
|
||||||
const char *uplo, const char *diag, const int *n,
|
|
||||||
float *A, const int *ldA,
|
|
||||||
int *info
|
|
||||||
) {
|
|
||||||
RELAPACK_ctrtri(uplo, diag, n, A, ldA, info);
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
|
|
||||||
#if INCLUDE_ZTRTRI
|
|
||||||
void LAPACK(ztrtri)(
|
|
||||||
const char *uplo, const char *diag, const int *n,
|
|
||||||
double *A, const int *ldA,
|
|
||||||
int *info
|
|
||||||
) {
|
|
||||||
RELAPACK_ztrtri(uplo, diag, n, A, ldA, info);
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
|
|
||||||
|
|
||||||
////////////
|
|
||||||
// XPOTRF //
|
|
||||||
////////////
|
|
||||||
|
|
||||||
#if INCLUDE_SPOTRF
|
|
||||||
void LAPACK(spotrf)(
|
|
||||||
const char *uplo, const int *n,
|
|
||||||
float *A, const int *ldA,
|
|
||||||
int *info
|
|
||||||
) {
|
|
||||||
RELAPACK_spotrf(uplo, n, A, ldA, info);
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
|
|
||||||
#if INCLUDE_DPOTRF
|
|
||||||
void LAPACK(dpotrf)(
|
|
||||||
const char *uplo, const int *n,
|
|
||||||
double *A, const int *ldA,
|
|
||||||
int *info
|
|
||||||
) {
|
|
||||||
RELAPACK_dpotrf(uplo, n, A, ldA, info);
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
|
|
||||||
#if INCLUDE_CPOTRF
|
|
||||||
void LAPACK(cpotrf)(
|
|
||||||
const char *uplo, const int *n,
|
|
||||||
float *A, const int *ldA,
|
|
||||||
int *info
|
|
||||||
) {
|
|
||||||
RELAPACK_cpotrf(uplo, n, A, ldA, info);
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
|
|
||||||
#if INCLUDE_ZPOTRF
|
|
||||||
void LAPACK(zpotrf)(
|
|
||||||
const char *uplo, const int *n,
|
|
||||||
double *A, const int *ldA,
|
|
||||||
int *info
|
|
||||||
) {
|
|
||||||
RELAPACK_zpotrf(uplo, n, A, ldA, info);
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
|
|
||||||
|
|
||||||
////////////
|
|
||||||
// XPBTRF //
|
|
||||||
////////////
|
|
||||||
|
|
||||||
#if INCLUDE_SPBTRF
|
|
||||||
void LAPACK(spbtrf)(
|
|
||||||
const char *uplo, const int *n, const int *kd,
|
|
||||||
float *Ab, const int *ldAb,
|
|
||||||
int *info
|
|
||||||
) {
|
|
||||||
RELAPACK_spbtrf(uplo, n, kd, Ab, ldAb, info);
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
|
|
||||||
#if INCLUDE_DPBTRF
|
|
||||||
void LAPACK(dpbtrf)(
|
|
||||||
const char *uplo, const int *n, const int *kd,
|
|
||||||
double *Ab, const int *ldAb,
|
|
||||||
int *info
|
|
||||||
) {
|
|
||||||
RELAPACK_dpbtrf(uplo, n, kd, Ab, ldAb, info);
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
|
|
||||||
#if INCLUDE_CPBTRF
|
|
||||||
void LAPACK(cpbtrf)(
|
|
||||||
const char *uplo, const int *n, const int *kd,
|
|
||||||
float *Ab, const int *ldAb,
|
|
||||||
int *info
|
|
||||||
) {
|
|
||||||
RELAPACK_cpbtrf(uplo, n, kd, Ab, ldAb, info);
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
|
|
||||||
#if INCLUDE_ZPBTRF
|
|
||||||
void LAPACK(zpbtrf)(
|
|
||||||
const char *uplo, const int *n, const int *kd,
|
|
||||||
double *Ab, const int *ldAb,
|
|
||||||
int *info
|
|
||||||
) {
|
|
||||||
RELAPACK_zpbtrf(uplo, n, kd, Ab, ldAb, info);
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
|
|
||||||
|
|
||||||
////////////
|
|
||||||
// XSYTRF //
|
|
||||||
////////////
|
|
||||||
|
|
||||||
#if INCLUDE_SSYTRF
|
|
||||||
void LAPACK(ssytrf)(
|
|
||||||
const char *uplo, const int *n,
|
|
||||||
float *A, const int *ldA, int *ipiv,
|
|
||||||
float *Work, const int *lWork, int *info
|
|
||||||
) {
|
|
||||||
RELAPACK_ssytrf(uplo, n, A, ldA, ipiv, Work, lWork, info);
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
|
|
||||||
#if INCLUDE_DSYTRF
|
|
||||||
void LAPACK(dsytrf)(
|
|
||||||
const char *uplo, const int *n,
|
|
||||||
double *A, const int *ldA, int *ipiv,
|
|
||||||
double *Work, const int *lWork, int *info
|
|
||||||
) {
|
|
||||||
RELAPACK_dsytrf(uplo, n, A, ldA, ipiv, Work, lWork, info);
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
|
|
||||||
#if INCLUDE_CSYTRF
|
|
||||||
void LAPACK(csytrf)(
|
|
||||||
const char *uplo, const int *n,
|
|
||||||
float *A, const int *ldA, int *ipiv,
|
|
||||||
float *Work, const int *lWork, int *info
|
|
||||||
) {
|
|
||||||
RELAPACK_csytrf(uplo, n, A, ldA, ipiv, Work, lWork, info);
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
|
|
||||||
#if INCLUDE_ZSYTRF
|
|
||||||
void LAPACK(zsytrf)(
|
|
||||||
const char *uplo, const int *n,
|
|
||||||
double *A, const int *ldA, int *ipiv,
|
|
||||||
double *Work, const int *lWork, int *info
|
|
||||||
) {
|
|
||||||
RELAPACK_zsytrf(uplo, n, A, ldA, ipiv, Work, lWork, info);
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
|
|
||||||
#if INCLUDE_CHETRF
|
|
||||||
void LAPACK(chetrf)(
|
|
||||||
const char *uplo, const int *n,
|
|
||||||
float *A, const int *ldA, int *ipiv,
|
|
||||||
float *Work, const int *lWork, int *info
|
|
||||||
) {
|
|
||||||
RELAPACK_chetrf(uplo, n, A, ldA, ipiv, Work, lWork, info);
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
|
|
||||||
#if INCLUDE_ZHETRF
|
|
||||||
void LAPACK(zhetrf)(
|
|
||||||
const char *uplo, const int *n,
|
|
||||||
double *A, const int *ldA, int *ipiv,
|
|
||||||
double *Work, const int *lWork, int *info
|
|
||||||
) {
|
|
||||||
RELAPACK_zhetrf(uplo, n, A, ldA, ipiv, Work, lWork, info);
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
|
|
||||||
#if INCLUDE_SSYTRF_ROOK
|
|
||||||
void LAPACK(ssytrf_rook)(
|
|
||||||
const char *uplo, const int *n,
|
|
||||||
float *A, const int *ldA, int *ipiv,
|
|
||||||
float *Work, const int *lWork, int *info
|
|
||||||
) {
|
|
||||||
RELAPACK_ssytrf_rook(uplo, n, A, ldA, ipiv, Work, lWork, info);
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
|
|
||||||
#if INCLUDE_DSYTRF_ROOK
|
|
||||||
void LAPACK(dsytrf_rook)(
|
|
||||||
const char *uplo, const int *n,
|
|
||||||
double *A, const int *ldA, int *ipiv,
|
|
||||||
double *Work, const int *lWork, int *info
|
|
||||||
) {
|
|
||||||
RELAPACK_dsytrf_rook(uplo, n, A, ldA, ipiv, Work, lWork, info);
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
|
|
||||||
#if INCLUDE_CSYTRF_ROOK
|
|
||||||
void LAPACK(csytrf_rook)(
|
|
||||||
const char *uplo, const int *n,
|
|
||||||
float *A, const int *ldA, int *ipiv,
|
|
||||||
float *Work, const int *lWork, int *info
|
|
||||||
) {
|
|
||||||
RELAPACK_csytrf_rook(uplo, n, A, ldA, ipiv, Work, lWork, info);
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
|
|
||||||
#if INCLUDE_ZSYTRF_ROOK
|
|
||||||
void LAPACK(zsytrf_rook)(
|
|
||||||
const char *uplo, const int *n,
|
|
||||||
double *A, const int *ldA, int *ipiv,
|
|
||||||
double *Work, const int *lWork, int *info
|
|
||||||
) {
|
|
||||||
RELAPACK_zsytrf_rook(uplo, n, A, ldA, ipiv, Work, lWork, info);
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
|
|
||||||
#if INCLUDE_CHETRF_ROOK
|
|
||||||
void LAPACK(chetrf_rook)(
|
|
||||||
const char *uplo, const int *n,
|
|
||||||
float *A, const int *ldA, int *ipiv,
|
|
||||||
float *Work, const int *lWork, int *info
|
|
||||||
) {
|
|
||||||
RELAPACK_chetrf_rook(uplo, n, A, ldA, ipiv, Work, lWork, info);
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
|
|
||||||
#if INCLUDE_ZHETRF_ROOK
|
|
||||||
void LAPACK(zhetrf_rook)(
|
|
||||||
const char *uplo, const int *n,
|
|
||||||
double *A, const int *ldA, int *ipiv,
|
|
||||||
double *Work, const int *lWork, int *info
|
|
||||||
) {
|
|
||||||
RELAPACK_zhetrf_rook(uplo, n, A, ldA, ipiv, Work, lWork, info);
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
|
|
||||||
|
|
||||||
////////////
|
|
||||||
// XGETRF //
|
|
||||||
////////////
|
|
||||||
|
|
||||||
#if INCLUDE_SGETRF
|
|
||||||
void LAPACK(sgetrf)(
|
|
||||||
const int *m, const int *n,
|
|
||||||
float *A, const int *ldA, int *ipiv,
|
|
||||||
int *info
|
|
||||||
) {
|
|
||||||
RELAPACK_sgetrf(m, n, A, ldA, ipiv, info);
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
|
|
||||||
#if INCLUDE_DGETRF
|
|
||||||
void LAPACK(dgetrf)(
|
|
||||||
const int *m, const int *n,
|
|
||||||
double *A, const int *ldA, int *ipiv,
|
|
||||||
int *info
|
|
||||||
) {
|
|
||||||
RELAPACK_dgetrf(m, n, A, ldA, ipiv, info);
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
|
|
||||||
#if INCLUDE_CGETRF
|
|
||||||
void LAPACK(cgetrf)(
|
|
||||||
const int *m, const int *n,
|
|
||||||
float *A, const int *ldA, int *ipiv,
|
|
||||||
int *info
|
|
||||||
) {
|
|
||||||
RELAPACK_cgetrf(m, n, A, ldA, ipiv, info);
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
|
|
||||||
#if INCLUDE_ZGETRF
|
|
||||||
void LAPACK(zgetrf)(
|
|
||||||
const int *m, const int *n,
|
|
||||||
double *A, const int *ldA, int *ipiv,
|
|
||||||
int *info
|
|
||||||
) {
|
|
||||||
RELAPACK_zgetrf(m, n, A, ldA, ipiv, info);
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
|
|
||||||
|
|
||||||
////////////
|
|
||||||
// XGBTRF //
|
|
||||||
////////////
|
|
||||||
|
|
||||||
#if INCLUDE_SGBTRF
|
|
||||||
void LAPACK(sgbtrf)(
|
|
||||||
const int *m, const int *n, const int *kl, const int *ku,
|
|
||||||
float *Ab, const int *ldAb, int *ipiv,
|
|
||||||
int *info
|
|
||||||
) {
|
|
||||||
RELAPACK_sgbtrf(m, n, kl, ku, Ab, ldAb, ipiv, info);
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
|
|
||||||
#if INCLUDE_DGBTRF
|
|
||||||
void LAPACK(dgbtrf)(
|
|
||||||
const int *m, const int *n, const int *kl, const int *ku,
|
|
||||||
double *Ab, const int *ldAb, int *ipiv,
|
|
||||||
int *info
|
|
||||||
) {
|
|
||||||
RELAPACK_dgbtrf(m, n, kl, ku, Ab, ldAb, ipiv, info);
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
|
|
||||||
#if INCLUDE_CGBTRF
|
|
||||||
void LAPACK(cgbtrf)(
|
|
||||||
const int *m, const int *n, const int *kl, const int *ku,
|
|
||||||
float *Ab, const int *ldAb, int *ipiv,
|
|
||||||
int *info
|
|
||||||
) {
|
|
||||||
RELAPACK_cgbtrf(m, n, kl, ku, Ab, ldAb, ipiv, info);
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
|
|
||||||
#if INCLUDE_ZGBTRF
|
|
||||||
void LAPACK(zgbtrf)(
|
|
||||||
const int *m, const int *n, const int *kl, const int *ku,
|
|
||||||
double *Ab, const int *ldAb, int *ipiv,
|
|
||||||
int *info
|
|
||||||
) {
|
|
||||||
RELAPACK_zgbtrf(m, n, kl, ku, Ab, ldAb, ipiv, info);
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
|
|
||||||
|
|
||||||
////////////
|
|
||||||
// XTRSYL //
|
|
||||||
////////////
|
|
||||||
|
|
||||||
#if INCLUDE_STRSYL
|
|
||||||
void LAPACK(strsyl)(
|
|
||||||
const char *tranA, const char *tranB, const int *isgn,
|
|
||||||
const int *m, const int *n,
|
|
||||||
const float *A, const int *ldA, const float *B, const int *ldB,
|
|
||||||
float *C, const int *ldC, float *scale,
|
|
||||||
int *info
|
|
||||||
) {
|
|
||||||
RELAPACK_strsyl(tranA, tranB, isgn, m, n, A, ldA, B, ldB, C, ldC, scale, info);
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
|
|
||||||
#if INCLUDE_DTRSYL
|
|
||||||
void LAPACK(dtrsyl)(
|
|
||||||
const char *tranA, const char *tranB, const int *isgn,
|
|
||||||
const int *m, const int *n,
|
|
||||||
const double *A, const int *ldA, const double *B, const int *ldB,
|
|
||||||
double *C, const int *ldC, double *scale,
|
|
||||||
int *info
|
|
||||||
) {
|
|
||||||
RELAPACK_dtrsyl(tranA, tranB, isgn, m, n, A, ldA, B, ldB, C, ldC, scale, info);
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
|
|
||||||
#if INCLUDE_CTRSYL
|
|
||||||
void LAPACK(ctrsyl)(
|
|
||||||
const char *tranA, const char *tranB, const int *isgn,
|
|
||||||
const int *m, const int *n,
|
|
||||||
const float *A, const int *ldA, const float *B, const int *ldB,
|
|
||||||
float *C, const int *ldC, float *scale,
|
|
||||||
int *info
|
|
||||||
) {
|
|
||||||
RELAPACK_ctrsyl(tranA, tranB, isgn, m, n, A, ldA, B, ldB, C, ldC, scale, info);
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
|
|
||||||
#if INCLUDE_ZTRSYL
|
|
||||||
void LAPACK(ztrsyl)(
|
|
||||||
const char *tranA, const char *tranB, const int *isgn,
|
|
||||||
const int *m, const int *n,
|
|
||||||
const double *A, const int *ldA, const double *B, const int *ldB,
|
|
||||||
double *C, const int *ldC, double *scale,
|
|
||||||
int *info
|
|
||||||
) {
|
|
||||||
RELAPACK_ztrsyl(tranA, tranB, isgn, m, n, A, ldA, B, ldB, C, ldC, scale, info);
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
|
|
||||||
|
|
||||||
////////////
|
|
||||||
// XTGSYL //
|
|
||||||
////////////
|
|
||||||
|
|
||||||
#if INCLUDE_STGSYL
|
|
||||||
void LAPACK(stgsyl)(
|
|
||||||
const char *trans, const int *ijob, const int *m, const int *n,
|
|
||||||
const float *A, const int *ldA, const float *B, const int *ldB,
|
|
||||||
float *C, const int *ldC,
|
|
||||||
const float *D, const int *ldD, const float *E, const int *ldE,
|
|
||||||
float *F, const int *ldF,
|
|
||||||
float *scale, float *dif,
|
|
||||||
float *Work, const int *lWork, int *iWork, int *info
|
|
||||||
) {
|
|
||||||
RELAPACK_stgsyl(trans, ijob, m, n, A, ldA, B, ldB, C, ldC, D, ldD, E, ldE, F, ldF, scale, dif, Work, lWork, iWork, info);
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
|
|
||||||
#if INCLUDE_DTGSYL
|
|
||||||
void LAPACK(dtgsyl)(
|
|
||||||
const char *trans, const int *ijob, const int *m, const int *n,
|
|
||||||
const double *A, const int *ldA, const double *B, const int *ldB,
|
|
||||||
double *C, const int *ldC,
|
|
||||||
const double *D, const int *ldD, const double *E, const int *ldE,
|
|
||||||
double *F, const int *ldF,
|
|
||||||
double *scale, double *dif,
|
|
||||||
double *Work, const int *lWork, int *iWork, int *info
|
|
||||||
) {
|
|
||||||
RELAPACK_dtgsyl(trans, ijob, m, n, A, ldA, B, ldB, C, ldC, D, ldD, E, ldE, F, ldF, scale, dif, Work, lWork, iWork, info);
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
|
|
||||||
#if INCLUDE_CTGSYL
|
|
||||||
void LAPACK(ctgsyl)(
|
|
||||||
const char *trans, const int *ijob, const int *m, const int *n,
|
|
||||||
const float *A, const int *ldA, const float *B, const int *ldB,
|
|
||||||
float *C, const int *ldC,
|
|
||||||
const float *D, const int *ldD, const float *E, const int *ldE,
|
|
||||||
float *F, const int *ldF,
|
|
||||||
float *scale, float *dif,
|
|
||||||
float *Work, const int *lWork, int *iWork, int *info
|
|
||||||
) {
|
|
||||||
RELAPACK_ctgsyl(trans, ijob, m, n, A, ldA, B, ldB, C, ldC, D, ldD, E, ldE, F, ldF, scale, dif, Work, lWork, iWork, info);
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
|
|
||||||
#if INCLUDE_ZTGSYL
|
|
||||||
void LAPACK(ztgsyl)(
|
|
||||||
const char *trans, const int *ijob, const int *m, const int *n,
|
|
||||||
const double *A, const int *ldA, const double *B, const int *ldB,
|
|
||||||
double *C, const int *ldC,
|
|
||||||
const double *D, const int *ldD, const double *E, const int *ldE,
|
|
||||||
double *F, const int *ldF,
|
|
||||||
double *scale, double *dif,
|
|
||||||
double *Work, const int *lWork, int *iWork, int *info
|
|
||||||
) {
|
|
||||||
RELAPACK_ztgsyl(trans, ijob, m, n, A, ldA, B, ldB, C, ldC, D, ldD, E, ldE, F, ldF, scale, dif, Work, lWork, iWork, info);
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
|
|
||||||
|
|
||||||
////////////
|
|
||||||
// XGEMMT //
|
|
||||||
////////////
|
|
||||||
|
|
||||||
#if INCLUDE_SGEMMT
|
|
||||||
void LAPACK(sgemmt)(
|
|
||||||
const char *uplo, const char *transA, const char *transB,
|
|
||||||
const int *n, const int *k,
|
|
||||||
const float *alpha, const float *A, const int *ldA,
|
|
||||||
const float *B, const int *ldB,
|
|
||||||
const float *beta, float *C, const int *ldC
|
|
||||||
) {
|
|
||||||
RELAPACK_sgemmt(uplo, n, A, ldA, info);
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
|
|
||||||
#if INCLUDE_DGEMMT
|
|
||||||
void LAPACK(dgemmt)(
|
|
||||||
const char *uplo, const char *transA, const char *transB,
|
|
||||||
const int *n, const int *k,
|
|
||||||
const double *alpha, const double *A, const int *ldA,
|
|
||||||
const double *B, const int *ldB,
|
|
||||||
const double *beta, double *C, const int *ldC
|
|
||||||
) {
|
|
||||||
RELAPACK_dgemmt(uplo, n, A, ldA, info);
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
|
|
||||||
#if INCLUDE_CGEMMT
|
|
||||||
void LAPACK(cgemmt)(
|
|
||||||
const char *uplo, const char *transA, const char *transB,
|
|
||||||
const int *n, const int *k,
|
|
||||||
const float *alpha, const float *A, const int *ldA,
|
|
||||||
const float *B, const int *ldB,
|
|
||||||
const float *beta, float *C, const int *ldC
|
|
||||||
) {
|
|
||||||
RELAPACK_cgemmt(uplo, n, A, ldA, info);
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
|
|
||||||
#if INCLUDE_ZGEMMT
|
|
||||||
void LAPACK(zgemmt)(
|
|
||||||
const char *uplo, const char *transA, const char *transB,
|
|
||||||
const int *n, const int *k,
|
|
||||||
const double *alpha, const double *A, const int *ldA,
|
|
||||||
const double *B, const int *ldB,
|
|
||||||
const double *beta, double *C, const int *ldC
|
|
||||||
) {
|
|
||||||
RELAPACK_zgemmt(uplo, n, A, ldA, info);
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
Loading…
Reference in New Issue