93 if (LDA <
max(1, N)) {
97 if (LDB <
max(1, N)) {
102 if (
min(N, NRHS) == 0)
116 NT = (N%NB==0) ? (N/NB) : (N/NB+1);
123 NT*IB, NT*NB, 0, 0, NT*IB, NT*NB);
127 plasma_zooplap2tile( descA, A, NB, NB, LDA, N, 0, 0, N, N ,
plasma_desc_mat_free(&(descA)) );
128 plasma_zooplap2tile( descB, B, NB, NB, LDB, NRHS, 0, 0, N, NRHS,
plasma_desc_mat_free(&(descA));
plasma_desc_mat_free(&(descB)));
148 status = sequence->
status;
199 if (plasma == NULL) {
206 status = sequence->
status;
249 if (plasma == NULL) {
253 if (sequence == NULL) {
257 if (request == NULL) {
269 plasma_error(
"PLASMA_ztrsmpl_Tile",
"invalid first descriptor");
273 plasma_error(
"PLASMA_ztrsmpl_Tile",
"invalid second descriptor");
277 plasma_error(
"PLASMA_ztrsmpl_Tile",
"invalid third descriptor");
281 if (descA.
nb != descA.
mb || descB.
nb != descB.
mb) {
282 plasma_error(
"PLASMA_ztrsmpl_Tile",
"only square tiles supported");