!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
!
! S. Guilloteau
!   Support for VIEW NOISE [Clean | Dirty]
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
if .not.exist(ActiveVariable) define char ActiveVariable*32 /global
!
let ActiveVariable &1
let header_name_type "(&1)" /Upper
symbol has_changed YES
!
define logical noise_single /global
@ p_sub_noise.ima &2 &3 &4
dele /var noise_single 
