(* @PATH := '\/Functions_Collection' *)
(* @SYMFILEFLAGS := '0' *)
FUNCTION ArrayToReal : REAL
VAR_INPUT
	mIn_Value				: POINTER TO BYTE;
END_VAR
VAR
	i						: INT;
	p						: UDINT;
	p1						: UDINT;
	mPoint					: POINTER TO BYTE;
	mPoint1					: POINTER TO BYTE;
	mTemp					: REAL;
END_VAR
(* @END_DECLARATION := '0' *)
mPoint := ADR(mTemp);
FOR i := 3 TO 0 BY -1
DO
	p1 := mIn_Value;
	mPoint1 := p1 + i;
	mPoint^ := mPoint1^;
	p := mPoint ;
	p := p + 1 ;
	mPoint := p ;
END_FOR
ArrayToReal := mTemp;

END_FUNCTION