From 59fca58dbe678d79c1df0916b022afbeac7c48fa Mon Sep 17 00:00:00 2001 From: "Field G. Van Zee" Date: Fri, 19 Apr 2013 15:26:29 -0500 Subject: [PATCH] Fixed bug in compatibility layer (her2k/syr2k). Details: - Fixed a bug in the BLAS compatibility layer, specifically in bla_her2k.c and bla_syr2k.c, that caused incorrect computation to occur when the BLAS interface caller requests the [conjugate-]transpose case. Thanks to Bryan Marker for reporting the behavior that led to this bug. --- frame/compat/bla_her2k.c | 2 +- frame/compat/bla_syr2k.c | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/frame/compat/bla_her2k.c b/frame/compat/bla_her2k.c index 1baffc1e1..fa771b8a3 100644 --- a/frame/compat/bla_her2k.c +++ b/frame/compat/bla_her2k.c @@ -79,7 +79,7 @@ void PASTEF77(ch,blasname)( \ /* Call BLIS interface. */ \ PASTEMAC(ch,blisname)( blis_uploc, \ blis_transa, \ - BLIS_NO_TRANSPOSE, \ + blis_transa, \ m0, \ k0, \ alpha, \ diff --git a/frame/compat/bla_syr2k.c b/frame/compat/bla_syr2k.c index e1d75a6a0..46211885f 100644 --- a/frame/compat/bla_syr2k.c +++ b/frame/compat/bla_syr2k.c @@ -79,7 +79,7 @@ void PASTEF77(ch,blasname)( \ /* Call BLIS interface. */ \ PASTEMAC(ch,blisname)( blis_uploc, \ blis_transa, \ - BLIS_NO_TRANSPOSE, \ + blis_transa, \ m0, \ k0, \ alpha, \