& freq, phase, averageFreq, averagePhase,
_RL averageFreq(numlists), averagePhase(numlists)
averageFreq(n) = 0.
averageFreq(n) = averagingFreq(l)
averageFreq(n) = nTimeSteps*deltaTClock
averageFreq(n) = frequency(l)
& ' Averaging Freq.:', averageFreq(n),
& .AND. averageFreq(l) .EQ.averageFreq(listId)
xInterval = xInterval / averageFreq(n)
& .AND. averageFreq(n) .EQ.averageFreq(listId)