Back to index

timing

function timing(mode) result(time)
  implicit none
  integer , optional :: mode
  real(kind=8)       :: time

This functions returns a timing measure that is robust to parallelization. In particular, it computes the number of seconds since 00:00h of the 1st day of the month. The variable mode controls how time is measured:

• If mode = 1, time is measured in seconds (default).
• If mode = 2, time is measures in minutes.
• If mode = 3, time is measured in hours

Internal dependencies: none

Example

Measure execution time in minutes:

time0 = timing( )

! ... some code ...

time1 = timing( )

print * , time1 - time2 , 'secs'

time0 = timing(2)

! ... some code ...

time1 = timing(2)

print * , time1 - time2 , 'min'

time0 = timing(3)

! ... some code ...

time1 = timing(3)

print * , time1 - time2 , 'hours'