From 68ec11cf2047c0bc5f65c5831b92465c9b953d61 Mon Sep 17 00:00:00 2001 From: David Minton Date: Wed, 12 May 2021 13:27:28 -0400 Subject: [PATCH] Fixed array range error --- 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 68b05fed4..8dace48ff 100644 --- a/src/symba/symba_frag_pos.f90 +++ b/src/symba/symba_frag_pos.f90 @@ -452,7 +452,7 @@ function symba_frag_pos_fragment_velocity(nfrag, m_frag, x_frag, v_r_unit, Lambd exit else v_r_mag_01(:) = v_r_mag_02(:) - v_r_mag_02(:) = v_r_mag(:) + v_r_mag_02(:) = v_r_mag(1:4) end if end do