73 int NB, IB, IBNB, MT, KT;
97 if (LDA <
max(1, M)) {
101 if (LDQ <
max(1, M)) {
105 if (
min(M,
min(N, K)) == 0)
119 MT = (M%NB==0) ? (M/NB) : (M/NB+1);
120 KT = (K%NB==0) ? (K/NB) : (K/NB+1);
128 MT*IB, KT*NB, 0, 0, MT*IB, KT*NB);
135 MT*IB, 2*KT*NB, 0, 0, MT*IB, 2*KT*NB);
140 plasma_zooplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, K,
plasma_desc_mat_free(&(descA)) );
141 plasma_zooplap2tile( descQ, Q, NB, NB, LDQ, N, 0, 0, M, N,
plasma_desc_mat_free(&(descA));
plasma_desc_mat_free(&(descQ)));
161 status = sequence->
status;
208 if (plasma == NULL) {
215 status = sequence->
status;
256 if (plasma == NULL) {
260 if (sequence == NULL) {
264 if (request == NULL) {
276 plasma_error(
"PLASMA_zungqr_Tile",
"invalid first descriptor");
280 plasma_error(
"PLASMA_zungqr_Tile",
"invalid second descriptor");
284 plasma_error(
"PLASMA_zungqr_Tile",
"invalid third descriptor");
288 if (descA.
nb != descA.
mb || descQ.
nb != descQ.
mb) {
289 plasma_error(
"PLASMA_zungqr_Tile",
"only square tiles supported");