Fixed typo. pl_discards -> pl_adds

MintonGroup · Aug 9, 2021 · 49ca22a · 49ca22a
1 parent ec70fc6
commit 49ca22a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/symba/symba_io.f90 b/src/symba/symba_io.f90
@@ -253,7 +253,7 @@ module subroutine symba_io_write_discard(self, param)
                nsub = pl_discards%ncomp(isub)
                do j = 1, nadd
                   if (iadd <= pl_adds%nbody) then
-                     write(LUN, NAMEFMT) ADD, pl_discards%id(iadd), pl_discards%status(iadd)
+                     write(LUN, NAMEFMT) ADD, pl_adds%id(iadd), pl_adds%status(iadd)
                      write(LUN, VECFMT) pl_adds%xh(1, iadd), pl_adds%xh(2, iadd), pl_adds%xh(3, iadd)
                      write(LUN, VECFMT) pl_adds%vh(1, iadd), pl_adds%vh(2, iadd), pl_adds%vh(3, iadd)
                   else