timeRec(1) = myTime
timeRec(2) = myTime
timeRec(1) = myTime-deltaTClock*0.5 _d 0
timeRec(1) = (timeRec(1)-phase(listId))/freq(listId)
i = INT( timeRec(1) )
IF ( timeRec(1).LT.0. ) THEN
IF ( timeRec(1).NE.tmpLoc ) i = i - 1
timeRec(1) = phase(listId) + freq(listId)*FLOAT(i)
timeRec(1) = MAX( timeRec(1), startTime )
timeRec(1) = (timeRec(1)-baseTime)/deltaTClock
i = NINT( timeRec(1) )
IF ( timeRec(1).EQ.tmpLoc ) i = i - 1
timeRec(1) = baseTime + deltaTClock*FLOAT(i)
& nTimRec, timeRec, undefRL,
_RL timeRec(2)