Formatting

Author: fluidnumerics-joe

src/SELF_MappedScalar_3D_t.f90

@@ -334,7 +334,7 @@ subroutine SideExchange_MappedScalar3D_t(this,mesh)
         if(r2 == rankId) then
 
           e2 = e2Global-offset
-          
+
           if(flip == 0) then
 
             do j = 1,this%interp%N+1

src/gpu/SELF_MappedVector_3D.f90

@@ -185,7 +185,6 @@ subroutine SideExchange_MappedVector3D(this,mesh)
                              this%boundary_gpu,mesh%sideinfo_gpu,mesh%decomp%elemToRank_gpu, &
                              mesh%decomp%rankid,offset,this%interp%N,3*this%nvar,this%nelem)
 
-                      
     if(mesh%decomp%mpiEnabled) then
       call mesh%decomp%FinalizeMPIExchangeAsync()
       ! Apply side flips for data exchanged with MPI

test/mappedvectordgdivergence_3d_linear_sideexchange_mpi.f90

@@ -88,13 +88,13 @@ integer function mappedvectordgdivergence_3d_linear() result(r)
     call f%SetInteriorFromEquation(geometry,0.0_prec)
     print*,"min, max (interior)",minval(f%interior),maxval(f%interior)
     call f%boundaryInterp()
-    
+
     print*,"Exchanging data on element faces"
 
     call f%SideExchange(mesh)
     call f%UpdateHost()
 
-    print*, "Setting boundary conditions"
+    print*,"Setting boundary conditions"
     ! Set boundary conditions
     do iEl = 1,f%nElem
       do k = 1,6
@@ -112,7 +112,7 @@ integer function mappedvectordgdivergence_3d_linear() result(r)
       enddo
     enddo
 
-    print*, "Calculating boundary normal flux"
+    print*,"Calculating boundary normal flux"
     do iEl = 1,f%nElem
       do k = 1,6
         do j = 1,f%interp%N+1