论坛 › Fortran语法讨论 › 如何计算每次循环所用的时间

zsq890830 发表于 2014-10-10 11:18:29

如何计算每次循环所用的时间

do 10,i=1,20,1
        print*,i
10        continue
        end
我想计算一个程序每次循环运行的时间，不知道该怎么弄，大神帮下忙，我是菜鸟，最好能详细点

fcode 发表于 2014-10-10 11:21:52

通常的办法是使用 CPU_TIME，你可以看看这个函数的帮助。

REAL time_begin, time_end
...
CALL CPU_TIME ( time_begin )!

do i=1,20,1
         print*,i
End Do

CALL CPU_TIME ( time_end )

WRITE (*,*) 'Time of operation was ', time_end - time_begin, ' seconds'

查看完整版本: 如何计算每次循环所用的时间