Fixed typo. Squaring turned into a multiply by 2 in the code conversi…

…on. oops.
MintonGroup · Aug 11, 2021 · 3971371 · 3971371
1 parent 7b9e9ad
commit 3971371
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/symba/symba_discard.f90 b/src/symba/symba_discard.f90
@@ -24,7 +24,7 @@ subroutine symba_discard_cb_pl(pl, system, param)
       associate(npl => pl%nbody, cb => system%cb)
          call system%set_msys()
          rmin2 = param%rmin**2
-         rmax2 = param%rmax*2
+         rmax2 = param%rmax**2
          rmaxu2 = param%rmaxu**2
          do i = 1, npl
             if (pl%status(i) == ACTIVE) then