let f_sizeof = function | Float16 -> 16 | Float32 -> 32 | Float64 -> 64 | Float96 -> 96 | Float128 -> 128