_RL diagSt_freq(numLists), diagSt_phase(numLists)
& diagSt_freq, diagSt_phase
diagSt_phase(n) = 0.
diagSt_phase(n) = stat_phase(l)
diagSt_phase(n) = -0.5 _d 0 * stat_freq(l)
& diagSt_freq(n), ' ; Phase: ', diagSt_phase(n)
& diagSt_freq(ld), diagSt_phase(ld), ' |'
phiSec = diagSt_phase(n)
WRITE(nUnit,'(A,F17.6)') '# phase (s) : ', diagSt_phase(n)
& .AND. diagSt_phase(l).EQ.diagSt_phase(listId) ) THEN