examples/smpi/NAS/MPI_dummy/test.f

   1       program
   2       implicit none
   3       double precision t, mpi_wtime
   4       external mpi_wtime
   5       t = 0.0
   6       t = mpi_wtime()
   7       print *, t
   8       t = mpi_wtime()
   9       print *, t
  10       end