计算耗时怎么弄的？

shrine

我忘了是不是在贵论坛求助的，好像不对

[Fortran] 纯文本查看 复制代码

查看代码

打印?

01	CALL CPU_TIME ( time_begin )

02	iss = QueryPerformanceFrequency( Loc(f) )

03	iss = QueryPerformanceCounter( Loc(a) )

04

05

......

06

......

07

.....

08

09	iss = QueryPerformanceCounter( Loc(b) )

10	CALL CPU_TIME ( time_end )

11	write(*,*)'Time of operation was ',(b-a)*1.0_8/f*1.0e-5_QP, ' seconds' ,t,step