Reduced the number of tries because it appears to be pretty bimodal (…

…it either succeeds after a few tries, or not at all)
MintonGroup · Sep 3, 2021 · 87fc551 · 87fc551
1 parent e5ee63d
commit 87fc551
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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