From 507f4cce42bc1bbc83339e268ac5ca54f423030e Mon Sep 17 00:00:00 2001 From: David A Minton Date: Fri, 24 Feb 2023 09:36:55 -0500 Subject: [PATCH] Reduced fail_scale_initial to prevent overflow in the position subroutine --- src/fraggle/fraggle_generate.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/fraggle/fraggle_generate.f90 b/src/fraggle/fraggle_generate.f90 index 6ee9c36bd..93b4c3431 100644 --- a/src/fraggle/fraggle_generate.f90 +++ b/src/fraggle/fraggle_generate.f90 @@ -124,7 +124,7 @@ module subroutine fraggle_generate_disrupt(self, nbody_system, param, t, lfailur real(DP) :: dE real(DP), dimension(NDIM) :: dL character(len=STRMAX) :: message - real(DP), parameter :: fail_scale_initial = 1.01_DP + real(DP), parameter :: fail_scale_initial = 1.0003_DP integer(I4B) :: nfrag_start ! The minimization and linear solvers can sometimes lead to floating point exceptions. Rather than halting the code entirely if this occurs, we