计算耗时每次相差0.5秒

chiangtp

for "计算量小的程序"

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

  INTEGER :: clock_rate, clock_max, clocks, clock_1, clock_2           
  REAL    :: sec_elapsed                                               
                                                                       
  ...                                                                  
                                                                       
  CALL SYSTEM_CLOCK(COUNT_RATE=clock_rate, COUNT_MAX=clock_max)        
                                                                       
  ...                                                                  
                                                                       
  !-------                                                             
                                                                       
  CALL SYSTEM_CLOCK(COUNT=clock_1)                                     
  ...                                                                  
  CALL SYSTEM_CLOCK(COUNT=clock_2)                                     
                                                                       
  clocks = clock_2 - clock_1                                           
  IF( clocks < 0 ) clocks = clocks + clock_max                         
  sec_elapsed = REAL(clocks)/REAL(clock_rate)