(* @PATH := '\/Functions_Collection' *)
(* @SYMFILEFLAGS := '0' *)
FUNCTION MaxCarboCO2_Vol : REAL
VAR_INPUT
	i_Temp				: REAL ;
	i_Press				: REAL ;
END_VAR
VAR
	mAbsTemp			: REAL ;
	mAux				: REAL ;
END_VAR

(* @END_DECLARATION := '0' *)
IF i_Temp<=0 THEN i_Temp:= 12.0 ; END_IF
mAbsTemp := i_Temp + gZeroAbsolute ;
IF (0.03275 * mAbsTemp - 7.9567)<>0 AND  i_Press <>0 AND (0.000261 + mAux * (1 + 1.0332 / i_Press))<>0 THEN
	mAux := (0.01898 - 0.0000476 * mAbsTemp) / (0.03275 * mAbsTemp - 7.9567) ;
	MaxCarboCO2_Vol := i_Press * mAbsTemp / 1.0332 * (0.000261 + mAux * (1 + 1.0332 / i_Press)) ;
ELSE
	MaxCarboCO2_Vol := -1 ;
END_IF
END_FUNCTION