Split up Fortran bindings in several files to avoid 2000 lines files.

[simgrid.git] / examples / smpi / energy / f77 / sef.f

diff --git a/examples/smpi/energy/f77/sef.f b/examples/smpi/energy/f77/sef.f
index b4aba21ddc3c30b5fb5a2a1e57382fccd898c419..4cbc5a36432c2c521e6d831aca74fa463d4855d8 100644 (file)
--- a/examples/smpi/energy/f77/sef.f
+++ b/examples/smpi/energy/f77/sef.f
@@ -53,6 +53,8 @@
      &         rank, ']',' Energy consumed (Joules): ', e
       end do
 
+      flush(6)
+
       call MPI_Finalize(ierr)
       if (ierr .ne. MPI_SUCCESS) then
          print *, 'MPI_Finalize failed:', ierr