Portability Function: Returns the number of seconds since the first time it is called, or zero.
Module: USE DFPORT
Syntax
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