115 if (plasma == NULL) {
116 plasma_error(
"PLASMA_zhetrd",
"PLASMA not initialized");
130 NT = (N%NB==0) ? (N/NB) : (N/NB+1);
145 if (LDA <
max(1, N)) {
150 ( descT->
m != NT*IB ) || (descT->
n != NT*NB) ) {
154 if (LDQ <
max(1, N)) {
163 plasma_error(
"PLASMA_zhetrd",
"computing the eigenvectors is not supported in this version");
170 plasma_zooplap2tile( descA, A, NB, NB, LDA, N, 0, 0, N, N ,
plasma_desc_mat_free(&(descA)) );
172 plasma_zooplap2tile( descQ, Q, NB, NB, LDQ, N, 0, 0, N, N ,
plasma_desc_mat_free(&(descQ)) );
199 status = sequence->
status;
288 if (plasma == NULL) {
295 status = sequence->
status;
345 if (plasma == NULL) {
349 if (sequence == NULL) {
353 if (request == NULL) {
365 plasma_error(
"PLASMA_zhetrd_Tile_Async",
"invalid descriptor");
369 plasma_error(
"PLASMA_zhetrd_Tile_Async",
"invalid descriptor");
373 plasma_error(
"PLASMA_zhetrd_Tile_Async",
"invalid descriptor");
379 plasma_error(
"PLASMA_zhetrd_Tile_Async",
"illegal value of jobz");
382 if (descA.
m != descA.
n) {
383 plasma_error(
"PLASMA_zhetrd_Tile_Async",
"matrix need to be square");
386 if (descA.
nb != descA.
mb) {
387 plasma_error(
"PLASMA_zhetrd_Tile_Async",
"only square tiles supported");
391 plasma_error(
"PLASMA_zhetrd_Tile_Async",
"computing the eigenvectors is not supported in this version");
395 plasma_error(
"PLASMA_zhetrd_Tile_Async",
"only square tiles supported");