From 2ced8fd9c1edc26d7abcac08a10854e28a27f1b7 Mon Sep 17 00:00:00 2001
From: David A Minton <daminton@purdue.edu>
Date: Mon, 13 Dec 2021 16:51:36 -0500
Subject: [PATCH] Fixed problem where the system recursion level variable was
 not set properly after returning from the recursive step.

---
 src/symba/symba_step.f90 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/symba/symba_step.f90 b/src/symba/symba_step.f90
index 983db28f5..2bd6aca36 100644
--- a/src/symba/symba_step.f90
+++ b/src/symba/symba_step.f90
@@ -82,6 +82,7 @@ module subroutine symba_step_interp_system(self, param, t, dt)
                   call tp%drift(system, param, dt)
 
                   call system%recursive_step(param, t, 0)
+                  system%irec = -1
 
                   if (param%lgr) call pl%gr_pos_kick(system, param, dth)
                   call pl%kick(system, param, t, dth, lbeg=.false.)