96 if (LDA <
max(1, N)) {
100 if (LDB <
max(1, N)) {
105 if (
min(N, NRHS) == 0)
121 plasma_zooplap2tile( descA, A, NB, NB, LDA, N, 0, 0, N, N ,
plasma_desc_mat_free(&(descA)) );
122 plasma_zooplap2tile( descB, B, NB, NB, LDB, NRHS, 0, 0, N, NRHS,
plasma_desc_mat_free(&(descA));
plasma_desc_mat_free(&(descB)));
142 status = sequence->
status;
195 if (plasma == NULL) {
202 status = sequence->
status;
244 if (plasma == NULL) {
248 if (sequence == NULL) {
252 if (request == NULL) {
264 plasma_error(
"PLASMA_zpotrs_Tile",
"invalid first descriptor");
268 plasma_error(
"PLASMA_zpotrs_Tile",
"invalid second descriptor");
272 if (descA.
nb != descA.
mb || descB.
nb != descB.
mb) {
273 plasma_error(
"PLASMA_zpotrs_Tile",
"only square tiles supported");
277 plasma_error(
"PLASMA_zpotrs_Tile",
"illegal value of uplo");