TIMEF

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

Module: USE DFPORT

Syntax

result = TIMEF( )

Results:

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

Compatibility

CONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIB

See Also: Date and Time Procedures

Example

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