Post_Process, Formatting

src/post_process/m_checker.f90

@@ -17,7 +17,7 @@ module m_checker
 
 contains
 
-    subroutine s_check_inputs()
+    subroutine s_check_inputs
 
         integer :: bub_fac
         integer :: i

src/post_process/m_data_input.f90

@@ -39,7 +39,7 @@ module m_data_input
         !!  @param t_step Current time-step to input
         subroutine s_read_abstract_data_files(t_step)
 
-            integer, intent(IN) :: t_step
+            integer, intent(in) :: t_step
 
         end subroutine s_read_abstract_data_files
 
@@ -62,7 +62,7 @@ end subroutine s_read_abstract_data_files
         !!  @param t_step Current time-step
     subroutine s_read_serial_data_files(t_step)
 
-        integer, intent(IN) :: t_step
+        integer, intent(in) :: t_step
 
         character(LEN=len_trim(case_dir) + 2*name_len) :: t_step_dir !<
             !! Location of the time-step directory associated with t_step
@@ -216,7 +216,7 @@ end subroutine s_read_serial_data_files
         !!  @param t_step Current time-step
     subroutine s_read_parallel_data_files(t_step)
 
-        integer, intent(IN) :: t_step
+        integer, intent(in) :: t_step
 
 #ifdef MFC_MPI
 
@@ -1116,7 +1116,7 @@ subroutine s_initialize_data_input_module
     end subroutine s_initialize_data_input_module
 
     !> Deallocation procedures for the module
-    subroutine s_finalize_data_input_module()
+    subroutine s_finalize_data_input_module
 
         integer :: i !< Generic loop iterator
 

src/post_process/m_data_output.fpp

@@ -102,7 +102,7 @@ module m_data_output
 
 contains
 
-    subroutine s_initialize_data_output_module()
+    subroutine s_initialize_data_output_module
         ! Description: Computation of parameters, allocation procedures, and/or
         !              any other tasks needed to properly setup the module
 
@@ -425,7 +425,7 @@ contains
         !              not performed in multidimensions.
 
         ! Time-step that is currently being post-processed
-        integer, intent(IN) :: t_step
+        integer, intent(in) :: t_step
 
         ! Generic string used to store the location of a particular file
         character(LEN=len_trim(case_dir) + 3*name_len) :: file_loc
@@ -552,7 +552,7 @@ contains
         !              subroutine s_write_variable_to_formatted_database_file.
 
         ! Time-step that is currently being post-processed
-        integer, intent(IN) :: t_step
+        integer, intent(in) :: t_step
 
         ! Bookkeeping variables storing the name and type of mesh that is
         ! handled by the local processor(s). Note that due to an internal
@@ -749,10 +749,10 @@ contains
 
         ! Name of the flow variable, which will be written to the formatted
         ! database file at the current time-step, t_step
-        character(LEN=*), intent(IN) :: varname
+        character(LEN=*), intent(in) :: varname
 
         ! Time-step that is currently being post-processed
-        integer, intent(IN) :: t_step
+        integer, intent(in) :: t_step
 
         ! Bookkeeping variables storing the name and type of flow variable
         ! that is about to be handled by the local processor(s). Note that

src/post_process/m_derived_variables.fpp

@@ -125,7 +125,7 @@ contains
             dimension(-offset_x%beg:m + offset_x%end, &
                       -offset_y%beg:n + offset_y%end, &
                       -offset_z%beg:p + offset_z%end), &
-            intent(INOUT) :: q_sf
+            intent(inout) :: q_sf
 
         integer :: i, j, k !< Generic loop iterators
 
@@ -152,7 +152,7 @@ contains
             dimension(-offset_x%beg:m + offset_x%end, &
                       -offset_y%beg:n + offset_y%end, &
                       -offset_z%beg:p + offset_z%end), &
-            intent(INOUT) :: q_sf
+            intent(inout) :: q_sf
 
         integer :: i, j, k !< Generic loop iterators
 
@@ -179,13 +179,13 @@ contains
 
         type(scalar_field), &
             dimension(sys_size), &
-            intent(IN) :: q_prim_vf
+            intent(in) :: q_prim_vf
 
         real(kind(0d0)), &
             dimension(-offset_x%beg:m + offset_x%end, &
                       -offset_y%beg:n + offset_y%end, &
                       -offset_z%beg:p + offset_z%end), &
