DCLOCK

Portability Function: Returns the elapsed time in seconds since the start of the current process.

Module

USE IFPORT

Syntax

result = DCLOCK( )

Results

The result type is REAL(8). This routine provides accurate timing to the nearest microsecond, taking into account the frequency of the processor where the current process is running. You can obtain equivalent results using standard Fortran by using the CPU_TIME intrinsic subroutine.

Note that the first call to DCLOCK performs calibration.

Compatibility

CONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIB

Example

USE IFPORT

DOUBLE PRECISION START_TIME, STOP_TIME, DCLOCK

EXTERNAL DCLOCK

START_CLOCK = DCLOCK()

CALL FOO()

STOP_CLOCK = DCLOCK()

PRINT *, 'foo took:', STOP_CLOCK - START_CLOCK, 'seconds.'

See Also