From 8f21b71d7281f9deec866856306a40cce2726c33 Mon Sep 17 00:00:00 2001
From: Dave Whipp <dwhipp@dal.ca>
Date: Wed, 25 May 2011 19:23:40 +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 cebd0387..8ec16c1f 100644
--- a/src/build_system_wsmp.f90
+++ b/src/build_system_wsmp.f90
@@ -71,7 +71,7 @@ double precision,dimension(:,:),allocatable::lsf_el
 double precision ael(8*ndof,8*ndof),bel(8*ndof),patch1(5,5),patch2(3,3)
 double precision,dimension(:),allocatable::penalty_loc,penalty_glob,eviscosity,weightel
 double precision r0,s0,t0,rst,amin
-integer i,j,itodo,idof,i1,i2,iii,jjj,err,jj,i1loc,k1,k2,ii
+integer i,j,k,itodo,idof,i1,i2,iii,jjj,err,jj,i1loc,k1,k2,ii
 integer ileaves,icut,iloc,idof1,idof2,nelem_iproc,nelem_min,nelem_max
 integer inode(5)
 integer levelmax,level
-- 
GitLab