# TIMEF

Portability Function: Returns the number of seconds since the first time it is called, or zero.

## Module

USE IFPORT

result = TIMEF( )

## Results

The result type is REAL(8). The result value is the number of seconds that have elapsed since the first time TIMEF was called.

The first time it is called, TIMEF returns 0.

## Example

     USE IFPORT
     INTEGER i, j
     REAL(8) elapsed_time
     elapsed_time = TIMEF( )
     DO i = 1, 100000
        j = j + 1
     END DO
     elapsed_time = TIMEF( )
     PRINT *, elapsed_time
     END

Parent topic: T to Z

## See Also

Date and Time Procedures