fldsectot = mytime - fldstartdate
if ( fldsectot .lt. 0. _d 0 ) then
count0 = int((fldsectot+0.5)/fldperiod) + 1
fldsecs = mod(fldsectot,fldperiod)
if(fldsectot.lt.0. _d 0) fldsectot = fldsectot + repeatPeriod
fldsecs0 = mod(fldsectot,repeatPeriod)
fldsecs1 = mod(fldsectot+fldperiod,repeatPeriod)
fldsectot = myDateSeconds - fldstartdate
_RL fldsectot, fldsecs, fldsecs0, fldsecs1