割り算を避ける: Sample 1: 基本(FORTRAN)

高速化プログラミング   
トップ  >  演算数と高速化  >  割り算を避ける  >  Sample 1: 基本(FORTRAN)

割り算を避ける: Sample 1: 基本(FORTRAN)

言語の変更:   C版

■ 概要

ここでは割り算を掛け算に置き換えるときの計算時間の違いを調べます。計算するのは配列xを2で割るという単純な割り算です。

y=x/2           ... 式(1)

式(1)を掛け算に変えるだけで非常に簡単ですが、とりあえず下の「回答例」ボタンをクリックすれば、式(2)に回答例が表示されます。

          ... 式(2)

Code 1は式(1)によってコーディングしたものです。Code 2は式(2)によってコーディングしたものです。配列xとyのサイズnは10,000とします。計算時間が非常に短いので、より正確な計算時間を得るためにこの計算は50,000回まわします。

このコードを見て不可解と思われる方はいるかもしれません。例えばCode 1ではtwoの変数を定義するときはわざわざjを足してその後jで引いたりしています(コード中の赤いフォントの部分を見てください)。これは「定数での割り算を掛け算に置き換える」というコンパイラーの最適化機能を無効にするための露骨なやり方です。このように書かないと、コンパイル時に「2で割り算」が自動的に「0.5と掛け算」に変えられてしまうからです。このサンプルでは余計な機能ですが、本当はとてもありがたい機能だとお伝えしておきましょう。

■ ソースコード


  ◆ Code 1   ◆ Code 2
 
      program main
      implicit none
      real*8, allocatable :: x(:), y(:)
      real*8 time, two
      integer*8 time0, time1, dtime
      integer i, j, n, m
c
      n = 10000
      m = 50000

c Initialization
      allocate(x(n), y(n))
      do i=1,n
        x(i) = rand()
      end do

c Start time
      call system_clock(time0)

c Main calculation
      do j=1,m
        two = j + 2d0 - j
        do i=1,n
          y(i) = x(i) / two
        end do
      end do

c Finish time
      call system_clock(time1, dtime)

c Output time
      time = 1d0*(time1-time0)/dtime
      write(*,"(a7,f16.7)")"Time = ",time

      deallocate(x, y)
      end program

    
 
      program main
      implicit none
      real*8, allocatable :: x(:), y(:)
      real*8 time, half
      integer*8 time0, time1, dtime
      integer i, j, n, m
c
      n = 10000
      m = 50000

c Initialization
      allocate(x(n), y(n))
      do i=1,n
        x(i) = rand()
      end do

c Start time
      call system_clock(time0)

c Main calculation
      do j=1,m
        half = j + 0.5d0 - j
        do i=1,n
          y(i) = x(i) * half
        end do
      end do

c Finish time
      call system_clock(time1, dtime)

c Output time
      time = 1d0*(time1-time0)/dtime
      write(*,"(a7,f16.7)")"Time = ",time

      deallocate(x, y)
      end program

    

■ 計算時間の測定結果

Code 1Code 2の計算時間の測定結果を表1に示します。ここではそれぞれのコードを5回実行して、平均とCode 1Code 2との計算時間の比率も表示します。

表1 計算時間の測定結果(単位: sec)
1回目 2回目 3回目 4回目 5回目 平均 倍率
Code 1 1.03 1.05 1.03 1.03 1.03 1.03 2.32
Code 2 0.45 0.45 0.45 0.44 0.44 0.45 -

■ 考察

表1の結果から割り算が掛け算の2.5倍弱遅いことが分かります。ただこれらの計算には掛け算と割り算の計算のほかにループの処理やメモリアクセスなどの計算コストもありますので、実際割り算と掛け算の比率はそれ以上あるはずです。



はじめに

演算数を減らす

メモリジャンプを減らす

高性能のアルゴリズム

その他



5 0 0 3 7 9