Various doc improvements

[simgrid.git] / teshsuite / smpi / mpich3-test / f77 / coll / reducelocalf.f

diff --git a/teshsuite/smpi/mpich3-test/f77/coll/reducelocalf.f b/teshsuite/smpi/mpich3-test/f77/coll/reducelocalf.f
index aaaee12b45eac964877214b9be8cc58f12a2387b..66eecf27021c8ae4da458bac18b6d269b540caf4 100644 (file)
--- a/teshsuite/smpi/mpich3-test/f77/coll/reducelocalf.f
+++ b/teshsuite/smpi/mpich3-test/f77/coll/reducelocalf.f
@@ -1,4 +1,4 @@
-C -*- Mode: Fortran; -*- 
+C -*- Mode: Fortran; -*-
 C
 C  (C) 2009 by Argonne National Laboratory.
 C      See COPYRIGHT in top-level directory.
@@ -6,6 +6,24 @@ C
 C
 C Test Fortran MPI_Reduce_local with MPI_OP_SUM and with user-defined operation.
 C
+      subroutine user_op( invec, outvec, count, datatype )
+      implicit none
+      include 'mpif.h'
+      integer invec(*), outvec(*)
+      integer count, datatype
+      integer ii
+
+      if (datatype .ne. MPI_INTEGER) then
+         write(6,*) 'Invalid datatype passed to user_op()'
+         return
+      endif
+
+      do ii=1, count
+         outvec(ii) = invec(ii) * 2 + outvec(ii)
+      enddo
+
+      end
+
       program main
       implicit none
       include 'mpif.h'
@@ -16,7 +34,7 @@ C
       integer ierr, errs
       integer count, myop
       integer ii
-      
+
       errs = 0
 
       call mtest_init(ierr)
@@ -26,7 +44,7 @@ C
          do ii = 1,count
             vin(ii) = ii
             vout(ii) = ii
-         enddo 
+         enddo
          call mpi_reduce_local( vin, vout, count,
      &                          MPI_INTEGER, MPI_SUM, ierr )
 C        Check if the result is correct
@@ -37,7 +55,7 @@ C        Check if the result is correct
             if ( vout(ii) .ne. 2*ii ) then
                errs = errs + 1
             endif
-         enddo 
+         enddo
          if ( count .gt. 0 ) then
             count = count + count
          else
@@ -48,7 +66,7 @@ C        Check if the result is correct
       call mpi_op_create( user_op, .false., myop, ierr )
 
       count = 0
-      do while (count .le. max_buf_size) 
+      do while (count .le. max_buf_size)
          do ii = 1, count
             vin(ii) = ii
             vout(ii) = ii
@@ -77,21 +95,3 @@ C        Check if the result is correct
       call mpi_finalize(ierr)
 
       end
-
-      subroutine user_op( invec, outvec, count, datatype )
-      implicit none
-      include 'mpif.h'
-      integer invec(*), outvec(*)
-      integer count, datatype
-      integer ii
-
-      if (datatype .ne. MPI_INTEGER) then
-         write(6,*) 'Invalid datatype passed to user_op()'
-         return
-      endif
-      
-      do ii=1, count
-         outvec(ii) = invec(ii) * 2 + outvec(ii)
-      enddo
-
-      end