From 06b5178df3e09eae8f98e63522860267212148bb Mon Sep 17 00:00:00 2001 From: David A Minton Date: Wed, 9 Jun 2021 15:53:35 -0400 Subject: [PATCH] Tweaked BFGS parameters to get higher success rate --- src/util/util_minimize_bfgs.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/util/util_minimize_bfgs.f90 b/src/util/util_minimize_bfgs.f90 index 22ab7cb39..84f63499e 100644 --- a/src/util/util_minimize_bfgs.f90 +++ b/src/util/util_minimize_bfgs.f90 @@ -28,8 +28,8 @@ function util_minimize_bfgs(f, N, x0, eps, lerr) result(x1) real(DP), dimension(:), allocatable :: x1 ! Internals integer(I4B) :: i, j, k, l, conv, num - integer(I4B), parameter :: MAXLOOP = 100 !! Maximum number of loops before method is determined to have failed - real(DP), parameter :: graddelta = 1e-6_DP !! Delta x for gradient calculations + integer(I4B), parameter :: MAXLOOP = 1000 !! Maximum number of loops before method is determined to have failed + real(DP), parameter :: graddelta = 1e-5_DP !! Delta x for gradient calculations real(DP), dimension(N) :: S !! Direction vectors real(DP), dimension(N,N) :: H !! Approximated inverse Hessian matrix real(DP), dimension(N) :: grad1 !! gradient of f