fortran - 测量 Fortran 程序所花费的时间

Question

我最近为了好玩而开始学习 Fortran，我想知道是否有任何简单的方法来显示执行我的代码所花费的时间。这只是一个数到一百万的简单循环，我想看看完成这个需要多长时间。

如果有帮助，这是我正在使用的代码:

program count
    implicit none
    integer :: i

    do i=0,1000000
        print*,i
    end do
end program count

我在 Linux 上使用 gFortran 作为我的编译器。我正在使用 Geany 作为文本编辑器。

Answer 1

在 Fortran 90 或更高版本中，使用 SYSTEM_CLOCK 内部子例程:

call system_clock(beginning, rate)
result = do_computation()
call system_clock(end)
print *, "elapsed time: ", real(end - beginning) / real(rate)