From 68dc219936c079ccef86f16c0a898abb1fb613c6 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Wed, 4 Aug 2021 17:15:27 -0400 Subject: [PATCH] Fixed bad ADD/SUB code for the mergeadd_list in symba_io --- 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 d3091155d..1f8626242 100644 --- 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