From 3971371df0541ebcb9bbedfa06abfcb3a969d8de Mon Sep 17 00:00:00 2001
From: David A Minton <daminton@purdue.edu>
Date: Wed, 11 Aug 2021 09:33:46 -0400
Subject: [PATCH] Fixed typo. Squaring turned into a multiply by 2 in the code
 conversion. oops.

---
 src/symba/symba_discard.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/symba/symba_discard.f90 b/src/symba/symba_discard.f90
index 253fb2700..c154b4290 100644
--- 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