Fortran Coder

标题: 计算耗时怎么弄的？ [打印本页]

---

作者: shrine    时间: 2020-6-13 11:08
标题: 计算耗时怎么弄的？
我忘了是不是在贵论坛求助的，好像不对

[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           

---

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)

Powered by Discuz! X3.2