From f8d52a1356df80c62bb3c2090564f966022e3aaf Mon Sep 17 00:00:00 2001 From: David A Minton Date: Tue, 6 Jul 2021 11:00:27 -0400 Subject: [PATCH] Set planetocentric flag correctly on setup --- src/rmvs/rmvs_setup.f90 | 1 + 1 file changed, 1 insertion(+) diff --git a/src/rmvs/rmvs_setup.f90 b/src/rmvs/rmvs_setup.f90 index 7955fc74a..9d5916f56 100644 --- a/src/rmvs/rmvs_setup.f90 +++ b/src/rmvs/rmvs_setup.f90 @@ -107,6 +107,7 @@ module subroutine rmvs_setup_system(self, param) cb%lplanetocentric = .false. associate(npl => pl%nbody) allocate(pl%planetocentric(npl)) + pl%planetocentric(:)%lplanetocentric = .true. do i = 1, npl allocate(pl%planetocentric(i)%cb, source=cb) allocate(rmvs_pl :: pl%planetocentric(i)%pl)