Portability Function: Returns the elapsed time in seconds since the start of the current process.
USE IFPORT
result = DCLOCK( )
The result type is REAL(8). This routine provides accurate timing to the nearest millisecond (Windows) or to the nearest microsecond (Linux), taking into account the frequency of the processor where the current process is running.
Note that the first call to DCLOCK performs calibration.
USE IFPORT
DOUBLE PRECISION START_TIME, STOP_TIME
START_TIME = DCLOCK()
CALL FOO()
STOP_TIME = DCLOCK()
PRINT *, 'foo took:', STOP_TIME - START_TIME, 'seconds.'