Fixed array range error

MintonGroup · May 12, 2021 · 68ec11c · 68ec11c
1 parent 7dc288a
commit 68ec11c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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