DTIME — Execution time subroutine (or function)#
-
DTIME(VALUES, TIME)#
DTIME(VALUES, TIME)
initially returns the number of seconds of runtime since the start of the process’s execution inTIME
.VALUES
returns the user and system components of this time inVALUES(1)
andVALUES(2)
respectively.TIME
is equal toVALUES(1) + VALUES(2)
.- Parameters
VALUES – The type shall be
REAL(4), DIMENSION(2)
.TIME – The type shall be
REAL(4)
.
- Returns
Elapsed time in seconds since the last invocation or since the start of program execution if not called before.
- Standard:
GNU extension
- Class:
Subroutine, function
- Syntax:
CALL DTIME(VALUES, TIME). TIME = DTIME(VALUES), (not recommended).
- Example:
program test_dtime integer(8) :: i, j real, dimension(2) :: tarray real :: result call dtime(tarray, result) print *, result print *, tarray(1) print *, tarray(2) do i=1,100000000 ! Just a delay j = i * i - i end do call dtime(tarray, result) print *, result print *, tarray(1) print *, tarray(2) end program test_dtime
- See also: