diff --git a/src/symba/symba_frag_pos.f90 b/src/symba/symba_frag_pos.f90 index b7934044b..b18a19dc0 100644 --- a/src/symba/symba_frag_pos.f90 +++ b/src/symba/symba_frag_pos.f90 @@ -117,6 +117,9 @@ 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(:) + end do else write(*,*) "symba_frag_pos succeeded after: ",try," tries" ! write(*, "(' dL_tot should be very small' )")