(* @PATH := '\/Functions_Collection' *) (* @SYMFILEFLAGS := '0' *) FUNCTION WaterDensity : REAL VAR_INPUT i_Temperature : REAL ; END_VAR VAR END_VAR (* @END_DECLARATION := '0' *) WaterDensity := 0.99985 + 0.000061577 * i_Temperature - 0.0000081546 * i_Temperature * i_Temperature + 0.000000047799 * i_Temperature * i_Temperature * i_Temperature ; END_FUNCTION