```pascal
FUNCTION "FillingTime" : Void
{ S7_Optimized_Access := 'FALSE' }
AUTHOR : 'Author'
FAMILY : 'Function'
NAME : 'Name'
VERSION : 1.0
   VAR_INPUT 
      i_FillingValveHead : Real;   // in mmH2O
      i_BottleSize : Real;
   END_VAR

   VAR_OUTPUT 
      FillingTime : Real;
   END_VAR

   VAR_TEMP 
      a : Real;
      b : Real;
      c : Real;
      d : Real;
      mFillingSpeed : Real;   // in ml/sec
   END_VAR


BEGIN
	(* classic code: #a := 1.2522E-7 ;*)
	#a := REAL#1.2522E-7 ;
	(* classic code: #b := -3.8E-4 ;*)
	#b := REAL#-3.8E-4 ;
	(* classic code: #c := 4.4505E-1 ;*)
	#c := REAL#4.4505E-1 ;
	(* classic code: #d := 0.0 ;*)
	#d := REAL#0.0 ;
	
	#mFillingSpeed := #a * SQR (#i_FillingValveHead)* #i_FillingValveHead + #b * SQR (#i_FillingValveHead) + #c * #i_FillingValveHead + #d ;
	
	(* classic code: IF #mFillingSpeed <> 0.0 THEN*)
	IF #mFillingSpeed <> REAL#0.0 THEN
	    #FillingTime := #i_BottleSize /(#mFillingSpeed / 1000) ;
	END_IF;
	  
	
END_FUNCTION


```