-- float rd_flt_be(string src, int s)
-- @src - Source binary string
-- @s - Start index of big endian float

local function rd_flt_be(src, s)
	local f1, f2, f3, f4 = src:byte(s, s + 3)
	return rd_flt_basic(f4, f3, f2, f1)
end
