110 if (plasma == NULL) {
117 plasma_error(
"PLASMA_zgemm",
"illegal value of transA");
121 plasma_error(
"PLASMA_zgemm",
"illegal value of transB");
146 if (LDA <
max(1, Am)) {
150 if (LDB <
max(1, Bm)) {
154 if (LDC <
max(1, M)) {
160 if (M == 0 || N == 0 ||
177 plasma_zooplap2tile( descA, A, NB, NB, LDA, An, 0, 0, Am, An,
plasma_desc_mat_free(&(descA)) );
178 plasma_zooplap2tile( descB, B, NB, NB, LDB, Bn, 0, 0, Bm, Bn,
plasma_desc_mat_free(&(descA));
plasma_desc_mat_free(&(descB)));
179 plasma_zooplap2tile( descC, C, NB, NB, LDC, N, 0, 0, M, N,
plasma_desc_mat_free(&(descA));
plasma_desc_mat_free(&(descB));
plasma_desc_mat_free(&(descC)));
188 transA, transB, alpha, &descA, &descB, beta, &descC, sequence, &request);
203 status = sequence->
status;
274 if (plasma == NULL) {
281 status = sequence->
status;
323 int Am, An, Ai, Aj, Amb, Anb;
324 int Bm, Bn, Bi, Bj, Bmb, Bnb;
327 if (plasma == NULL) {
331 if (sequence == NULL) {
335 if (request == NULL) {
347 plasma_error(
"PLASMA_zgemm_Tile_Async",
"invalid first descriptor");
351 plasma_error(
"PLASMA_zgemm_Tile_Async",
"invalid second descriptor");
355 plasma_error(
"PLASMA_zgemm_Tile_Async",
"invalid third descriptor");
360 plasma_error(
"PLASMA_zgemm_Tile_Async",
"illegal value of transA");
364 plasma_error(
"PLASMA_zgemm_Tile_Async",
"illegal value of transB");
400 if ( (Amb != descC.
mb) || (Anb != Bmb) || (Bnb != descC.
nb) ) {
401 plasma_error(
"PLASMA_zgemm_Tile_Async",
"tile sizes have to match");
404 if ( (Am != descC.
m) || (An != Bm) || (Bn != descC.
n) ) {
405 plasma_error(
"PLASMA_zgemm_Tile_Async",
"sizes of matrices have to match");
408 if ( (Ai != descC.
i) || (Aj != Bi) || (Bj != descC.
j) ) {
409 plasma_error(
"PLASMA_zgemm_Tile_Async",
"start indexes have to match");
418 if (M == 0 || N == 0 ||