本文整理汇总了C++中CHAR_MACRO函数的典型用法代码示例。如果您正苦于以下问题：C++ CHAR_MACRO函数的具体用法？C++ CHAR_MACRO怎么用？C++ CHAR_MACRO使用的例子？那么恭喜您, 这里精选的函数代码示例或许可以为您提供帮助。
在下文中一共展示了CHAR_MACRO函数的15个代码示例，这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞，您的评价将有助于系统推荐出更棒的C++代码示例。
示例1: SGGSVD_F77
//=============================================================================
void Epetra_LAPACK::GGSVD(const char JOBU, const char JOBV, const char JOBQ, const int M, const int N, const int P, int * K, int * L,
float* A, const int LDA, float* B, const int LDB,
float* ALPHA, float* BETA, float* U, const int LDU, float* V, const int LDV, float* Q, const int LDQ, float* WORK, int* IWORK,
int* INFO) const {
SGGSVD_F77(CHAR_MACRO(JOBU), CHAR_MACRO(JOBV), CHAR_MACRO(JOBQ), &M, &N, &P, K, L, A, &LDA, B, &LDB,
ALPHA, BETA, U, &LDU, V, &LDV, Q, &LDQ, WORK, IWORK, INFO);
}示例2: DTREVC_F77
//=============================================================================
void Epetra_LAPACK::TREVC( const char SIDE, const char HOWMNY, 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) const {
if (HOWMNY=='S') *INFO = -3; // We do not support 'S' since it requires a logical array (yuck!)
else DTREVC_F77(CHAR_MACRO(SIDE), CHAR_MACRO(HOWMNY), SELECT, &N, T, &LDT, VL, &LDVL, VR, &LDVR, &MM, M, WORK, INFO);
}示例3: DTRMM_F77
//=============================================================================
void Epetra_BLAS::TRMM(const char SIDE, const char UPLO, const char TRANSA, const char DIAG, const int M, const int N,
const double ALPHA, const double * A, const int LDA, double * B,
const int LDB) const {
DTRMM_F77(CHAR_MACRO(SIDE), CHAR_MACRO(UPLO), CHAR_MACRO(TRANSA), CHAR_MACRO(DIAG),
&M, &N, &ALPHA, A, &LDA, B, &LDB);
}示例4: SGESVD_F77
//=============================================================================
void Epetra_LAPACK::GESVD(const char JOBU, const char JOBVT, const int M, const int N, float * A,
const int LDA, float * S, float * U,
const int LDU, float * VT, const int LDVT, float * WORK,
const int * LWORK, int * INFO) const {
SGESVD_F77(CHAR_MACRO(JOBU), CHAR_MACRO(JOBVT), &M, &N, A, &LDA, S, U, &LDU,
VT, &LDVT, WORK, LWORK, INFO);
}示例5: DGESVD_F77
//=============================================================================
void Epetra_LAPACK::GESVD(const char JOBU, const char JOBVT, const int M, const int N, double * A,
const int LDA, double * S, double * U,
const int LDU, double * VT, const int LDVT, double * WORK,
const int * LWORK, int * INFO) const {
DGESVD_F77(CHAR_MACRO(JOBU), CHAR_MACRO(JOBVT), &M, &N, A, &LDA, S, U, &LDU,
VT, &LDVT, WORK, LWORK, INFO);
}示例6: SSYMM_F77
//=============================================================================
void Epetra_BLAS::SYMM(const char SIDE, const char UPLO, const int M, const int N,
const float ALPHA, const float * A, const int LDA, const float * B,
const int LDB, const float BETA, float * C, const int LDC) const {
SSYMM_F77(CHAR_MACRO(SIDE), CHAR_MACRO(UPLO), &M, &N, &ALPHA,
A, &LDA, B, &LDB, &BETA, C, &LDC);
}示例7: DSYMM_F77
//=============================================================================
void Epetra_BLAS::SYMM(const char SIDE, const char UPLO, const int M, const int N,
const double ALPHA, const double * A, const int LDA, const double * B,
const int LDB, const double BETA, double * C, const int LDC) const {
DSYMM_F77(CHAR_MACRO(SIDE), CHAR_MACRO(UPLO), &M, &N, &ALPHA,
A, &LDA, B, &LDB, &BETA, C, &LDC);
}示例8: SGEMM_F77
//=============================================================================
void Epetra_BLAS::GEMM(const char TRANSA, const char TRANSB, const int M, 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) const {
SGEMM_F77(CHAR_MACRO(TRANSA), CHAR_MACRO(TRANSB), &M, &N, &K, &ALPHA,
A, &LDA, B, &LDB, &BETA, C, &LDC);
}示例9: DGEMM_F77
//=============================================================================
void Epetra_BLAS::GEMM(const char TRANSA, const char TRANSB, const int M, 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) const {
DGEMM_F77(CHAR_MACRO(TRANSA), CHAR_MACRO(TRANSB), &M, &N, &K, &ALPHA,
A, &LDA, B, &LDB, &BETA, C, &LDC);
}示例10: SGEEVX_F77
//=============================================================================
void Epetra_LAPACK::GEEVX(const char BALANC, const char JOBVL, const char JOBVR, const char SENSE, 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) const{
SGEEVX_F77(CHAR_MACRO(BALANC), CHAR_MACRO(JOBVL), CHAR_MACRO(JOBVR), CHAR_MACRO(SENSE), &N, A, &LDA, WR, WI, VL,
&LDVL, VR, &LDVR, ILO, IHI, SCALE, ABNRM, RCONDE,
RCONDV, WORK, &LWORK, IWORK, INFO);
}示例11: SSYEVX_F77
//=============================================================================
void Epetra_LAPACK::SYEVX(const char JOBZ, const char RANGE, const char UPLO, const int N, float* A, const int LDA,
const float* VL, const float* VU, const int* IL, const int* IU,
const float ABSTOL, int * M, float* W, float* Z, const int LDZ, float* WORK,
const int LWORK, int* IWORK, int* IFAIL,
int* INFO) const {
SSYEVX_F77(CHAR_MACRO(JOBZ), CHAR_MACRO(RANGE), CHAR_MACRO(UPLO), &N, A, &LDA, VL, VU, IL, IU,
&ABSTOL, M, W, Z, &LDZ, WORK, &LWORK, IWORK, IFAIL, INFO);
}示例12: SGGEV_F77
//=============================================================================
void Epetra_LAPACK::GGEV(const char JOBVL, const char JOBVR, 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) const {
#ifdef EPETRA_LAPACK3
SGGEV_F77(CHAR_MACRO(JOBVL), CHAR_MACRO(JOBVR), &N, A, &LDA, B, &LDB, ALPHAR, ALPHAI,
BETA, VL, &LDVL, VR, &LDVR, WORK, &LWORK, INFO);
#else
Epetra_Object obj;
obj.ReportError("GGEV requires LAPACK Version 3. Compile Epetra with -DEPETRA_LAPACK3 and link with LAPACK 3 library", -1);
#endif
}示例13: SSYEVR_F77
//=============================================================================
void Epetra_LAPACK::SYEVR(const char JOBZ, const char RANGE, const char UPLO, const int N, float* A, const int LDA,
const float* VL, const float* VU, const int *IL, const int *IU,
const float ABSTOL, int* M, float* W, float* Z, const int LDZ, int* ISUPPZ, float* WORK, const int LWORK, int* IWORK,
const int LIWORK, int* INFO) const {
#ifdef EPETRA_LAPACK3
SSYEVR_F77(CHAR_MACRO(JOBZ), CHAR_MACRO(RANGE), CHAR_MACRO(UPLO), &N, A, &LDA, VL, VU, IL, IU,
&ABSTOL, M, W, Z, &LDZ, ISUPPZ, WORK, &LWORK, IWORK,
&LIWORK, INFO);
#else
Epetra_Object obj;
obj.ReportError("SYEVR requires LAPACK Version 3. Compile Epetra with -DEPETRA_LAPACK3 and link with LAPACK 3 library", -1);
#endif
}示例14: DSYGVX_F77
//=============================================================================
void Epetra_LAPACK::SYGVX(const int ITYPE, const char JOBZ, const char RANGE, const char UPLO, const int N,
double* A, const int LDA, double* B, const int LDB, const double* VL, const double* VU,
const int* IL, const int* IU, const double ABSTOL, int* M, double* W, double* Z,
const int LDZ, double* WORK, const int LWORK, int* IWORK,
int* IFAIL, int* INFO) const {
#ifdef EPETRA_LAPACK3
DSYGVX_F77(&ITYPE, CHAR_MACRO(JOBZ), CHAR_MACRO(RANGE), CHAR_MACRO(UPLO), &N, A, &LDA, B, &LDB, VL, VU,
IL, IU, &ABSTOL, M, W, Z, &LDZ, WORK, &LWORK, IWORK,
IFAIL, INFO);
#else
Epetra_Object obj;
obj.ReportError("SYGVX requires LAPACK Version 3. Compile Epetra with -DEPETRA_LAPACK3 and link with LAPACK 3 library", -1);
#endif
}示例15: SGESDD_F77
//=============================================================================
void Epetra_LAPACK::GESDD(const char JOBZ, const int M, const int N, float* A, const int LDA, float* S,
float* U, const int LDU, float* VT, const int LDVT, float* WORK,
const int LWORK, int* IWORK, int* INFO) const{
#ifdef EPETRA_LAPACK3
SGESDD_F77(CHAR_MACRO(JOBZ), &M, &N, A, &LDA, S, U, &LDU, VT, &LDVT, WORK,
&LWORK, IWORK, INFO);
#else
Epetra_Object obj;
obj.ReportError("GESDD requires LAPACK Version 3. Compile Epetra with -DEPETRA_LAPACK3 and link with LAPACK 3 library", -1);
#endif
}