Tweaks to the fraggle convergence loop limits to get a higher success…

… rate in fitting angular momentum and energy constraints.
MintonGroup · Oct 4, 2023 · d2e7315 · d2e7315
1 parent 6b3a6b9
commit d2e7315
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/fraggle/fraggle_generate.f90 b/src/fraggle/fraggle_generate.f90
@@ -644,8 +644,8 @@ module subroutine fraggle_generate_vel_vec(collider, nbody_system, param, lfailu
       real(DP), parameter     :: hitandrun_vscale = 0.25_DP 
       real(DP)                :: vmin_guess 
       real(DP)                :: vmax_guess 
-      integer(I4B), parameter :: MAXLOOP = 25
-      integer(I4B), parameter :: MAXTRY  = 10
+      integer(I4B), parameter :: MAXLOOP = 50
+      integer(I4B), parameter :: MAXTRY  = 50
       integer(I4B), parameter :: MAXANGMTM = 1000
       class(collision_fraggle), allocatable :: collider_local
       character(len=STRMAX) :: message