Ol: Пересчет для оливина по TPF

Пересчет на 4 атомов кислорода, 1 ион в IV координации.

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

source('utilities_tpf.r');

recalc.ol_tpf_realc0 <- function (wtp_data, ...)
{
rn <- tpf.rename(wtp_data);
clk <- tpf.omesod(rn,4,1);
return(tpf.unrename(clk,wtp_data$Name));
}