cleanup

MintonGroup · Dec 22, 2022 · 3f35f81 · 3f35f81
1 parent 65132cd
commit 3f35f81
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 25 deletions.
diff --git a/src/CMakeLists.txt b/src/CMakeLists.txt
@@ -51,7 +51,6 @@ SET(FAST_MATH_FILES
             ${SRC}/encounter/encounter_setup.f90
             ${SRC}/encounter/encounter_util.f90
             ${SRC}/fraggle/fraggle_generate.f90
-            ${SRC}/fraggle/fraggle_io.f90
             ${SRC}/fraggle/fraggle_resolve.f90
             ${SRC}/fraggle/fraggle_set.f90
             ${SRC}/fraggle/fraggle_setup.f90

diff --git a/src/fraggle/fraggle_io.f90 b/src/fraggle/fraggle_io.f90
diff --git a/src/fraggle/fraggle_module.f90 b/src/fraggle/fraggle_module.f90
@@ -60,26 +60,22 @@ module fraggle
 
    interface
 
-      module subroutine fraggle_generate_fragments(collision_system, nbody_system, param, lfailure)
+      module subroutine fraggle_generate_fragments(collider, nbody_system, param, lfailure)
          implicit none
-         class(fraggle_system),        intent(inout) :: collision_system !! Fraggle system object the outputs will be the fragmentation 
+         class(fraggle_system),        intent(inout) :: collider !! Fraggle system object the outputs will be the fragmentation 
          class(swiftest_nbody_system), intent(inout) :: nbody_system     !! Swiftest nbody system object
          class(swiftest_parameters),   intent(inout) :: param            !! Current run configuration parameters 
          logical,                      intent(out)   :: lfailure         !! Answers the question: Should this have been a merger instead?
       end subroutine fraggle_generate_fragments
 
       module subroutine fraggle_generate_system(self, nbody_system, param, t)
          implicit none
-         class(fraggle_system),        intent(inout) :: self         !! Fraggle fragment system object 
+         class(fraggle_system),    intent(inout) :: self         !! Fraggle fragment system object 
          class(base_nbody_system), intent(inout) :: nbody_system !! Swiftest nbody system object
          class(base_parameters),   intent(inout) :: param        !! Current run configuration parameters 
-         real(DP),                     intent(in)    :: t            !! Time of collision
+         real(DP),                 intent(in)    :: t            !! Time of collision
       end subroutine fraggle_generate_system
 
-      module subroutine fraggle_io_log_regime(collision_system)
-         implicit none
-         class(fraggle_system), intent(inout) :: collision_system  !! Fraggle collision system object
-      end subroutine fraggle_io_log_regime
 
       module subroutine fraggle_set_budgets(self)
          implicit none