_RL time00, time1, time2
time00 = DAY + MNDY(MONTH ,MOD(YEAR ,4)+1) + float(sec )/86400.
if( time00 .lt.time1 ) time00 = time00 + dayscy
fac1 = (time2-time00)/(time2-time1)
fac2 = (time00-time1)/(time2-time1)