Format correction

Author: XZTian64

src/common/m_boundary_common.fpp

@@ -77,7 +77,6 @@ contains
         real(wp), dimension(idwbuff(1)%beg:, idwbuff(2)%beg:, idwbuff(3)%beg:, 1:, 1:), intent(inout) :: pb, mv
         type(integer_field), dimension(1:num_dims, -1:1), intent(in) :: bc_type
 
-
         integer :: k, l
 
         ! Population of Buffers in x-direction

src/common/m_helper.fpp

@@ -395,7 +395,6 @@ contains
 
         integer :: i
 
-
         do i = 1, 3
             call s_transform_vec(triangle%v(i, :), matrix)
         end do

src/common/m_variables_conversion.fpp

@@ -1188,7 +1188,6 @@ contains
 
         integer :: i, j, k, l !< Generic loop iterators
 
-
         real(wp), dimension(num_species) :: Ys
         real(wp) :: e_mix, mix_mol_weight, T
         real(wp) :: pres_mag
@@ -1567,8 +1566,6 @@ contains
 
     subroutine s_finalize_variables_conversion_module()
 
-
-
         ! Deallocating the density, the specific heat ratio function and the
         ! liquid stiffness function
 #ifdef MFC_POST_PROCESS
@@ -1674,7 +1671,6 @@ contains
 
         real(wp) :: B2, term, disc
 
-        
         B2 = sum(B**2)
 
         if (.not. relativity) then
@@ -1698,4 +1694,4 @@ contains
     end subroutine s_compute_fast_magnetosonic_speed
 #endif
 
-end module m_variables_conversion
+end module m_variables_conversion

src/post_process/m_data_output.fpp

@@ -860,7 +860,6 @@ contains
         ! Generic loop iterator
         integer :: i, j, k
 
-        
         ! Silo-HDF5 Database Format
 
         if (format == 1) then
@@ -1104,7 +1103,6 @@ contains
         integer(KIND=MPI_OFFSET_KIND) :: disp
         integer :: view
 
-
         logical :: lg_bub_file, file_exist
 
         integer, dimension(2) :: gsizes, lsizes, start_idx_part
@@ -1292,7 +1290,6 @@ contains
         real(wp), dimension(num_fluids) :: adv
         integer :: i, j, k, l, s !looping indices
 
-        
         Egk = 0_wp
         Elp = 0_wp
         Egint = 0_wp

src/post_process/m_derived_variables.fpp

@@ -329,9 +329,6 @@ contains
         real(wp), dimension(ndim), intent(inout) :: b
         real(wp), dimension(ndim), intent(out) :: sol
 
-
-        
-
         !EXTERNAL DGESV
 
         integer :: i, j, k
@@ -585,8 +582,6 @@ contains
             !! The first position in the variable contains the maximum value and
             !! the second contains the rank of the processor on which it occurred.
 
-
-        
         integer :: i, j, k, l !< Generic loop iterators
 
         ! Computing Gradient Magnitude of Density

src/pre_process/m_assign_variables.fpp

@@ -111,15 +111,8 @@ contains
         type(scalar_field), dimension(1:sys_size), intent(inout) :: q_prim_vf
         integer, dimension(0:m, 0:n, 0:p), intent(inout) :: patch_id_fp
 
-
-
-        
-        
-        
-        
         real(wp) :: Ys(1:num_species)
 
-        
         integer :: smooth_patch_id
         integer :: i !< generic loop operator
 
@@ -308,14 +301,8 @@ contains
         real(wp) :: rcoord, theta, phi, xi_sph
         real(wp), dimension(3) :: xi_cart
 
-
-        
-
-        
-
         real(wp) :: Ys(1:num_species)
 
-        
         real(wp), dimension(sys_size) :: orig_prim_vf !<
             !! Vector to hold original values of cell for smoothing purposes
 

src/pre_process/m_boundary_conditions.fpp

@@ -315,8 +315,6 @@ contains
         integer :: dir, loc
         character(len=path_len) :: file_loc, file_path
 
-
-        
 #ifdef MFC_MPI
         integer :: ierr
         integer :: file_id

src/pre_process/m_data_output.fpp

@@ -140,9 +140,6 @@ contains
         real(wp) :: rho                          !< Temporary density
         real(wp) :: pres, T                         !< Temporary pressure
 
-
-
-        
         real(wp) :: rhoYks(1:num_species) !< Temporary species mass fractions
 
         real(wp) :: pres_mag

src/pre_process/m_initial_condition.fpp

@@ -175,8 +175,6 @@ contains
         !!              primitive variables are converted to conservative ones.
     subroutine s_generate_initial_condition
 
-
-        
         ! First, compute the temperature field from the conservative variables.
         if (chemistry) call s_compute_q_T_sf(q_T_sf, q_cons_vf, idwint)
 

src/pre_process/m_patches.fpp

@@ -1570,10 +1570,8 @@ contains
 
         integer :: i, j, k !< generic loop iterators
 
-
         complex(wp), parameter :: cmplx_i = (0._wp, 1._wp)
 
-        
         ! Transferring the patch's centroid and radius information
         x_centroid = patch_icpp(patch_id)%x_centroid
         y_centroid = patch_icpp(patch_id)%y_centroid
@@ -1720,7 +1718,6 @@ contains
         integer :: i, j, k !< generic loop iterators
         real(wp) :: radius
 
-
         !! Variables to initialize the pressure field that corresponds to the
             !! bubble-collapse test case found in Tiwari et al. (2013)