read(BIN_DATA, $bin_data, $short_int_size);
		# Convert from binary to a numeric value
		$photon1 = unpack('C', $bin_data);
		if ($photon1>0) {
			read(BIN_DATA, $bin_data, $double_size);
			$x1 = unpack('f', $bin_data);
			read(BIN_DATA, $bin_data, $double_size);
			$y1 = unpack('f', $bin_data);
			read(BIN_DATA, $bin_data, $double_size);
			$z1 = unpack('f', $bin_data);
			read(BIN_DATA, $bin_data, $int_size);
			$obj_scatt1 = unpack('L', $bin_data);
			read(BIN_DATA, $bin_data, $int_size);
			$coll_scatt1 = unpack('L', $bin_data);
			read(BIN_DATA, $bin_data, $double_size);
			$en1 = unpack('f', $bin_data);
		}