C++ (Cpp) PLASMA_dtrsm Examples

Example #1

File: P.c Project: nashp/HiPLARb

int P_dtrsm(
const char *side,
const char *uplo,
const char *transA,
const char *diag,
int N,
int NRHS,
double alpha,
double *A,
int LDA,
double *B,
int LDB
) {
	PLASMA_enum s, uo, t, d;
	int info;

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

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

	if (*transA == 'T') {
		t = PlasmaTrans;
	} else {
		t = PlasmaNoTrans;
	}

	if (*diag == 'U') {
		d = PlasmaUnit;
	} else {
		d = PlasmaNonUnit;
	}

	info = PLASMA_dtrsm(s, uo, t, d, N, NRHS, alpha, A, LDA, B, LDB);

	return(info);
}

Example #2

File: plasma_df77.c Project: joao-lima/plasma-kaapi

void PLASMA_DTRSM(PLASMA_enum *side, PLASMA_enum *uplo, PLASMA_enum *transA, PLASMA_enum *diag, int *N, int *NRHS, double *alpha, double *A, int *LDA, double *B, int *LDB, int *INFO)
{   *INFO = PLASMA_dtrsm(*side, *uplo, *transA, *diag, *N, *NRHS, *alpha, A, *LDA, B, *LDB); }