[trace] for some reason, simulated time changed in smpi -> fix tesh then

[simgrid.git] / examples / smpi / NAS / MPI_dummy / wtime.f

      subroutine wtime(tim)
      real*8 tim
      dimension tarray(2)
      call etime(tarray)
      tim = tarray(1)
      return
      end