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

zsq890830

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

fcode

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

[Fortran] syntaxhighlighter_viewsource syntaxhighlighter_copycode

  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'