absfreq = abs(diagSt_freq(n))
_RL diagSt_freq(numLists), diagSt_phase(numLists)
& diagSt_freq, diagSt_phase
diagSt_freq(n) = 0.
diagSt_freq(n) = stat_freq(l)
& diagSt_freq(n), ' ; Phase: ', diagSt_phase(n)
& diagSt_freq(ld), diagSt_phase(ld), ' |'
IF ( diagSt_freq(n).LT.0. ) THEN
freqSec = diagSt_freq(n)
WRITE(nUnit,'(A,F17.6)') '# frequency (s): ', diagSt_freq(n)
IF (flag .AND. diagSt_freq(l) .EQ. diagSt_freq(listId)