Fixed bad ADD/SUB code for the mergeadd_list in symba_io

MintonGroup · Aug 4, 2021 · 68dc219 · 68dc219
1 parent 31b7c69
commit 68dc219
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/symba/symba_io.f90 b/src/symba/symba_io.f90
@@ -252,7 +252,7 @@ module subroutine symba_io_write_discard(self, param)
             nsub = mergesub_list%ncomp(isub)
             do j = 1, nadd
                if (iadd <= mergeadd_list%nbody) then
-                  write(LUN, NAMEFMT) SUB, mergesub_list%id(iadd), mergesub_list%status(iadd)
+                  write(LUN, NAMEFMT) ADD, mergesub_list%id(iadd), mergesub_list%status(iadd)
                   write(LUN, VECFMT) mergeadd_list%xh(1, iadd), mergeadd_list%xh(2, iadd), mergeadd_list%xh(3, iadd)
                   write(LUN, VECFMT) mergeadd_list%vh(1, iadd), mergeadd_list%vh(2, iadd), mergeadd_list%vh(3, iadd)
                else