From 92b28dcb14cab3e713b2278b75c4a3c2ac26e07f Mon Sep 17 00:00:00 2001 From: David A Minton Date: Fri, 28 May 2021 18:19:01 -0400 Subject: [PATCH] Reduced radial minimization tolerance to try to get a higher success rate --- src/symba/symba_frag_pos.f90 | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/symba/symba_frag_pos.f90 b/src/symba/symba_frag_pos.f90 index f88307fcb..3f0a75f02 100644 --- a/src/symba/symba_frag_pos.f90 +++ b/src/symba/symba_frag_pos.f90 @@ -704,7 +704,7 @@ subroutine set_fragment_radial_velocities(lerr) ! Arguments logical, intent(out) :: lerr ! Internals - real(DP), parameter :: TOL = 1e-9_DP + real(DP), parameter :: TOL = 1e-6_DP integer(I4B) :: i real(DP), dimension(:), allocatable :: v_r_initial, v_r_sigma real(DP), dimension(:,:), allocatable :: v_r @@ -754,7 +754,6 @@ function radial_objective_function(v_r_mag_input) result(fval) !! Minimizing this brings us closer to our objective ! Internals integer(I4B) :: i - real(DP), dimension(NDIM) :: L real(DP), dimension(:,:), allocatable :: v_shift allocate(v_shift, mold=vb_frag)