Intel® Fortran Compiler 16.0 User and Reference Guide
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* OS) or to the nearest microsecond (Linux* OS and OS X*), 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_CLOCK = DCLOCK() CALL FOO() STOP_CLOCK = DCLOCK() PRINT *, 'foo took:', STOP_CLOCK - START_CLOCK, 'seconds.'