xInterval = myTime + deltaTClock*0.5 _d 0 - averagePhase(n)
xInterval = xInterval / averageFreq(n)
IF ( xInterval.GE.0. ) THEN
nInterval = INT(xInterval)
nInterval = 1 + INT( -xInterval/FLOAT(averageCycle(n)) )
nInterval = nInterval*averageCycle(n) + INT(xInterval) - 1
& ' switch', pdiag(n,1,1),' ->', nInterval, xInterval
& ' cycle=', averageCycle(n), ', xInt=', xInterval
_RL xInterval