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