sub runden {
	my $zahl=shift;
	return undef unless(defined($zahl));
	my $stelle=shift || 0;

	# prepare for Xe[+-]Y Notation
	# handle big float
	my ($pre,$number,$exponent)=$zahl=~/^([-+]?)([\d.]+)(?:e([+-]?\d+))?$/;
	$exponent=0 unless defined($exponent);
	$pre='' if(!$pre || $pre ne '-');

	# full integer number with exponent
	my ($l)=$number=~/\.(.+)$/;
	$exponent-=$l?length($l):0;
	$number=~y/.//d;

	# correct position for round
	my $stellen=$stelle+$exponent;
	if($stellen<0)
	{
	$exponent=-$stelle;
	my $add=substr(('0'x abs($stellen)).$number,$stellen,-$stellen);

	# round...
	$number+=$add;

	$number=('0'x abs($stellen)).sprintf("%.0f",$number);
	substr($number,$stellen,-$stellen,'');
	}

	# reconstruct number
	$zahl="$pre${number}e$exponent";

	# format number
	if($zahl==0)
	{ $zahl='0'; }
	else
	{
	$zahl=sprintf("%.${stelle}f",$zahl);
	$zahl=~s/\.?0+$// if(index($zahl,'.')>0)
	}
	return $zahl;
}