From f75623fc1ab895527782994a32dff7756862056d Mon Sep 17 00:00:00 2001
From: David A Minton <daminton@purdue.edu>
Date: Thu, 19 Aug 2021 08:20:18 -0400
Subject: [PATCH] Refactored read_in subroutines for naming consistency

---
 src/io/io.f90                    | 4 ++--
 src/modules/swiftest_classes.f90 | 6 +++---
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/io/io.f90 b/src/io/io.f90
index f463493bd..f2cd4d2f5 100644
--- a/src/io/io.f90
+++ b/src/io/io.f90
@@ -1169,7 +1169,7 @@ function io_read_hdr(iu, t, npl, ntp, out_form, out_type) result(ierr)
       return
    end function io_read_hdr
 
-   module subroutine io_read_param_in(self, param_file_name) 
+   module subroutine io_read_in_param(self, param_file_name) 
       !! author: David A. Minton
       !!
       !! Read in parameters for the integration
@@ -1201,7 +1201,7 @@ module subroutine io_read_param_in(self, param_file_name)
       667 continue
       write(*,*) "Error reading parameter file: " // trim(adjustl(errmsg))
       call util_exit(FAILURE)
-   end subroutine io_read_param_in
+   end subroutine io_read_in_param
 
 
    module subroutine io_toupper(string)
diff --git a/src/modules/swiftest_classes.f90 b/src/modules/swiftest_classes.f90
index 39b782ed2..0c11e4895 100644
--- a/src/modules/swiftest_classes.f90
+++ b/src/modules/swiftest_classes.f90
@@ -81,7 +81,7 @@ module swiftest_classes
       procedure :: reader         => io_param_reader
       procedure :: writer         => io_param_writer
       procedure :: dump           => io_dump_param
-      procedure :: read_from_file => io_read_param_in
+      procedure :: read_from_file => io_read_in_param
    end type swiftest_parameters
 
    !********************************************************************************************************************************
@@ -622,11 +622,11 @@ module subroutine io_read_in_cb(self, param)
          class(swiftest_parameters), intent(inout) :: param !! Current run configuration parameters
       end subroutine io_read_in_cb
 
-      module subroutine io_read_param_in(self, param_file_name) 
+      module subroutine io_read_in_param(self, param_file_name) 
          implicit none
          class(swiftest_parameters), intent(inout) :: self            !! Current run configuration parameters
          character(len=*),           intent(in)    :: param_file_name !! Parameter input file name (i.e. param.in)
-      end subroutine io_read_param_in
+      end subroutine io_read_in_param
 
       module subroutine io_read_frame_body(self, iu, param, form)
          implicit none