Ejemplo n.º 1
0
Archivo: P.c Proyecto: nashp/HiPLARb
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);
}
Ejemplo n.º 2
0
void PLASMA_DPOTRF(PLASMA_enum *uplo, int *N, double *A, int *LDA, int *INFO)
{   *INFO = PLASMA_dpotrf(*uplo, *N, A, *LDA); }