Visible to Intel only — GUID: GUID-CE993B32-9791-408D-9CCF-B6629A85E5D5
Visible to Intel only — GUID: GUID-CE993B32-9791-408D-9CCF-B6629A85E5D5
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.
USE IFPORT
result = DTIME (tarray)
tarray |
(Output) REAL(4). A rank one array with two elements:
|
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.
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.'