Exemplo n.º 1
0
Arquivo: P.c Projeto: nashp/HiPLARb
int P_dpotrs(
const char *uplo,
int N,
int NRHS,
double *A,
int LDA,
double *B,
int LDB
) {
	PLASMA_enum uo;

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

    return PLASMA_dpotrs(uo, N, NRHS, A, LDA, B, LDB);
}
Exemplo n.º 2
0
void PLASMA_DPOTRS(PLASMA_enum *uplo, int *N, int *NRHS, double *A, int *LDA, double *B, int* LDB, int * INFO)
{   *INFO = PLASMA_dpotrs(*uplo, *N, *NRHS, A, *LDA, B, *LDB); }