TIMEF

Module

USE IFPORT

Syntax

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.

Compatibility

CONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIB

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