Formatting

Author: fluidnumerics-joe

src/gpu/SELF_GPUInterfaces.f90

@@ -118,7 +118,6 @@ subroutine ApplyFlip_2D_gpu(extBoundary,sideInfo,elemToRank,rankId,offset,N,nVar
     endsubroutine ApplyFlip_2D_gpu
   endinterface
 
-
   interface
     subroutine DG_BoundaryContribution_2D_gpu(bmatrix,qweights,bf,df,N,nvar,nel) &
       bind(c,name="DG_BoundaryContribution_2D_gpu")

src/gpu/SELF_MappedVector_2D.f90

@@ -133,23 +133,23 @@ subroutine MPIExchangeAsync_MappedVector2D(this,mesh,resetCount)
                 s2 = mesh%sideInfo(4,s1,e1)/10
                 globalSideId = abs(mesh%sideInfo(2,s1,e1))
                 ! create unique tag for each side and each variable
-                tag = globalsideid+mesh%nUniqueSides*(ivar-1 + this%nvar*(idir-1))
+                tag = globalsideid+mesh%nUniqueSides*(ivar-1+this%nvar*(idir-1))
 
                 msgCount = msgCount+1
                 call MPI_IRECV(extBoundary(:,s1,e1,ivar,idir), &
-                              (this%interp%N+1), &
-                              mesh%decomp%mpiPrec, &
-                              r2,tag, &
-                              mesh%decomp%mpiComm, &
-                              mesh%decomp%requests(msgCount),iError)
+                               (this%interp%N+1), &
+                               mesh%decomp%mpiPrec, &
+                               r2,tag, &
+                               mesh%decomp%mpiComm, &
+                               mesh%decomp%requests(msgCount),iError)
 
                 msgCount = msgCount+1
                 call MPI_ISEND(boundary(:,s1,e1,ivar,idir), &
-                              (this%interp%N+1), &
-                              mesh%decomp%mpiPrec, &
-                              r2,tag, &
-                              mesh%decomp%mpiComm, &
-                              mesh%decomp%requests(msgCount),iError)
+                               (this%interp%N+1), &
+                               mesh%decomp%mpiPrec, &
+                               r2,tag, &
+                               mesh%decomp%mpiComm, &
+                               mesh%decomp%requests(msgCount),iError)
               endif
             endif
 

src/gpu/SELF_MappedVector_3D.f90

@@ -140,23 +140,23 @@ subroutine MPIExchangeAsync_MappedVector3D(this,mesh,resetCount)
                 s2 = mesh%sideInfo(4,s1,e1)/10
                 globalSideId = abs(mesh%sideInfo(2,s1,e1))
                 ! create unique tag for each side and each variable
-                tag = globalsideid+mesh%nUniqueSides*(ivar-1 + this%nvar*(idir-1))
+                tag = globalsideid+mesh%nUniqueSides*(ivar-1+this%nvar*(idir-1))
 
                 msgCount = msgCount+1
                 call MPI_IRECV(extBoundary(:,:,s1,e1,ivar,idir), &
-                              (this%interp%N+1)*(this%interp%N+1), &
-                              mesh%decomp%mpiPrec, &
-                              r2,tag, &
-                              mesh%decomp%mpiComm, &
-                              mesh%decomp%requests(msgCount),iError)
+                               (this%interp%N+1)*(this%interp%N+1), &
+                               mesh%decomp%mpiPrec, &
+                               r2,tag, &
+                               mesh%decomp%mpiComm, &
+                               mesh%decomp%requests(msgCount),iError)
 
                 msgCount = msgCount+1
                 call MPI_ISEND(boundary(:,:,s1,e1,ivar,idir), &
-                              (this%interp%N+1)*(this%interp%N+1), &
-                              mesh%decomp%mpiPrec, &
-                              r2,tag, &
-                              mesh%decomp%mpiComm, &
-                              mesh%decomp%requests(msgCount),iError)
+                               (this%interp%N+1)*(this%interp%N+1), &
+                               mesh%decomp%mpiPrec, &
+                               r2,tag, &
+                               mesh%decomp%mpiComm, &
+                               mesh%decomp%requests(msgCount),iError)
               endif
             endif