fortran中计算程序用时的函数

在Fortran中，可以使用系统函数来计算程序的运行时间。具体来说，可以使用`CPU_TIME`函数来获取程序的CPU执行时间。下面是一个示例代码：

program timing_example
  implicit none
  real :: start_time, end_time, elapsed_time
  integer :: i

  ! 获取程序开始时间
  call cpu_time(start_time)

  ! 执行需要计时的代码
  do i = 1, 1000000
     ! 这里可以是任何需要计时的代码
  end do

  ! 获取程序结束时间
  call cpu_time(end_time)

  ! 计算程序运行时间
  elapsed_time = end_time - start_time

  ! 输出结果
  write(*,*) '程序运行时间:', elapsed_time, '秒'

end program timing_example

上述代码通过调用`CPU_TIME`函数来获取程序的开始时间和结束时间，并计算两者之间的差值得到程序的运行时间。请注意，`CPU_TIME`返回的时间单位是秒。

希望这能回答你的问题！如果还有其他问题，请继续提问。