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)
|