$counts_rebin[$k] = ($counts_rebin[$k] + $value); # l:1153

##</code><code>##

        $counts_rebin[$k] += $value; # l:1153

##</code><code>##

       my $totcount = $rawchannel[$j];
       my $split1 = (($energy_before[$j]-$energy_rebin[$k])*$totcount)/($energy_before[$j]-$energy_before[${j}-1]); # l:1158

##</code><code>##

		$counts_rebin[$k]=($counts_rebin[$k]+($totcount-$split1)); # l:1162

##</code><code>##

	    if(($energy_rebin[$k] >= $energy_before[$j])){ # l:1148

##</code><code>##

            until ($k==@energy_rebin or $energy_rebin[$k]>=$energy_before[$j]){
                $k += 1;
            }

##</code><code>##

        printf REBINOUT pack('V',$counts_rebin[$i]); # l: 1188