Exemplo n.º 1
0
Arquivo: P.c Projeto: nashp/HiPLARb
int P_dsymm(
const char *side,
const char *uplo,
int M,
int N,
double alpha,
double *A,
int LDA,
double *B,
int LDB,
double beta,
double *C,
int LDC
) {
	PLASMA_enum s, uo;

	if (*side == 'L') {
		s = PlasmaLeft;
	} else {
		s = PlasmaRight;
	}

	if (*uplo == 'U') {
		uo = PlasmaUpper;
	} else {
		uo = PlasmaLower;
	}

    return PLASMA_dsymm(s, uo, M, N, alpha, A, LDA, B, LDB, beta, C, LDC);

}
Exemplo n.º 2
0
void PLASMA_DSYMM(PLASMA_enum *side, PLASMA_enum *uplo, int *M, int *N, double *alpha, double *A, int *LDA, double *B, int *LDB, double *beta, double *C, int *LDC, int *INFO)
{   *INFO = PLASMA_dsymm(*side, *uplo, *M, *N, *alpha, A, *LDA, B, *LDB, *beta, C, *LDC); }