RTC

Portability Function: Returns the number of seconds elapsed since a specific Greenwich mean time.

Module: USE DFPORT

Syntax

result = RTC( )

Results:

The result is of type REAL(8). The result is the number of seconds elapsed since 00:00:00 Greenwich mean time, January 1, 1970.

Compatibility

CONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIB

See Also: DATE_AND_TIME, TIME

Example

 USE DFPORT
 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.'