From 2f23a6157f8aae71468546c3ec50b0a8777c3f4d Mon Sep 17 00:00:00 2001 From: David A Minton Date: Wed, 31 Jan 2024 19:45:24 -0500 Subject: [PATCH] Fixed problem that was causing fraggle to fail when the number of fragments was reduced to find a valid solution --- src/fraggle/fraggle_generate.f90 | 1 + 1 file changed, 1 insertion(+) diff --git a/src/fraggle/fraggle_generate.f90 b/src/fraggle/fraggle_generate.f90 index a00313abb..0e0914012 100644 --- a/src/fraggle/fraggle_generate.f90 +++ b/src/fraggle/fraggle_generate.f90 @@ -884,6 +884,7 @@ module subroutine fraggle_generate_vel_vec(collider, nbody_system, param, lfailu L_mag_factor = .mag.(collider%L_total(:,1) + collider%L_total(:,2)) L_residual(:) = (collider%L_total(:,2) / L_mag_factor - collider%L_total(:,1)) / L_mag_factor call collision_util_velocity_torque(-L_residual(:) * L_mag_factor, collider%fragments%mtot, impactors%rbcom, impactors%vbcom) + nfrag = collider%fragments%nbody #ifdef DOCONLOC do concurrent(i = 1:nfrag) shared(collider, impactors)