! @ p_view_map.map NAME
!   Display the IMAGE-like variable NAME using the "VIEW" facility
!
if (.not.exist(&1)) then
  Message E VIEW "No such variable &1"
  let mapping_error yes
  return 
endif
if (rank(&1).lt.2)  then
  Message E VIEW "Variable &1 is less than 2-D"
  let mapping_error yes
  return 
endif
if (.not.exist(&1%EXTREMA)) then
  Message E VIEW "Variable &1 has no assigned extrema"
  let mapping_error yes
  return 
endif
!
let header_name_type "(&1)" /Upper
symbol HAS_CHANGED NO
!
!
@ p_scale  &1    ! Scaling
@ p_level  &1    ! Contour levels
@ p_view_sub &1  ! Effective drawing
!
symbol drawn &1%
