Formatting

MintonGroup · Jun 16, 2021 · e12fa07 · e12fa07
1 parent 5748174
commit e12fa07
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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