(* @PATH := '\/Functions_Collection\/FillingHead' *)
(* @SYMFILEFLAGS := '0' *)
FUNCTION Flow_To_Press_Loss : REAL

VAR_INPUT
	i_Flow			: REAL ;	(* Product Flow in l/min *)
	i_K_Loss		: REAL ;	(* Pressure Loss Constant: pump + pipe + filler collector *)
END_VAR

VAR
END_VAR


(* @END_DECLARATION := '0' *)
(* Pressure Loss along Pipe in mmH2O

	Head [ mmH2O] =  i_Flow ^ 2 i_K_Loss  

SAE131==>  i_K_Loss = 9.420000e-003
*)

(*******		Pompa INOXPA Modello ______   Motore 4 Poli 1450 RPM ********* *)

(*KP_Carico :=0.158;*)

Flow_To_Press_Loss := EXPT(i_Flow, 2) * i_K_Loss ;
END_FUNCTION