& stat_freq, stat_phase, stat_region, stat_fields,
stat_phase(l) = UNSET_RL
IF ( stat_phase(l).NE. UNSET_RL ) THEN
diagSt_phase(n) = stat_phase(l)
_RL stat_freq(ldimLoc), stat_phase(ldimLoc)