diff --git a/src/symba/symba_discard.f90 b/src/symba/symba_discard.f90 index 499c527cc..3d9be1282 100644 --- a/src/symba/symba_discard.f90 +++ b/src/symba/symba_discard.f90 @@ -320,7 +320,7 @@ module subroutine symba_discard_pl(self, system, param) if (param%lenergy) then call system%get_energy_and_momentum(param) Eorbit_after = system%te - system%Ecollisions = Eorbit_after - Eorbit_before + system%Ecollisions = system%Ecollisions + (Eorbit_after - Eorbit_before) end if end if