```pascal
FUNCTION "TankLevelToHeight" : Real
{ S7_Optimized_Access := 'FALSE' }
AUTHOR : 'Author'
FAMILY : 'Function'
NAME : 'Name'
VERSION : 1.0
   VAR_INPUT 
      Level_Percentage : Real;
      Level_Perc0 : Real;
      Level_Height0 : Real;
      Level_Perc1 : Real;
      Level_Height1 : Real;
   END_VAR


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


```