(* @PATH := '\/Functions_Collection\/FillingHead' *)
(* @SYMFILEFLAGS := '0' *)
FUNCTION mmH2O_TO_Freq : REAL
VAR_INPUT
	i_Head				: REAL ;	(* Request Head in mmH2O *)
	i_K_Pump			: REAL ;	(* Freq to Head Pump Factor *)
END_VAR
VAR
END_VAR


(* @END_DECLARATION := '0' *)
(* Calculates the pump frequency to get an input head

	Freq 		=	Pump Frequency [Hz]
	K_mBar		=	Freq to Head Pump Constant

(*	Head [ mBar] = Freq^2 * K_Pump   *)

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

IF i_K_Pump<>0 THEN
	mmH2O_TO_Freq := SQRT ( i_Head / i_K_Pump );
END_IF
mmH2O_TO_Freq := LIMIT(0, mmH2O_TO_Freq, 100.0) ;
END_FUNCTION