(* Código SCL generado desde LAD TwinCAT *)
(* Convertidor mejorado con SymPy - Estructura DNF preferida *)
(* Path original: \/Functions_Collection *)

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


(* === CÓDIGO PRINCIPAL === *)

    (* Código ST original *)
    (* @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
END_FUNCTION