From 49ca22a529c12283413b00404c15c17b32c521c9 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Mon, 9 Aug 2021 19:29:29 -0400 Subject: [PATCH] Fixed typo. pl_discards -> pl_adds --- src/symba/symba_io.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/symba/symba_io.f90 b/src/symba/symba_io.f90 index ba972db8b..faa3d446b 100644 --- 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