1.2 call cpu_time(real_time) 方法概述:传入参数是实数型变量,cpu_time子程序得到的是cpu运行的时间。对于串行计算,cpu计算时间与真是时间差别并不是很大,但是对于并行计算并不推荐使用。 优点:最简单的方法 缺点:只适用于单线程,如果是多线程运行,得到的结果是所以线程时间的和! 1.3 call system_clock(count, ...
programmainrealt0,t1integeriblockinteger,allocatable::a(:)callCPU_TIME(t0)a=[1]doi=2,100000a=[a,i]end do! print*, a(100000),size(a)callCPU_TIME(t1)print*,"TOTAL_TIME=",t1-t0end blockblockinteger,allocatable::a(:)callCPU_TIME(t0)allocate(a(100000))doi=1,100000a(i)=iend do!
call cpu_time(finish)print '("Time = ",f6.3," seconds.")',finish-startend program test_cpu_timedate_and_time稍微复杂,但包括很多信息,包括日期,时间,时区,最后一个参数是一个大小为8的整型数组,记录了年,月,日,时区差(以分钟计),小时,分钟,秒,毫秒.program test_time_and_datecharacter(8) ::...
CPU_TIME函数返回一个实数值,表示程序执行的CPU时间。可以根据具体需求选择适合的函数库。 Fortran计时示例代码: 代码语言:fortran 复制 programtiming_exampleimplicit nonereal::start_time,end_time,execution_time! 记录开始时间callcpu_time(start_time)! 执行程序代码! ...! 记录结束时间callcpu_time(end_time)...
call cpu_time(finish)print '("Time = ",f6.3," seconds.")',finish-startend program test_cpu_timedate_and_time稍微复杂,但包括很多信息,包括日期,时间,时区,最后一个参数是一个大小为8的整型数组,记录了年,月,日,时区差(以分钟计),小时,分钟,秒,毫秒.program test_time_and_datecharacter(8) ::...
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 ...
cpu_time返回的是一个浮点型,表示当前CPU运行时间(以秒计)示例program test_cpu_time real :: start, finish call cpu_time(start) ! put code to test here call cpu_time(finish) print '("Time = ",f6.3," seconds.")',finish-startend program test_cpu_timedate_and_time稍微复杂,但包括很多信息...
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(t1)!程序 call cpu_time(t2)write(*,*)'时间是:',t2-t1
CALL CPU_TIME(T1) print *, 'The sum of the user and system time is', T1, 'seconds'. CALL setrteopts ('cpu_time_type=usertime') CALL stallingloop CALL CPU_TIME(T2) print *, 'The total user time from the start of the program is', T2, 'seconds'....