!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
!
! S. Guilloteau
!   Support for SHOW NOISE [CLEAN|DIRTY|SKY] [Noise [Min Max]]
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
if .not.exist(ActiveVariable) define char ActiveVariable*32 /global
!
! Simulate 
!! @ p_load aaa ActiveVariable
!
let ActiveVariable &1
!!  message i GO "Using SIC structure "'name'
!!let aaa__name 'name'
!!let aaa__type %
!!let aaa__date -1
let header_name_type "(&1)" /Upper
symbol has_changed YES
!
let PopupName NOISE
@ p_sub_noise.ima &2 &3 &4
