1.2 call cpu_time(real_time) 方法概述:传入参数是实数型变量,cpu_time子程序得到的是cpu运行的时间。对于串行计算,cpu计算时间与真是时间差别并不是很大,但是对于并行计算并不推荐使用。 优点:最简单的方法 缺点:只适用于单线程,如果是多线程运行,得到的结果是所以线程时间的和! 1.3 call system_clock(count, ...
您可以使用setrteopts过程来设置cpu_time_type运行时选项。对cpu_time_type设置的每个更改都将影响对CPU_TIME的所有后续调用。 示例 Example 1: ! The default value for cpu_time_type is used REAL T1, T2 ... ! First chunk of code to be timed CALL CPU_TIME(T1) ... ! Second chunk of code ...
【解析】cpu time返回的是一个浮点型,表示当前C PU运行时间(以秒计) 示例 program test cpu time real :: start, finish call cpu_time(start) ! put code to test here call cpu_time(finish) print '("T ime = ",f6.3," seconds.")',finish-sta end program test cpu time date and time稍微复...
call CPU_Time(time):获得当前CPU时钟,可用于检查程序段的执行时间。特点是多线程会多次计算,其他进程占用的CPU不计入; call System_Clock([count][,count_rate][,count_max]):获取系统时间(基于1970年),也可用于检查程序段执行时间,特点是计算物理时间消耗。 12. 参考代码 ...
call cpu_time(start) do i = 1, n c(i) = a(i) + b(i) end do call cpu_time(end) print *, 'Manual loop computation time:', end - start contains subroutine cpu_time(time) real, intent(out) :: time call system_clock(count, count_rate) ...
call cpu_time(finish)print '("Time = ",f6.3," seconds.")',finish-startend program test_cpu_timedate_and_time稍微复杂,但包括很多信息,包括日期,时间,时区,最后一个参数是一个大小为8的整型数组,记录了年,月,日,时区差(以分钟计),小时,分钟,秒,毫秒.program test_time_and_datecharacter(8) ::...
programtiming_exampleimplicit nonereal::start_time,end_time,execution_time! 记录开始时间callcpu_time(start_time)! 执行程序代码! ...! 记录结束时间callcpu_time(end_time)! 计算执行时间execution_time=end_time-start_time! 输出执行时间write(*,*)"程序执行时间:",execution_time,"秒"end programtiming...
call CPU_TIME(time_begin) write(*,*) time_begindoj =1,30Do i=1,300000000End Do call CPU_TIME(time_end1) write(*,*) j , time_end1 , time_end1 -time_begin enddocall CPU_TIME(time_end2) write(*,*)'t', time_end2 , time_end2 - time_beginend ...
program main real t0,t1 integer i block integer,allocatable::a(:) call CPU_TIME(t0) a=[1] do i=2,100000 a=[a,i] end do ! print*, a(100000),size(a) call CPU_TIME(t1) print*, "TOTAL_TIME=", t1-t0 end block block integer,allocatable::a(:) call CPU_TIME(t0) allocate(a...
call cpu_time(finish)print '("Time = ",f6.3," seconds.")',finish-startend program test_cpu_timedate_and_time稍微复杂,但包括很多信息,包括日期,时间,时区,最后一个参数是一个大小为8的整型数组,记录了年,月,日,时区差(以分钟计),小时,分钟,秒,毫秒.program test_time_and_datecharacter(8) ::...