From 26560d66c2c551ac882c1727435f6cc6ec641021 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Thu, 12 Jan 2023 20:56:22 -0500 Subject: [PATCH] Fixed bad array index --- 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 71190d64d..25157d2c0 100644 --- a/src/fraggle/fraggle_generate.f90 +++ b/src/fraggle/fraggle_generate.f90 @@ -322,7 +322,7 @@ module subroutine fraggle_generate_pos_vec(collider) j = fragments%origin_body(i) ! Scale the cloud size - fragments%rc(:,i) = fragment_cloud_radius(j) * mass_rscale(:) * .unit.fragments%rc(:,i) + fragments%rc(:,i) = fragment_cloud_radius(j) * mass_rscale(i) * .unit.(fragments%rc(:,i)) ! Shift to the cloud center coordinates fragments%rc(:,i) = fragments%rc(:,i) + fragment_cloud_center(:,j)