examples/smpi/NAS/MPI_dummy/wtime.f

   1       subroutine wtime(tim)
   2       real*8 tim
   3       dimension tarray(2)
   4       call etime(tarray)
   5       tim = tarray(1)
   6       return
   7       end
   8
   9
  10
  11
  12