Исправление gns, (текущая версия) :
Раз пошла такая пьянка... Мне не лень и фортран потестировать :)
program test
integer*8 i
real*8 sum /0.0/
do i = 0, 100000000-1, 1
sum = sum + dsin(real(i,8))
enddo
write (6, *) sum
end program test
Угу, таки быстрее!
gleb@raccoon:~/src/hlam$ cpuinfo
Intel(R) Core(TM) i5-3320M Processor (Intel64 )
g++ -std=c++11 -o test test.cpp
gleb@raccoon:~/src/hlam$ time ./test
0.78201
real 0m3.850s
user 0m3.848s
sys 0m0.004s
ifort -o test test.f90
gleb@raccoon:~/src/hlam$ time ./test
0.782010319460671
real 0m1.256s
user 0m1.257s
sys 0m0.000s
Исходная версия gns, :
Раз пошла такая пьянка... Мне не лень и фортран потестировать :)
program test
integer*8 i
real*8 sum /0.0/
do i = 0, 100000000-1, 1
sum = sum + dsin(real(i,8))
enddo
write (6, *) sum
end program test
Угу!
gleb@raccoon:~/src/hlam$ cpuinfo
Intel(R) Core(TM) i5-3320M Processor (Intel64 )
g++ -std=c++11 -o test test.cpp
gleb@raccoon:~/src/hlam$ time ./test
0.78201
real 0m3.850s
user 0m3.848s
sys 0m0.004s
ifort -o test test.f90
gleb@raccoon:~/src/hlam$ time ./test
0.782010319460671
real 0m1.256s
user 0m1.257s
sys 0m0.000s