Grt: Пересчет для граната по TPF

Пересчет на 12 атомов кислорода.

Кислородный метод программы TPF.

source('utilities_tpf.r')

recalc.grt_tpf_realc0 <- function (wtp_data, ...)
{
rn <- tpf.rename(wtp_data);
clk <- tpf.omesod(rn,12,999);
rdat <- tpf.unrename(clk,wtp_data$Name);
rdat$Fe_p3_pfu <- 0.0; 
return(rdat);
}