format check

Author: XZTian64

src/common/m_mpi_common.fpp

@@ -374,11 +374,11 @@ contains
         !!  @param vcfl_max_glb Global maximum VCFL stability criterion
         !!  @param Rc_min_glb Global minimum Rc stability criterion
     impure subroutine s_mpi_reduce_stability_criteria_extrema(icfl_max_loc, &
-                                                       vcfl_max_loc, &
-                                                       Rc_min_loc, &
-                                                       icfl_max_glb, &
-                                                       vcfl_max_glb, &
-                                                       Rc_min_glb)
+                                                              vcfl_max_loc, &
+                                                              Rc_min_loc, &
+                                                              icfl_max_glb, &
+                                                              vcfl_max_glb, &
+                                                              Rc_min_glb)
 
         real(wp), intent(in) :: icfl_max_loc
         real(wp), intent(in) :: vcfl_max_loc

src/common/m_variables_conversion.fpp

@@ -455,9 +455,9 @@ contains
     end subroutine s_convert_species_to_mixture_variables
 
     pure subroutine s_convert_species_to_mixture_variables_acc(rho_K, &
-                                                          gamma_K, pi_inf_K, qv_K, &
-                                                          alpha_K, alpha_rho_K, Re_K, &
-                                                          G_K, G)
+                                                               gamma_K, pi_inf_K, qv_K, &
+                                                               alpha_K, alpha_rho_K, Re_K, &
+                                                               G_K, G)
 #ifdef _CRAYFTN
         !DIR$ INLINEALWAYS s_convert_species_to_mixture_variables_acc
 #else
@@ -537,8 +537,8 @@ contains
     end subroutine s_convert_species_to_mixture_variables_acc
 
     pure subroutine s_convert_species_to_mixture_variables_bubbles_acc(rho_K, &
-                                                                  gamma_K, pi_inf_K, qv_K, &
-                                                                  alpha_K, alpha_rho_K, Re_K)
+                                                                       gamma_K, pi_inf_K, qv_K, &
+                                                                       alpha_K, alpha_rho_K, Re_K)
 #ifdef _CRAYFTN
         !DIR$ INLINEALWAYS s_convert_species_to_mixture_variables_bubbles_acc
 #else

src/simulation/m_riemann_solvers.fpp

@@ -4101,13 +4101,13 @@ contains
     !! @param[in] iy Y-direction loop bounds (int_bounds_info).
     !! @param[in] iz Z-direction loop bounds (int_bounds_info).
     pure subroutine s_compute_cartesian_viscous_source_flux(dvelL_dx_vf, &
-                                                       dvelL_dy_vf, &
-                                                       dvelL_dz_vf, &
-                                                       dvelR_dx_vf, &
-                                                       dvelR_dy_vf, &
-                                                       dvelR_dz_vf, &
-                                                       flux_src_vf, &
-                                                       norm_dir)
+                                                            dvelL_dy_vf, &
+                                                            dvelL_dz_vf, &
+                                                            dvelR_dx_vf, &
+                                                            dvelR_dy_vf, &
+                                                            dvelR_dz_vf, &
+                                                            flux_src_vf, &
+                                                            norm_dir)
 
         ! Arguments
         type(scalar_field), dimension(num_dims), intent(in) :: dvelL_dx_vf, dvelR_dx_vf
@@ -4290,8 +4290,8 @@ contains
         !!  @param flux_gsrc_vf  Intercell geometric source fluxes
         !!  @param norm_dir Dimensional splitting coordinate direction
     pure subroutine s_finalize_riemann_solver(flux_vf, flux_src_vf, &
-                                         flux_gsrc_vf, &
-                                         norm_dir)
+                                              flux_gsrc_vf, &
+                                              norm_dir)
 
         type(scalar_field), &
             dimension(sys_size), &