?? flops.hpf
字號:
SUBROUTINE FLOPS(IO,FLOP,TBRV,TTFG,TBFLY,TBRS)
INTEGER FLOP
DOUBLE PRECISION TBRV,TTFG,TBFLY,TBRS,BENCH
BENCH=FLOP/TBFLY/1E6
WRITE(IO,*)'CALCULATION FINISHED.'
WRITE(IO,*)
WRITE(IO,*)' ********************************************'
WRITE(IO,*)' * *'
WRITE(IO,*)' * BENCHMARKING RESULTS *'
WRITE(IO,*)' * *'
WRITE(IO,*)' ********************************************'
WRITE(IO,*)
WRITE(IO,*)' TOTAL TIME INCL. INITIALISATION =',
* TBRV+TTFG+TBFLY+TBRS,' seconds'
WRITE(IO,*)
WRITE(IO,*)' Bit-reversed vector , exec. time =',
* TBRV,' seconds'
WRITE(IO,*)' Twiddle factors , exec. time =',
* TTFG,' seconds'
WRITE(IO,*)' Butterfly phase , exec. time =',
* TBFLY,' seconds'
WRITE(IO,*)' Bit-reversed shuffle, exec. time =',
* TBRS,' seconds'
WRITE(IO,*)
WRITE(IO,*)'TOTAL NUMBER OF NOMINAL FLOPS =',FLOP,' flop'
WRITE(IO,*)
WRITE(IO,*)'********************************************'
WRITE(IO,*)
WRITE(IO,'( 2(A, F7.3, A/))')
* 'BENCHMARKED TIME =',TBFLY,' s' ,
* 'BENCHMARKED PERFORMANCE =',BENCH,' Mflop/s'
WRITE(IO,*)
WRITE(IO,*)'********************************************'
END
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -