计算耗时怎么弄的？
我忘了是不是在贵论坛求助的，好像不对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
页:
[1]