From b1db895deefb52f84ebe62838634d74d58f94be6 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?S=C3=A9bastien=20Villemot?= Date: Thu, 27 Jul 2023 17:29:05 +0200 Subject: [PATCH] block_trust_region MEX: remove unused parameter --- mex/sources/block_trust_region/trust_region.f08 | 1 - 1 file changed, 1 deletion(-) diff --git a/mex/sources/block_trust_region/trust_region.f08 b/mex/sources/block_trust_region/trust_region.f08 index 25744dd51..fa74c9cd8 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