root / synthbench / euroben-dm / mod1h / timer.f @ 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 |