-            intent(INOUT) :: q_sf
+            intent(inout) :: q_sf
 
         integer :: i, j, k !< Generic loop iterators
 
@@ -234,14 +234,14 @@ contains
         !!  @param q_sf Flux limiter
     subroutine s_derive_flux_limiter(i, q_prim_vf, q_sf)
 
-        integer, intent(IN) :: i
+        integer, intent(in) :: i
 
-        type(scalar_field), dimension(sys_size), intent(IN) :: q_prim_vf
+        type(scalar_field), dimension(sys_size), intent(in) :: q_prim_vf
 
         real(kind(0d0)), dimension(-offset_x%beg:m + offset_x%end, &
                                    -offset_y%beg:n + offset_y%end, &
                                    -offset_z%beg:p + offset_z%end), &
-            intent(INOUT) :: q_sf
+            intent(inout) :: q_sf
 
         real(kind(0d0)) :: top, bottom, slope !< Flux limiter calcs
         integer :: j, k, l !< Generic loop iterators
@@ -328,10 +328,11 @@ contains
         !!  @param ndim Problem size
     subroutine s_solve_linear_system(A, b, sol, ndim)
 
-        integer, intent(IN) :: ndim
-        real(kind(0d0)), dimension(ndim, ndim), intent(INOUT) :: A
-        real(kind(0d0)), dimension(ndim), intent(INOUT) :: b
-        real(kind(0d0)), dimension(ndim), intent(OUT) :: sol
+        integer, intent(in) :: ndim
+        real(kind(0d0)), dimension(ndim, ndim), intent(inout) :: A
+        real(kind(0d0)), dimension(ndim), intent(inout) :: b
+        real(kind(0d0)), dimension(ndim), intent(out) :: sol
+
         integer, dimension(ndim) :: ipiv
 
         integer :: nrhs, lda, ldb, info
@@ -380,17 +381,17 @@ contains
         !!  @param q_sf Vorticity component
     subroutine s_derive_vorticity_component(i, q_prim_vf, q_sf)
 
-        integer, intent(IN) :: i
+        integer, intent(in) :: i
 
         type(scalar_field), &
             dimension(sys_size), &
-            intent(IN) :: q_prim_vf
+            intent(in) :: q_prim_vf
 
         real(kind(0d0)), &
             dimension(-offset_x%beg:m + offset_x%end, &
                       -offset_y%beg:n + offset_y%end, &
                       -offset_z%beg:p + offset_z%end), &
-            intent(INOUT) :: q_sf
+            intent(inout) :: q_sf
 
         integer :: j, k, l, r !< Generic loop iterators
 
@@ -483,13 +484,13 @@ contains
     subroutine s_derive_qm(q_prim_vf, q_sf)
         type(scalar_field), &
             dimension(sys_size), &
-            intent(IN) :: q_prim_vf
+            intent(in) :: q_prim_vf
 
         real(kind(0d0)), &
             dimension(-offset_x%beg:m + offset_x%end, &
                       -offset_y%beg:n + offset_y%end, &
                       -offset_z%beg:p + offset_z%end), &
-            intent(INOUT) :: q_sf
+            intent(inout) :: q_sf
 
         real(kind(0d0)), &
             dimension(1:3, 1:3) :: q_jacobian_sf, S, S2, O, O2
@@ -573,13 +574,13 @@ contains
 
         type(scalar_field), &
             dimension(sys_size), &
-            intent(IN) :: q_cons_vf
+            intent(in) :: q_cons_vf
 
         real(kind(0d0)), &
             dimension(-offset_x%beg:m + offset_x%end, &
                       -offset_y%beg:n + offset_y%end, &
                       -offset_z%beg:p + offset_z%end), &
-            intent(INOUT) :: q_sf
+            intent(inout) :: q_sf
 
         real(kind(0d0)) :: drho_dx, drho_dy, drho_dz !<
             !! Spatial derivatives of the density in the x-, y- and z-directions

src/post_process/m_mpi_proxy.fpp

@@ -649,8 +649,8 @@ contains
         !!  @param sweep_coord Coordinate direction normal to the processor boundary
     subroutine s_mpi_sendrecv_grid_vars_buffer_regions(pbc_loc, sweep_coord)
 
