102 if (plasma == NULL) {
116 plasma_error(
"PLASMA_ztrsm",
"illegal value of transA");
131 if (LDA <
max(1, N)) {
135 if (LDB <
max(1, N)) {
140 if (
min(N, NRHS) == 0)
161 plasma_zooplap2tile( descA, A, NB, NB, LDA, NA, 0, 0, NA, NA,
plasma_desc_mat_free(&(descA)) );
162 plasma_zooplap2tile( descB, B, NB, NB, LDB, NRHS, 0, 0, N, NRHS,
plasma_desc_mat_free(&(descA));
plasma_desc_mat_free(&(descB)));
170 side, uplo, transA, diag, alpha, &descA, &descB, sequence, &request);
183 status = sequence->
status;
259 if (plasma == NULL) {
266 status = sequence->
status;
308 if (plasma == NULL) {
312 if (sequence == NULL) {
316 if (request == NULL) {
328 plasma_error(
"PLASMA_ztrsm_Tile",
"invalid first descriptor");
332 plasma_error(
"PLASMA_ztrsm_Tile",
"invalid second descriptor");
336 if (descA.
nb != descA.
mb || descB.
nb != descB.
mb) {
337 plasma_error(
"PLASMA_ztrsm_Tile",
"only square tiles supported");
341 plasma_error(
"PLASMA_ztrsm_Tile",
"illegal value of side");
345 plasma_error(
"PLASMA_ztrsm_Tile",
"illegal value of uplo");
349 plasma_error(
"PLASMA_ztrsm_Tile",
"illegal value of transA");
353 plasma_error(
"PLASMA_ztrsm_Tile",
"illegal value of diag");