From 57b79a6c05ec9f3ce503277b519518a9a9fa75be Mon Sep 17 00:00:00 2001 From: David A Minton Date: Fri, 13 Jan 2023 14:54:48 -0500 Subject: [PATCH] Fixed array bounds bug --- 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 e3beb38e1..aea492a63 100644 --- a/src/fraggle/fraggle_generate.f90 +++ b/src/fraggle/fraggle_generate.f90 @@ -293,7 +293,7 @@ module subroutine fraggle_generate_pos_vec(collider) ! Later, velocities will be scaled such that the farther away a fragment is placed from the impact point, the higher will its velocity be. call random_number(mass_rscale) mass_rscale(:) = (mass_rscale(:) + 1.0_DP) / 2 - mass_rscale(:) = mass_rscale(:) * (fragments%mtot / fragments%mass(:))**(0.125_DP) ! The power is arbitrary. It just gives the velocity a small mass dependence + mass_rscale(:) = mass_rscale(:) * (fragments%mtot / fragments%mass(1:nfrag))**(0.125_DP) ! The power is arbitrary. It just gives the velocity a small mass dependence mass_rscale(:) = mass_rscale(:) / maxval(mass_rscale(:)) do loop = 1, MAXLOOP