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