Fixed bad array index

MintonGroup · Jan 13, 2023 · 26560d6 · 26560d6
1 parent 0498af1
commit 26560d6
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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)