Portability Function: Returns the elapsed CPU time, in seconds, of the process that calls it.
USE IFPORT
result = ETIME (array)
array |
(Output) REAL(4). Must be 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 array(1) and array(2).
CONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIB
USE IFPORT
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.'