From 8e5ef9ac0da5ebadccdc8c0396f3f43294efb928 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Atgeirr=20Fl=C3=B8=20Rasmussen?= <atgeirr@sintef.no>
Date: Mon, 27 Aug 2012 11:19:22 +0200
Subject: [PATCH] Fixed bug in matrix multiplication (matrix has Fortran
 element order).

---
 opm/core/utility/miscUtilitiesBlackoil.cpp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/opm/core/utility/miscUtilitiesBlackoil.cpp b/opm/core/utility/miscUtilitiesBlackoil.cpp
index 548aaa23..74eb1c9c 100644
--- a/opm/core/utility/miscUtilitiesBlackoil.cpp
+++ b/opm/core/utility/miscUtilitiesBlackoil.cpp
@@ -245,7 +245,7 @@ namespace Opm
         for (int i = 0; i < n; ++i) {
             for (int row = 0; row < np; ++row) {
                 for (int col = 0; col < np; ++col) {
-                    surfacevol[i*np + row] += A[i*np*np + row*np + col] * saturation[i*np + col];
+                    surfacevol[i*np + row] += A[i*np*np + row + col*np] * saturation[i*np + col];
                 }
             }
         }