& freq, phase, averageFreq, averagePhase,
_RL averageFreq(numlists), averagePhase(numlists)
averagePhase(n) = 0.
averagePhase(n) = averagingPhase(l)
averagePhase(n) = phase(n)
& ' , Phase: ', averagePhase(n), ' , Cycle:', averageCycle(n)
& .AND. averagePhase(l).EQ.averagePhase(listId)
xInterval = myTime + deltaTclock*0.5 _d 0 - averagePhase(n)
& .AND. averagePhase(n).EQ.averagePhase(listId)