sub dec2eng {
($mydecimal)=@_;
$myscience = sprintf("%e", $mydecimal);
return $myscience;
}