くだすれFORTRAN（超初心者用）その6

707 ：デフォルトの名無しさん：2014/12/20(土) 11:31:57.54 ID:9/Q8xBDD.net

『if … else if … end if』と『select case …』はどっちが速いのか，ふと思って計測してみた．
cygwin gcc 4.8.3@core-i5で繰り返し計測してみたけど，時間差はばらつきの範囲内で有意な差はなさそうな感じ．
二つの構文ともCPU時間同じ，機能も同じで，いまいち，使い分け方が分からないんだよねぇ．．．

使ったコードはこれ↓
module mod_util
implicit none
integer(kind=4) :: t1, t2, t_rate, t_max, t_diff
contains
real(8) function elapsedTime()
implicit none
call SYSTEM_CLOCK(t2, t_rate, t_max)
if ( t2 < t1 ) then
t_diff = t_max - t1 + t2
else
t_diff = t2 - t1
endif
elapsedTime = t_diff/real(t_rate)
end function elapsedTime
end module mod_util