& ndaysnoleap,
integer ndaysnoleap
days_in_year=ndaysnoleap
ndaysnoleap = 365
ndaysnoleap = 360
ndaysnoleap = 0
ndays = (ndaysnoleap - 1) + cal_IsLeap( yi, mythid ) -
ndays = ndays + (ndaysnoleap - 1) +
secondsInYear = ndaysnoleap * secondsperday