Intel® Fortran Compiler 18.0 Developer Guide and Reference
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* and macOS*), 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.'