# RTC

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

## Module

USE IFPORT

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.

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

Parent topic: Q to R

## See Also

DATE_AND_TIME
TIME portability routine