cpu_time(x)：CPU 运行时间¶
CPU 运行时间（以秒为单位）。
声明¶
语法¶
retval = cpu_time(x)
pure subroutine cpu_time(x)
参数¶
x 输入值应该是带有 intent(out) 的实数类型。
返回值¶
无。
描述¶
cpu_time(time) 返回一个实数值，以秒为单位表示经过的 CPU 时间。 如果齿源可用，时间将以微秒分辨率报告。 如果没有可用的时间源，则将 TIME 设置为 -1.0。
这对于测试代码段以确定计算时间很有用。
cpu_time(time) 的绝对值是没有意义的，只有后续调用这个子程序之间的差异，如下例所示，应该被使用。
类型¶
支持的输入参数类型为 intent(out) 和实数。
pure subroutine cpu_time(t)
real(dp), intent(out) :: t
call c_cpu_time(t)
end subroutine
示例¶
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
结果：
Some computation
20