root / synthbench / euroben-dm / mod1h / .svn / text-base / timer.f.svn-base @ 0:839f52ef7657
History | View | Annotate | Download (402 Bytes)
| 1 |
Function timer() Result( time ) |
|---|---|
| 2 |
! --------------------------------------------------------------------- |
| 3 |
Use numerics |
| 4 |
Include 'mpif.h' |
| 5 |
real(l_) :: time |
| 6 |
! --------------------------------------------------------------------- |
| 7 |
time = MPI_Wtime() |
| 8 |
! --------------------------------------------------------------------- |
| 9 |
End Function timer |