Fortran Coder

查看: 61|回复: 0

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

[复制链接]

58

帖子

21

主题

0

精华

熟手

F 币
270 元
贡献
165 点
发表于 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           

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

QQ|捐赠本站|Archiver|关于我们 About Us|群聊|Fcode

GMT+8, 2020-7-8 19:57

Powered by Discuz! X3.2

© 2001-2017 Comsenz Inc.

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