设为首页收藏本站如何选择编译器？在线F77转F90繁体浏览
 切换到窄版 开启辅助访问

Fortran Coder

Fortran Coder»论坛 › 研讨区 › Fortran语法讨论 › 如何计算每次循环所用的时间
返回列表 发新帖
查看: 8851|回复: 1
打印 上一主题 下一主题

[求助] 如何计算每次循环所用的时间

[复制链接]
zsq890830

2

帖子

2

主题

0

精华

新人

F 币
16 元
贡献
10 点
跳转到指定楼层
楼主
发表于 2014-10-10 11:18:29 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
do 10,i=1,20,1
        print*,i
10        continue
        end
我想计算一个程序每次循环运行的时间，不知道该怎么弄，大神帮下忙，我是菜鸟，最好能详细点

回复

使用道具 举报

fcode实名认证

2038

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1682 元
贡献
715 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章
沙发
发表于 2014-10-10 11:21:52 | 只看该作者
通常的办法是使用 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'
回复 支持 1 反对 0

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2025-6-24 15:59

Powered by Tencent X3.4

© 2013-2025 Tencent

快速回复 返回顶部 返回列表