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