72 int NB, IB, IBNB, MT, NT;
97 if (LDA <
max(1, M)) {
101 if (LDB <
max(1,
max(1, M))) {
106 if (
min(M,
min(N, NRHS)) == 0) {
121 MT = (M%NB==0) ? (M/NB) : (M/NB+1);
122 NT = (N%NB==0) ? (N/NB) : (N/NB+1);
130 MT*IB, NT*NB, 0, 0, MT*IB, NT*NB);
137 MT*IB, 2*NT*NB, 0, 0, MT*IB, 2*NT*NB);
142 plasma_zooplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N ,
plasma_desc_mat_free(&(descA)) );
143 plasma_zooplap2tile( descB, B, NB, NB, LDB, NRHS, 0, 0, M, NRHS,
plasma_desc_mat_free(&(descA));
plasma_desc_mat_free(&(descB)));
164 status = sequence->
status;
214 if (plasma == NULL) {
221 status = sequence->
status;
264 if (plasma == NULL) {
268 if (sequence == NULL) {
272 if (request == NULL) {
284 plasma_error(
"PLASMA_zgeqrs_Tile",
"invalid first descriptor");
288 plasma_error(
"PLASMA_zgeqrs_Tile",
"invalid second descriptor");
292 plasma_error(
"PLASMA_zgeqrs_Tile",
"invalid third descriptor");
296 if (descA.
nb != descA.
mb || descB.
nb != descB.
mb) {
297 plasma_error(
"PLASMA_zgeqrs_Tile",
"only square tiles supported");