sub scicon {
	my @result;
	for my $i (0 .. $#_) {
		my $string_in = $_[$i];
		$string_in =~ /(-?\d.\d+)E(.\d+)/;
		my ($const, $expon) = ($1, $2);
		$result[$i] = ($const * 10 ** $expon);
	}
	return @result;
}