69 int NB, IB, IBNB, MT, NT;
83 plasma_error(
"PLASMA_zgetrf_incpiv",
"illegal value of M");
87 plasma_error(
"PLASMA_zgetrf_incpiv",
"illegal value of N");
90 if (LDA <
max(1, M)) {
91 plasma_error(
"PLASMA_zgetrf_incpiv",
"illegal value of LDA");
101 plasma_error(
"PLASMA_zgetrf_incpiv",
"plasma_tune() failed");
109 MT = (M%NB==0) ? (M/NB) : (M/NB+1);
110 NT = (N%NB==0) ? (N/NB) : (N/NB+1);
117 MT*IB, NT*NB, 0, 0, MT*IB, NT*NB);
121 plasma_zooplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N,
plasma_desc_mat_free(&(descA)) );
138 status = sequence->
status;
192 if (plasma == NULL) {
199 status = sequence->
status;
240 if (plasma == NULL) {
244 if (sequence == NULL) {
248 if (request == NULL) {
260 plasma_error(
"PLASMA_zgetrf_incpiv_Tile",
"invalid first descriptor");
264 plasma_error(
"PLASMA_zgetrf_incpiv_Tile",
"invalid second descriptor");
268 if (descA.
nb != descA.
mb) {
269 plasma_error(
"PLASMA_zgetrf_incpiv_Tile",
"only square tiles supported");