```pascal
FUNCTION "Cetrifugal_Head" : Real
{ S7_Optimized_Access := 'FALSE' }
AUTHOR : 'Author'
FAMILY : 'Function'
NAME : 'Name'
VERSION : 1.0
   VAR_INPUT 
      i_Diameter : Real;   // Carousel Diameter [mm]
      i_NumValve : Int;   // Filling Valve Number
      i_Speed : Real;   // Speed [BpH]
   END_VAR

   VAR_TEMP 
      Omega : Real;
      Radius : Real;
   END_VAR


BEGIN
	
	
	  // Filler Centrifugal Head [mm]
	  IF #i_NumValve <> 0 THEN
	    #Omega := ( #i_Speed / #i_NumValve / 3600 ) * 2 * "Blender_Constants".gP_Greek ;
	  END_IF;
	  #Radius := #i_Diameter / 2 / 1000 ;
	  (* classic code: #Cetrifugal_Head := (( 0.5 * #Omega*#Omega * #Radius * #Radius ) / 9.8 ) * 1000 ;*)
	  #Cetrifugal_Head := (( REAL#0.5 * #Omega*#Omega * #Radius * #Radius ) / REAL#9.8 ) * 1000 ;
	  
	
END_FUNCTION


```