add calc Ts routine