Ejemplo n.º 1
0
Archivo: P.c Proyecto: nashp/HiPLARb
int P_zheev(
const char *jobz,
const char *uplo,
int N,
void *A,
int LDA,
double *W,
void *Q,
int LDQ
) {
	PLASMA_enum jz, uo;
	PLASMA_desc *descT;
	int info;

	jz = PlasmaNoVec;
	if (*jobz != 'N') {
		jz = PlasmaVec;
	}

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

	PLASMA_Alloc_Workspace_zheev(N, N, &descT);

	info = PLASMA_zheev(jz, uo, N, A, LDA, W, descT, Q, LDQ);

	PLASMA_Dealloc_Handle_Tile(&descT);

	return info;
}
Ejemplo n.º 2
0
void PLASMA_ALLOC_WORKSPACE_ZHEEV(int *M, int *N, intptr_t **T, int *INFO)
{   *INFO = PLASMA_Alloc_Workspace_zheev(*M, *N, (PLASMA_desc **)T); }