From 87fc551c56c9e7ca5863b4b7339539e8f9f82dbc Mon Sep 17 00:00:00 2001 From: David A Minton Date: Fri, 3 Sep 2021 18:03:11 -0400 Subject: [PATCH] Reduced the number of tries because it appears to be pretty bimodal (it either succeeds after a few tries, or not at all) --- 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 f66904599..d0c1374f9 100644 --- a/src/fraggle/fraggle_generate.f90 +++ b/src/fraggle/fraggle_generate.f90 @@ -24,7 +24,7 @@ module subroutine fraggle_generate_fragments(self, colliders, system, param, lfa integer(I4B) :: i integer(I4B) :: try real(DP) :: r_max_start, f_spin, dEtot, dLmag - integer(I4B), parameter :: MAXTRY = 3000 + integer(I4B), parameter :: MAXTRY = 100 logical :: lk_plpl logical, dimension(size(IEEE_ALL)) :: fpe_halting_modes, fpe_quiet_modes logical, dimension(size(IEEE_USUAL)) :: fpe_flag