From 297b79d4f0c2f745d67066d4903b0aabf5e89a0f Mon Sep 17 00:00:00 2001
From: "Jostein R. Natvig" <jostein.r.natvig@sintef.no>
Date: Wed, 22 Sep 2010 11:48:08 +0000
Subject: [PATCH] Add simple test of mex_ifsh.

---
 test_mex_ifsh.m | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100644 test_mex_ifsh.m

diff --git a/test_mex_ifsh.m b/test_mex_ifsh.m
new file mode 100644
index 00000000..bb784aaa
--- /dev/null
+++ b/test_mex_ifsh.m
@@ -0,0 +1,9 @@
+G = computeGeometry(cartGrid([30,30,1]));
+src = [];
+src = addSource(src, 1, 1);
+src = addSource(src, G.cells.num, -1);
+bc = [];
+rock.perm = ones(G.cells.num, 1);
+rock.poro = ones(G.cells.num, 1);
+x = initResSol(G, 0, 0);
+x = mex_ifsh(x, G, rock, bc, src)