diff --git a/src/build_system_wsmp.f90 b/src/build_system_wsmp.f90
index cebd03873d5d49e05530963d501950484741a1f7..8ec16c1f1aaf615578268d28543012dc3fe61f4b 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