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