Ejemplo n.º 1
0
Archivo: P.c Proyecto: nashp/HiPLARb
int P_dgetrs(
const char *trans,
int N,
int NRHS,
double *A,
int LDA,
int *IPIV,
double *B,
int LDB
) {
	PLASMA_enum t;

	if (*trans == 'T') {
		t = PlasmaTrans;
	} else {
		t = PlasmaNoTrans;
	}

    return PLASMA_dgetrs(t, N, NRHS, A, LDA, IPIV, B, LDB);

}
Ejemplo n.º 2
0
void PLASMA_DGETRS(PLASMA_enum *trans, int *N, int *NRHS, double *A, int *LDA, int *IPIV, double *B, int *LDB, int *INFO)
{   *INFO = PLASMA_dgetrs(*trans, *N, *NRHS, A, *LDA, IPIV, B, *LDB); }