$tmp = unpack("s", substr $blk,9,2) / 10;
$h{Temp_In} = nearest(0.1, f2c($tmp));
$temp = nearest(0.1, f2c(unpack("s", substr $blk,12,2) / 10));
$h{Temp_Out} = $temp;
$tmp = unpack("s", substr $blk,9,2) / 10;
$h{Temp_In} = nearest(0.1, f2c($tmp));
$temp = nearest(0.1, f2c(unpack("s", substr $blk,12,2) / 10));
$h{Temp_Out} = $temp;