Parse a number in scientific notation

[stephan.herbig]

VAR
	rVar : REAL;
	stVar : STRING[80];
END_VAR

PROGRAM _INIT
	stVar	:= '+0.9876E+1';
END_PROGRAM

PROGRAM _CYCLIC
	rVar	:= STRING_TO_REAL(stVar);
END_PROGRAM