Updated function calc.tir with code of aozonoff