From 7af8b21dbbb523b0e9ab6caff271cb63affaa5f2 Mon Sep 17 00:00:00 2001
From: Andrew <16061801+brada4@users.noreply.github.com>
Date: Wed, 16 Jan 2019 11:34:46 +0200
Subject: [PATCH] disable NaN checks before BLAS calls dsolve.R (shorter
 formula)

---
 benchmark/scripts/R/dsolve.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/benchmark/scripts/R/dsolve.R b/benchmark/scripts/R/dsolve.R
index ad2045900..46301570b 100755
--- a/benchmark/scripts/R/dsolve.R
+++ b/benchmark/scripts/R/dsolve.R
@@ -40,7 +40,7 @@ while (n <= nto) {
     solve(A, B)
   })
 
-  mflops <- (2.0/3 * n * n * n + 2 * n * n * n) * loops/ (z[3] * 1e+06)
+  mflops <- (8.0 / 3 * n * n * n) * loops / (z[3] * 1e+06)
 
   st <- sprintf("%.0fx%.0f :", n, n)
   cat(sprintf("%20s %10.2f MFlops %10.6f sec\n", st, mflops, z[3]))