(* @PATH := '\/Functions_Collection' *)
(* @SYMFILEFLAGS := '0' *)
FUNCTION CIP_CVQ : REAL
VAR_INPUT
	i_TempIn				: REAL ;
	i_TempOut				: REAL ;
END_VAR
VAR
END_VAR
(* @END_DECLARATION := '0' *)
IF i_TempOut<= 0.5 THEN
	CIP_CVQ := 50.0 ;
ELSIF i_TempIn-i_TempOut<=1 THEN
	CIP_CVQ := 100.0 ;
ELSIF (i_TempIn-i_TempOut>1) AND (i_TempIn-i_TempOut<=5) THEN
	CIP_CVQ := (i_TempOut - i_TempIn) * 12.5 + 87.5 ;
ELSIF i_TempIn-i_TempOut>5 THEN
	CIP_CVQ := 50.0 ;
END_IF

END_FUNCTION