Tweaked BFGS parameters to get higher success rate

MintonGroup · Jun 9, 2021 · 06b5178 · 06b5178
1 parent 5d7327a
commit 06b5178
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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