(* @PATH := '\/Functions_Collection' *)
(* @SYMFILEFLAGS := '0' *)
FUNCTION Calc_InjPress : REAL
VAR_INPUT
	i_GasTemperature		: REAL;
	i_GasMW				: REAL;
	i_GasDensity				: REAL;
END_VAR
VAR
	mMW_Gas				: REAL;
	mTa_Gas				: REAL;
	m_R					: REAL;
END_VAR
(* @END_DECLARATION := '0' *)
IF i_GasTemperature<gZeroAbsolute THEN
	mTa_Gas := i_GasTemperature + gZeroAbsolute;
ELSE
	mTa_Gas := i_GasTemperature;
END_IF

m_R := g_R0 / i_GasMW;

Calc_InjPress := i_GasDensity * 1000 * 1000 * m_R * mTa_Gas;
Calc_InjPress := (Calc_InjPress / 100000) - 1.01325;

END_FUNCTION