# 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.'

Parent topic: C to D

## See Also

DATE_AND_TIME
CPU_TIME