!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! The type of header name is passed as first argument
! The header variable name is passed as second argument
! Then follows (optionally) first and last channel
!
let header_name_type "(&1)" /Upper
!
let Mapping_Error yes
if (&2%extrema.eq.0) then
  sic\compute &2%min min w
  sic\compute &2%max max w
  let &2%extrema 10
endif
symbol has_changed NO
@ p_view_sub.greg &2 &3 &4
symbol drawn &2%
let Mapping_Error no
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
