Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
Initialize common variable.
[simgrid.git] / teshsuite / smpi / mpich3-test / f77 / util / mtestf.f
index ba7092e..f1a137c 100644 (file)
@@ -15,6 +15,8 @@ C       about out-of-order statements
         logical dbgflag
         integer wrank
         common /mtest/ dbgflag, wrank
+        integer myindex
+        common /grr/ myindex
 
         call MPI_Initialized( flag, ierr )
         if (.not. flag) then
@@ -22,6 +24,7 @@ C       about out-of-order statements
         endif
 
         dbgflag = .false.
+        myindex = 0
         call MPI_Comm_rank( MPI_COMM_WORLD, wrank, ierr )
         end
 C
@@ -72,6 +75,7 @@ C A simple get intracomm for now
         endif
         myindex = mod( myindex, 4 ) + 1
         MTestGetIntracomm = comm .ne. MPI_COMM_NULL
+        qsmaller=.true.
         end
 C
         subroutine MTestFreeComm( comm )