diff --git a/src/FEM_utilities.f90 b/src/FEM_utilities.f90 index 1db950e63..bf5e62851 100644 --- a/src/FEM_utilities.f90 +++ b/src/FEM_utilities.f90 @@ -503,7 +503,6 @@ subroutine utilities_indexActiveSet(field,section,x_local,f_local,localIS,global CHKERRQ(ierr) call ISDestroy(dummyIS,ierr); CHKERRQ(ierr) endif - deallocate(localIndices) end subroutine utilities_indexActiveSet