frequency(l) = 0.
freq(n) = frequency(l)
ELSEIF ( frequency(l) .LT. 0. ) THEN
phase(n) = -0.5 _d 0 * frequency(l)
ELSEIF ( frequency(l) .EQ. 0. ) THEN
ELSEIF ( frequency(l) .GT. 0. ) THEN
averageFreq(n) = frequency(l)
& ' Frq=', frequency(l), ', fileName: ', fileName(l)
_RL frequency(ldimLoc), timePhase(ldimLoc)
& frequency, timePhase,