143 if (plasma == NULL) {
158 NT = (N%NB==0) ? (N/NB) : (N/NB+1);
161 if (itype != 1 && itype != 2 && itype != 3) {
170 plasma_error(
"PLASMA_zhegv",
"only PlasmaLower supported");
177 if (LDA <
max(1, N)) {
181 if (LDB <
max(1, N)) {
186 ( descT->
m != NT*IB ) || (descT->
n != NT*NB) ) {
190 if (LDQ <
max(1, N)) {
200 plasma_error(
"PLASMA_zhegv",
"computing the eigenvectors is not supported in this version");
207 plasma_zooplap2tile( descA, A, NB, NB, LDA, N, 0, 0, N, N,
209 plasma_zooplap2tile( descB, B, NB, NB, LDB, N, 0, 0, N, N,
253 status = sequence->
status;
379 if (plasma == NULL) {
386 status = sequence->
status;
440 if (plasma == NULL) {
444 if (sequence == NULL) {
448 if (request == NULL) {
460 plasma_error(
"PLASMA_zhegv_Tile_Async",
"invalid first descriptor");
464 plasma_error(
"PLASMA_zhegv_Tile_Async",
"invalid second descriptor");
468 plasma_error(
"PLASMA_zhegv_Tile_Async",
"invalid descriptor");
473 plasma_error(
"PLASMA_zhegv_Tile_Async",
"invalid descriptor");
478 if (itype != 1 && itype != 2 && itype != 3) {
479 plasma_error(
"PLASMA_zhegv_Tile_Async",
"Illegal value of itype");
483 plasma_error(
"PLASMA_zhegv_Tile_Async",
"illegal value of jobz");
487 plasma_error(
"PLASMA_zheev_Tile_Async",
"illegal value of uplo");
490 if (descA.
nb != descA.
mb) {
491 plasma_error(
"PLASMA_zhegv_Tile_Async",
"only square tiles supported");
495 plasma_error(
"PLASMA_zhegv_Tile_Async",
"computing the eigenvectors is not supported in this version");
499 plasma_error(
"PLASMA_zhegv_Tile_Async",
"only square tiles supported");
513 status = sequence->
status;
515 status = descA.
ln + status;
594 status = LAPACKE_dsterf(descA.
n, W, E);
596 status = LAPACKE_dsterf(descA.
n, W, E);