From 320c80590535e1448b9de70d24212fe1b6c0aad5 Mon Sep 17 00:00:00 2001
From: wernsaar <wernsaar@googlemail.com>
Date: Thu, 8 May 2014 11:06:32 +0200
Subject: [PATCH] fixed incorrect parameter 2 errors

---
 interface/syr2k.c | 15 ++++++++++++---
 interface/syrk.c  | 15 ++++++++++++---
 2 files changed, 24 insertions(+), 6 deletions(-)

diff --git a/interface/syr2k.c b/interface/syr2k.c
index 01fbe648f..381e088a6 100644
--- a/interface/syr2k.c
+++ b/interface/syr2k.c
@@ -145,12 +145,21 @@ void NAME(char *UPLO, char *TRANS,
   if (uplo_arg  == 'U') uplo  = 0;
   if (uplo_arg  == 'L') uplo  = 1;
 
+#ifndef COMPLEX
   if (trans_arg == 'N') trans = 0;
-#ifndef HEMM
   if (trans_arg == 'T') trans = 1;
-  if (trans_arg == 'R') trans = 0;
-#endif
   if (trans_arg == 'C') trans = 1;
+#else
+#ifdef HEMM 
+  if (trans_arg == 'N') trans = 0;
+  if (trans_arg == 'C') trans = 1;
+#else
+  if (trans_arg == 'N') trans = 0;
+  if (trans_arg == 'T') trans = 1;
+#endif
+
+#endif
+
   
   nrowa = args.n;
   if (trans & 1) nrowa = args.k;
diff --git a/interface/syrk.c b/interface/syrk.c
index b85e2c880..072cc86f5 100644
--- a/interface/syrk.c
+++ b/interface/syrk.c
@@ -148,12 +148,21 @@ void NAME(char *UPLO, char *TRANS,
   if (uplo_arg  == 'U') uplo  = 0;
   if (uplo_arg  == 'L') uplo  = 1;
 
+
+#ifndef COMPLEX
   if (trans_arg == 'N') trans = 0;
-#ifndef HEMM
   if (trans_arg == 'T') trans = 1;
-  if (trans_arg == 'R') trans = 0;
-#endif
   if (trans_arg == 'C') trans = 1;
+#else
+#ifdef HEMM 
+  if (trans_arg == 'N') trans = 0;
+  if (trans_arg == 'C') trans = 1;
+#else
+  if (trans_arg == 'N') trans = 0;
+  if (trans_arg == 'T') trans = 1;
+#endif
+
+#endif
   
   nrowa = args.n;
   if (trans & 1) nrowa = args.k;