125 if (LDA <
max(1, Am)) {
129 if (LDC <
max(1, N)) {
136 ((alpha == (
double)0.0 || K == 0.0) && beta == (
double)1.0))
152 plasma_zooplap2tile( descA, A, NB, NB, LDA, An, 0, 0, Am, An,
plasma_desc_mat_free(&(descA)) );
153 plasma_zooplap2tile( descC, C, NB, NB, LDC, N, 0, 0, N, N,
plasma_desc_mat_free(&(descA));
plasma_desc_mat_free(&(descC)));
173 status = sequence->
status;
237 if (plasma == NULL) {
244 status = sequence->
status;
288 if (plasma == NULL) {
292 if (sequence == NULL) {
296 if (request == NULL) {
308 plasma_error(
"PLASMA_zherk_Tile_Async",
"invalid first descriptor");
312 plasma_error(
"PLASMA_zherk_Tile_Async",
"invalid third descriptor");
321 plasma_error(
"PLASMA_zherk",
"illegal value of transA");
335 if (descC.
mb != descC.
nb) {
336 plasma_error(
"PLASMA_zherk_Tile_Async",
"only square tiles are supported");
339 if (Amb != descC.
mb) {
340 plasma_error(
"PLASMA_zherk_Tile_Async",
"tile sizes have to match");
343 if (descC.
m != descC.
n) {
344 plasma_error(
"PLASMA_zherk_Tile_Async",
"only square matrix C is supported");
348 plasma_error(
"PLASMA_zherk_Tile_Async",
"sizes of matrices have to match");
357 ((alpha == (
double)0.0 || K == 0) && beta == (
double)1.0))