cpu_time(x): CPU Elapsed Time¶

CPU elapsed time in seconds.

Declaration¶

Syntax¶

retval = cpu_time(x)
pure subroutine cpu_time(x)

Arguments¶

x the input value should be of type real with intent(out).

Return values¶

None.

Описание¶

cpu_time(time) returns a real value representing the elapsed CPU time in seconds. If tine source is available, time will be reported with microsecond resolution. If no time source is available, TIME is set to -1.0.

This is useful for testing segments of code to determine computation time.

For cpu_time(time) the absolute value is meaningless, only differences between subsequent calls to this subroutine, as shown in the example below, should be used.

Types¶

Supported input parameter types is real with intent(out).

pure subroutine cpu_time(t)
real(dp), intent(out) :: t
call c_cpu_time(t)
end subroutine

Examples¶

program intrinsics_cpu_time
    implicit none
	real(dp) :: t1, t2
	call cpu_time(t1)
	print *, "Some computation"
    call cpu_time(t2)
    print *, "Total time: ", t2-t1
end program

Result:

Some computation
20