From e750be037b9430cb42ccc39d198235e9c084063e Mon Sep 17 00:00:00 2001 From: David A Minton Date: Wed, 21 Dec 2022 07:26:32 -0500 Subject: [PATCH] Fixed typo --- src/symba/symba_step.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/symba/symba_step.f90 b/src/symba/symba_step.f90 index 68071a8ab..accb9659b 100644 --- a/src/symba/symba_step.f90 +++ b/src/symba/symba_step.f90 @@ -72,7 +72,7 @@ module subroutine symba_step_interp_system(self, param, t, dt) ! Internals real(DP) :: dth !! Half step size - select type(pl => selfpl) + select type(pl => self%pl) class is (symba_pl) select type(tp => self%tp) class is (symba_tp)