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); }
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); }