From e6cad9639d09cfefd2973b8268cabed9b05b0828 Mon Sep 17 00:00:00 2001 From: MintoDA1 <51412913+MintoDA1@users.noreply.github.com> Date: Fri, 4 Aug 2023 14:12:10 -0400 Subject: [PATCH] Fixed module use scoping issue due to the restruction. --- src/swiftest/swiftest_driver.f90 | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/src/swiftest/swiftest_driver.f90 b/src/swiftest/swiftest_driver.f90 index b4dd7c997..0635e5830 100644 --- a/src/swiftest/swiftest_driver.f90 +++ b/src/swiftest/swiftest_driver.f90 @@ -9,7 +9,7 @@ submodule(swiftest) s_swiftest_driver contains - subroutine swiftest_driver(integrator, param_file_name, display_style) + module subroutine swiftest_driver(integrator, param_file_name, display_style) !! author: David A. Minton !! @@ -18,8 +18,6 @@ subroutine swiftest_driver(integrator, param_file_name, display_style) !! !! Adapted from Swifter by David E. Kaufmann's Swifter driver programs swifter_[bs,helio,ra15,rmvs,symba,tu4,whm].f90 !! Adapted from Hal Levison and Martin Duncan's Swift driver programs - use netcdf - use swiftest implicit none ! Arguments