flops.hpf

shpf 1.9一个并行编译器

      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