(* @PATH := '\/Functions_Collection\/FillingHead' *)
(* @SYMFILEFLAGS := '0' *)
FUNCTION TankLevelToHeight : REAL
VAR_INPUT
	Level_Percentage					: REAL ;
	Level_Perc0						: REAL ;
	Level_Height0					: REAL ;
	Level_Perc1						: REAL ;
	Level_Height1					: REAL ;
END_VAR
VAR
END_VAR

(* @END_DECLARATION := '0' *)
IF Level_Perc1<>0 THEN
	TankLevelToHeight := (Level_Percentage * (Level_Height1 - Level_Height0) / Level_Perc1) + Level_Height0 ;
END_IF
END_FUNCTION