int P_dpotrf( const char *uplo, int N, double *A, int LDA ) { int info; PLASMA_enum uo; if (*uplo == 'U') { uo = PlasmaUpper; } else { uo = PlasmaLower; } info = PLASMA_dpotrf(uo, N, A, LDA); return(info); }
void PLASMA_DPOTRF(PLASMA_enum *uplo, int *N, double *A, int *LDA, int *INFO) { *INFO = PLASMA_dpotrf(*uplo, *N, A, *LDA); }