diff --git a/src/build_system_wsmp.f90 b/src/build_system_wsmp.f90
index 95dd444e24f5c4dc66c909577632df6c54fb2355..b9f37c297444b3c0dd959af965a9d4a649d76143 100644
--- a/src/build_system_wsmp.f90
+++ b/src/build_system_wsmp.f90
@@ -193,7 +193,7 @@ do ileaves=1,osolve%nleaves
                   enddo
                   if (kfix(ileaves) < 1) then
                     if (idof1 == 3) then
-                      iloc=iffind_loc_wsmp(i1loc,i1,ja,ia,n_iproc,nz_loc)
+                      iloc=ifind_loc_wsmp(i1loc,i1,ja,ia,n_iproc,nz_loc)
                       elem_dz=(osolve%icon(5,ileaves)-osolve%icon(1,ileaves))*params%vex
                       if (k1 < 5) then                        
                         avals(iloc)=avals(iloc)+(params%dt*weightel(ileaves))/(2*elem_dz)