您所在位置：主题：关于QueryPerformanceFrequency，每次跳出的时间都不一样啊
kingsky
[专家分：20] 发布于 2012-05-06 15:06:00
program main
Use DFPort
Use Kernel32
implicit none
integer::...
real::...
iss = QueryPerformanceCounter( Loc(a) )
do i=1,100
...
enddo
iss = QueryPerformanceCounter( Loc(b) )
write(*,*)'Time of operation was ',(b-a)*1.0_8/f*1.0_8, ' seconds'
end
Use DFPort
Use Kernel32
implicit none
integer::...
real::...
iss = QueryPerformanceCounter( Loc(a) )
do i=1,100
...
enddo
iss = QueryPerformanceCounter( Loc(b) )
write(*,*)'Time of operation was ',(b-a)*1.0_8/f*1.0_8, ' seconds'
end
