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

83 帖子	35 主题	0 精华

专家

F 币: 343 元
贡献: 215 点

发消息

电梯直达

楼主

发表于 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

分享到: 微信

收藏0 点赞0 点踩0

使用道具举报

返回列表发新帖