From f13b6c7ed93d90b8a7a4390f7ba16c51faf91100 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Wed, 11 Aug 2021 19:49:30 -0400 Subject: [PATCH] Made updating of nbody in append more consistent --- src/util/util_append.f90 | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/util/util_append.f90 b/src/util/util_append.f90 index 979da7a19..cb15fa18c 100644 --- a/src/util/util_append.f90 +++ b/src/util/util_append.f90 @@ -177,10 +177,9 @@ module subroutine util_append_body(self, source, lsource_mask) call util_append(self%capom, source%capom, nold, nsrc, lsource_mask) call util_append(self%omega, source%omega, nold, nsrc, lsource_mask) call util_append(self%capm, source%capm, nold, nsrc, lsource_mask) + self%nbody = nold + count(lsource_mask(:)) end associate - self%nbody = count(self%status(:) /= INACTIVE) - return end subroutine util_append_body