Removed trailing white spaces

abrooks1085 · Feb 27, 2025 · 260f54d · 260f54d
1 parent a93702f
commit 260f54d
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 4 deletions.
diff --git a/mpp/include/mpp_gather.fh b/mpp/include/mpp_gather.fh
@@ -34,7 +34,7 @@ subroutine MPP_GATHER_1D_(sbuf, rbuf, pelist)
 !  If pelist is provided, the first position must be the operation root, w.r.t. new comm, op_root = 0
    if(PRESENT(pelist))then
       if(.not.ANY(mpp_pe().eq.pelist(:))) return
-      op_root = 0 
+      op_root = 0
       nproc = size(pelist)
       call mpp_declare_pelist( pelist, commID=commID )
    else
@@ -85,7 +85,7 @@ subroutine MPP_GATHER_1DV_(sbuf, ssize, rbuf, rsize, pelist)
 
    call MPI_GATHERV(sbuf, ssize, MPI_TYPE_, &
                     rbuf, rsize, displs, MPI_TYPE_, 0, commID, ierr)
-   
+
    !call mpp_sync_self(check=EVENT_RECV)
    call mpp_sync_self()
    if(pe .eq. op_root) deallocate(displs)

diff --git a/mpp/include/mpp_scatter.fh b/mpp/include/mpp_scatter.fh
@@ -138,7 +138,7 @@ subroutine MPP_SCATTER_PELIST_3D_(is, ie, js, je, nk, pelist, array_seg, input_d
    call mpp_sync_self()
 
    if (is_root_pe) deallocate(temp)
-   
+
    return
 
 end subroutine MPP_SCATTER_PELIST_3D_

diff --git a/test_fms/mpp/test_mpp_gatscat.F90 b/test_fms/mpp/test_mpp_gatscat.F90
@@ -614,7 +614,7 @@ subroutine test_gather_R4(npes,pe,root,out_unit)
 
      rdata = -1.0
      if(ANY(pe == pelist(2:npes)))call mpp_gather((/val/),rdata(2:npes),pelist(2:npes))
-     print *, 'pe: ', pe, 'rdata: ', rdata 
+     print *, 'pe: ', pe, 'rdata: ', rdata
      if(pe == pelist(2))then
        do i=2,npes
         if(INT(rdata(i)) /= pelist(i))then
-Original file line number
+Diff line change
@@ Expand Up @@
        call mpp_sync_self()
        if (is_root_pe) deallocate(temp)
        return
     end subroutine MPP_SCATTER_PELIST_3D_
@@ Expand Down @@