-        character(LEN=3), intent(IN) :: pbc_loc
-        character, intent(IN) :: sweep_coord
+        character(LEN=3), intent(in) :: pbc_loc
+        character, intent(in) :: sweep_coord
 
 #ifdef MFC_MPI
 
@@ -851,11 +851,11 @@ contains
 
         type(scalar_field), &
             dimension(sys_size), &
-            intent(INOUT) :: q_cons_vf
+            intent(inout) :: q_cons_vf
 
-        character(LEN=3), intent(IN) :: pbc_loc
+        character(LEN=3), intent(in) :: pbc_loc
 
-        character, intent(IN) :: sweep_coord
+        character, intent(in) :: sweep_coord
 
 #ifdef MFC_MPI
 
@@ -1413,7 +1413,7 @@ contains
         !!  the second dimension corresponds to the processor rank.
     subroutine s_mpi_gather_spatial_extents(spatial_extents)
 
-        real(kind(0d0)), dimension(1:, 0:), intent(INOUT) :: spatial_extents
+        real(kind(0d0)), dimension(1:, 0:), intent(inout) :: spatial_extents
 
 #ifdef MFC_MPI
 
@@ -1568,11 +1568,11 @@ contains
         !!  to each processor's rank.
     subroutine s_mpi_gather_data_extents(q_sf, data_extents)
 
-        real(kind(0d0)), dimension(:, :, :), intent(IN) :: q_sf
+        real(kind(0d0)), dimension(:, :, :), intent(in) :: q_sf
 
         real(kind(0d0)), &
             dimension(1:2, 0:num_procs - 1), &
-            intent(INOUT) :: data_extents
+            intent(inout) :: data_extents
 
 #ifdef MFC_MPI
 
@@ -1600,11 +1600,11 @@ contains
 
         real(kind(0d0)), &
             dimension(0:m, 0:0, 0:0), &
-            intent(IN) :: q_sf
+            intent(in) :: q_sf
 
         real(kind(0d0)), &
             dimension(0:m_root, 0:0, 0:0), &
-            intent(INOUT) :: q_root_sf
+            intent(inout) :: q_root_sf
 
 #ifdef MFC_MPI
 

src/post_process/m_start_up.f90

@@ -137,7 +137,7 @@ end subroutine s_check_input_file
 
     subroutine s_perform_time_step(t_step)
 
-        integer, intent(INOUT) :: t_step
+        integer, intent(inout) :: t_step
         if (proc_rank == 0) then
             print '(" ["I3"%]  Saving "I8" of "I0" @ t_step = "I0"")', &
                 int(ceiling(100d0*(real(t_step - t_step_start)/(t_step_stop - t_step_start + 1)))), &
@@ -164,9 +164,9 @@ end subroutine s_perform_time_step
 
     subroutine s_save_data(t_step, varname, pres, c, H)
 
-        integer, intent(INOUT) :: t_step
-        character(LEN=name_len), intent(INOUT) :: varname
-        real(kind(0d0)), intent(INOUT) :: pres, c, H
+        integer, intent(inout) :: t_step
+        character(LEN=name_len), intent(inout) :: varname
+        real(kind(0d0)), intent(inout) :: pres, c, H
 
         integer :: i, j, k, l
 
@@ -620,7 +620,7 @@ subroutine s_save_data(t_step, varname, pres, c, H)
         call s_close_formatted_database_file()
     end subroutine s_save_data
 
-    subroutine s_initialize_modules()
+    subroutine s_initialize_modules
         ! Computation of parameters, allocation procedures, and/or any other tasks
         ! needed to properly setup the modules
         call s_initialize_global_parameters_module()
@@ -644,7 +644,7 @@ subroutine s_initialize_modules()
         end if
     end subroutine s_initialize_modules
 
-    subroutine s_initialize_mpi_domain()
+    subroutine s_initialize_mpi_domain
         ! Initialization of the MPI environment
         call s_mpi_initialize()
 
@@ -669,7 +669,7 @@ subroutine s_initialize_mpi_domain()
 
     end subroutine s_initialize_mpi_domain
 
-    subroutine s_finalize_modules()
+    subroutine s_finalize_modules
         ! Disassociate pointers for serial and parallel I/O
         s_read_data_files => null()