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

local function rd_dbl_be(src, s)
	local f1, f2, f3, f4, f5, f6, f7, f8 = src:byte(s, s + 7) -- same
	return rd_dbl_basic(f8, f7, f6, f5, f4, f3, f2, f1)
end
