Function ENTHALPY_O (T)

{$ENTHALPY_O

Enthaply of monatomic oxygen units kJ/kgmol}

a1=0.0254e2

a2=-0.02755e-3

a3=-0.03103e-7

a4=0.04551e-10

a5=-0.0455106e-14

a6=0.02923e6

ENTHALPY_O = 8.314*T*(a1+a2*T/2+a3*T^2/3+a4*T^3/4+a5*T^4/5+a6/T)

END

Function ENTROPY_O (T)

{$ENTROPY_O

Entropy of monatomic oxygen units kJ/kgmol-K}

a1=0.0254e2

a2=-0.02755e-3

a3=-0.03103e-7

a4=0.04551e-10

a5=-0.0455106e-14

a7=0.04920e2

ENTROPY_O = 8.314*(a1*ln(T)+a2*T+a3*T^2/2+a4*T^3/3+a5*T^4/4+a7)

END

Function ENTHALPY_OH (T)

{$ENTHALPY_OH

Enthaply of OH units kJ/kgmol}

a1=0.02883e2

a2=0.101397e-2

a3=-0.022769e-5

a4=0.021747e-9

a5=-0.051263e-14

a6=0.038869e5

ENTHALPY_OH = 8.314*T*(a1+a2*T/2+a3*T^2/3+a4*T^3/4+a5*T^4/5+a6/T)

END

Function ENTROPY_OH (T)

{$ENTROPY_OH

Entropy of OH units kJ/kgmol-K}

a1=0.02883e2

a2=0.101397e-2

a3=-0.022769e-5

a4=0.021747e-9

a5=-0.051263e-14

a7=0.055957e2

ENTROPY_OH = 8.314*(a1*ln(T)+a2*T+a3*T^2/2+a4*T^3/3+a5*T^4/4+a7)

END

Function ENTHALPY_H (T)

{$ENTHALPY_H

Enthaply of monatomic hydrogen units kJ/kgmol}

a1=0.025e2

a2=0

a3=0

a4=0

a5=0

a6=0.02547e6

ENTHALPY_H = 8.314*T*(a1+a2*T/2+a3*T^2/3+a4*T^3/4+a5*T^4/5+a6/T)

END

Function ENTROPY_H (T)

{$ENTROPY_H

Entropy of monatomic hydrogen units kJ/kgmol-K}

a1=0.025e2

a2=0

a3=0

a4=0

a5=0

a7=-0.04601e1

ENTROPY_H = 8.314*(a1*ln(T)+a2*T+a3*T^2/2+a4*T^3/3+a5*T^4/4+a7)

END