days_in_year=ndaysnoleap
& days_in_year=ndaysleap
do while (ndays_left .ge. days_in_year)
ndays_left = ndays_left - days_in_year
INTEGER ndays, ndays_left, days_in_year