65 int NB, IB, IBNB, MT, NT;
86 if (LDA <
max(1, M)) {
105 MT = (M%NB==0) ? (M/NB) : (M/NB+1);
106 NT = (N%NB==0) ? (N/NB) : (N/NB+1);
114 MT*IB, NT*NB, 0, 0, MT*IB, NT*NB);
121 MT*IB, 2*NT*NB, 0, 0, MT*IB, 2*NT*NB);
126 plasma_zooplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N,
plasma_desc_mat_free(&(descA)) );
143 status = sequence->
status;
194 if (plasma == NULL) {
201 status = sequence->
status;
242 if (plasma == NULL) {
243 plasma_error(
"PLASMA_zgeqrf_Tile",
"PLASMA not initialized");
246 if (sequence == NULL) {
250 if (request == NULL) {
262 plasma_error(
"PLASMA_zgeqrf_Tile",
"invalid first descriptor");
266 plasma_error(
"PLASMA_zgeqrf_Tile",
"invalid second descriptor");
270 if (descA.
nb != descA.
mb) {
271 plasma_error(
"PLASMA_zgeqrf_Tile",
"only square tiles supported");