diff --git a/src/rmvs/rmvs_step.f90 b/src/rmvs/rmvs_step.f90
index be62331aa..bc6eea6ec 100644
--- a/src/rmvs/rmvs_step.f90
+++ b/src/rmvs/rmvs_step.f90
@@ -98,8 +98,6 @@ subroutine rmvs_step_out(pl, cb, tp, dt, config)
             rts = RHPSCALE
             lencounter = tp%encounter_check(cb, pl, dt, rts) 
             if (lencounter) then
-               associate(xbeg => pl%outer(outer_index - 1)%x(:, :), xend => pl%outer(outer_index    )%x(:, :), &
-                         tpxbeg => tp%xbeg, tpxend => tp%xend)
                ! Interpolate planets in inner encounter region
                call rmvs_interp_in(pl, cb, dto, outer_index, config)
                ! Step through the inner region
@@ -108,7 +106,6 @@ subroutine rmvs_step_out(pl, cb, tp, dt, config)
                tp%lfirst = .true.
                call tp%step(cb, pl, config, outer_time, dto)
                tp%lfirst = lfirsttp
-               end associate
             else
                call tp%step(cb, pl, config, outer_time, dto)
             end if