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;