From 6fa0b1f2a1bc83e19ac0186dd22468df85104f95 Mon Sep 17 00:00:00 2001
From: David A Minton <daminton@purdue.edu>
Date: Tue, 15 Jun 2021 17:33:27 -0400
Subject: [PATCH] Fixed uninitialized heliocentric central body in an
 encountering test particle structure

---
 src/rmvs/rmvs_step.f90 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/rmvs/rmvs_step.f90 b/src/rmvs/rmvs_step.f90
index 10de44f33..17cfe62cf 100644
--- a/src/rmvs/rmvs_step.f90
+++ b/src/rmvs/rmvs_step.f90
@@ -482,6 +482,7 @@ subroutine rmvs_make_planetocentric(pl, cb, tp, config)
                       tpenci => pl%planetocentric(i)%tp)
                tpenci%lplanetocentric = .true.
                call tpenci%setup(nenc(i))
+               tpenci%cb_heliocentric = cb
                tpenci%ipleP = i
                tpenci%status(:) = ACTIVE
                tpenci%name(:) = pack(tp%name(:), encmask(:))