diff --git a/src/symba/symba_discard.f90 b/src/symba/symba_discard.f90 index a46ce057d..37fc34698 100644 --- a/src/symba/symba_discard.f90 +++ b/src/symba/symba_discard.f90 @@ -302,9 +302,9 @@ subroutine symba_discard_peri_pl(pl, nbody_system, param) class(swiftest_nbody_system), intent(inout) :: nbody_system !! Swiftest nbody system object class(swiftest_parameters), intent(in) :: param !! Current run configuration parameters ! Internals - logical, save :: lfirst = .true. - logical :: lfirst_orig - integer(I4B) :: i + logical, save :: lfirst = .true. + logical :: lfirst_orig + integer(I4B) :: i character(len=STRMAX) :: timestr, idstr, message