bugfix for GEMM3M functions

diff --git a/param.h b/param.h
index 4adb0a1..3e20f58 100644 (file)
--- a/param.h
+++ b/param.h
@@ -1168,10 +1168,10 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 #define ZGEMM_DEFAULT_Q 192
 #define XGEMM_DEFAULT_Q 128
 
-#define CGEMM3M_DEFAULT_UNROLL_N 4
-#define CGEMM3M_DEFAULT_UNROLL_M 8
-#define ZGEMM3M_DEFAULT_UNROLL_N 2
-#define ZGEMM3M_DEFAULT_UNROLL_M 8
+#define CGEMM3M_DEFAULT_UNROLL_N 8
+#define CGEMM3M_DEFAULT_UNROLL_M 4
+#define ZGEMM3M_DEFAULT_UNROLL_N 8
+#define ZGEMM3M_DEFAULT_UNROLL_M 2
 
 #define CGEMM3M_DEFAULT_P 448
 #define ZGEMM3M_DEFAULT_P 224
@@ -1287,11 +1287,10 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 #define XGEMM_DEFAULT_R xgemm_r
 #define XGEMM_DEFAULT_Q 128
 
-#define CGEMM3M_DEFAULT_UNROLL_N 4
-#define CGEMM3M_DEFAULT_UNROLL_M 8
-#define ZGEMM3M_DEFAULT_UNROLL_N 2
-#define ZGEMM3M_DEFAULT_UNROLL_M 8
-
+#define CGEMM3M_DEFAULT_UNROLL_N 8
+#define CGEMM3M_DEFAULT_UNROLL_M 4
+#define ZGEMM3M_DEFAULT_UNROLL_N 8
+#define ZGEMM3M_DEFAULT_UNROLL_M 2
 
 #define CGEMM3M_DEFAULT_P 448
 #define ZGEMM3M_DEFAULT_P 224

diff --git a/test/zblat3_3m.dat b/test/zblat3_3m.dat
index 9c84121..f48cc19 100644 (file)
--- a/test/zblat3_3m.dat
+++ b/test/zblat3_3m.dat
@@ -13,8 +13,8 @@ F        LOGICAL FLAG, T TO TEST ERROR EXITS.
 3                 NUMBER OF VALUES OF BETA
 (0.0,0.0) (1.0,0.0) (1.3,-1.1)       VALUES OF BETA
 ZGEMM3M T PUT F FOR NO TEST. SAME COLUMNS.
-ZHEMM   T PUT F FOR NO TEST. SAME COLUMNS.
-ZSYMM   T PUT F FOR NO TEST. SAME COLUMNS.
+ZHEMM   F PUT F FOR NO TEST. SAME COLUMNS.
+ZSYMM   F PUT F FOR NO TEST. SAME COLUMNS.
 ZTRMM   F PUT F FOR NO TEST. SAME COLUMNS.
 ZTRSM   F PUT F FOR NO TEST. SAME COLUMNS.
 ZHERK   F PUT F FOR NO TEST. SAME COLUMNS.