From d68ce593405d6087a653dc4c14dc49cebc767284 Mon Sep 17 00:00:00 2001
From: Dave Whipp <dwhipp@dal.ca>
Date: Wed, 8 Jun 2011 12:34:18 +0000
Subject: [PATCH] Fixed typo
---
src/build_system_wsmp.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/build_system_wsmp.f90 b/src/build_system_wsmp.f90
index 2b67ff75..a84fc676 100644
--- a/src/build_system_wsmp.f90
+++ b/src/build_system_wsmp.f90
@@ -192,7 +192,7 @@ do ileaves=1,osolve%nleaves
if (idof1 == 3) then
if (kfix((osolve%icon(k1,ileaves)-1)*ndof+idof1) < 1) then
iloc=ifind_loc_wsmp(i1loc,i1,ja,ia,n_iproc,nz_loc)
- elem_dz=(osolve%icon(5,ileaves)-osolve%icon(1,ileaves))*params%vex
+ elem_dz=(osolve%z(osolve%icon(5,ileaves))-osolve%z(osolve%icon(1,ileaves)))*params%vex
if (k1 < 5) then
avals(iloc)=avals(iloc)-(params%dt*weightel(ileaves))/(2.d0*elem_dz)
else
--
GitLab