Fortran Coder

查看: 8091|回复: 0
打印 上一主题 下一主题

[求助] 计算耗时怎么弄的?

[复制链接]

86

帖子

36

主题

0

精华

专家

F 币
353 元
贡献
221 点
跳转到指定楼层
楼主
发表于 2020-6-13 11:08:01 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
我忘了是不是在贵论坛求助的,好像不对

[Fortran] 纯文本查看 复制代码
CALL CPU_TIME ( time_begin )
      iss = QueryPerformanceFrequency( Loc(f) )
      iss = QueryPerformanceCounter( Loc(a) )

......
......
.....

iss = QueryPerformanceCounter( Loc(b) )
        CALL CPU_TIME ( time_end )
        write(*,*)'Time of operation was ',(b-a)*1.0_8/f*1.0e-5_QP, ' seconds' ,t,step           

分享到:  微信微信
收藏收藏 点赞点赞 点踩点踩
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

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

GMT+8, 2024-12-27 14:22

Powered by Tencent X3.4

© 2013-2024 Tencent

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