From f15dc6e7c8918bdbffc4d5ef16f197542cef6808 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Fri, 28 May 2021 15:27:57 -0400 Subject: [PATCH] Fixed bug in fragment position initialization that accidentally randomized the 2nd largest fragment instead of putting it at the opposite end --- src/symba/symba_frag_pos.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/symba/symba_frag_pos.f90 b/src/symba/symba_frag_pos.f90 index e68e84d9c..a6a099cd9 100644 --- a/src/symba/symba_frag_pos.f90 +++ b/src/symba/symba_frag_pos.f90 @@ -453,7 +453,7 @@ subroutine set_fragment_position_vectors() x_frag(:, 1) = -y_col_unit(:) * r_max x_frag(:, 2) = y_col_unit(:) * r_max - call random_number(x_frag(:,2:nfrag)) + call random_number(x_frag(:,3:nfrag)) loverlap(:) = .true. do while (any(loverlap(3:nfrag))) do i = 3, nfrag