From e6f283bf6b42f4853671c433e534a4d36e6f9af9 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Wed, 21 Dec 2022 13:18:53 -0500 Subject: [PATCH] Cleanup --- src/swiftest/swiftest_module.f90 | 5 ----- 1 file changed, 5 deletions(-) diff --git a/src/swiftest/swiftest_module.f90 b/src/swiftest/swiftest_module.f90 index 8f5eb039d..ff58cf9ac 100644 --- a/src/swiftest/swiftest_module.f90 +++ b/src/swiftest/swiftest_module.f90 @@ -1231,11 +1231,6 @@ module subroutine swiftest_util_dealloc_tp(self) class(swiftest_tp), intent(inout) :: self end subroutine swiftest_util_dealloc_tp - module subroutine util_exit(code) - implicit none - integer(I4B), intent(in) :: code !! Failure exit code - end subroutine util_exit - module subroutine swiftest_util_fill_body(self, inserts, lfill_list) implicit none class(swiftest_body), intent(inout) :: self !! Swiftest body object