From 03b790f5af4078900a4d3dbc1ce157229c2de7e8 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Tue, 21 Feb 2023 17:56:23 -0500 Subject: [PATCH] Adjusted the size of the angular momentum loop --- 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 6dcf6ab0e..a8d85b442 100644 --- a/src/fraggle/fraggle_generate.f90 +++ b/src/fraggle/fraggle_generate.f90 @@ -552,7 +552,7 @@ module subroutine fraggle_generate_vel_vec(collider, nbody_system, param, lfailu real(DP) :: vmax_guess integer(I4B), parameter :: MAXLOOP = 25 integer(I4B), parameter :: MAXTRY = 10 - integer(I4B), parameter :: MAXANGMTM = 30000 + integer(I4B), parameter :: MAXANGMTM = 1000 class(collision_fraggle), allocatable :: collider_local character(len=STRMAX) :: message