# 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;