Intel® Fortran Compiler 16.0 User and Reference Guide
Portability Function: Returns the number of seconds elapsed since a specific Greenwich mean time.
USE IFPORT
result = RTC( )
The result type is REAL(8). The result is the number of seconds elapsed since 00:00:00 Greenwich mean time, January 1, 1970.
USE IFPORT real(8) s, s1, time_spent INTEGER(4) i, j s = RTC( ) call sleep(4) s1 = RTC( ) time_spent = s1 - s PRINT *, 'It took ',time_spent, 'seconds to run.'