DTIME

Portability Function: Returns the elapsed CPU time since the start of program execution when first called, and the elapsed execution time since the last call to DTIME thereafter.

Module

USE IFPORT

result = DTIME (tarray)

tarray

(Output) REAL(4). A rank one array with two elements:

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

Results

The result type is REAL(4). The result is the total CPU time, which is the sum of tarray(1) and tarray(2). If an error occurs, -1 is returned.

Example

 USE IFPORT
 REAL(4) I, TA(2)
 I = DTIME(TA)
 write(*,*) 'Program has been running for', I, 'seconds.'
 write(*,*) ' This includes', TA(1), 'seconds of user time and', &
& TA(2), 'seconds of system time.'

DTIME

Module

Results

Example

See Also