RTC

Module

USE IFPORT

Syntax

result = RTC( )

Results

The result type is 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

Example

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