(* @PATH := '\/Functions_Collection' *)
(* @SYMFILEFLAGS := '0' *)
FUNCTION CO2EqPress : REAL
VAR_INPUT
	i_CO2Vol			: REAL ;
	i_Temp				: REAL ;
END_VAR
VAR
	mAbsTemp			: REAL ;
	mAux				: REAL ;
END_VAR
(* @END_DECLARATION := '0' *)
(***************************************************************************************************************************)
(* 			The following Formula is supplied by Coca Cola Company, used in QC Labs			*)
(***************************************************************************************************************************)

mAbsTemp := i_Temp + 273.16 ;
IF (0.03275 * mAbsTemp - 7.9567)<>0 AND (0.000261 * mAbsTemp + mAux)<>0 THEN
	mAux :=(0.01898 - 0.0000476 * mAbsTemp) / (0.03275 * mAbsTemp - 7.9567) * mAbsTemp ;
	CO2EqPress := (i_CO2Vol - mAux) * 1.0332 / (0.000261 * mAbsTemp + mAux) ;
END_IF

END_FUNCTION