fldsectot = myTime - fldStartTime
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 + fldRepeatCycle
fldsecs0 = MOD(fldsectot,fldRepeatCycle)
fldsecs1 = MOD(fldsectot+fldPeriod,fldRepeatCycle)
fldsectot = myDateSeconds - fldStartTime
_RL fldsectot, fldsecs, fldsecs0, fldsecs1