Fixed bad index variable

MintonGroup · May 27, 2021 · f8b4b4d · f8b4b4d
1 parent 589f4cb
commit f8b4b4d
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/symba/symba_frag_pos.f90 b/src/symba/symba_frag_pos.f90
@@ -117,8 +117,8 @@ subroutine symba_frag_pos(param, symba_plA, family, x, v, L_spin, Ip, mass, radi
    !write(*,        "(' -------------------------------------------------------------------------------------')")
    if (lmerge) then
       write(*,*) "symba_frag_pos failed after: ",try," tries"
-      do i = 1, nfrag
-         vb_frag(:, i) = vcom(:)
+      do ii = 1, nfrag
+         vb_frag(:, ii) = vcom(:)
       end do
    else
       write(*,*) "symba_frag_pos succeeded after: ",try," tries"