```pascal
FUNCTION "WaterDensity" : Real
{ S7_Optimized_Access := 'FALSE' }
AUTHOR : 'Author'
FAMILY : 'Function'
NAME : 'Name'
VERSION : 1.0
   VAR_INPUT 
      i_Temperature : Real;
   END_VAR


BEGIN
	
	  
	   (* classic code: #WaterDensity := 0.99985 + 0.000061577 * #i_Temperature - 0.0000081546 * #i_Temperature * #i_Temperature + 0.000000047799 * #i_Temperature * #i_Temperature * #i_Temperature ;*)
	   #WaterDensity := REAL#0.99985 + REAL#0.000061577 * #i_Temperature - REAL#0.0000081546 * #i_Temperature * #i_Temperature + REAL#0.000000047799 * #i_Temperature * #i_Temperature * #i_Temperature ;
	
END_FUNCTION


```