bugfix
authorGuillaume Horel <guillaume.horel@gmail.com>
Sun, 8 Sep 2019 02:06:27 +0000 (22:06 -0400)
committerGuillaume Horel <guillaume.horel@gmail.com>
Sun, 8 Sep 2019 15:14:49 +0000 (11:14 -0400)
interface/lapack/ztrtrs.c

index 4cd4230..0536fc5 100644 (file)
@@ -150,11 +150,11 @@ int NAME(char *UPLO, char* TRANS, char* DIAG, blasint *N, blasint *NRHS, FLOAT *
   if (args.nthreads == 1) {
 #endif
 
-      (trtrs_single[(uplo << 2) | (trans << 1) | diag])(&args, NULL, NULL, sa, sb, 0);
+      (trtrs_single[(uplo << 3) | (trans << 1) | diag])(&args, NULL, NULL, sa, sb, 0);
 
 #ifdef SMP
   } else {
-    (trtrs_parallel[(uplo << 2) | (trans << 1) | diag])(&args, NULL, NULL, sa, sb, 0);
+    (trtrs_parallel[(uplo << 3) | (trans << 1) | diag])(&args, NULL, NULL, sa, sb, 0);
   }
 #endif