diff --git a/mex/sources/block_trust_region/trust_region.f08 b/mex/sources/block_trust_region/trust_region.f08
index 25744dd5197dba16781efa6743134d8a4d7c5705..fa74c9cd8ee5e05a827b9d11b44785edb17aeb5d 100644
--- a/mex/sources/block_trust_region/trust_region.f08
+++ b/mex/sources/block_trust_region/trust_region.f08
@@ -56,7 +56,6 @@ contains
     integer :: maxiter_actual
     real(real64) :: factor_actual
     integer, parameter :: maxslowiter = 15 ! Maximum number of consecutive iterations with slow progress
-    real(real64), parameter :: macheps = epsilon(x)
     real(real64) :: delta ! Radius of the trust region
     real(real64), dimension(size(x)) :: fvec ! Current function value
     real(real64) :: fn ! Norm of the current function value