ETIME (WNT only)

Portability Function: Returns the elapsed CPU time, in seconds, of the process that calls it. This function is currently restricted to WNT systems.

Module: USE DFPORT

Syntax

result = ETIME (array)

array
(Output) REAL(4). Must be a rank one array with two elements:

• array(1) Elapsed user time, which is time spent executing user code. This value includes time running protected Windows subsystem code.
  
  
• array(2) Elapsed system time, which is time spent executing privileged code (code in the Windows Executive).

Results:

The result is of type REAL(4). The result is the total CPU time, which is the sum of array(1) and array(2).

Compatibility

CONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIB

See Also: DATE_AND_TIME

Example

REAL(4) I, TA(2)
I = ETIME(TA)
write(*,*) 'Program has used', I, 'seconds of CPU time.'
write(*,*) '  This includes', TA(1), 'seconds of user time and',  &
& TA(2), 'seconds of system time.'