Исправление thunar, (текущая версия) :
что то не получается — не совпадают значения
real(4)::a
do i=0,200
a=i
print *, fastlog(a),log(a)/log(2.)
enddo
end
function fastlog(x) result(y)
real(4)::x,y
real(4)::r4Mant
integer(1)::i1Exp
r4Mant=SET_EXPONENT(x, 0)
i1Exp=EXPONENT(x)
y=r4Mant*1./log(2.) + i1Exp
endfunction
Исходная версия thunar, :
что то не получается
real(4)::a
do i=0,200
a=i
print *, fastlog(a),log(a)/log(2.)
enddo
end
function fastlog(x) result(y)
real(4)::x,y
real(4)::r4Mant
integer(1)::i1Exp
r4Mant=SET_EXPONENT(x, 0)
i1Exp=EXPONENT(x)
y=r4Mant*1./log(2.) + i1Exp
endfunction