From e12fa0708bbf1305a3530ba5b896a677617388f6 Mon Sep 17 00:00:00 2001
From: David A Minton <daminton@purdue.edu>
Date: Wed, 16 Jun 2021 09:21:43 -0400
Subject: [PATCH] Formatting

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

diff --git a/src/rmvs/rmvs_step.f90 b/src/rmvs/rmvs_step.f90
index 17cfe62cf..ad6269471 100644
--- a/src/rmvs/rmvs_step.f90
+++ b/src/rmvs/rmvs_step.f90
@@ -391,7 +391,7 @@ subroutine rmvs_peri_tp(tp, pl, t, dt, lfirst, inner_index, ipleP, config)
 
       rhill2 = pl%rhill(ipleP)**2
       mu = pl%Gmass(ipleP)
-      associate( nenc => tp%nbody, xpc => tp%xh, vpc => tp%vh)
+      associate(nenc => tp%nbody, xpc => tp%xh, vpc => tp%vh)
          if (lfirst) then
             do i = 1, nenc
                if (tp%status(i) == ACTIVE) then