From b1db895deefb52f84ebe62838634d74d58f94be6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?S=C3=A9bastien=20Villemot?= <sebastien@dynare.org>
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 25744dd519..fa74c9cd8e 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
--
GitLab