[photon1, c] = fread(fidin, [1], 'int8');   
    if (photon1>0)
        [readout(1,1:3), c] = fread(fidin, [3], 'double');  
        [readout(1,4:5), c] = fread(fidin, [2], 'int32');
        [readout(1,6), c] = fread(fidin, [1], 'double');
    end

##</code><code>##

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);
		}