예제 #1
0
파일: P.c 프로젝트: nashp/HiPLARb
int P_dgemm(
const char *transA,
const char *transB,
int M,
int N,
int K,
double alpha,
double *A,
int LDA,
double *B,
int LDB,
double beta,
double *C,
int LDC
) {
	PLASMA_enum t1, t2;
	int info;

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

	if (*transB == 'T') {
		t2 = PlasmaTrans;
	} else {
		t2 = PlasmaNoTrans;
	}

	info = PLASMA_dgemm(t1, t2, M, N, K, alpha, A, LDA, B, LDB, beta, C, LDC);

	return(info);
}
예제 #2
0
void PLASMA_DGEMM(PLASMA_enum *transA, PLASMA_enum *transB, int *M, int *N, int *K, double *alpha, double *A, int *LDA, double *B, int *LDB, double *beta, double *C, int *LDC, int *INFO)
{   *INFO = PLASMA_dgemm(*transA, *transB, *M, *N, *K, *alpha, A, *LDA, B, *LDB, *beta, C, *LDC); }