100 int NB, IB, IBNB, MT, NT;
108 if (plasma == NULL) {
114 plasma_error(
"PLASMA_zgels",
"only PlasmaNoTrans supported");
129 if (LDA <
max(1, M)) {
133 if (LDB <
max(1,
max(M, N))) {
138 if (
min(M,
min(N, NRHS)) == 0) {
139 for (i = 0; i <
max(M, N); i++)
140 for (j = 0; j < NRHS; j++)
156 NT = (N%NB==0) ? (N/NB) : (N/NB+1);
157 MT = (M%NB==0) ? (M/NB) : (M/NB+1);
165 MT*IB, NT*NB, 0, 0, MT*IB, NT*NB);
172 MT*IB, 2*NT*NB, 0, 0, MT*IB, 2*NT*NB);
178 plasma_zooplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N ,
plasma_desc_mat_free(&(descA)) );
179 plasma_zooplap2tile( descB, B, NB, NB, LDB, NRHS, 0, 0, M, NRHS,
plasma_desc_mat_free(&(descA));
plasma_desc_mat_free(&(descB)));
186 plasma_zooplap2tile( descA, A, NB, NB, LDA, N, 0, 0, M, N ,
plasma_desc_mat_free(&(descA)) );
187 plasma_zooplap2tile( descB, B, NB, NB, LDB, NRHS, 0, 0, N, NRHS,
plasma_desc_mat_free(&(descA));
plasma_desc_mat_free(&(descB)));
209 status = sequence->
status;
276 if (plasma == NULL) {
283 status = sequence->
status;
326 if (plasma == NULL) {
330 if (sequence == NULL) {
334 if (request == NULL) {
346 plasma_error(
"PLASMA_zgels_Tile",
"invalid first descriptor");
350 plasma_error(
"PLASMA_zgels_Tile",
"invalid second descriptor");
354 plasma_error(
"PLASMA_zgels_Tile",
"invalid third descriptor");
358 if (descA.
nb != descA.
mb || descB.
nb != descB.
mb) {
359 plasma_error(
"PLASMA_zgels_Tile",
"only square tiles supported");
363 plasma_error(
"PLASMA_zgels_Tile",
"only PlasmaNoTrans supported");
374 if (descA.
m >= descA.
n) {