Update calc.zeng.R

Resolve issue when Tz - To = 0