Browse Source

Transform the B array back if necessary before returning

tags/v0.3.30
Martin Kroeker GitHub 7 months ago
parent
commit
75b958a018
No known key found for this signature in database GPG Key ID: B5690EEEBB952194
1 changed files with 14 additions and 0 deletions
  1. +14
    -0
      interface/gemmt.c

+ 14
- 0
interface/gemmt.c View File

@@ -688,5 +688,19 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo,

IDEBUG_END;

/* transform B back if necessary */
#if defined(COMPLEX)
if (transb > 1){
#ifndef CBLAS
IMATCOPY_K_CNC(nrowb, ncolb, (FLOAT)(1.0), (FLOAT)(0.0), b, ldb);
#else
if (order == CblasColMajor)
IMATCOPY_K_CNC(nrowb, ncolb, (FLOAT)(1.0), (FLOAT)(0.0), b, ldb);
if (order == CblasRowMajor)
IMATCOPY_K_RNC(nrowb, ncolb, (FLOAT)(1.0), (FLOAT)(0.0), b, ldb);
#endif
}
#endif

return;
}

Loading…
Cancel
Save