Common: TPF recalc0, 1991

Пересчет производится на основе заданного пользователем числа атомов кислорода.

Reference	TPF
Input	SiO2_wtp, Al2O3_wtp, TiO2_wtp, Cr2O3_wtp, Fe2O3_wtp, FeO_wtp, MnO_wtp, MgO_wtp, CaO_wtp, Na2O_wtp, K2O_wtp, BaO_wtp, NiO_wtp, ZnO_wtp, BeO_wtp, P2O5_wtp, V2O5_wtp, CoO_wtp, GeO2_wtp, ZrO2_wtp, Cs2O_wtp, PbO_wtp, SO3_wtp, CO2_wtp, F_wtp, Cl_wtp
Results	pfu, Fe_p3_pfu, Fe_p2_pfu, Al_c4_pfu, Al_c6_pfu

source('utilities_tpf.r')

recalc.tpf_omesod <- function (wtp_data, count=12, ...)
{
return(tpf.omesod_v(wtp_data,count,999));
}